00000000: 0D 0D 50 41 55 53 45 20 32 30 0D 49 46 20 4E 4F |..PAUSE 20.IF NO|
00000010: 20 43 41 52 52 49 45 52 20 54 48 45 4E 20 45 4E | CARRIER THEN EN|
00000020: 44 0D 4F 55 54 50 55 54 20 22 20 22 0D 43 48 45 |D.OUTPUT " ".CHE|
00000030: 43 4B 20 31 20 22 CE CD 3A 22 0D 57 41 49 54 0D |CK 1 "..:".WAIT.|
00000040: 4F 55 54 50 55 54 20 22 49 43 45 20 42 52 45 41 |OUTPUT "ICE BREA|
00000050: 4B 45 52 22 0D 43 48 45 43 4B 20 32 20 22 D0 D7 |KER".CHECK 2 "..|
00000060: 3A 22 0D 57 41 49 54 0D 4F 55 54 50 55 54 20 22 |:".WAIT.OUTPUT "|
00000070: 42 4F 47 55 53 22 0D 47 4F 38 30 0D 45 4E 44 0D |BOGUS".GO80.END.|
..PAUSE 20.IF NO CARRIER THEN END.OUTPUT
" ".CHECK 1 "NM:".WAIT.OUTPUT "ICE BREA
KER".CHECK 2 "PW:".WAIT.OUTPUT "BOGUS".G
O80.END.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL