00000000: 01 04 31 04 64 00 99 20 22 93 53 49 4E 47 4C 45 |..1.d.. ".SINGLE|
00000010: 20 44 49 53 4B 20 44 52 49 56 45 20 52 45 4C 41 | DISK DRIVE RELA|
00000020: 54 49 56 45 20 46 49 4C 45 20 43 4F 50 49 45 52 |TIVE FILE COPIER|
00000030: 22 00 4E 04 6E 00 99 20 22 44 41 56 49 44 20 57 |".N.n.. "DAVID W|
00000040: 49 4C 4C 49 41 4D 53 2C 20 31 39 38 34 22 00 56 |ILLIAMS, 1984".V|
00000050: 04 78 00 99 3A 99 00 5C 04 82 00 3A 00 7F 04 8C |.x..:..\...:....|
00000060: 00 8F 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |.. THIS PROGRAM |
00000070: 43 4F 50 49 45 53 20 52 45 4C 41 54 49 56 45 00 |COPIES RELATIVE.|
00000080: A4 04 96 00 8F 20 46 49 4C 45 53 20 46 52 4F 4D |..... FILES FROM|
00000090: 20 4F 4E 45 20 44 49 53 4B 20 54 4F 20 41 4E 4F | ONE DISK TO ANO|
000000A0: 54 48 45 52 00 C8 04 A0 00 8F 20 55 53 49 4E 47 |THER...... USING|
000000B0: 20 41 20 53 49 4E 47 4C 45 20 44 49 53 4B 20 44 | A SINGLE DISK D|
000000C0: 52 49 56 45 20 28 4F 52 00 EA 04 AA 00 8F 20 44 |RIVE (OR...... D|
000000D0: 52 49 56 45 20 5A 45 52 4F 2C 20 4F 4E 4C 59 2C |RIVE ZERO, ONLY,|
000000E0: 20 4F 46 20 41 20 44 55 41 4C 00 F8 04 B4 00 8F | OF A DUAL......|
000000F0: 20 44 52 49 56 45 29 2E 00 FE 04 BE 00 3A 8A 02 | DRIVE)......:..|
00000100: 81 49 B2 30 A4 41 53 3A 41 24 28 49 29 B2 22 22 |.I.0.AS:A$(I).""|
00000110: 3A 82 00 15 09 94 02 49 B2 B8 28 30 29 00 1F 09 |:......I..(0)...|
00000120: 9E 02 52 4E B2 43 49 00 29 09 A8 02 4C 24 B2 22 |..RN.CI.)...L$."|
00000130: 22 00 5A 09 B2 02 99 20 22 52 45 41 44 49 4E 47 |".Z.... "READING|
00000140: 20 52 45 43 4F 52 44 22 3B 43 49 3B 22 9D 20 54 | RECORD";CI;". T|
00000150: 4F 20 42 55 46 46 45 52 22 3B 41 43 AA 31 3B 22 |O BUFFER";AC.1;"|
00000160: 91 22 00 6A 09 BC 02 81 20 52 50 B2 31 20 A4 20 |.".j.... RP.1 . |
00000170: 52 4C 00 8A 09 C6 02 8D 20 32 36 30 3A A1 23 35 |RL...... 260:.#5|
00000180: 2C 47 24 3A 8B 47 24 B2 22 22 A7 47 24 B2 C7 28 |,G$:.G$."".G$..(|
00000190: 30 29 00 9C 09 D0 02 4C 24 B2 4C 24 AA 47 24 3A |0).....L$.L$.G$:|
000001A0: 82 20 52 50 00 BA 09 DA 02 41 24 28 41 43 29 B2 |. RP.....A$(AC).|
000001B0: 4C 24 3A 41 43 B2 41 43 AA 31 3A 43 49 B2 43 49 |L$:AC.AC.1:CI.CI|
000001C0: AA 31 00 D6 09 E4 02 8B 20 41 43 B3 B2 41 53 20 |.1...... AC..AS |
000001D0: AF 20 43 49 B3 B2 4E 52 20 A7 20 36 37 30 00 DD |. CI..NR . 670..|
000001E0: 09 EE 02 A0 35 00 E5 09 F8 02 99 3A 99 00 10 0A |....5......:....|
000001F0: 02 03 99 20 22 49 4E 53 45 52 54 20 4F 55 54 50 |... "INSERT OUTP|
00000200: 55 54 20 44 49 53 4B 2C 20 50 52 45 53 53 20 12 |UT DISK, PRESS .|
00000210: 52 45 54 55 52 4E 92 22 00 28 0A 0C 03 A1 20 47 |RETURN.".(.... G|
00000220: 24 3A 8B 20 47 24 B3 B1 22 22 20 A7 20 37 38 30 |$:. G$.."" . 780|
00000230: 00 43 0A 16 03 A1 20 47 24 3A 8B 20 47 24 B3 B1 |.C.... G$:. G$..|
00000240: C7 28 31 33 29 20 A7 20 37 39 30 00 56 0A 20 03 |.(13) . 790.V. .|
00000250: 8B 20 46 4F 24 B1 22 22 20 A7 20 39 31 30 00 5E |. FO$."" . 910.^|
00000260: 0A 2A 03 99 3A 99 00 80 0A 34 03 85 20 22 4F 55 |.*..:....4.. "OU|
00000270: 54 50 55 54 20 46 49 4C 45 4E 41 4D 45 20 20 2A |TPUT FILENAME *|
00000280: 9D 9D 9D 22 3B 46 4F 24 00 98 0A 3E 03 8B 20 46 |...";FO$...>.. F|
00000290: 4F 24 B2 22 2A 22 20 A7 20 46 4F 24 B2 46 49 24 |O$."*" . FO$.FI$|
000002A0: 00 CD 0A 48 03 8B 20 46 4F 24 B2 22 22 20 B0 20 |...H.. FO$."" . |
000002B0: C3 28 46 4F 24 29 B1 31 36 20 A7 20 99 20 22 49 |.(FO$).16 . . "I|
000002C0: 4C 4C 45 47 41 4C 20 46 49 4C 45 4E 41 4D 45 22 |LLEGAL FILENAME"|
000002D0: 3A 89 38 32 30 00 E9 0A 52 03 99 3A 99 20 22 49 |:.820...R..:. "I|
000002E0: 4E 49 54 49 41 4C 49 5A 49 4E 47 20 46 49 4C 45 |NITIALIZING FILE|
000002F0: 22 00 09 0B 5C 03 9F 35 2C 38 2C 35 2C 22 30 3A |"...\..5,8,5,"0:|
00000300: 22 AA 46 4F 24 AA 22 2C 4C 2C 22 AA C7 28 52 4C |".FO$.",L,"..(RL|
00000310: 29 00 23 0B 66 03 8D 20 33 35 30 3A 8B 20 45 20 |).#.f.. 350:. E |
00000320: A7 20 99 45 24 3A A0 31 35 3A 90 00 38 0B 70 03 |. .E$:.15:..8.p.|
00000330: 52 50 B2 31 3A 52 4E B2 4E 52 3A 8D 20 33 30 30 |RP.1:RN.NR:. 300|
00000340: 00 47 0B 7A 03 98 35 2C C7 28 32 35 35 29 3B 00 |.G.z..5,.(255);.|
00000350: 4E 0B 84 03 A0 35 00 62 0B 8E 03 9F 35 2C 38 2C |N....5.b....5,8,|
00000360: 35 2C 22 30 3A 22 AA 46 4F 24 00 7C 0B 98 03 8D |5,"0:".FO$.|....|
00000370: 20 33 35 30 3A 8B 20 45 20 A7 20 99 45 24 3A A0 | 350:. E . .E$:.|
00000380: 31 35 3A 90 00 84 0B A2 03 99 3A 99 00 95 0B AC |15:.......:.....|
00000390: 03 8F 20 50 52 49 4E 54 20 4C 4F 4F 50 00 9E 0B |.. PRINT LOOP...|
000003A0: B6 03 52 50 B2 31 00 AF 0B C0 03 81 20 49 B2 30 |..RP.1...... I.0|
000003B0: 20 A4 20 41 43 AB 31 00 DF 0B CA 03 99 20 22 57 | . AC.1...... "W|
000003C0: 52 49 54 49 4E 47 20 42 55 46 46 45 52 22 3B 49 |RITING BUFFER";I|
000003D0: AA 31 3B 22 9D 20 54 4F 20 52 45 43 4F 52 44 22 |.1;". TO RECORD"|
000003E0: 3B 43 4F 3B 22 91 22 00 EF 0B D4 03 52 4E B2 43 |;CO;".".....RN.C|
000003F0: 4F 3A 8D 20 33 30 30 00 FD 0B DE 03 98 35 2C 41 |O:. 300......5,A|
00000400: 24 28 49 29 3B 00 09 0C E8 03 43 4F B2 43 4F AA |$(I);.....CO.CO.|
00000410: 31 00 11 0C F2 03 82 20 49 00 18 0C FC 03 A0 35 |1...... I......5|
00000420: 00 20 0C 06 04 99 3A 99 00 48 0C 10 04 8B 20 43 |. ....:..H.... C|
00000430: 4F B1 4E 52 20 A7 20 99 20 22 41 4C 4C 20 44 4F |O.NR . . "ALL DO|
00000440: 4E 45 22 3A A0 31 35 3A 80 3A 89 20 31 30 34 30 |NE":.15:.:. 1040|
00000450: 00 5D 0C 1A 04 99 20 22 4D 4F 52 45 20 54 4F 20 |.].... "MORE TO |
00000460: 43 4F 4D 45 22 00 88 0C 24 04 99 3A 99 20 22 49 |COME"...$..:. "I|
00000470: 4E 53 45 52 54 20 49 4E 50 55 54 20 44 49 53 4B |NSERT INPUT DISK|
00000480: 2C 20 50 52 45 53 53 20 12 53 50 41 43 45 92 22 |, PRESS .SPACE."|
00000490: 00 A1 0C 2E 04 A1 20 47 24 3A 8B 20 47 24 B3 B1 |...... G$:. G$..|
000004A0: 22 22 20 A7 20 31 30 37 30 00 BB 0C 38 04 A1 20 |"" . 1070...8.. |
000004B0: 47 24 3A 8B 20 47 24 B3 B1 22 20 22 20 A7 20 31 |G$:. G$.." " . 1|
000004C0: 30 38 30 00 CF 0C 42 04 9F 35 2C 38 2C 35 2C 22 |080...B..5,8,5,"|
000004D0: 30 3A 22 AA 46 49 24 00 E9 0C 4C 04 8D 33 35 30 |0:".FI$...L..350|
000004E0: 3A 8B 20 45 20 A7 20 99 20 45 24 3A A0 31 35 3A |:. E . . E$:.15:|
000004F0: 90 00 F3 0C 56 04 89 20 36 32 30 00 00 00 |....V.. 620... |
..1.D.. ".SINGLE DISK DRIVE RELATIVE FIL
E COPIER".N.N.. "DAVID WILLIAMS, 1984".V
.X..:..\...:..... THIS PROGRAM COPIES R
ELATIVE...... FILES FROM ONE DISK TO ANO
THER.H. .. USING A SINGLE DISK DRIVE (OR
...... DRIVE ZERO, ONLY, OF A DUAL......
DRIVE)......:...I.0.AS:A$(I)."":......I
..(0).....RN.CI.)...L$."".Z.... "READING
RECORD";CI;". TO BUFFER";AC.1;".".J....
RP.1 . RL...F.. 260:.#5,G$:.G$."".G$.G(
0)...P.L$.L$.G$:. RP...Z.A$(AC).L$:AC.AC
.1:CI.CI.1.V.... AC..AS . CI..NR . 670..
... 5......:....... "INSERT OUTPUT DISK,
PRESS .RETURN.".(.... G$:. G$.."" . 780
.C.... G$:. G$..G(13) . 790.V. .. FO$.""
. 910.^.*..:....4.. "OUTPUT FILENAME *
...";FO$...>.. FO$."*" . FO$.FI$.M.H.. F
O$."" . C(FO$).16 . . "ILLEGAL FILENAME"
:.820...R..:. "INITIALIZING FILE"...\..5
,8,5,"0:".FO$.",L,".G(RL).#.F.. 350:. E
. .E$: 15:..8.P.RP.1:RN.NR:. 300.G.Z..5,
G(255);.N... 5.B....5,8,5,"0:".FO$.|....
350:. E . .E$: 15:.......:....... PRINT
LOOP.....RP.1...... I.0 . AC.1...J.. "W
RITING BUFFER";I.1;". TO RECORD";CO;".".
..T.RN.CO:. 300......5,A$(I);.....CO.CO.
1...... I..... 5. ....:..H.... CO.NR . .
"ALL DONE": 15:.:. 1040.].... "MORE TO
COME"...$..:. "INSERT INPUT DISK, PRESS
.SPACE."...... G$:. G$.."" . 1070...8..
G$:. G$.." " . 1080.O.B..5,8,5,"0:".FI$.
..L..350:. E . . E$: 15:....V.. 620...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL