> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 00 00 97 35 35 2C 2E 3A 97 35 36 2C |.......55,.:.56,|
00000010: 31 36 3A 8A 31 30 30 00 29 08 0A 00 84 31 2C 45 |16:.100.)....1,E|
00000020: 2C 45 24 2C 54 2C 53 3A 8E 00 3C 08 14 00 84 31 |,E$,T,S:..<....1|
00000030: 35 2C 45 2C 45 24 2C 54 2C 53 3A 8E 00 5C 08 1E |5,E,E$,T,S:..\..|
00000040: 00 98 31 2C 22 50 22 C7 28 31 30 34 29 C7 28 4C |..1,"P".(104).(L|
00000050: 29 C7 28 48 29 C7 28 50 29 3B 3A 8E 00 7D 08 28 |).(H).(P);:..}.(|
00000060: 00 98 31 35 2C 22 50 22 C7 28 31 30 35 29 C7 28 |..15,"P".(105).(|
00000070: 4C 29 C7 28 48 29 C7 28 50 29 3B 3A 8E 00 98 08 |L).(H).(P);:....|
00000080: 32 00 97 31 39 38 2C 2E 3A 92 31 39 38 2C 31 3A |2..198,.:.198,1:|
00000090: 97 31 39 38 2C 2E 3A 8E 00 AB 08 3C 00 A0 38 3A |.198,.:....<..8:|
000000A0: A0 39 3A A0 31 3A A0 31 35 3A 8E 00 B1 08 5F 00 |.9:.1:.15:...._.|
000000B0: 3A 00 C5 08 64 00 97 33 35 33 38 2C 2E 3A 97 33 |:...d..3538,.:.3|
000000C0: 35 33 39 2C 2E 00 03 09 6E 00 97 35 33 32 38 30 |539,....n..53280|
000000D0: 2C 31 31 3A 97 35 33 32 38 31 2C 2E 3A 99 22 93 |,11:.53281,.:.".|
000000E0: 0E 08 9F 22 A3 35 30 29 22 D2 45 4C 41 54 49 56 |...".50)".ELATIV|
000000F0: 45 20 C6 49 4C 45 20 C3 4F 50 49 45 52 22 A3 35 |E .ILE .OPIER".5|
00000100: 31 29 3B 00 1D 09 78 00 99 22 C2 59 20 CC 41 57 |1);...x..".Y .AW|
00000110: 52 45 4E 43 45 20 C8 49 4C 45 52 11 11 00 59 09 |RENCE .ILER...Y.|
00000120: 82 00 86 20 55 30 2C 55 31 2C 44 30 2C 44 31 2C |... U0,U1,D0,D1,|
00000130: 44 30 24 2C 44 31 24 2C 46 24 2C 48 2C 4C 2C 50 |D0$,D1$,F$,H,L,P|
00000140: 2C 45 2C 45 24 2C 54 2C 53 2C 52 53 2C 4E 2C 46 |,E,E$,T,S,RS,N,F|
00000150: 2C 4C 4E 3A 51 B2 32 35 36 00 7D 09 8C 00 53 24 |,LN:Q.256.}...S$|
00000160: B2 22 D3 4F 55 52 43 45 20 C4 22 3A 44 24 B2 22 |.".OURCE .":D$."|
00000170: C4 45 53 54 49 4E 41 54 49 4F 4E 20 C4 00 83 09 |.ESTINATION ....|
00000180: C3 00 3A 00 9D 09 C8 00 99 53 24 22 45 56 49 43 |..:......S$"EVIC|
00000190: 45 1D 1D 38 9D 9D 9D 22 3B 3A 85 55 30 00 C9 09 |E..8...";:.U0...|
000001A0: D2 00 99 53 24 22 52 49 56 45 1D 1D 30 9D 9D 9D |...S$"RIVE..0...|
000001B0: 22 3B 3A 85 44 30 3A 44 30 24 B2 C9 28 C4 28 44 |";:.D0:D0$..(.(D|
000001C0: 30 29 2C 31 29 AA 22 3A 22 00 E6 09 DC 00 99 22 |0),1).":"......"|
000001D0: 11 22 44 24 22 45 56 49 43 45 1D 1D 38 9D 9D 9D |."D$"EVICE..8...|
000001E0: 22 3B 3A 85 55 31 00 12 0A E6 00 99 44 24 22 52 |";:.U1......D$"R|
000001F0: 49 56 45 1D 1D 30 9D 9D 9D 22 3B 3A 85 44 31 3A |IVE..0...";:.D1:|
00000200: 44 31 24 B2 C9 28 C4 28 44 31 29 2C 31 29 AA 22 |D1$..(.(D1),1)."|
00000210: 3A 22 00 45 0A F0 00 8B 28 55 30 B3 38 29 B0 28 |:".E....(U0.8).(|
00000220: 55 30 B1 31 35 29 B0 28 55 31 B3 38 29 B0 28 55 |U0.15).(U1.8).(U|
00000230: 31 B1 31 35 29 B0 28 44 30 B1 31 29 B0 28 44 31 |1.15).(D0.1).(D1|
00000240: B1 31 29 A7 8A 00 59 0A FA 00 85 22 11 C6 49 4C |.1)...Y...."..IL|
00000250: 45 4E 41 4D 45 22 3B 46 24 00 8F 0A 04 01 9F 31 |ENAME";F$......1|
00000260: 2C 55 30 2C 31 35 2C 22 49 22 AA 44 30 24 3A 9F |,U0,15,"I".D0$:.|
00000270: 38 2C 55 30 2C 38 2C 44 30 24 AA 46 24 AA 22 2C |8,U0,8,D0$.F$.",|
00000280: 4C 22 3A 8D 31 30 3A 8B 45 B1 2E A7 35 34 30 00 |L":.10:.E...540.|
00000290: 95 0A 27 01 3A 00 C3 0A 2C 01 99 22 11 D2 45 43 |..'.:...,.."..EC|
000002A0: 4F 52 44 20 CC 45 4E 47 54 48 20 3D 20 22 3B 3A |ORD .ENGTH = ";:|
000002B0: 48 B2 2E 3A 4C B2 2E 3A 81 50 B2 32 35 34 A4 31 |H..:L..:.P.254.1|
000002C0: A9 AB 31 00 F1 0A 36 01 99 50 22 91 22 3A 8D 33 |..1...6..P".":.3|
000002D0: 30 3A 84 31 2C 45 3A 52 53 B2 50 3A 8B 45 A7 99 |0:.1,E:RS.P:.E..|
000002E0: A3 31 36 29 22 20 20 20 20 9D 9D 9D 9D 22 3B 3A |.16)" ....";:|
000002F0: 82 00 F7 0A 40 01 99 00 03 0B 4A 01 50 B2 31 3A |....@.....J.P.1:|
00000300: 8D 33 30 00 09 0B 8B 01 3A 00 20 0B 90 01 99 22 |.30.....:. ...."|
00000310: 11 D2 45 41 44 49 4E 47 20 C6 49 4C 45 2E 2E 2E |..EADING .ILE...|
00000320: 00 2A 0B 9A 01 9E 33 35 35 32 00 3E 0B A4 01 46 |.*....3552.>...F|
00000330: B2 C2 28 32 34 39 29 3A 8B 46 A7 8D 31 30 00 7A |..(249):.F..10.z|
00000340: 0B AE 01 4C B2 C2 28 32 35 32 29 3A 48 B2 C2 28 |...L..(252):H..(|
00000350: 32 35 33 29 3A 4C 4E B2 4E 3A 4E B2 4E AA 28 48 |253):LN.N:N.N.(H|
00000360: AC 51 AA 4C 29 3A 48 B2 B5 28 4E AD 51 29 3A 4C |.Q.L):H..(N.Q):L|
00000370: B2 4E AB 48 AC 51 3A 8D 36 30 00 80 0B EF 01 3A |.N.H.Q:.60.....:|
00000380: 00 A1 0B F4 01 8F 49 46 28 55 30 3C 3E 55 31 29 |......IF(U0<>U1)|
00000390: 4F 52 28 44 30 3C 3E 44 31 29 54 48 45 4E 35 33 |OR(D0<>D1)THEN53|
000003A0: 30 00 CB 0B FE 01 99 22 11 C9 4E 53 45 52 54 20 |0......"..NSERT |
000003B0: 22 44 24 22 49 53 4B 20 C1 4E 44 20 C8 49 54 20 |"D$"ISK .ND .IT |
000003C0: C1 20 CB 45 59 2E 22 3A 8D 35 30 00 09 0C 12 02 |. .EY.":.50.....|
000003D0: 9F 31 35 2C 55 31 2C 31 35 2C 22 49 22 AA 44 31 |.15,U1,15,"I".D1|
000003E0: 24 3A 9F 39 2C 55 31 2C 39 2C 44 31 24 AA 46 24 |$:.9,U1,9,D1$.F$|
000003F0: AA 22 2C 4C 2C 22 AA C7 28 52 53 29 3A 8D 32 30 |.",L,"..(RS):.20|
00000400: 3A 8B 45 B2 2E A7 35 35 30 00 13 0C 1C 02 8D 36 |:.E...550......6|
00000410: 30 3A 8A 00 19 0C 21 02 3A 00 41 0C 26 02 99 22 |0:....!.:.A.&.."|
00000420: 11 D7 52 49 54 49 4E 47 20 C6 49 4C 45 2E 2E 2E |..RITING .ILE...|
00000430: 22 3A 50 B2 31 3A 8D 34 30 3A 98 39 2C 22 FF 22 |":P.1:.40:.9,"."|
00000440: 3B 00 47 0C 30 02 3A 00 51 0C 3A 02 9E 33 34 30 |;.G.0.:.Q.:..340|
00000450: 38 00 5D 0C 44 02 8D 32 30 3A 8D 36 30 00 63 0C |8.].D..20:.60.c.|
00000460: 53 02 3A 00 6E 0C 58 02 8B 46 89 39 30 30 00 8F |S.:.n.X..F.900..|
00000470: 0C 62 02 8F 49 46 28 55 30 3C 3E 55 31 29 4F 52 |.b..IF(U0<>U1)OR|
00000480: 28 44 30 3C 3E 44 31 29 54 48 45 4E 36 33 30 00 |(D0<>D1)THEN630.|
00000490: B9 0C 6C 02 99 22 11 C9 4E 53 45 52 54 20 22 53 |..l.."..NSERT "S|
000004A0: 24 22 49 53 4B 20 C1 4E 44 20 C8 49 54 20 C1 20 |$"ISK .ND .IT . |
000004B0: CB 45 59 2E 22 3A 8D 35 30 00 EF 0C 76 02 9F 31 |.EY.":.50...v..1|
000004C0: 2C 55 30 2C 31 35 2C 22 49 22 AA 44 30 24 3A 9F |,U0,15,"I".D0$:.|
000004D0: 38 2C 55 30 2C 38 2C 44 30 24 AA 46 24 AA 22 2C |8,U0,8,D0$.F$.",|
000004E0: 4C 22 3A 8D 31 30 3A 8B 45 B1 2E A7 35 34 30 00 |L":.10:.E...540.|
000004F0: 15 0D 80 02 4E B2 4E AA 32 3A 48 B2 B5 28 4E AD |....N.N.2:H..(N.|
00000500: 51 29 3A 4C B2 4E AB 48 AC 51 3A 4E B2 4E AB 31 |Q):L.N.H.Q:N.N.1|
00000510: 3A 89 33 33 30 00 1B 0D 7F 03 3A 00 34 0D 84 03 |:.330.....:.4...|
00000520: 99 22 11 C4 4F 4E 45 22 4E AA 31 22 D2 45 43 4F |."..ONE"N.1".ECO|
00000530: 52 44 53 2E 00 00 00 00 00 00 00 00 00 00 00 00 |RDS.............|
00000540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000550: 00 78 A0 00 8C 0E DC A9 00 85 FE A9 10 85 FF EE |.x..............|
00000560: D2 0D D0 03 EE D3 0D 20 CC FF A2 0F 20 C9 FF A2 |....... .... ...|
00000570: 00 BD D0 0D 20 D2 FF E8 E0 05 D0 F5 20 CC FF A2 |.... ....... ...|
00000580: 09 20 C9 FF E6 01 B1 FE C6 01 AA E6 FE D0 02 E6 |. ..............|
00000590: FF E6 01 B1 FE C6 01 20 D2 FF E6 FE D0 02 E6 FF |....... ........|
000005A0: CA D0 EE A9 FF C6 FC 45 FC D0 B4 A9 FF C6 FD 45 |.......E.......E|
000005B0: FD D0 AC 20 CC FF EE 0E DC 60 00 00 00 00 00 00 |... .....`......|
000005C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000005D0: 00 50 69 00 00 01 00 00 00 00 00 00 00 00 00 00 |.Pi.............|
000005E0: 00 78 A0 00 8C 0E DC 84 FC 84 FD 84 F9 A9 00 85 |.x..............|
000005F0: FE A9 10 85 FF 84 90 20 20 0E A9 00 85 F8 20 CC |....... ..... .|
00000600: FF A2 08 20 C6 FF A6 90 D0 33 20 E4 FF E6 01 91 |... .....3 .....|
00000610: FE C6 01 E6 F8 E6 FE D0 ED E6 FF D0 E9 00 00 00 |................|
00000620: 00 A6 FE 86 FA A6 FF 86 FB E6 FE D0 02 E6 FF 60 |...............`|
00000630: 00 00 00 00 00 00 00 00 00 00 00 00 00 A5 F8 E6 |................|
00000640: 01 91 FA C6 01 E6 FC D0 02 E6 FD A5 FF C9 FF F0 |................|
00000650: 1B 20 CC FF A2 01 20 C6 FF 20 E4 FF C9 35 D0 95 |. .... .. ...5..|
00000660: E6 F9 A9 FF C6 FC 45 FC D0 02 C6 FD A9 FF C6 FC |......E.........|
00000670: 45 FC D0 02 C6 FD 20 CC FF EE 0E DC 60 |E..... .....` |
.......55,.:.56,16:.100.)....1,E,E$,T,S:
..<....15,E,E$,T,S:..\....1,"P"G(104)G(L
)G(H)G(P);:..}.(..15,"P"G(105)G(L)G(H)G(
P);:....2..198,.:.198,1:.198,.:....<. 8:
9: 1: 15:...._.:.E.D..3538,.:.3539,....
N..53280,11:.53281,.:."....".50)"RELATIV
E FILE COPIER".51);...X.."BY LAWRENCE HI
LER...Y.... U0,U1,D0,D1,D0$,D1$,F$,H,L,P
,E,E$,T,S,RS,N,F,LN:Q.256.}...S$."SOURCE
D":D$."DESTINATION D...C.:...H..S$"EVIC
E..8...";:.U0.I.R..S$"RIVE..0...";:.D0:D
0$.I(D(D0),1).":"......"."D$"EVICE..8...
";:.U1......D$"RIVE..0...";:.D1:D1$.I(D(
D1),1).":".E....(U0.8).(U0.15).(U1.8).(U
1.15).(D0.1).(D1.1)...Y....".FILENAME";F
$......1,U0,15,"I".D0$:.8,U0,8,D0$.F$.",
L":.10:.E...540...'.:.C.,..".RECORD LENG
TH = ";:H..:L..:.P.254.1..1...6..P".":.3
0:.1,E:RS.P:.E...16)" ....";:....@...
..J.P.1:.30.....:. ....".READING FILE...
.*....3552.>...F.B(249):.F..10.Z...L.B(2
52):H.B(253):LN.N:N.N.(H.Q.L):H..(N.Q):L
.N.H.Q:.60.....:......IF(U0<>U1)OR(D0<>D
1)THEN530.K....".INSERT "D$"ISK AND HIT
A KEY.":.50......15,U1,15,"I".D1$:.9,U1,
9,D1$.F$.",L,".G(RS):.20:.E...550......6
0:....!.:.A.&..".WRITING FILE...":P.1:.4
0:.9,".";.G.0.:.Q.:..3408.].D..20:.60.C.
S.:.N.X..F.900...B..IF(U0<>U1)OR(D0<>D1)
THEN630...L..".INSERT "S$"ISK AND HIT A
KEY.":.50...V..1,U0,15,"I".D0$:.8,U0,8,D
0$.F$.",L":.10:.E...540.....N.N.2:H..(N.
Q):L.N.H.Q:N.N.1:.330....:.4....".DONE"
N.1"RECORDS.............................
.X .............R.P..S. L... I....P. R..
..P. L... I.....F....P.......F. R...P...
JP...F.E.P...F.E.P. L....`..............
.........PI..............X .............
....... ..... L... F...P3 ......F.....P
...P...............P...`................
...F...P.....I... L... F. ..I5P.....F.E.
P.F...F.E.P.F. L....`
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL