1541 FILE COPIER
FILE INFORMATION
FILENAME(S): 1541 FILE COPIER
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-12-02 02:02:38
APPEARS ON: 1 disk(s)
FILE HASH
ed7d79eec306cf9c90e3b9346dcc24c24e2340be8bd659e58b64107109ab85f9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MEMORLEX EP | 1541 FILE COPIER | PRG | Paladin | 11 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..$.... ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 00 47 08 0F 00 8F 20 2A 20 20 20 20 |****.G.... * | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 2A 00 6A 08 14 00 8F 20 2A 20 | *.j.... * | 00000050: 20 20 20 31 35 34 31 20 53 49 4E 47 4C 45 20 44 | 1541 SINGLE D| 00000060: 52 49 56 45 20 20 20 20 20 2A 00 8D 08 19 00 8F |RIVE *......| 00000070: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 B0 08 | *...| 00000090: 1E 00 8F 20 2A 20 20 20 20 20 20 20 46 49 4C 45 |... * FILE| 000000A0: 20 20 43 4F 50 49 45 52 20 20 20 20 20 20 20 2A | COPIER *| 000000B0: 00 D3 08 23 00 8F 20 2A 20 20 20 20 20 20 20 20 |...#.. * | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 2A 00 F6 08 28 00 8F 20 2A 20 20 20 43 4F | *...(.. * CO| 000000E0: 4E 54 52 49 42 55 54 45 44 20 54 4F 20 54 48 45 |NTRIBUTED TO THE| 000000F0: 20 20 20 20 20 2A 00 19 09 2D 00 8F 20 2A 20 43 | *...-.. * C| 00000100: 4F 4D 4D 4F 44 4F 52 45 20 50 55 42 4C 49 43 20 |OMMODORE PUBLIC | 00000110: 44 4F 4D 41 49 4E 20 20 2A 00 3C 09 32 00 8F 20 |DOMAIN *.<.2.. | 00000120: 2A 20 20 20 20 20 42 59 20 52 49 43 4B 20 59 4F |* BY RICK YO| 00000130: 55 4E 49 45 20 20 20 20 20 20 20 2A 00 5F 09 37 |UNIE *._.7| 00000140: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * | 00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 00000160: 82 09 3C 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..<.. **********| 00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000180: 2A 2A 00 88 09 41 00 8F 00 9F 09 46 00 97 35 33 |**...A.....F..53| 00000190: 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 31 31 00 |281,0:.53280,11.| 000001A0: AC 09 4B 00 97 35 36 2C 33 30 3A 9C 00 DE 09 50 |..K..56,30:....P| 000001B0: 00 99 22 93 0E 9F 20 20 20 20 12 C3 36 34 A0 C4 |.."... ..64..| 000001C0: C9 D2 C5 C3 D4 CF D2 D9 A0 D3 C5 CC C5 C3 D4 A0 |................| 000001D0: C3 CF D0 D9 A0 D0 D2 CF C7 D2 C1 CD 92 11 00 E7 |................| 000001E0: 09 55 00 8D 35 35 30 00 1B 0A 5A 00 99 3A 99 22 |.U..550...Z..:."| 000001F0: D7 41 4E 54 20 54 4F 20 C6 4F 52 4D 41 54 20 54 |.ANT TO .ORMAT T| 00000200: 48 45 20 C4 45 53 54 49 4E 41 54 49 4F 4E 20 C4 |HE .ESTINATION .| 00000210: 49 53 4B 20 20 4E 9D 9D 9D 22 3B 00 41 0A 5F 00 |ISK N...";.A._.| 00000220: 85 20 59 4E 24 3A 8B 20 59 4E 24 B3 B1 22 D9 22 |. YN$:. YN$.."."| 00000230: 20 AF 20 59 4E 24 B3 B1 22 59 22 20 A7 20 31 33 | . YN$.."Y" . 13| 00000240: 30 00 74 0A 64 00 99 3A 99 22 12 C9 4E 53 45 52 |0.t.d..:."..NSER| 00000250: 54 20 C4 45 53 54 49 4E 41 54 49 4F 4E 20 C4 49 |T .ESTINATION .I| 00000260: 53 4B 20 41 4E 44 20 D0 52 45 53 53 20 D2 C5 D4 |SK AND .RESS ...| 00000270: D5 D2 CE 22 00 94 0A 69 00 99 22 C4 49 53 4B 20 |..."...i..".ISK | 00000280: CE 41 4D 45 2C 20 C9 C4 22 3B 3A 85 20 44 4E 24 |.AME, ..";:. DN$| 00000290: 2C 49 44 24 00 A7 0A 6E 00 A0 20 31 35 3A 9F 20 |,ID$...n.. 15:. | 000002A0: 31 35 2C 38 2C 31 35 00 C1 0A 73 00 98 31 35 2C |15,8,15...s..15,| 000002B0: 22 4E 30 3A 22 AA 44 4E 24 AA 22 2C 22 AA 49 44 |"N0:".DN$.",".ID| 000002C0: 24 00 D6 0A 78 00 8D 20 35 37 30 3A 8B 20 45 20 |$...x.. 570:. E | 000002D0: A7 20 89 20 39 30 00 DF 0A 7D 00 A0 20 31 35 00 |. . 90...}.. 15.| 000002E0: 10 0B 82 00 99 3A 99 A3 32 29 22 12 C9 4E 53 45 |.....:..2)"..NSE| 000002F0: 52 54 20 D3 4F 55 52 43 45 20 C4 49 53 4B 20 41 |RT .OURCE .ISK A| 00000300: 4E 44 20 D0 52 45 53 53 20 D2 C5 D4 D5 D2 CE 22 |ND .RESS ......"| 00000310: 00 27 0B 87 00 A1 41 24 3A 8B 41 24 B3 B1 C7 28 |.'....A$:.A$...(| 00000320: 31 33 29 A7 31 33 35 00 55 0B 8C 00 99 22 93 20 |13).135.U....". | 00000330: 53 45 4C 45 43 54 20 50 52 4F 47 53 20 28 59 2F |SELECT PROGS (Y/| 00000340: 4E 29 20 54 4F 20 42 45 47 49 4E 20 54 52 41 4E |N) TO BEGIN TRAN| 00000350: 53 46 45 52 22 00 9B 0B 91 00 4D 41 58 B2 32 30 |SFER".....MAX.20| 00000360: 3A 86 4E 41 24 28 4D 41 58 29 2C 54 59 24 28 4D |:.NA$(MAX),TY$(M| 00000370: 41 58 29 2C 42 4C 28 4D 41 58 29 2C 20 20 20 20 |AX),BL(MAX), | 00000380: 20 45 4F 46 28 4D 41 58 29 3A 57 41 53 54 45 B2 | EOF(MAX):WASTE.| 00000390: 39 33 33 3A 5A 24 B2 C7 28 30 29 00 B3 0B 96 00 |933:Z$..(0).....| 000003A0: 54 4D B2 31 32 AC 34 30 39 36 AA 31 32 AC 32 35 |TM.12.4096.12.25| 000003B0: 36 AB 31 00 CC 0B 9B 00 42 43 B2 B5 28 54 4D AD |6.1.....BC..(TM.| 000003C0: 32 35 36 AB C2 28 35 36 29 AB 31 29 00 DE 0B A0 |256..(56).1)....| 000003D0: 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 00 EE |..15,8,15,"I0"..| 000003E0: 0B A5 00 9F 32 2C 38 2C 32 2C 22 24 30 22 00 06 |....2,8,2,"$0"..| 000003F0: 0C AA 00 84 31 35 2C 45 30 24 2C 45 31 24 2C 45 |....15,E0$,E1$,E| 00000400: 32 24 2C 45 33 24 00 32 0C AF 00 8B 45 30 24 B3 |2$,E3$.2....E0$.| 00000410: B1 22 30 30 22 A7 99 C7 28 35 29 45 30 24 22 20 |."00"...(5)E0$" | 00000420: 22 45 31 24 22 20 22 45 32 24 22 20 22 45 33 24 |"E1$" "E2$" "E3$| 00000430: 3A 80 00 46 0C B4 00 97 37 38 31 2C 32 35 34 3A |:..F....781,254:| 00000440: 9E 57 41 53 54 45 00 4E 0C B9 00 4E B2 31 00 56 |.WASTE.N...N.1.V| 00000450: 0C BE 00 4A B2 31 00 62 0C C3 00 A1 23 32 2C 54 |...J.1.b....#2,T| 00000460: 59 24 00 7F 0C C8 00 8B 54 59 24 B2 C7 28 31 32 |Y$......TY$..(12| 00000470: 39 29 A7 54 59 24 B2 22 53 22 3A 89 32 32 30 00 |9).TY$."S":.220.| 00000480: 9C 0C CD 00 8B 54 59 24 B2 C7 28 31 33 30 29 A7 |.....TY$..(130).| 00000490: 54 59 24 B2 22 50 22 3A 89 32 32 30 00 B9 0C D2 |TY$."P":.220....| 000004A0: 00 8B 54 59 24 B2 C7 28 31 33 31 29 A7 54 59 24 |..TY$..(131).TY$| 000004B0: B2 22 55 22 3A 89 32 32 30 00 D1 0C D7 00 97 37 |."U":.220......7| 000004C0: 38 31 2C 32 38 3A 9E 57 41 53 54 45 3A 89 33 30 |81,28:.WASTE:.30| 000004D0: 30 00 DF 0C DC 00 A1 23 32 2C 41 24 2C 41 24 00 |0......#2,A$,A$.| 000004E0: EA 0C E1 00 4E 41 24 B2 22 22 00 14 0D E6 00 81 |....NA$.""......| 000004F0: 49 B2 35 A4 32 30 3A A1 23 32 2C 41 24 3A 8B 41 |I.5.20:.#2,A$:.A| 00000500: 24 B3 B1 C7 28 31 36 30 29 A7 4E 41 24 B2 4E 41 |$...(160).NA$.NA| 00000510: 24 AA 41 24 00 1A 0D EB 00 82 00 30 0D F0 00 81 |$.A$.......0....| 00000520: 49 B2 32 31 A4 32 39 3A A1 23 32 2C 41 24 3A 82 |I.21.29:.#2,A$:.| 00000530: 00 49 0D F5 00 A1 23 32 2C 42 4C 24 3A 42 4C B2 |.I....#2,BL$:BL.| 00000540: C6 28 42 4C 24 AA 5A 24 29 00 62 0D FA 00 99 A3 |.(BL$.Z$).b.....| 00000550: 34 29 4E 41 24 A3 32 31 29 54 59 24 A3 32 33 29 |4)NA$.21)TY$.23)| 00000560: 42 4C 00 75 0D FF 00 A1 41 24 3A 8B 41 24 B2 22 |BL.u....A$:.A$."| 00000570: 22 A7 32 35 35 00 B2 0D 04 01 8B 41 24 B2 22 4E |".255......A$."N| 00000580: 22 A7 99 22 91 20 20 20 20 20 20 20 20 20 20 20 |"..". | 00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005A0: 20 20 22 C7 28 31 34 31 29 22 91 91 22 3A 89 33 | ".(141)"..":.3| 000005B0: 30 30 00 E4 0D 09 01 8B 41 24 B2 22 2A 22 A7 99 |00......A$."*"..| 000005C0: A3 34 29 22 91 2D 2D 2D 2D 2D 2D 2D 4C 4F 41 44 |.4)".-------LOAD| 000005D0: 49 4E 47 20 43 36 34 2D 2D 2D 2D 2D 2D 2D 22 3A |ING C64-------":| 000005E0: 89 33 32 30 00 F5 0D 0E 01 8B 41 24 B3 B1 22 59 |.320......A$.."Y| 000005F0: 22 A7 32 35 35 00 38 0E 13 01 8B 42 4C B1 42 43 |".255.8....BL.BC| 00000600: A7 99 22 91 20 4E 4F 20 4D 4F 52 45 20 52 4F 4F |..". NO MORE ROO| 00000610: 4D 2D 2D 2A 20 54 4F 20 4C 4F 41 44 20 43 36 34 |M--* TO LOAD C64| 00000620: 22 3A 81 57 B2 31 A4 35 30 30 3A 82 3A 41 24 B2 |":.W.1.500:.:A$.| 00000630: 22 4E 22 3A 89 32 36 30 00 4A 0E 18 01 99 22 91 |"N":.260.J....".| 00000640: 22 A3 33 30 29 42 43 AB 42 4C 00 57 0E 1D 01 42 |".30)BC.BL.W...B| 00000650: 43 B2 42 43 AB 42 4C 00 80 0E 22 01 4E 41 24 28 |C.BC.BL...".NA$(| 00000660: 4E 29 B2 4E 41 24 3A 54 59 24 28 4E 29 B2 54 59 |N).NA$:TY$(N).TY| 00000670: 24 3A 42 4C 28 4E 29 B2 42 4C 3A 4E B2 4E AA 31 |$:BL(N).BL:N.N.1| 00000680: 00 B3 0E 27 01 8B 4E B1 4D 41 58 A7 99 22 20 20 |...'..N.MAX.." | 00000690: 20 20 20 4D 41 58 20 4E 4F 2E 20 50 52 4F 47 53 | MAX NO. PROGS| 000006A0: 20 20 20 20 20 20 20 20 3D 20 22 4D 41 58 3A 89 | = "MAX:.| 000006B0: 33 32 30 00 C6 0E 2C 01 A1 23 32 2C 41 24 3A 8B |320...,..#2,A$:.| 000006C0: 53 54 A7 33 31 35 00 E4 0E 31 01 4A B2 4A AA 31 |ST.315...1.J.J.1| 000006D0: 3A 8B 4A B3 39 A7 A1 23 32 2C 41 24 2C 41 24 3A |:.J.9..#2,A$,A$:| 000006E0: 89 31 39 35 00 ED 0E 36 01 89 31 39 30 00 15 0F |.195...6..190...| 000006F0: 3B 01 99 A3 36 29 22 4E 4F 20 4D 4F 52 45 20 50 |;...6)"NO MORE P| 00000700: 52 4F 47 52 41 4D 53 2D 2D 4C 4F 41 44 49 4E 47 |ROGRAMS--LOADING| 00000710: 20 43 36 34 22 00 1C 0F 40 01 A0 32 00 43 0F 45 | C64"...@..2.C.E| 00000720: 01 4E B2 4E AB 31 3A 8B 4E B2 30 A7 99 A3 32 34 |.N.N.1:.N.0...24| 00000730: 29 22 91 4E 4F 4E 45 20 53 45 4C 45 43 54 45 44 |)".NONE SELECTED| 00000740: 22 3A 80 00 49 0F 4A 01 3A 00 4F 0F 4F 01 3A 00 |":..I.J.:.O.O.:.| 00000750: 87 0F 54 01 58 53 41 56 B2 37 38 31 3A 59 53 41 |..T.XSAV.781:YSA| 00000760: 56 B2 37 38 32 3A 47 49 54 B2 38 32 38 3A 50 49 |V.782:GIT.828:PI| 00000770: 54 B2 38 37 36 3A 20 20 20 20 20 20 20 20 20 20 |T.876: | 00000780: 53 55 50 B2 38 36 39 00 9F 0F 59 01 58 46 52 B2 |SUP.869...Y.XFR.| 00000790: C2 28 35 36 29 AC 32 35 36 AA C2 28 35 35 29 00 |.(56).256..(55).| 000007A0: A5 0F 5E 01 3A 00 AD 0F 63 01 49 B2 31 00 CF 0F |..^.:...c.I.1...| 000007B0: 68 01 9F 32 2C 38 2C 32 2C 4E 41 24 28 49 29 AA |h..2,8,2,NA$(I).| 000007C0: 22 2C 22 AA 54 59 24 28 49 29 AA 22 2C 52 22 00 |",".TY$(I).",R".| 000007D0: E8 0F 6D 01 99 22 20 22 4E 41 24 28 49 29 A3 31 |..m.." "NA$(I).1| 000007E0: 38 29 54 59 24 28 49 29 00 1C 10 72 01 84 31 35 |8)TY$(I)...r..15| 000007F0: 2C 45 30 24 2C 45 31 24 3A 8B 45 30 24 B3 B1 22 |,E0$,E1$:.E0$.."| 00000800: 30 30 22 A7 99 A3 32 30 29 22 91 22 45 31 24 3A |00"...20)"."E1$:| 00000810: 42 4C 28 49 29 B2 30 3A 89 34 30 30 00 5E 10 77 |BL(I).0:.400.^.w| 00000820: 01 48 49 B2 B5 28 58 46 52 AD 32 35 36 29 3A 4C |.HI..(XFR.256):L| 00000830: 4F B2 58 46 52 AB 48 49 AC 32 35 36 3A 20 20 20 |O.XFR.HI.256: | 00000840: 20 20 20 20 20 20 20 20 97 59 53 41 56 2C 48 49 | .YSAV,HI| 00000850: 3A 97 58 53 41 56 2C 4C 4F 3A 9E 47 49 54 00 92 |:.XSAV,LO:.GIT..| 00000860: 10 7C 01 84 31 35 2C 45 30 24 2C 45 31 24 3A 8B |.|..15,E0$,E1$:.| 00000870: 45 30 24 B3 B1 22 30 30 22 A7 99 A3 32 30 29 22 |E0$.."00"...20)"| 00000880: 91 22 45 31 24 3A 42 4C 28 49 29 B2 30 3A 89 34 |."E1$:BL(I).0:.4| 00000890: 30 30 00 B1 10 81 01 45 4F 46 28 49 29 B2 C2 28 |00.....EOF(I)..(| 000008A0: 58 53 41 56 29 AA C2 28 59 53 41 56 29 AC 32 35 |XSAV)..(YSAV).25| 000008B0: 36 00 C2 10 86 01 58 46 52 B2 45 4F 46 28 49 29 |6.....XFR.EOF(I)| 000008C0: AA 31 00 F2 10 8B 01 99 22 91 20 20 20 20 20 20 |.1......". | 000008D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008E0: 20 20 20 20 20 20 20 22 C7 28 31 34 31 29 22 91 | ".(141)".| 000008F0: 91 22 00 F9 10 90 01 A0 32 00 0D 11 95 01 49 B2 |."......2.....I.| 00000900: 49 AA 31 3A 8B 49 B3 B2 4E A7 33 36 30 00 15 11 |I.1:.I..N.360...| 00000910: 9A 01 A0 31 35 00 1B 11 9F 01 3A 00 4E 11 A4 01 |...15.....:.N...| 00000920: 97 31 39 38 2C 30 3A 99 22 91 20 20 20 20 49 4E |.198,0:.". IN| 00000930: 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 4F 4E |SERT DESTINATION| 00000940: 20 44 49 53 4B 20 26 20 52 45 54 55 52 4E 00 65 | DISK & RETURN.e| 00000950: 11 A9 01 A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 |....A$:.A$...(13| 00000960: 29 A7 34 32 35 00 7D 11 AE 01 58 46 52 B2 C2 28 |).425.}...XFR..(| 00000970: 35 36 29 AC 32 35 36 AA C2 28 35 35 29 00 83 11 |56).256..(55)...| 00000980: B3 01 3A 00 95 11 B8 01 9F 31 35 2C 38 2C 31 35 |..:......15,8,15| 00000990: 2C 22 49 30 22 00 A5 11 BD 01 84 31 35 2C 45 30 |,"I0"......15,E0| 000009A0: 24 2C 45 31 24 00 B7 11 C2 01 8B 45 30 24 B2 22 |$,E1$......E0$."| 000009B0: 30 30 22 A7 34 36 35 00 EE 11 C7 01 99 22 20 44 |00".465......" D| 000009C0: 49 53 4B 20 50 52 4F 42 4C 45 4D 2D 46 49 58 20 |ISK PROBLEM-FIX | 000009D0: 41 4E 44 20 54 59 50 45 20 43 4F 4E 54 3C 52 45 |AND TYPE CONT<RE| 000009E0: 54 3E 22 3A A0 31 35 3A 90 3A 89 34 34 30 00 F4 |T>":.15:.:.440..| 000009F0: 11 CC 01 3A 00 FF 11 D1 01 81 49 B2 31 A4 4E 00 |...:......I.1.N.| 00000A00: 10 12 D6 01 8B 42 4C 28 49 29 B2 30 A7 35 31 35 |.....BL(I).0.515| 00000A10: 00 32 12 DB 01 9F 32 2C 38 2C 31 2C 4E 41 24 28 |.2....2,8,1,NA$(| 00000A20: 49 29 AA 22 2C 22 AA 54 59 24 28 49 29 AA 22 2C |I).",".TY$(I).",| 00000A30: 57 22 00 42 12 E0 01 84 31 35 2C 45 30 24 2C 45 |W".B....15,E0$,E| 00000A40: 31 24 00 61 12 E5 01 99 22 20 22 4E 41 24 28 49 |1$.a...." "NA$(I| 00000A50: 29 A3 31 38 29 54 59 24 28 49 29 22 20 22 45 31 |).18)TY$(I)" "E1| 00000A60: 24 00 74 12 EA 01 8B 45 30 24 B3 B1 22 30 30 22 |$.t....E0$.."00"| 00000A70: A7 35 31 30 00 AB 12 EF 01 48 49 B2 B5 28 58 46 |.510.....HI..(XF| 00000A80: 52 AD 32 35 36 29 3A 4C 4F B2 58 46 52 AB 48 49 |R.256):LO.XFR.HI| 00000A90: AC 32 35 36 3A 97 59 53 41 56 2C 48 49 3A 97 58 |.256:.YSAV,HI:.X| 00000AA0: 53 41 56 2C 4C 4F 3A 9E 53 55 50 00 EF 12 F4 01 |SAV,LO:.SUP.....| 00000AB0: 58 46 52 B2 45 4F 46 28 49 29 AA 31 3A 48 49 B2 |XFR.EOF(I).1:HI.| 00000AC0: B5 28 58 46 52 AD 32 35 36 29 3A 4C 4F B2 58 46 |.(XFR.256):LO.XF| 00000AD0: 52 AB 48 49 AC 32 35 36 3A 97 59 53 41 56 2C 48 |R.HI.256:.YSAV,H| 00000AE0: 49 3A 97 58 53 41 56 2C 4C 4F 3A 9E 50 49 54 00 |I:.XSAV,LO:.PIT.| 00000AF0: 2B 13 F9 01 84 31 35 2C 45 30 24 2C 45 31 24 3A |+....15,E0$,E1$:| 00000B00: 8B 45 30 24 B3 B1 22 30 30 22 A7 99 A3 35 29 22 |.E0$.."00"...5)"| 00000B10: 12 46 41 54 41 4C 20 45 52 52 4F 52 20 22 45 30 |.FATAL ERROR "E0| 00000B20: 24 22 20 22 45 31 24 3A 49 B2 4E 00 32 13 FE 01 |$" "E1$:I.N.2...| 00000B30: A0 32 00 38 13 03 02 82 00 40 13 08 02 A0 31 35 |.2.8.....@....15| 00000B40: 00 69 13 0D 02 99 22 41 4E 4F 54 48 45 52 20 43 |.i...."ANOTHER C| 00000B50: 4F 50 59 20 4F 46 20 53 41 4D 45 20 46 49 4C 45 |OPY OF SAME FILE| 00000B60: 53 20 28 59 2F 4E 29 22 3B 00 8F 13 12 02 85 20 |S (Y/N)";...... | 00000B70: 59 4E 24 3A 8B 20 59 4E 24 B3 B1 22 59 22 20 AF |YN$:. YN$.."Y" .| 00000B80: 20 59 4E 24 B3 B1 22 4E 22 20 A7 20 35 32 35 00 | YN$.."N" . 525.| 00000B90: A3 13 17 02 8B 20 59 4E 24 B2 22 59 22 20 A7 20 |..... YN$."Y" . | 00000BA0: 34 32 30 00 B0 13 1C 02 97 20 35 36 2C 31 36 30 |420...... 56,160| 00000BB0: 00 B6 13 21 02 80 00 C6 13 26 02 81 49 B2 38 32 |...!.....&..I.82| 00000BC0: 38 A4 31 30 30 30 00 D6 13 2B 02 87 20 41 3A 8B |8.1000...+.. A:.| 00000BD0: 41 B3 30 A7 20 8E 00 DF 13 30 02 97 49 2C 41 00 |A.0. ....0..I,A.| 00000BE0: E5 13 35 02 82 00 F8 13 3A 02 84 31 35 2C 45 2C |..5.....:..15,E,| 00000BF0: 45 24 2C 45 31 2C 45 32 00 18 14 3F 02 8B 45 B2 |E$,E1,E2...?..E.| 00000C00: 30 A7 45 B2 28 53 54 20 AF 20 31 39 31 29 3A 45 |0.E.(ST . 191):E| 00000C10: 24 B2 22 2A 53 54 2A 22 00 1E 14 44 02 8E 00 5C |$."*ST*"...D...\| 00000C20: 14 49 02 83 20 31 34 32 2C 37 35 2C 33 2C 31 34 |.I.. 142,75,3,14| 00000C30: 30 2C 37 36 2C 33 2C 31 36 32 2C 32 2C 33 32 2C |0,76,3,162,2,32,| 00000C40: 31 39 38 2C 32 35 35 2C 33 32 2C 32 32 38 2C 32 |198,255,32,228,2| 00000C50: 35 35 2C 31 34 31 2C 37 37 2C 34 37 00 9E 14 4E |55,141,77,47...N| 00000C60: 02 83 20 31 36 36 2C 31 34 34 2C 32 30 38 2C 31 |.. 166,144,208,1| 00000C70: 30 2C 32 33 38 2C 37 35 2C 33 2C 32 30 38 2C 32 |0,238,75,3,208,2| 00000C80: 34 31 2C 32 33 38 2C 37 36 2C 33 2C 32 30 38 2C |41,238,76,3,208,| 00000C90: 32 33 36 2C 33 32 2C 32 30 34 2C 32 35 35 00 DA |236,32,204,255..| 00000CA0: 14 53 02 83 20 31 37 34 2C 37 35 2C 33 2C 31 37 |.S.. 174,75,3,17| 00000CB0: 32 2C 37 36 2C 33 2C 39 36 2C 31 34 32 2C 31 32 |2,76,3,96,142,12| 00000CC0: 34 2C 33 2C 31 34 30 2C 31 32 35 2C 33 2C 39 36 |4,3,140,125,3,96| 00000CD0: 2C 31 34 32 2C 31 35 34 2C 33 00 19 15 58 02 83 |,142,154,3...X..| 00000CE0: 20 31 34 30 2C 31 34 37 2C 33 2C 31 36 39 2C 35 | 140,147,3,169,5| 00000CF0: 34 2C 31 33 33 2C 31 2C 31 36 32 2C 32 2C 33 32 |4,133,1,162,2,32| 00000D00: 2C 32 30 31 2C 32 35 35 2C 31 37 33 2C 37 38 2C |,201,255,173,78,| 00000D10: 34 37 2C 33 32 2C 32 31 30 00 58 15 5D 02 83 20 |47,32,210.X.].. | 00000D20: 32 35 35 2C 32 34 2C 31 37 33 2C 31 32 34 2C 33 |255,24,173,124,3| 00000D30: 2C 31 30 35 2C 31 2C 31 34 31 2C 31 32 34 2C 33 |,105,1,141,124,3| 00000D40: 2C 31 37 33 2C 31 32 35 2C 33 2C 31 30 35 2C 30 |,173,125,3,105,0| 00000D50: 2C 31 34 31 2C 31 32 35 00 9A 15 62 02 83 20 33 |,141,125...b.. 3| 00000D60: 2C 32 30 31 2C 34 37 2C 32 30 38 2C 32 32 39 2C |,201,47,208,229,| 00000D70: 31 37 33 2C 31 32 34 2C 33 2C 32 30 31 2C 37 38 |173,124,3,201,78| 00000D80: 2C 32 30 38 2C 32 32 32 2C 33 32 2C 32 30 34 2C |,208,222,32,204,| 00000D90: 32 35 35 2C 31 36 39 2C 35 35 00 B3 15 67 02 83 |255,169,55...g..| 00000DA0: 20 31 33 33 2C 31 2C 39 36 2C 31 34 32 2C 31 37 | 133,1,96,142,17| 00000DB0: 34 2C 33 00 F7 15 6C 02 83 31 36 32 2C 32 2C 33 |4,3...l..162,2,3| 00000DC0: 32 2C 31 39 38 2C 32 35 35 2C 31 36 32 2C 31 2C |2,198,255,162,1,| 00000DD0: 33 32 2C 32 32 38 2C 32 35 35 2C 32 30 32 2C 32 |32,228,255,202,2| 00000DE0: 30 38 2C 32 35 30 2C 33 32 2C 32 30 34 2C 32 35 |08,250,32,204,25| 00000DF0: 35 2C 39 36 2C 2D 31 00 00 00 |5,96,-1... |
..$.... ****************************.G..
.. * *.J.... *
1541 SINGLE DRIVE *...... *
*...... * FILE
COPIER *.S.#.. *
*...(.. * CONTRIBUTED TO THE
*...-.. * COMMODORE PUBLIC DOMAIN
*.<.2.. * BY RICK YOUNIE *._.7
.. * *...<.. **
**************************...A.....F..53
281,0:.53280,11...K..56,30:....P.."...
.C64 DIRECTORY SELECT COPY PROGRAM....
.U..550...Z..:."WANT TO FORMAT THE DESTI
NATION DISK N...";.A._.. YN$:. YN$.."Y"
. YN$.."Y" . 130.T.D..:.".INSERT DESTIN
ATION DISK AND PRESS RETURN"...I.."DISK
NAME, ID";:. DN$,ID$...N. 15:. 15,8,15.
A.S..15,"N0:".DN$.",".ID$.V.X.. 570:. E
. . 90...}. 15......:..2)".INSERT SOURC
E DISK AND PRESS RETURN".'....A$:.A$..G(
13).135.U....". SELECT PROGS (Y/N) TO BE
GIN TRANSFER".....MAX.20:.NA$(MAX),TY$(M
AX),BL(MAX), EOF(MAX):WASTE.933:Z$.G
(0).....TM.12.4096.12.256.1.L...BC..(TM.
256.B(56).1)... ..15,8,15,"I0"......2,8,
2,"$0"......15,E0$,E1$,E2$,E3$.2....E0$.
."00"..G(5)E0$" "E1$" "E2$" "E3$:..F....
781,254:.WASTE.N...N.1.V...J.1.B.C..#2,T
Y$..H..TY$.G(129).TY$."S":.220...M..TY$
.G(130).TY$."P":.220...R..TY$.G(131).TY$
."U":.220.Q.W..781,28:.WASTE:.300......#
2,A$,A$.....NA$.""......I.5.20:.#2,A$:.A
$..G(160).NA$.NA$.A$.......0....I.21.29:
.#2,A$:..I....#2,BL$:BL.F(BL$.Z$).B.....
4)NA$.21)TY$.23)BL.U....A$:.A$."".255...
...A$."N"..".
"G(141)"..":.300......A$."*"...4)".---
----LOADING C64-------":.320......A$.."Y
".255.8....BL.BC..". NO MORE ROOM--* TO
LOAD C64":.W.1.500:.:A$."N":.260.J....".
".30)BC.BL.W...BC.BC.BL...".NA$(N).NA$:T
Y$(N).TY$:BL(N).BL:N.N.1...'..N.MAX.."
MAX NO. PROGS = "MAX:.320.F.,.
.#2,A$:.ST.315...1.J.J.1:.J.9..#2,A$,A$:
.195...6..190...;...6)"NO MORE PROGRAMS-
-LOADING C64"...@. 2.C.E.N.N.1:.N.0...24
)".NONE SELECTED":..I.J.:.O.O.:...T.XSAV
.781:YSAV.782:GIT.828:PIT.876:
SUP.869...Y.XFR.B(56).256.B(55)...^.:...
C.I.1.O.H..2,8,2,NA$(I).",".TY$(I).",R".
..M.." "NA$(I).18)TY$(I)...R..15,E0$,E1$
:.E0$.."00"...20)"."E1$:BL(I).0:.400.^.W
.HI..(XFR.256):LO.XFR.HI.256:
.YSAV,HI:.XSAV,LO:.GIT...|..15,E0$,E1$:.
E0$.."00"...20)"."E1$:BL(I).0:.400.....E
OF(I).B(XSAV).B(YSAV).256.B...XFR.EOF(I)
.1......". "
G(141)".."..... 2.....I.I.1:.I..N.360...
.. 15.....:.N....198,0:.". INSERT DES
TINATION DISK & RETURN.E....A$:.A$..G(13
).425.}...XFR.B(56).256.B(55).....:.....
.15,8,15,"I0"......15,E0$,E1$...B..E0$."
00".465...G.." DISK PROBLEM-FIX AND TYPE
CONT<RET>": 15:.:.440...L.:...Q..I.1.N.
..V..BL(I).0.515.2....2,8,1,NA$(I).",".T
Y$(I).",W".B....15,E0$,E1$.A...." "NA$(I
).18)TY$(I)" "E1$.T....E0$.."00".510....
.HI..(XFR.256):LO.XFR.HI.256:.YSAV,HI:.X
SAV,LO:.SUP.....XFR.EOF(I).1:HI..(XFR.25
6):LO.XFR.HI.256:.YSAV,HI:.XSAV,LO:.PIT.
+....15,E0$,E1$:.E0$.."00"...5)".FATAL E
RROR "E0$" "E1$:I.N.2... 2.8.....@... 15
.I...."ANOTHER COPY OF SAME FILES (Y/N)"
;...... YN$:. YN$.."Y" . YN$.."N" . 525.
..... YN$."Y" . 420...... 56,160...!...F
.&..I.828.1000.V.+.. A:.A.0. ....0..I,A.
..5.....:..15,E,E$,E1,E2...?..E.0.E.(ST
. 191):E$."*ST*"...D...\.I.. 142,75,3,14
0,76,3,162,2,32,198,255,32,228,255,141,7
7,47...N.. 166,144,208,10,238,75,3,208,2
41,238,76,3,208,236,32,204,255.Z.S.. 174
,75,3,172,76,3,96,142,124,3,140,125,3,96
,142,154,3...X.. 140,147,3,169,54,133,1,
162,2,32,201,255,173,78,47,32,210.X.]..
255,24,173,124,3,105,1,141,124,3,173,125
,3,105,0,141,125...B.. 3,201,47,208,229,
173,124,3,201,78,208,222,32,204,255,169,
55...G.. 133,1,96,142,174,3...L..162,2,3
2,198,255,162,1,32,228,255,202,208,250,3
2,204,255,96,-1...
> CLICK IMAGE PREVIEW FOR FULL MODAL