> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 00 00 8F 20 20 2A 20 20 50 52 4F 47 |....... * PROG|
00000010: 52 41 4D 20 31 35 2D 36 20 20 2A 00 44 08 0A 00 |RAM 15-6 *.D...|
00000020: 99 20 22 4E 41 4D 45 20 4F 46 20 53 45 51 20 46 |. "NAME OF SEQ F|
00000030: 49 4C 45 20 54 4F 20 42 45 20 44 49 53 50 4C 41 |ILE TO BE DISPLA|
00000040: 59 45 44 22 00 4D 08 14 00 85 20 4E 24 00 7D 08 |YED".M.... N$.}.|
00000050: 1E 00 9F 20 31 2C 38 2C 32 2C 4E 24 20 3A 8F 20 |... 1,8,2,N$ :. |
00000060: 4F 50 45 4E 20 53 45 51 20 46 49 4C 45 20 28 44 |OPEN SEQ FILE (D|
00000070: 45 46 41 55 4C 54 3D 20 52 45 41 44 29 00 A9 08 |EFAULT= READ)...|
00000080: 28 00 A1 23 31 2C 58 24 20 20 20 20 20 20 3A 8F |(..#1,X$ :.|
00000090: 20 46 45 54 43 48 20 4F 4E 45 20 46 49 4C 45 20 | FETCH ONE FILE |
000000A0: 43 48 41 52 41 43 54 45 52 00 CC 08 32 00 99 20 |CHARACTER...2.. |
000000B0: 58 24 3B 20 20 20 20 20 3A 8F 20 50 52 49 4E 54 |X$; :. PRINT|
000000C0: 20 41 20 43 48 41 52 41 43 54 45 52 00 F7 08 3C | A CHARACTER...<|
000000D0: 00 8B 20 53 54 B1 30 20 A7 20 A0 20 31 3A 20 80 |.. ST.0 . . 1: .|
000000E0: 3A 20 8F 20 53 54 4F 50 20 41 54 20 45 4E 44 20 |: . STOP AT END |
000000F0: 4F 46 20 46 49 4C 45 00 24 09 46 00 A1 20 58 24 |OF FILE.$.F.. X$|
00000100: 3A 20 8B 20 58 24 B2 22 22 20 89 20 37 30 20 3A |: . X$."" . 70 :|
00000110: 8F 20 50 41 55 53 45 20 46 4F 52 20 4B 45 59 50 |. PAUSE FOR KEYP|
00000120: 52 45 53 53 00 2D 09 50 00 89 20 34 30 00 00 00 |RESS.-.P.. 40...|
....... * PROGRAM 15-6 *.D.... "NAME
OF SEQ FILE TO BE DISPLAYED".M.... N$.}.
... 1,8,2,N$ :. OPEN SEQ FILE (DEFAULT=
READ)...(..#1,X$ :. FETCH ONE FILE
CHARACTER.L.2.. X$; :. PRINT A CHARA
CTER...<.. ST.0 . 1: .: . STOP AT END
OF FILE.$.F.. X$: . X$."" . 70 :. PAUSE
FOR KEYPRESS.-.P.. 40...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL