> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 00 00 8F 20 2A 20 20 20 20 20 50 52 |..!.... * PR|
00000010: 4F 47 52 41 4D 20 31 35 2D 32 20 20 20 20 20 20 |OGRAM 15-2 |
00000020: 2A 00 4F 08 01 00 9F 20 31 35 2C 38 2C 31 35 2C |*.O.... 15,8,15,|
00000030: 22 49 22 20 20 20 20 20 20 3A 8F 20 49 4E 49 54 |"I" :. INIT|
00000040: 49 41 4C 49 53 45 20 44 49 53 4B 45 54 54 45 00 |IALISE DISKETTE.|
00000050: 80 08 02 00 9F 20 32 2C 38 2C 32 2C 22 4E 41 4D |..... 2,8,2,"NAM|
00000060: 45 2C 50 2C 52 22 20 3A 8F 20 4F 50 45 4E 20 50 |E,P,R" :. OPEN P|
00000070: 52 47 20 46 49 4C 45 20 46 4F 52 20 52 45 41 44 |RG FILE FOR READ|
00000080: 00 B2 08 03 00 A1 23 32 2C 58 24 20 20 20 20 20 |......#2,X$ |
00000090: 20 20 20 20 20 20 20 20 20 3A 8F 20 46 45 54 43 | :. FETC|
000000A0: 48 20 41 20 46 49 4C 45 20 43 48 41 52 41 43 54 |H A FILE CHARACT|
000000B0: 45 52 00 DC 08 04 00 8B 20 53 54 B1 30 20 A7 20 |ER...... ST.0 . |
000000C0: A0 20 32 3A 20 80 20 3A 8F 20 45 4E 44 20 57 48 |. 2: . :. END WH|
000000D0: 45 4E 20 46 49 4C 45 20 45 4E 44 53 00 02 09 05 |EN FILE ENDS....|
000000E0: 00 99 20 C6 28 58 24 AA C7 28 30 29 29 3B 3A 8F |.. .(X$..(0));:.|
000000F0: 20 50 52 49 4E 54 20 41 53 43 49 49 20 56 41 4C | PRINT ASCII VAL|
00000100: 55 45 00 21 09 06 00 89 20 33 20 20 20 20 20 20 |UE.!.... 3 |
00000110: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 4D 4F 52 | :. MOR|
00000120: 45 00 00 00 |E... |
..!.... * PROGRAM 15-2 *.O....
15,8,15,"I" :. INITIALISE DISKETTE.
..... 2,8,2,"NAME,P,R" :. OPEN PRG FILE
FOR READ......#2,X$ :. FETC
H A FILE CHARACTER...... ST.0 . 2: . :
. END WHEN FILE ENDS...... F(X$.G(0));:.
PRINT ASCII VALUE.!.... 3
:. MORE...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL