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 cfeeff1..51e5f89 100644 Binary files a/qrcode.dsk and b/qrcode.dsk differ