00000000: 39 30 30 30 20 50 52 4F 43 20 53 48 49 46 54 27 |9000 PROC SHIFT'|
00000010: 57 41 49 54 20 43 4C 4F 53 45 44 0D 39 30 31 30 |WAIT CLOSED.9010|
00000020: 20 53 48 49 46 54 27 46 4C 41 47 3A 3D 36 35 33 | SHIFT'FLAG:=653|
00000030: 0D 39 30 32 30 20 57 48 49 4C 45 20 4E 4F 54 20 |.9020 WHILE NOT |
00000040: 50 45 45 4B 28 53 48 49 46 54 27 46 4C 41 47 29 |PEEK(SHIFT'FLAG)|
00000050: 20 44 4F 0D 39 30 33 30 20 50 52 49 4E 54 20 22 | DO.9030 PRINT "|
00000060: 50 52 45 53 53 20 53 48 49 46 54 91 22 0D 39 30 |PRESS SHIFT.".90|
00000070: 34 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 |40 PRINT " |
00000080: 20 20 20 20 20 91 22 0D 39 30 35 30 20 45 4E 44 | .".9050 END|
00000090: 57 48 49 4C 45 20 0D 39 30 36 30 20 45 4E 44 50 |WHILE .9060 ENDP|
000000A0: 52 4F 43 20 53 48 49 46 54 27 57 41 49 54 0D |ROC SHIFT'WAIT. |
9000 PROC SHIFT'WAIT CLOSED.9010 SHIFT'F
LAG:=653.9020 WHILE NOT PEEK(SHIFT'FLAG)
DO.9030 PRINT "PRESS SHIFT.".9040 PRINT
" .".9050 ENDWHILE .9060 ENDP
ROC SHIFT'WAIT.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL