20.REL-FILE-COPY

00000000: 01 08 31 08 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 37 08 6E 00 99 00  3F 08 78 00 99 3A 99 00  |".7.n...?.x..:..|
00000040: 45 08 82 00 3A 00 68 08  8C 00 8F 20 54 48 49 53  |E...:.h.... THIS|
00000050: 20 50 52 4F 47 52 41 4D  20 43 4F 50 49 45 53 20  | PROGRAM COPIES |
00000060: 52 45 4C 41 54 49 56 45  00 8D 08 96 00 8F 20 46  |RELATIVE...... F|
00000070: 49 4C 45 53 20 46 52 4F  4D 20 4F 4E 45 20 44 49  |ILES FROM ONE DI|
00000080: 53 4B 20 54 4F 20 41 4E  4F 54 48 45 52 00 B1 08  |SK TO ANOTHER...|
00000090: A0 00 8F 20 55 53 49 4E  47 20 41 20 53 49 4E 47  |... USING A SING|
000000A0: 4C 45 20 44 49 53 4B 20  44 52 49 56 45 20 28 4F  |LE DISK DRIVE (O|
000000B0: 52 00 D3 08 AA 00 8F 20  44 52 49 56 45 20 5A 45  |R...... DRIVE ZE|
000000C0: 52 4F 2C 20 4F 4E 4C 59  2C 20 4F 46 20 41 20 44  |RO, ONLY, OF A D|
000000D0: 55 41 4C 00 E1 08 B4 00  8F 20 44 52 49 56 45 29  |UAL...... DRIVE)|
000000E0: 2E 00 E7 08 BE 00 3A 00  0C 09 C8 00 8F 20 54 48  |......:...... TH|
000000F0: 45 20 50 52 4F 47 52 41  4D 20 53 48 4F 55 4C 44  |E PROGRAM SHOULD|
00000100: 20 57 4F 52 4B 20 4F 4E  20 41 4C 4C 00 2F 09 D2  | WORK ON ALL./..|
00000110: 00 8F 20 43 4F 4D 4D 4F  44 4F 52 45 20 43 4F 4D  |.. COMMODORE COM|
00000120: 50 55 54 45 52 53 20 41  4E 44 20 44 49 53 4B 00  |PUTERS AND DISK.|
00000130: 3D 09 DC 00 8F 20 44 52  49 56 45 53 2E 00 43 09  |=.... DRIVES..C.|
00000140: E6 00 3A 00 51 09 F0 00  9F 20 31 35 2C 38 2C 31  |..:.Q.... 15,8,1|
00000150: 35 00 5B 09 FA 00 89 20  33 39 30 00 6D 09 04 01  |5.[.... 390.m...|
00000160: 8F 20 46 41 53 54 20 52  45 43 4F 52 44 00 77 09  |. FAST RECORD.w.|
00000170: 0E 01 8D 20 32 38 30 00  A4 09 18 01 98 31 35 2C  |... 280......15,|
00000180: 22 50 22 AA C7 28 35 29  AA C7 28 52 4E 20 AF 20  |"P"..(5)..(RN . |
00000190: 32 35 35 29 AA C7 28 52  4E AD 32 35 36 29 AA C7  |255)..(RN.256)..|
000001A0: 28 52 50 29 00 AA 09 22  01 8E 00 BC 09 2C 01 8F  |(RP)...".....,..|
000001B0: 20 53 4C 4F 57 20 52 45  43 4F 52 44 00 D0 09 36  | SLOW RECORD...6|
000001C0: 01 81 20 44 45 B2 31 20  A4 20 31 30 30 30 3A 82  |.. DE.1 . 1000:.|
000001D0: 00 DA 09 40 01 8D 20 32  36 30 00 ED 09 4A 01 81  |...@.. 260...J..|
000001E0: 20 44 45 B2 31 20 A4 20  31 30 30 3A 82 00 F3 09  | DE.1 . 100:....|
000001F0: 54 01 8E 00 0C 0A 5E 01  8F 20 52 45 41 44 20 45  |T.....^.. READ E|
00000200: 52 52 4F 52 20 43 48 41  4E 4E 45 4C 00 21 0A 68  |RROR CHANNEL.!.h|
00000210: 01 84 31 35 2C 45 2C 45  24 2C 45 31 24 2C 45 32  |..15,E,E$,E1$,E2|
00000220: 24 00 44 0A 72 01 45 24  B2 C4 28 45 29 AA 22 2C  |$.D.r.E$..(E).",|
00000230: 22 AA 45 24 AA 22 2C 22  AA 45 31 24 AA 22 2C 22  |".E$.",".E1$.","|
00000240: AA 45 32 24 00 4A 0A 7C  01 8E 00 65 0A 86 01 85  |.E2$.J.|...e....|
00000250: 20 22 49 4E 50 55 54 20  46 49 4C 45 4E 41 4D 45  | "INPUT FILENAME|
00000260: 22 3B 46 49 24 00 97 0A  90 01 8B 20 46 49 24 B2  |";FI$...... FI$.|
00000270: 22 22 20 B0 20 C3 20 28  46 49 24 29 B1 31 36 20  |"" . . (FI$).16 |
00000280: A7 20 99 20 22 49 4C 4C  45 47 41 4C 20 4E 41 4D  |. . "ILLEGAL NAM|
00000290: 45 22 3A 89 33 39 30 00  AB 0A 9A 01 9F 35 2C 38  |E":.390......5,8|
000002A0: 2C 35 2C 22 30 3A 22 AA  46 49 24 00 C5 0A A4 01  |,5,"0:".FI$.....|
000002B0: 8D 33 35 30 3A 8B 20 45  20 A7 20 99 20 45 24 3A  |.350:. E . . E$:|
000002C0: A0 31 35 3A 90 00 F1 0A  AE 01 52 50 B2 31 3A 52  |.15:......RP.1:R|
000002D0: 4E B2 31 3A 8D 20 32 36  30 3A 8D 20 33 35 30 3A  |N.1:. 260:. 350:|
000002E0: 8B 20 45 20 A7 20 99 20  45 24 3A A0 20 31 35 3A  |. E . . E$:. 15:|
000002F0: 90 00 01 0B B8 01 8D 20  32 36 30 3A 8D 20 33 35  |....... 260:. 35|
00000300: 30 00 26 0B C2 01 8B 20  45 B2 30 20 AF 20 52 4E  |0.&.... E.0 . RN|
00000310: B3 33 32 37 36 37 20 A7  20 52 4E B2 52 4E AA 31  |.32767 . RN.RN.1|
00000320: 3A 89 20 34 34 30 00 38  0B CC 01 4E 52 B2 52 4E  |:. 440.8...NR.RN|
00000330: AB 31 AB 28 45 B2 30 29  00 59 0B D6 01 99 3A 99  |.1.(E.0).Y....:.|
00000340: 20 22 4E 55 4D 42 45 52  20 4F 46 20 52 45 43 4F  | "NUMBER OF RECO|
00000350: 52 44 53 20 3D 22 3B 4E  52 00 62 0B E0 01 52 4E  |RDS =";NR.b...RN|
00000360: B2 31 00 6B 0B EA 01 52  50 B2 32 00 7B 0B F4 01  |.1.k...RP.2.{...|
00000370: 8D 20 32 36 30 3A 8D 20  33 35 30 00 9E 0B FE 01  |. 260:. 350.....|
00000380: 8B 20 45 B2 30 20 AF 20  52 50 B3 32 35 34 20 A7  |. E.0 . RP.254 .|
00000390: 20 52 50 B2 52 50 AA 31  3A 89 20 35 30 30 00 B0  | RP.RP.1:. 500..|
000003A0: 0B 08 02 52 4C B2 52 50  AB 31 AB 28 45 B2 30 29  |...RL.RP.1.(E.0)|
000003B0: 00 CD 0B 12 02 99 3A 99  20 22 52 45 43 4F 52 44  |......:. "RECORD|
000003C0: 20 4C 45 4E 47 54 48 20  3D 22 3B 52 4C 00 EC 0B  | LENGTH =";RL...|
000003D0: 1C 02 41 53 B2 B5 28 28  B8 28 30 29 AB 31 30 30  |..AS..((.(0).100|
000003E0: 30 29 AD 28 52 4C AA 35  29 29 AB 31 00 02 0C 26  |0).(RL.5)).1...&|
000003F0: 02 8B 20 41 53 B1 32 30  30 20 A7 20 41 53 B2 32  |.. AS.200 . AS.2|
00000400: 30 30 00 32 0C 30 02 8B  20 41 53 B3 35 20 A7 20  |00.2.0.. AS.5 . |
00000410: 99 3A 99 20 22 49 4E 53  55 46 46 49 43 49 45 4E  |.:. "INSUFFICIEN|
00000420: 54 20 4D 45 4D 4F 52 59  22 3A A0 35 3A A0 31 35  |T MEMORY":.5:.15|
00000430: 3A 80 00 49 0C 3A 02 8B  20 41 53 B1 B2 4E 52 20  |:..I.:.. AS..NR |
00000440: A7 20 41 53 B2 4E 52 AB  31 00 6C 0C 44 02 99 3A  |. AS.NR.1.l.D..:|
00000450: 99 20 22 4E 55 4D 42 45  52 20 4F 46 20 42 55 46  |. "NUMBER OF BUF|
00000460: 46 45 52 53 20 3D 22 3B  41 53 AA 31 00 79 0C 4E  |FERS =";AS.1.y.N|
00000470: 02 86 20 41 24 28 41 53  29 00 99 0C 58 02 43 49  |.. A$(AS)...X.CI|
00000480: B2 31 3A 8F 20 43 55 52  52 45 4E 54 20 49 4E 50  |.1:. CURRENT INP|
00000490: 55 54 20 52 45 43 4F 52  44 00 BA 0C 62 02 43 4F  |UT RECORD...b.CO|
000004A0: B2 31 3A 8F 20 43 55 52  52 45 4E 54 20 4F 55 54  |.1:. CURRENT OUT|
000004B0: 50 55 54 20 52 45 43 4F  52 44 00 CB 0C 6C 02 8F  |PUT RECORD...l..|
000004C0: 20 49 4E 50 55 54 20 4C  4F 4F 50 00 D4 0C 76 02  | INPUT LOOP...v.|
000004D0: 41 43 B2 30 00 DC 0C 80  02 99 3A 99 00 F3 0C 8A  |AC.0......:.....|
000004E0: 02 81 49 B2 30 A4 41 53  3A 41 24 28 49 29 B2 22  |..I.0.AS:A$(I)."|
000004F0: 22 3A 82 00 FE 0C 94 02  49 B2 B8 28 30 29 00 08  |":......I..(0)..|
00000500: 0D 9E 02 52 4E B2 43 49  00 12 0D A8 02 4C 24 B2  |...RN.CI.....L$.|
00000510: 22 22 00 43 0D B2 02 99  20 22 52 45 41 44 49 4E  |"".C.... "READIN|
00000520: 47 20 52 45 43 4F 52 44  22 3B 43 49 3B 22 9D 20  |G RECORD";CI;". |
00000530: 54 4F 20 42 55 46 46 45  52 22 3B 41 43 AA 31 3B  |TO BUFFER";AC.1;|
00000540: 22 91 22 00 53 0D BC 02  81 20 52 50 B2 31 20 A4  |".".S.... RP.1 .|
00000550: 20 52 4C 00 73 0D C6 02  8D 20 32 36 30 3A A1 23  | RL.s.... 260:.#|
00000560: 35 2C 47 24 3A 8B 47 24  B2 22 22 A7 47 24 B2 C7  |5,G$:.G$."".G$..|
00000570: 28 30 29 00 85 0D D0 02  4C 24 B2 4C 24 AA 47 24  |(0).....L$.L$.G$|
00000580: 3A 82 20 52 50 00 A3 0D  DA 02 41 24 28 41 43 29  |:. RP.....A$(AC)|
00000590: B2 4C 24 3A 41 43 B2 41  43 AA 31 3A 43 49 B2 43  |.L$:AC.AC.1:CI.C|
000005A0: 49 AA 31 00 BF 0D E4 02  8B 20 41 43 B3 B2 41 53  |I.1...... AC..AS|
000005B0: 20 AF 20 43 49 B3 B2 4E  52 20 A7 20 36 37 30 00  | . CI..NR . 670.|
000005C0: C6 0D EE 02 A0 35 00 CE  0D F8 02 99 3A 99 00 F9  |.....5......:...|
000005D0: 0D 02 03 99 20 22 49 4E  53 45 52 54 20 4F 55 54  |.... "INSERT OUT|
000005E0: 50 55 54 20 44 49 53 4B  2C 20 50 52 45 53 53 20  |PUT DISK, PRESS |
000005F0: 12 52 45 54 55 52 4E 92  22 00 11 0E 0C 03 A1 20  |.RETURN."...... |
00000600: 47 24 3A 8B 20 47 24 B3  B1 22 22 20 A7 20 37 38  |G$:. G$.."" . 78|
00000610: 30 00 2C 0E 16 03 A1 20  47 24 3A 8B 20 47 24 B3  |0.,.... G$:. G$.|
00000620: B1 C7 28 31 33 29 20 A7  20 37 39 30 00 3F 0E 20  |..(13) . 790.?. |
00000630: 03 8B 20 46 4F 24 B1 22  22 20 A7 20 39 31 30 00  |.. FO$."" . 910.|
00000640: 47 0E 2A 03 99 3A 99 00  69 0E 34 03 85 20 22 4F  |G.*..:..i.4.. "O|
00000650: 55 54 50 55 54 20 46 49  4C 45 4E 41 4D 45 20 20  |UTPUT FILENAME  |
00000660: 2A 9D 9D 9D 22 3B 46 4F  24 00 81 0E 3E 03 8B 20  |*...";FO$...>.. |
00000670: 46 4F 24 B2 22 2A 22 20  A7 20 46 4F 24 B2 46 49  |FO$."*" . FO$.FI|
00000680: 24 00 B6 0E 48 03 8B 20  46 4F 24 B2 22 22 20 B0  |$...H.. FO$."" .|
00000690: 20 C3 28 46 4F 24 29 B1  31 36 20 A7 20 99 20 22  | .(FO$).16 . . "|
000006A0: 49 4C 4C 45 47 41 4C 20  46 49 4C 45 4E 41 4D 45  |ILLEGAL FILENAME|
000006B0: 22 3A 89 38 32 30 00 D2  0E 52 03 99 3A 99 20 22  |":.820...R..:. "|
000006C0: 49 4E 49 54 49 41 4C 49  5A 49 4E 47 20 46 49 4C  |INITIALIZING FIL|
000006D0: 45 22 00 F2 0E 5C 03 9F  35 2C 38 2C 35 2C 22 30  |E"...\..5,8,5,"0|
000006E0: 3A 22 AA 46 4F 24 AA 22  2C 4C 2C 22 AA C7 28 52  |:".FO$.",L,"..(R|
000006F0: 4C 29 00 0C 0F 66 03 8D  20 33 35 30 3A 8B 20 45  |L)...f.. 350:. E|
00000700: 20 A7 20 99 45 24 3A A0  31 35 3A 90 00 21 0F 70  | . .E$:.15:..!.p|
00000710: 03 52 50 B2 31 3A 52 4E  B2 4E 52 3A 8D 20 33 30  |.RP.1:RN.NR:. 30|
00000720: 30 00 30 0F 7A 03 98 35  2C C7 28 32 35 35 29 3B  |0.0.z..5,.(255);|
00000730: 00 37 0F 84 03 A0 35 00  4B 0F 8E 03 9F 35 2C 38  |.7....5.K....5,8|
00000740: 2C 35 2C 22 30 3A 22 AA  46 4F 24 00 65 0F 98 03  |,5,"0:".FO$.e...|
00000750: 8D 20 33 35 30 3A 8B 20  45 20 A7 20 99 45 24 3A  |. 350:. E . .E$:|
00000760: A0 31 35 3A 90 00 6D 0F  A2 03 99 3A 99 00 7E 0F  |.15:..m....:..~.|
00000770: AC 03 8F 20 50 52 49 4E  54 20 4C 4F 4F 50 00 87  |... PRINT LOOP..|
00000780: 0F B6 03 52 50 B2 31 00  98 0F C0 03 81 20 49 B2  |...RP.1...... I.|
00000790: 30 20 A4 20 41 43 AB 31  00 C8 0F CA 03 99 20 22  |0 . AC.1...... "|
000007A0: 57 52 49 54 49 4E 47 20  42 55 46 46 45 52 22 3B  |WRITING BUFFER";|
000007B0: 49 AA 31 3B 22 9D 20 54  4F 20 52 45 43 4F 52 44  |I.1;". TO RECORD|
000007C0: 22 3B 43 4F 3B 22 91 22  00 D8 0F D4 03 52 4E B2  |";CO;".".....RN.|
000007D0: 43 4F 3A 8D 20 33 30 30  00 E6 0F DE 03 98 35 2C  |CO:. 300......5,|
000007E0: 41 24 28 49 29 3B 00 F2  0F E8 03 43 4F B2 43 4F  |A$(I);.....CO.CO|
000007F0: AA 31 00 FA 0F F2 03 82  20 49 00 01 10 FC 03 A0  |.1...... I......|
00000800: 35 00 09 10 06 04 99 3A  99 00 31 10 10 04 8B 20  |5......:..1.... |
00000810: 43 4F B1 4E 52 20 A7 20  99 20 22 41 4C 4C 20 44  |CO.NR . . "ALL D|
00000820: 4F 4E 45 22 3A A0 31 35  3A 80 3A 89 20 31 30 34  |ONE":.15:.:. 104|
00000830: 30 00 46 10 1A 04 99 20  22 4D 4F 52 45 20 54 4F  |0.F.... "MORE TO|
00000840: 20 43 4F 4D 45 22 00 71  10 24 04 99 3A 99 20 22  | COME".q.$..:. "|
00000850: 49 4E 53 45 52 54 20 49  4E 50 55 54 20 44 49 53  |INSERT INPUT DIS|
00000860: 4B 2C 20 50 52 45 53 53  20 12 53 50 41 43 45 92  |K, PRESS .SPACE.|
00000870: 22 00 8A 10 2E 04 A1 20  47 24 3A 8B 20 47 24 B3  |"...... G$:. G$.|
00000880: B1 22 22 20 A7 20 31 30  37 30 00 A4 10 38 04 A1  |."" . 1070...8..|
00000890: 20 47 24 3A 8B 20 47 24  B3 B1 22 20 22 20 A7 20  | G$:. G$.." " . |
000008A0: 31 30 38 30 00 B8 10 42  04 9F 35 2C 38 2C 35 2C  |1080...B..5,8,5,|
000008B0: 22 30 3A 22 AA 46 49 24  00 D2 10 4C 04 8D 33 35  |"0:".FI$...L..35|
000008C0: 30 3A 8B 20 45 20 A7 20  99 20 45 24 3A A0 31 35  |0:. E . . E$:.15|
000008D0: 3A 90 00 DC 10 56 04 89  20 36 32 30 00 00 00     |:....V.. 620... |

..1.D.. ".SINGLE DISK DRIVE RELATIVE FIL
E COPIER".7.N...?.X..:..E...:.H.... THIS
 PROGRAM COPIES RELATIVE...... FILES FRO
M ONE DISK TO ANOTHER... .. USING A SING
LE DISK DRIVE (OR.S.... DRIVE ZERO, ONLY
, OF A DUAL...... DRIVE)......:...H.. TH
E PROGRAM SHOULD WORK ON ALL./.R.. COMMO
DORE COMPUTERS AND DISK.=.... DRIVES..C.
..:.Q.... 15,8,15.[.... 390.M.... FAST R
ECORD.W.... 280......15,"P".G(5).G(RN . 
255).G(RN.256).G(RP)...".....,.. SLOW RE
CORD.P.6.. DE.1 . 1000:..Z.@.. 260...J..
 DE.1 . 100:....T.....^.. READ ERROR CHA
NNEL.!.H..15,E,E$,E1$,E2$.D.R.E$.D(E).",
".E$.",".E1$.",".E2$.J.|...E.... "INPUT 
FILENAME";FI$...... FI$."" . C (FI$).16 
. . "ILLEGAL NAME":.390......5,8,5,"0:".
FI$.E....350:. E . . E$: 15:......RP.1:R
N.1:. 260:. 350:. E . . E$:  15:....... 
260:. 350.&.B.. E.0 . RN.32767 . RN.RN.1
:. 440.8.L.NR.RN.1.(E.0).Y.V..:. "NUMBER
 OF RECORDS =";NR.B...RN.1.K...RP.2.{...
. 260:. 350...... E.0 . RP.254 . RP.RP.1
:. 500.....RL.RP.1.(E.0).M....:. "RECORD
 LENGTH =";RL.....AS..((.(0).1000).(RL.5
)).1...&.. AS.200 . AS.200.2.0.. AS.5 . 
.:. "INSUFFICIENT MEMORY": 5: 15:..I.:..
 AS..NR . AS.NR.1.L.D..:. "NUMBER OF BUF
FERS =";AS.1.Y.N.. A$(AS)...X.CI.1:. CUR
RENT INPUT RECORD...B.CO.1:. CURRENT OUT
PUT RECORD.K.L.. INPUT LOOP.T.V.AC.0....
..:.......I.0.AS:A$(I)."":......I..(0)..
...RN.CI.....L$."".C.... "READING RECORD
";CI;". TO BUFFER";AC.1;".".S.... RP.1 .
 RL.S.F.. 260:.#5,G$:.G$."".G$.G(0)...P.
L$.L$.G$:. RP...Z.A$(AC).L$:AC.AC.1:CI.C
I.1...... AC..AS . CI..NR . 670.F... 5.N
....:....... "INSERT OUTPUT DISK, PRESS 
.RETURN."...... G$:. G$.."" . 780.,.... 
G$:. G$..G(13) . 790.?. .. FO$."" . 910.
G.*..:..I.4.. "OUTPUT FILENAME  *...";FO
$...>.. FO$."*" . FO$.FI$...H.. FO$."" .
 C(FO$).16 . . "ILLEGAL FILENAME":.820.R
.R..:. "INITIALIZING FILE"...\..5,8,5,"0
:".FO$.",L,".G(RL)...F.. 350:. E . .E$: 
15:..!.P.RP.1:RN.NR:. 300.0.Z..5,G(255);
.7... 5.K....5,8,5,"0:".FO$.E.... 350:. 
E . .E$: 15:..M....:..~.... PRINT LOOP..
...RP.1...... I.0 . AC.1.H.J.. "WRITING 
BUFFER";I.1;". TO RECORD";CO;".".X.T.RN.
CO:. 300......5,A$(I);.....CO.CO.1......
 I..... 5......:..1.... CO.NR . . "ALL D
ONE": 15:.:. 1040.F.... "MORE TO COME".Q
.$..:. "INSERT INPUT DISK, PRESS .SPACE.
"...... G$:. G$.."" . 1070...8.. G$:. G$
.." " . 1080...B..5,8,5,"0:".FI$.R.L..35
0:. E . . E$: 15:....V.. 620...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL