Apple-2-SW/A2QR
1
0
Fork 0
mirror of https://github.com/option8/A2QR.git synced 2024-10-31 20:06:29 +00:00
Code Issues Projects Releases Wiki Activity

fixed typo in line 70

Browse Source
This commit is contained in:
Charles Mangin 2021-06-15 23:34:17 -04:00 committed by GitHub
parent 4e1e69e8a3
commit 39d06d8f47
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
qrcode.bas
View File

@ -4,7 +4,7 @@
40 HTAB 4: VTAB 19: PRINT "[B] for Bytes.": HTAB 4: PRINT "Limited to 78 ASCII characters." 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$ 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 POKE M$ = "B" : 8,64: GOTO 700 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 80 IF (M$ = "A" or M$="a") THEN M$ = "A": POKE 8,32: GOTO 800
700 HOME : VTAB 8 700 HOME : VTAB 8
710 PRINT "BYTE MODE:": PRINT " Enter up to 78 ASCII characters:" 710 PRINT "BYTE MODE:": PRINT " Enter up to 78 ASCII characters:"