RELFILE COPY.C
FILE INFORMATION
FILENAME(S): RELFILE COPY.C
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-10-19 22:48:29
APPEARS ON: 1 disk(s)
FILE HASH
b9becc632a7f77e57578f93af60b202c3d242da59f6bd3bf5c5772d8346ed0a5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 125C TPUG SEPT84 | RELFILE COPY.C | PRG | Radd Maxx | 5 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
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 47 52 4F 4D |..... FILES GROM| 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 00 23 | DRIVE)......:.#| 00000100: 05 C8 00 8F 20 54 48 45 20 50 52 4F 47 52 41 4D |.... THE PROGRAM| 00000110: 20 53 48 4F 55 4C 44 20 57 4F 52 4B 20 4F 4E 20 | SHOULD WORK ON | 00000120: 41 4C 4C 00 46 05 D2 00 8F 20 43 4F 4D 4D 4F 44 |ALL.F.... COMMOD| 00000130: 4F 52 45 20 43 4F 4D 50 55 54 45 52 53 20 41 4E |ORE COMPUTERS AN| 00000140: 44 20 44 49 53 4B 00 54 05 DC 00 8F 20 44 52 49 |D DISK.T.... DRI| 00000150: 56 45 53 2E 00 5A 05 E6 00 3A 00 68 05 F0 00 9F |VES..Z...:.h....| 00000160: 20 31 35 2C 38 2C 31 35 00 72 05 FA 00 89 20 33 | 15,8,15.r.... 3| 00000170: 39 30 00 84 05 04 01 8F 20 46 41 53 54 20 52 45 |90...... FAST RE| 00000180: 43 4F 52 44 00 8E 05 0E 01 8D 20 32 38 30 00 BB |CORD...... 280..| 00000190: 05 18 01 98 31 35 2C 22 50 22 AA C7 28 35 29 AA |....15,"P"..(5).| 000001A0: C7 28 52 4E 20 AF 20 32 35 35 29 AA C7 28 52 4E |.(RN . 255)..(RN| 000001B0: AD 32 35 36 29 AA C7 28 52 50 29 00 C1 05 22 01 |.256)..(RP)...".| 000001C0: 8E 00 D3 05 2C 01 8F 20 53 4C 4F 57 20 52 45 43 |....,.. SLOW REC| 000001D0: 4F 52 44 00 E7 05 36 01 81 20 44 45 B2 31 20 A4 |ORD...6.. DE.1 .| 000001E0: 20 31 30 30 30 3A 82 00 F1 05 40 01 8D 20 32 36 | 1000:....@.. 26| 000001F0: 30 00 04 06 4A 01 81 20 44 45 B2 31 20 A4 20 31 |0...J.. DE.1 . 1| 00000200: 30 30 3A 82 00 0A 06 54 01 8E 00 23 06 5E 01 8F |00:....T...#.^..| 00000210: 20 52 45 41 44 20 45 52 52 4F 52 20 43 48 41 4E | READ ERROR CHAN| 00000220: 4E 45 4C 00 38 06 68 01 84 31 35 2C 45 2C 45 24 |NEL.8.h..15,E,E$| 00000230: 2C 45 31 24 2C 45 32 24 00 5B 06 72 01 45 24 B2 |,E1$,E2$.[.r.E$.| 00000240: C4 28 45 29 AA 22 2C 22 AA 45 24 AA 22 2C 22 AA |.(E).",".E$.",".| 00000250: 45 31 24 AA 22 2C 22 AA 45 32 24 00 61 06 7C 01 |E1$.",".E2$.a.|.| 00000260: 8E 00 7C 06 86 01 85 20 22 49 4E 50 55 54 20 46 |..|.... "INPUT F| 00000270: 49 4C 45 4E 41 4D 45 22 3B 46 49 24 00 AE 06 90 |ILENAME";FI$....| 00000280: 01 8B 20 46 49 24 B2 22 22 20 B0 20 C3 20 28 46 |.. FI$."" . . (F| 00000290: 49 24 29 B1 31 36 20 A7 20 99 20 22 49 4C 4C 45 |I$).16 . . "ILLE| 000002A0: 47 41 4C 20 4E 41 4D 45 22 3A 89 33 39 30 00 C2 |GAL NAME":.390..| 000002B0: 06 9A 01 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 |....5,8,5,"0:".F| 000002C0: 49 24 00 DC 06 A4 01 8D 33 35 30 3A 8B 20 45 20 |I$......350:. E | 000002D0: A7 20 99 20 45 24 3A A0 31 35 3A 90 00 08 07 AE |. . E$:.15:.....| 000002E0: 01 52 50 B2 31 3A 52 4E B2 31 3A 8D 20 32 36 30 |.RP.1:RN.1:. 260| 000002F0: 3A 8D 20 33 35 30 3A 8B 20 45 20 A7 20 99 20 45 |:. 350:. E . . E| 00000300: 24 3A A0 20 31 35 3A 90 00 18 07 B8 01 8D 20 32 |$:. 15:....... 2| 00000310: 36 30 3A 8D 20 33 35 30 00 3D 07 C2 01 8B 20 45 |60:. 350.=.... E| 00000320: B2 30 20 AF 20 52 4E B3 33 32 37 36 37 20 A7 20 |.0 . RN.32767 . | 00000330: 52 4E B2 52 4E AA 31 3A 89 20 34 34 30 00 4F 07 |RN.RN.1:. 440.O.| 00000340: CC 01 4E 52 B2 52 4E AB 31 AB 28 45 B2 30 29 00 |..NR.RN.1.(E.0).| 00000350: 70 07 D6 01 99 3A 99 20 22 4E 55 4D 42 45 52 20 |p....:. "NUMBER | 00000360: 4F 46 20 52 45 43 4F 52 44 53 20 3D 22 3B 4E 52 |OF RECORDS =";NR| 00000370: 00 79 07 E0 01 52 4E B2 31 00 82 07 EA 01 52 50 |.y...RN.1.....RP| 00000380: B2 32 00 92 07 F4 01 8D 20 32 36 30 3A 8D 20 33 |.2...... 260:. 3| 00000390: 35 30 00 B5 07 FE 01 8B 20 45 B2 30 20 AF 20 52 |50...... E.0 . R| 000003A0: 50 B3 32 35 34 20 A7 20 52 50 B2 52 50 AA 31 3A |P.254 . RP.RP.1:| 000003B0: 89 20 35 30 30 00 C7 07 08 02 52 4C B2 52 50 AB |. 500.....RL.RP.| 000003C0: 31 AB 28 45 B2 30 29 00 E4 07 12 02 99 3A 99 20 |1.(E.0)......:. | 000003D0: 22 52 45 43 4F 52 44 20 4C 45 4E 47 54 48 20 3D |"RECORD LENGTH =| 000003E0: 22 3B 52 4C 00 03 08 1C 02 41 53 B2 B5 28 28 B8 |";RL.....AS..((.| 000003F0: 28 30 29 AB 31 30 30 30 29 AD 28 52 4C AA 35 29 |(0).1000).(RL.5)| 00000400: 29 AB 31 00 19 08 26 02 8B 20 41 53 B1 32 30 30 |).1...&.. AS.200| 00000410: 20 A7 20 41 53 B2 32 30 30 00 49 08 30 02 8B 20 | . AS.200.I.0.. | 00000420: 41 53 B3 35 20 A7 20 99 3A 99 20 22 49 4E 53 55 |AS.5 . .:. "INSU| 00000430: 46 46 49 43 49 45 4E 54 20 4D 45 4D 4F 52 59 22 |FFICIENT MEMORY"| 00000440: 3A A0 35 3A A0 31 35 3A 80 00 60 08 3A 02 8B 20 |:.5:.15:..`.:.. | 00000450: 41 53 B1 B2 4E 52 20 A7 20 41 53 B2 4E 52 AB 31 |AS..NR . AS.NR.1| 00000460: 00 83 08 44 02 99 3A 99 20 22 4E 55 4D 42 45 52 |...D..:. "NUMBER| 00000470: 20 4F 46 20 42 55 46 46 45 52 53 20 3D 22 3B 41 | OF BUFFERS =";A| 00000480: 53 AA 31 00 90 08 4E 02 86 20 41 24 28 41 53 29 |S.1...N.. A$(AS)| 00000490: 00 B0 08 58 02 43 49 B2 31 3A 8F 20 43 55 52 52 |...X.CI.1:. CURR| 000004A0: 45 4E 54 20 49 4E 50 55 54 20 52 45 43 4F 52 44 |ENT INPUT RECORD| 000004B0: 00 D1 08 62 02 43 4F B2 31 3A 8F 20 43 55 52 52 |...b.CO.1:. CURR| 000004C0: 45 4E 54 20 4F 55 54 50 55 54 20 52 45 43 4F 52 |ENT OUTPUT RECOR| 000004D0: 44 00 E2 08 6C 02 8F 20 49 4E 50 55 54 20 4C 4F |D...l.. INPUT LO| 000004E0: 4F 50 00 EB 08 76 02 41 43 B2 30 00 F3 08 80 02 |OP...v.AC.0.....| 000004F0: 99 3A 99 00 0A 09 8A 02 81 49 B2 30 A4 41 53 3A |.:.......I.0.AS:| 00000500: 41 24 28 49 29 B2 22 22 3A 82 00 15 09 94 02 49 |A$(I)."":......I| 00000510: B2 B8 28 30 29 00 1F 09 9E 02 52 4E B2 43 49 00 |..(0).....RN.CI.| 00000520: 29 09 A8 02 4C 24 B2 22 22 00 5A 09 B2 02 99 20 |)...L$."".Z.... | 00000530: 22 52 45 41 44 49 4E 47 20 52 45 43 4F 52 44 22 |"READING RECORD"| 00000540: 3B 43 49 3B 22 9D 20 54 4F 20 42 55 46 46 45 52 |;CI;". TO BUFFER| 00000550: 22 3B 41 43 AA 31 3B 22 91 22 00 6A 09 BC 02 81 |";AC.1;".".j....| 00000560: 20 52 50 B2 31 20 A4 20 52 4C 00 8A 09 C6 02 8D | RP.1 . RL......| 00000570: 20 32 36 30 3A A1 23 35 2C 47 24 3A 8B 47 24 B2 | 260:.#5,G$:.G$.| 00000580: 22 22 A7 47 24 B2 C7 28 30 29 00 9C 09 D0 02 4C |"".G$..(0).....L| 00000590: 24 B2 4C 24 AA 47 24 3A 82 20 52 50 00 BA 09 DA |$.L$.G$:. RP....| 000005A0: 02 41 24 28 41 43 29 B2 4C 24 3A 41 43 B2 41 43 |.A$(AC).L$:AC.AC| 000005B0: AA 31 3A 43 49 B2 43 49 AA 31 00 D6 09 E4 02 8B |.1:CI.CI.1......| 000005C0: 20 41 43 B3 B2 41 53 20 AF 20 43 49 B3 B2 4E 52 | AC..AS . CI..NR| 000005D0: 20 A7 20 36 37 30 00 DD 09 EE 02 A0 35 00 E5 09 | . 670......5...| 000005E0: F8 02 99 3A 99 00 10 0A 02 03 99 20 22 49 4E 53 |...:....... "INS| 000005F0: 45 52 54 20 4F 55 54 50 55 54 20 44 49 53 4B 2C |ERT OUTPUT DISK,| 00000600: 20 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 22 | PRESS .RETURN."| 00000610: 00 28 0A 0C 03 A1 20 47 24 3A 8B 20 47 24 B3 B1 |.(.... G$:. G$..| 00000620: 22 22 20 A7 20 37 38 30 00 43 0A 16 03 A1 20 47 |"" . 780.C.... G| 00000630: 24 3A 8B 20 47 24 B3 B1 C7 28 31 33 29 20 A7 20 |$:. G$...(13) . | 00000640: 37 39 30 00 56 0A 20 03 8B 20 46 4F 24 B1 22 22 |790.V. .. FO$.""| 00000650: 20 A7 20 39 31 30 00 5E 0A 2A 03 99 3A 99 00 80 | . 910.^.*..:...| 00000660: 0A 34 03 85 20 22 4F 55 54 50 55 54 20 46 49 4C |.4.. "OUTPUT FIL| 00000670: 45 4E 41 4D 45 20 20 2A 9D 9D 9D 22 3B 46 4F 24 |ENAME *...";FO$| 00000680: 00 98 0A 3E 03 8B 20 46 4F 24 B2 22 2A 22 20 A7 |...>.. FO$."*" .| 00000690: 20 46 4F 24 B2 46 49 24 00 CD 0A 48 03 8B 20 46 | FO$.FI$...H.. F| 000006A0: 4F 24 B2 22 22 20 B0 20 C3 28 46 4F 24 29 B1 31 |O$."" . .(FO$).1| 000006B0: 36 20 A7 20 99 20 22 49 4C 4C 45 47 41 4C 20 46 |6 . . "ILLEGAL F| 000006C0: 49 4C 45 4E 41 4D 45 22 3A 89 38 32 30 00 E9 0A |ILENAME":.820...| 000006D0: 52 03 99 3A 99 20 22 49 4E 49 54 49 41 4C 49 5A |R..:. "INITIALIZ| 000006E0: 49 4E 47 20 46 49 4C 45 22 00 09 0B 5C 03 9F 35 |ING FILE"...\..5| 000006F0: 2C 38 2C 35 2C 22 30 3A 22 AA 46 4F 24 AA 22 2C |,8,5,"0:".FO$.",| 00000700: 4C 2C 22 AA C7 28 52 4C 29 00 23 0B 66 03 8D 20 |L,"..(RL).#.f.. | 00000710: 33 35 30 3A 8B 20 45 20 A7 20 99 45 24 3A A0 31 |350:. E . .E$:.1| 00000720: 35 3A 90 00 38 0B 70 03 52 50 B2 31 3A 52 4E B2 |5:..8.p.RP.1:RN.| 00000730: 4E 52 3A 8D 20 33 30 30 00 47 0B 7A 03 98 35 2C |NR:. 300.G.z..5,| 00000740: C7 28 32 35 35 29 3B 00 4E 0B 84 03 A0 35 00 62 |.(255);.N....5.b| 00000750: 0B 8E 03 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 |....5,8,5,"0:".F| 00000760: 4F 24 00 7C 0B 98 03 8D 20 33 35 30 3A 8B 20 45 |O$.|.... 350:. E| 00000770: 20 A7 20 99 45 24 3A A0 31 35 3A 90 00 84 0B A2 | . .E$:.15:.....| 00000780: 03 99 3A 99 00 95 0B AC 03 8F 20 50 52 49 4E 54 |..:....... PRINT| 00000790: 20 4C 4F 4F 50 00 9E 0B B6 03 52 50 B2 31 00 AF | LOOP.....RP.1..| 000007A0: 0B C0 03 81 20 49 B2 30 20 A5 20 41 43 AB 31 00 |.... I.0 . AC.1.| 000007B0: DF 0B CA 03 99 20 22 57 52 49 54 49 4E 47 20 42 |..... "WRITING B| 000007C0: 55 46 46 45 52 22 3B 49 AA 31 3B 22 9D 20 54 4F |UFFER";I.1;". TO| 000007D0: 20 52 45 43 4F 52 44 22 3B 43 4F 3B 22 91 22 00 | RECORD";CO;".".| 000007E0: EF 0B D4 03 52 4E B2 43 4F 3A 8D 20 33 30 30 00 |....RN.CO:. 300.| 000007F0: FD 0B DE 03 98 35 2C 41 24 28 49 29 3B 00 09 0C |.....5,A$(I);...| 00000800: E8 03 43 4F B2 43 4F AA 31 00 11 0C F2 03 82 20 |..CO.CO.1...... | 00000810: 49 00 18 0C FC 03 A0 35 00 20 0C 06 04 99 3A 99 |I......5. ....:.| 00000820: 00 48 0C 10 04 8B 20 43 4F B1 4E 52 20 A7 20 99 |.H.... CO.NR . .| 00000830: 20 22 41 4C 4C 20 44 4F 4E 45 22 3A A0 31 35 3A | "ALL DONE":.15:| 00000840: 80 3A 89 20 31 30 34 30 00 5D 0C 1A 04 99 20 22 |.:. 1040.].... "| 00000850: 4D 4F 52 45 20 54 4F 20 43 4F 4D 45 22 00 88 0C |MORE TO COME"...| 00000860: 24 04 99 3A 99 20 22 49 4E 53 45 52 54 20 49 4E |$..:. "INSERT IN| 00000870: 50 55 54 20 44 49 53 4B 2C 20 50 52 45 53 53 20 |PUT DISK, PRESS | 00000880: 12 53 50 41 43 45 92 22 00 A1 0C 2E 04 A1 20 47 |.SPACE."...... G| 00000890: 24 3A 8B 20 47 24 B3 B1 22 22 20 A7 20 31 30 37 |$:. G$.."" . 107| 000008A0: 30 00 BB 0C 38 04 A1 20 47 24 3A 8B 20 47 24 B3 |0...8.. G$:. G$.| 000008B0: B1 22 20 22 20 A7 20 31 30 38 30 00 CF 0C 42 04 |." " . 1080...B.| 000008C0: 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 49 24 00 |.5,8,5,"0:".FI$.| 000008D0: E9 0C 4C 04 8D 33 35 30 3A 8B 20 45 20 A7 20 99 |..L..350:. E . .| 000008E0: 20 45 24 3A A0 31 35 3A 90 00 F3 0C 56 04 89 20 | E$:.15:....V.. | 000008F0: 36 32 30 00 00 00 |620... |
..1.D.. ".SINGLE DISK DRIVE RELATIVE FIL E COPIER".N.N.. "DAVID WILLIAMS, 1984".V .X..:..\...:..... THIS PROGRAM COPIES R ELATIVE...... FILES GROM ONE DISK TO ANO THER.H. .. USING A SINGLE DISK DRIVE (OR ...... DRIVE ZERO, ONLY, OF A DUAL...... DRIVE)......:.#.H.. THE PROGRAM SHOULD WORK ON ALL.F.R.. COMMODORE COMPUTERS AN D DISK.T.... DRIVES..Z...:.H.... 15,8,15 .R.... 390...... FAST RECORD...... 280.. ....15,"P".G(5).G(RN . 255).G(RN.256).G( RP).A."...S.,.. SLOW RECORD...6.. DE.1 . 1000:....@.. 260...J.. DE.1 . 100:....T ...#.^.. READ ERROR CHANNEL.8.H..15,E,E$ ,E1$,E2$.[.R.E$.D(E).",".E$.",".E1$.",". E2$.A.|...|.... "INPUT FILENAME";FI$.... .. FI$."" . C (FI$).16 . . "ILLEGAL NAME ":.390.B....5,8,5,"0:".FI$......350:. E . . E$: 15:......RP.1:RN.1:. 260:. 350:. E . . E$: 15:....... 260:. 350.=.B.. E .0 . RN.32767 . RN.RN.1:. 440.O.L.NR.RN. 1.(E.0).P.V..:. "NUMBER OF RECORDS =";NR .Y...RN.1.....RP.2...... 260:. 350...... E.0 . RP.254 . RP.RP.1:. 500.G...RL.RP. 1.(E.0)......:. "RECORD LENGTH =";RL.... .AS..((.(0).1000).(RL.5)).1...&.. AS.200 . AS.200.I.0.. AS.5 . .:. "INSUFFICIENT MEMORY": 5: 15:..`.:.. AS..NR . AS.NR.1 ...D..:. "NUMBER OF BUFFERS =";AS.1...N. . A$(AS)...X.CI.1:. CURRENT INPUT RECORD .Q.B.CO.1:. CURRENT OUTPUT RECORD...L.. INPUT LOOP...V.AC.0......:.......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......:....... "INS ERT OUTPUT DISK, PRESS .RETURN.".(.... G $:. G$.."" . 780.C.... G$:. G$..G(13) . 790.V. .. FO$."" . 910.^.*..:....4.. "OU TPUT FILENAME *...";FO$...>.. FO$."*" . FO$.FI$.M.H.. FO$."" . C(FO$).16 . . "I LLEGAL FILENAME":.820...R..:. "INITIALIZ ING 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.. "WRITING 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 IN PUT DISK, PRESS .SPACE."...... G$:. G$.. "" . 1070...8.. G$:. G$.." " . 1080.O.B. .5,8,5,"0:".FI$...L..350:. E . . E$: 15: ....V.. 620...
> CLICK IMAGE PREVIEW FOR FULL MODAL