> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 0A 00 8F 20 45 58 54 45 4E 44 49 4E |.. .... EXTENDIN|
00000010: 47 20 52 45 4C 41 54 49 56 45 20 46 49 4C 45 53 |G RELATIVE FILES|
00000020: 00 3B 08 14 00 8F 20 4F 50 45 4E 20 43 4F 4D 4D |.;.... OPEN COMM|
00000030: 41 4E 44 20 43 48 41 4E 4E 45 4C 00 51 08 1E 00 |AND CHANNEL.Q...|
00000040: 9F 31 2C 38 2C 31 35 2C 22 55 39 22 3A 8D 33 30 |.1,8,15,"U9":.30|
00000050: 30 00 66 08 28 00 8F 20 42 55 49 4C 44 20 46 49 |0.f.(.. BUILD FI|
00000060: 4C 45 4E 41 4D 45 00 81 08 32 00 46 49 24 B2 22 |LENAME...2.FI$."|
00000070: 52 45 4C 46 49 4C 45 2C 4C 2C 22 3A 4C 4E B2 32 |RELFILE,L,":LN.2|
00000080: 35 00 93 08 3C 00 46 49 24 B2 46 49 24 AA C7 28 |5...<.FI$.FI$..(|
00000090: 4C 4E 29 00 AC 08 46 00 8F 20 4F 50 45 4E 20 52 |LN)...F.. OPEN R|
000000A0: 45 4C 41 54 49 56 45 20 46 49 4C 45 00 BB 08 50 |ELATIVE FILE...P|
000000B0: 00 9F 32 2C 38 2C 32 2C 46 49 24 00 C4 08 5A 00 |..2,8,2,FI$...Z.|
000000C0: 8D 33 30 30 00 DF 08 64 00 8F 20 52 45 41 44 20 |.300...d.. READ |
000000D0: 54 48 45 20 4C 41 53 54 20 52 45 43 4F 52 44 00 |THE LAST RECORD.|
000000E0: FF 08 6E 00 98 31 2C 22 50 22 3B C7 28 32 AA 39 |..n..1,"P";.(2.9|
000000F0: 36 29 3B C7 28 31 30 30 29 3B C7 28 30 29 3B 00 |6);.(100);.(0);.|
00000100: 08 09 78 00 8D 33 30 30 00 20 09 82 00 98 32 2C |..x..300. ....2,|
00000110: 22 55 50 44 41 54 45 44 22 3B C7 28 31 33 29 3B |"UPDATED";.(13);|
00000120: 00 40 09 8C 00 8F 20 45 58 54 45 4E 44 20 42 45 |.@.... EXTEND BE|
00000130: 59 4F 4E 44 20 52 45 43 4F 52 44 20 23 31 30 30 |YOND RECORD #100|
00000140: 00 60 09 96 00 98 31 2C 22 50 22 3B C7 28 32 AA |.`....1,"P";.(2.|
00000150: 39 36 29 3B C7 28 32 30 30 29 3B C7 28 30 29 3B |96);.(200);.(0);|
00000160: 00 79 09 A0 00 98 32 2C 22 45 58 54 45 4E 44 45 |.y....2,"EXTENDE|
00000170: 44 22 3B C7 28 31 33 29 3B 00 97 09 AA 00 98 31 |D";.(13);......1|
00000180: 2C 22 50 22 3B C7 28 32 AA 39 36 29 3B C7 28 31 |,"P";.(2.96);.(1|
00000190: 29 3B C7 28 30 29 3B 00 A0 09 B4 00 8D 33 30 30 |);.(0);......300|
000001A0: 00 BE 09 BE 00 8F 20 52 45 41 44 20 42 41 43 4B |...... READ BACK|
000001B0: 20 45 58 54 45 4E 44 45 44 20 46 49 4C 45 00 CB | EXTENDED FILE..|
000001C0: 09 C8 00 81 49 B2 31 A4 32 30 30 00 D5 09 D2 00 |....I.1.200.....|
000001D0: 84 32 2C 41 24 00 E4 09 DC 00 99 20 22 20 22 3B |.2,A$...... " ";|
000001E0: 49 3B 41 24 00 EB 09 E6 00 82 49 00 FD 09 F0 00 |I;A$......I.....|
000001F0: 8F 20 43 4C 4F 53 45 20 46 49 4C 45 53 00 0B 0A |. CLOSE FILES...|
00000200: FA 00 A0 20 32 3A A0 20 31 3A 80 00 27 0A 2C 01 |... 2:. 1:..'.,.|
00000210: 8F 20 43 48 45 43 4B 20 46 4F 52 20 44 49 53 4B |. CHECK FOR DISK|
00000220: 20 45 52 52 4F 52 53 00 3B 0A 36 01 84 31 2C 45 | ERRORS.;.6..1,E|
00000230: 4E 2C 45 54 24 2C 45 54 2C 45 53 00 5A 0A 40 01 |N,ET$,ET,ES.Z.@.|
00000240: 8B 20 45 4E B2 30 20 B0 20 45 4E B2 35 30 20 B0 |. EN.0 . EN.50 .|
00000250: 45 4E B2 37 33 20 A7 33 34 30 00 6F 0A 4A 01 99 |EN.73 .340.o.J..|
00000260: 20 45 4E 3B 45 54 24 3B 45 54 3B 45 53 3A 90 00 | EN;ET$;ET;ES:..|
00000270: 75 0A 54 01 8E 00 00 00 |u.T..... |
.. .... EXTENDING RELATIVE FILES.;.... O
PEN COMMAND CHANNEL.Q....1,8,15,"U9":.30
0.F.(.. BUILD FILENAME...2.FI$."RELFILE,
L,":LN.25...<.FI$.FI$.G(LN)...F.. OPEN R
ELATIVE FILE...P..2,8,2,FI$.D.Z..300...D
.. READ THE LAST RECORD...N..1,"P";G(2.9
6);G(100);G(0);...X..300. ....2,"UPDATED
";G(13);.@.... EXTEND BEYOND RECORD #100
.`....1,"P";G(2.96);G(200);G(0);.Y. ..2,
"EXTENDED";G(13);......1,"P";G(2.96);G(1
);G(0);. ....300...... READ BACK EXTENDE
D FILE.K.H..I.1.200.U.R..2,A$...... " ";
I;A$......I...... CLOSE FILES..... 2:
1:..'.,.. CHECK FOR DISK ERRORS.;.6..1,E
N,ET$,ET,ES.Z.@.. EN.0 . EN.50 .EN.73 .3
40.O.J.. EN;ET$;ET;ES:..U.T.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL