mirror of https://github.com/option8/A2QR.git
fixed typos in BASIC
This commit is contained in:
parent
de704c67fe
commit
f72a480ce0
|
@ -3,7 +3,7 @@
|
|||
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
|
||||
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
|
||||
|
|
BIN
qrcode.dsk
BIN
qrcode.dsk
Binary file not shown.
Loading…
Reference in New Issue