From f72a480ce0a54126f218fa737d8a7307c8a9b2b6 Mon Sep 17 00:00:00 2001
From: Charles Mangin <option8@option8.com>
Date: Wed, 16 Jun 2021 11:20:11 -0400
Subject: [PATCH] fixed typos in BASIC

---
 qrcode.bas |   6 +++---
 qrcode.dsk | Bin 143360 -> 143360 bytes
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/qrcode.bas b/qrcode.bas
index db8ee96..d04dfff 100644
--- a/qrcode.bas
+++ b/qrcode.bas
@@ -3,9 +3,9 @@
 30 HTAB 4: VTAB 14: PRINT "[A] FOR ALPHANUMERIC.": HTAB 4: PRINT "UP TO 114 CHARACTERS. LIMITED": HTAB 4: PRINT "TO UPPER CASE LETTERS, NUMBERS,": HTAB 4: PRINT "$ % * + - . / : AND SPACES."
 40 HTAB 4: VTAB 19: PRINT "[B] FOR BYTES.": HTAB 4: PRINT "LIMITED TO 78 ASCII CHARACTERS."
 50 VTAB 22: INPUT "ENTER A OR B :";M$
-60 IF NOT (M$ = "A" OR M$ = "B" OR M$="A" OR M$="B") THEN GOTO 50
-70 IF (M$ = "B" OR M$="b") THEN M$ = "B": POKE 8,64: GOTO 700
-80 IF (M$ = "A" OR M$="a") THEN M$ = "A": POKE 8,32: GOTO 800
+60 IF NOT (M$ = "A" OR M$ = "B" OR M$="a" OR M$="b") THEN GOTO 50
+70 IF (M$ = "B" OR M$ = "b") THEN M$ = "B" : POKE 8,64 : GOTO 700
+80 IF (M$ = "A" OR M$ = "a") THEN M$ = "A" : POKE 8,32 : GOTO 800
 700 HOME : VTAB 8
 710 PRINT "BYTE MODE:": PRINT "ENTER UP TO 78 ASCII CHARACTERS:"
 730 GOTO 1000
diff --git a/qrcode.dsk b/qrcode.dsk
index cfeeff140df8f66d710e8fff27369e48d487b282..51e5f896daa822fe1fb8bb726e34dd04a494ea84 100644
GIT binary patch
delta 36
rcmZp8z|jCiTNn?=GWt$DXtOPjaTOy+qS85El?zHq+c(8C`dt737V-|q

delta 36
rcmZp8z|jCiTNn?=GX9@<&}Lg4<0?iDN2PPVDi@TTwr`4O^t%86B?1pQ