FILE COPIER
FILE INFORMATION
FILENAME(S): FILE COPIER
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-01 01:48:30
APPEARS ON: 1 disk(s)
FILE HASH
f38534a9f5bdc80f73f8d6010303e803d1e27ca7c29a25fec4b69cdfe3286592
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD187 DCB 6 88 | FILE COPIER | PRG | hedning, Mattias H00r | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 1C 0C 9C 3A 89 33 31 30 33 00 27 08 |.......:.3103.'.|
00000010: 1D 0C 97 35 33 32 36 35 2C 31 31 3A 98 31 35 2C |...53265,11:.15,|
00000020: 22 55 49 2D 22 3A 8E 00 41 08 1E 0C 97 35 33 32 |"UI-":..A....532|
00000030: 36 35 2C 32 37 3A 98 31 35 2C 22 55 49 2B 22 3A |65,27:.15,"UI+":|
00000040: 8E 00 54 08 1F 0C 97 35 35 2C 30 3A 97 35 36 2C |..T....55,0:.56,|
00000050: 32 34 3A 9C 00 67 08 20 0C 50 47 B2 32 34 3A 4D |24:..g. .PG.24:M|
00000060: 58 B2 C2 28 35 36 29 00 7C 08 21 0C 5A 24 B2 C7 |X..(56).|.!.Z$..|
00000070: 28 30 29 3A 51 24 B2 C7 28 33 34 29 00 92 08 22 |(0):Q$..(34)..."|
00000080: 0C 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 |..53280,0:.53281|
00000090: 2C 30 00 A2 08 23 0C 99 C7 28 31 34 29 3B C7 28 |,0...#...(14);.(|
000000A0: 38 29 00 BA 08 24 0C 86 46 24 28 4D 58 29 2C 46 |8)...$..F$(MX),F|
000000B0: 28 4D 58 29 2C 54 28 4D 58 29 00 D3 08 25 0C 81 |(MX),T(MX)...%..|
000000C0: 49 B2 38 32 38 A4 39 32 32 3A 87 41 3A 97 49 2C |I.828.922:.A:.I,|
000000D0: 41 3A 82 00 06 09 26 0C 99 22 93 9A 11 12 20 20 |A:....&..".... |
000000E0: 20 20 20 20 20 D3 C9 CE C7 CC C5 20 C4 C9 D3 CB | ...... ....|
000000F0: 20 C6 C9 CC C5 20 C3 CF D0 C9 C5 D2 20 20 20 20 | .... ...... |
00000100: 20 20 20 20 20 22 00 39 09 27 0C 99 22 11 9E D0 | ".9.'.."...|
00000110: 4C 45 41 53 45 20 49 4E 53 45 52 54 20 54 48 45 |LEASE INSERT THE|
00000120: 20 1C D3 CF D5 D2 C3 C5 9E 20 20 44 49 53 4B 45 | ........ DISKE|
00000130: 54 54 45 20 49 4E 54 4F 22 00 6C 09 28 0C 99 22 |TTE INTO".l.(.."|
00000140: 54 48 45 20 44 49 53 4B 20 44 52 49 56 45 20 41 |THE DISK DRIVE A|
00000150: 4E 44 20 50 52 45 53 53 20 54 48 45 20 1C 12 D2 |ND PRESS THE ...|
00000160: C5 D4 D5 D2 CE 92 9E 20 4B 45 59 22 00 84 09 29 |....... KEY"...)|
00000170: 0C A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 |..A$:.A$...(13).|
00000180: 33 31 31 33 00 96 09 2A 0C 9F 31 35 2C 38 2C 31 |3113...*..15,8,1|
00000190: 35 2C 22 49 30 22 00 BE 09 2B 0C 85 22 11 20 C6 |5,"I0"...+..". .|
000001A0: 49 4C 45 4E 41 4D 45 53 20 54 4F 20 4D 41 54 43 |ILENAMES TO MATC|
000001B0: 48 20 3F 20 1C 2A 9E 9D 9D 9D 22 3B 46 24 00 DA |H ? .*....";F$..|
000001C0: 09 2C 0C 8B C9 28 46 24 2C 31 29 B3 B1 22 2A 22 |.,...(F$,1).."*"|
000001D0: A7 46 24 B2 46 24 AA 22 2A 22 00 EC 09 2D 0C 8D |.F$.F$."*"...-..|
000001E0: 33 31 39 35 3A 8B 45 89 33 31 39 31 00 06 0A 2E |3195:.E.3191....|
000001F0: 0C 9F 31 2C 38 2C 30 2C 22 24 30 3A 22 AA 46 24 |..1,8,0,"$0:".F$|
00000200: 3A 8D 33 31 39 35 00 3D 0A 2F 0C 8B 45 A7 99 22 |:.3195.=./..E.."|
00000210: 11 1D 1D 1D 1D 12 9A 20 49 4D 50 4F 53 53 49 42 |....... IMPOSSIB|
00000220: 4C 45 20 54 4F 20 52 45 41 44 20 44 49 52 45 43 |LE TO READ DIREC|
00000230: 54 4F 52 59 20 92 22 3A 89 33 31 39 31 00 75 0A |TORY .":.3191.u.|
00000240: 30 0C 99 22 20 11 9E 27 1C C3 9E 27 20 54 4F 20 |0.." ..'...' TO |
00000250: 43 4F 50 59 20 46 49 4C 45 20 20 20 20 27 1C D2 |COPY FILE '..|
00000260: 9E 27 20 54 4F 20 52 45 4A 45 43 54 20 46 49 4C |.' TO REJECT FIL|
00000270: 45 20 20 22 3B 00 A8 0A 31 0C 99 22 27 1C C2 9E |E ";...1.."'...|
00000280: 27 20 54 4F 20 42 45 47 49 4E 20 43 4F 50 59 20 |' TO BEGIN COPY |
00000290: 20 20 27 1C C1 9E 27 20 54 4F 20 41 42 4F 52 54 | '...' TO ABORT|
000002A0: 20 43 4F 50 59 11 1E 22 00 C4 0A 32 0C A1 23 31 | COPY.."...2..#1|
000002B0: 2C 41 24 2C 42 24 3A 4E B2 30 3A 41 44 B2 50 47 |,A$,B$:N.0:AD.PG|
000002C0: AC 32 35 36 00 DE 0A 33 0C A1 23 31 2C 41 24 2C |.256...3..#1,A$,|
000002D0: 42 24 3A 8B 42 24 B2 22 22 89 33 31 34 34 00 F2 |B$:.B$."".3144..|
000002E0: 0A 34 0C A1 23 31 2C 41 24 2C 42 24 3A 46 24 B2 |.4..#1,A$,B$:F$.|
000002F0: 22 22 00 0F 0B 35 0C 53 5A B2 C6 28 41 24 AA 5A |""...5.SZ..(A$.Z|
00000300: 24 29 AA C6 28 42 24 AA 5A 24 29 AC 32 35 36 00 |$)..(B$.Z$).256.|
00000310: 26 0B 36 0C A1 23 31 2C 41 24 3A 8B 36 34 AF 53 |&.6..#1,A$:.64.S|
00000320: 54 89 33 31 34 34 00 37 0B 37 0C 8B 41 24 B3 B1 |T.3144.7.7..A$..|
00000330: 51 24 89 33 31 32 36 00 59 0B 38 0C A1 23 31 2C |Q$.3126.Y.8..#1,|
00000340: 41 24 3A 8B 41 24 B3 B1 51 24 A7 46 24 B2 46 24 |A$:.A$..Q$.F$.F$|
00000350: AA 41 24 3A 89 33 31 32 38 00 72 0B 39 0C A1 23 |.A$:.3128.r.9..#|
00000360: 31 2C 41 24 3A 8B 41 24 B3 B1 22 20 22 89 33 31 |1,A$:.A$.." ".31|
00000370: 32 39 00 8A 0B 3A 0C A1 23 31 2C 54 24 3A 8B 54 |29...:..#1,T$:.T|
00000380: 24 B2 22 20 22 89 33 31 33 30 00 A2 0B 3B 0C A1 |$." ".3130...;..|
00000390: 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 22 89 33 31 |#1,A$:.A$.."".31|
000003A0: 33 31 00 C3 0B 3C 0C 8B 53 5A B2 30 B0 28 54 24 |31...<..SZ.0.(T$|
000003B0: B3 B1 22 50 22 AF 54 24 B3 B1 22 53 22 29 89 33 |.."P".T$.."S").3|
000003C0: 31 32 33 00 DF 0B 3D 0C 99 53 5A 3B A3 35 29 54 |123...=..SZ;.5)T|
000003D0: 24 22 20 22 51 24 46 24 51 24 A3 32 36 29 3B 00 |$" "Q$F$Q$.26);.|
000003E0: 0A 0C 3E 0C 8B 41 44 AA 53 5A AC 32 35 36 B1 36 |..>..AD.SZ.256.6|
000003F0: 35 35 33 35 A7 99 22 1C 12 D4 CF CF 20 CC C1 D2 |5535.."..... ...|
00000400: C7 C5 1E 22 3A 89 33 31 32 33 00 28 0C 3F 0C 99 |...":.3123.(.?..|
00000410: 22 1C 5F 20 12 43 3A 52 3A 42 3A 41 3F 92 9D 9D |"._ .C:R:B:A?...|
00000420: 9D 9D 9D 9D 9D 9D 22 3B 00 3C 0C 40 0C A1 41 24 |......";.<.@..A$|
00000430: 3A 8B 41 24 B2 22 22 89 33 31 33 36 00 5F 0C 41 |:.A$."".3136._.A|
00000440: 0C 8B 41 24 B2 22 52 22 A7 99 22 9A 52 45 4A 45 |..A$."R"..".REJE|
00000450: 43 54 20 46 49 4C 45 1E 22 3A 89 33 31 32 33 00 |CT FILE.":.3123.|
00000460: 81 0C 42 0C 8B 41 24 B2 22 42 22 A7 99 22 9A 42 |..B..A$."B"..".B|
00000470: 45 47 49 4E 20 43 4F 50 59 1E 22 3A 89 33 31 34 |EGIN COPY.":.314|
00000480: 34 00 A3 0C 43 0C 8B 41 24 B2 22 41 22 A7 99 22 |4...C..A$."A".."|
00000490: 9A 41 42 4F 52 54 20 43 4F 50 59 1E 22 3A 89 33 |.ABORT COPY.":.3|
000004A0: 31 38 38 00 B5 0C 44 0C 8B 41 24 B3 B1 22 43 22 |188...D..A$.."C"|
000004B0: 89 33 31 33 36 00 DF 0C 45 0C 4E B2 4E AA 31 3A |.3136...E.N.N.1:|
000004C0: 46 24 28 4E 29 B2 46 24 AA 22 2C 22 AA 54 24 3A |F$(N).F$.",".T$:|
000004D0: 99 22 9A 43 4F 50 59 20 46 49 4C 45 1E 20 22 00 |.".COPY FILE. ".|
000004E0: FB 0C 46 0C 41 44 B2 41 44 AA 53 5A AC 32 35 36 |..F.AD.AD.SZ.256|
000004F0: 3A 8B 4E B3 4D 58 89 33 31 32 33 00 1C 0D 47 0C |:.N.MX.3123...G.|
00000500: 99 22 11 20 12 CD 41 58 49 4D 55 4D 20 4F 46 22 |.". ..AXIMUM OF"|
00000510: 3B 4D 58 3B 22 46 49 4C 45 53 2E 22 00 47 0D 48 |;MX;"FILES.".G.H|
00000520: 0C A0 31 3A 99 22 9E 11 1D 1D 1D 1D 1D 1D 1D 1D |..1:."..........|
00000530: 1D 1D 1D 22 3B 4E 3B 22 46 49 4C 45 53 20 54 4F |...";N;"FILES TO|
00000540: 20 52 45 41 44 11 22 00 5F 0D 49 0C 41 44 B2 50 | READ."._.I.AD.P|
00000550: 47 AC 32 35 36 3A 8B 4E B2 30 89 33 31 39 31 00 |G.256:.N.0.3191.|
00000560: 6A 0D 4A 0C 81 49 B2 31 A4 4E 00 86 0D 4B 0C 99 |j.J..I.1.N...K..|
00000570: 22 1E 20 22 3B 51 24 3B 46 24 28 49 29 3B 51 24 |". ";Q$;F$(I);Q$|
00000580: 3B A3 32 30 29 3B 00 97 0D 4C 0C 53 5A B2 B5 28 |;.20);...L.SZ..(|
00000590: 41 44 AD 32 35 36 29 00 B2 0D 4D 0C 97 32 35 31 |AD.256)...M..251|
000005A0: 2C 41 44 AB 53 5A AC 32 35 36 3A 97 32 35 32 2C |,AD.SZ.256:.252,|
000005B0: 53 5A 00 CE 0D 4E 0C 9F 31 2C 38 2C 32 2C 22 30 |SZ...N..1,8,2,"0|
000005C0: 3A 22 AA 46 24 28 49 29 3A 8D 33 31 39 35 00 E7 |:".F$(I):.3195..|
000005D0: 0D 4F 0C 8B 45 B2 37 34 A7 A0 31 3A 4E B2 49 AB |.O..E.74..1:N.I.|
000005E0: 31 3A 89 33 31 35 39 00 00 0E 50 0C 8B 45 A7 A0 |1:.3159...P..E..|
000005F0: 31 3A 46 24 28 49 29 B2 22 22 3A 89 33 31 35 38 |1:F$(I)."":.3158|
00000600: 00 30 0E 51 0C 8D 33 31 30 31 3A 9E 38 33 31 3A |.0.Q..3101:.831:|
00000610: 8D 33 31 39 35 3A A0 31 3A 8D 33 31 30 32 3A 8B |.3195:.1:.3102:.|
00000620: 45 B2 37 34 A7 4E B2 49 AB 31 3A 89 33 31 35 39 |E.74.N.I.1:.3159|
00000630: 00 46 0E 52 0C 8B 45 A7 46 24 28 49 29 B2 22 22 |.F.R..E.F$(I).""|
00000640: 3A 89 33 31 35 38 00 75 0E 53 0C 8B C2 28 32 35 |:.3158.u.S...(25|
00000650: 32 29 B2 32 30 38 A7 46 24 28 49 29 B2 22 22 3A |2).208.F$(I)."":|
00000660: 99 22 1C 12 D4 CF CF 20 CC C1 D2 C7 C5 92 22 3A |."..... ......":|
00000670: 89 33 31 35 38 00 9E 0E 54 0C 46 28 49 29 B2 41 |.3158...T.F(I).A|
00000680: 44 3A 41 44 B2 C2 28 32 35 31 29 AA C2 28 32 35 |D:AD..(251)..(25|
00000690: 32 29 AC 32 35 36 3A 54 28 49 29 B2 41 44 00 CB |2).256:T(I).AD..|
000006A0: 0E 55 0C 99 C9 28 22 20 20 20 22 AA C4 28 54 28 |.U...(" "..(T(|
000006B0: 49 29 AB 46 28 49 29 29 2C 35 29 3B 22 20 42 59 |I).F(I)),5);" BY|
000006C0: 54 45 53 20 4F 46 20 4D 45 4D 22 00 D2 0E 56 0C |TES OF MEM"...V.|
000006D0: 82 49 00 E0 0E 57 0C 8B 4E B2 30 89 33 31 38 39 |.I...W..N.0.3189|
000006E0: 00 24 0F 58 0C 97 35 33 32 38 31 2C 30 3A 97 35 |.$.X..53281,0:.5|
000006F0: 33 32 38 30 2C 30 3A 99 22 11 9E D0 4C 45 41 53 |3280,0:."...LEAS|
00000700: 45 20 49 4E 53 45 52 54 20 54 48 45 20 1C C4 C5 |E INSERT THE ...|
00000710: D3 D4 C9 CE C1 D4 C9 CF CE 9E 20 44 49 53 4B 45 |.......... DISKE|
00000720: 54 54 45 22 00 55 0F 59 0C 85 22 11 1D 1D 1D 1D |TTE".U.Y..".....|
00000730: 1D 1D 1D 1C C6 CF D2 CD C1 D4 9E 20 54 48 49 53 |........... THIS|
00000740: 20 44 49 53 4B 45 54 54 45 20 20 1C 4E 9E 9D 9D | DISKETTE .N...|
00000750: 9D 22 3B 41 24 00 5B 0F 5A 0C 99 00 6D 0F 5B 0C |.";A$.[.Z...m.[.|
00000760: 8B 41 24 B3 B1 22 59 22 89 33 31 36 37 00 88 0F |.A$.."Y".3167...|
00000770: 5C 0C 85 22 20 C4 49 53 4B 20 4E 41 4D 45 2C 49 |\.." .ISK NAME,I|
00000780: 44 22 3B 46 24 2C 54 24 00 A0 0F 5D 0C 98 31 35 |D";F$,T$...]..15|
00000790: 2C 22 4E 30 3A 22 AA 46 24 AA 22 2C 22 AA 54 24 |,"N0:".F$.",".T$|
000007A0: 00 B4 0F 5E 0C 99 3A 8D 33 31 39 35 3A 8B 45 89 |...^..:.3195:.E.|
000007B0: 33 31 35 39 00 BF 0F 5F 0C 81 49 B2 31 A4 4E 00 |3159..._..I.1.N.|
000007C0: D2 0F 60 0C 8B 46 24 28 49 29 B2 22 22 89 33 31 |..`..F$(I)."".31|
000007D0: 38 35 00 EE 0F 61 0C 99 22 1E 20 22 3B 51 24 3B |85...a..". ";Q$;|
000007E0: 46 24 28 49 29 3B 51 24 3B A3 32 30 29 3B 00 04 |F$(I);Q$;.20);..|
000007F0: 10 62 0C 9F 31 2C 38 2C 32 2C 46 24 28 49 29 AA |.b..1,8,2,F$(I).|
00000800: 22 2C 57 22 00 18 10 63 0C 8D 33 31 39 35 3A 8B |",W"...c..3195:.|
00000810: 45 B2 30 89 33 31 37 38 00 2A 10 64 0C A0 31 3A |E.0.3178.*.d..1:|
00000820: 8B 45 B2 36 33 A7 33 31 37 34 00 47 10 65 0C 8F |.E.63.3174.G.e..|
00000830: 20 20 43 4C 4F 53 45 31 3A 49 46 45 3C 3E 36 33 | CLOSE1:IFE<>63|
00000840: 47 4F 54 4F 38 34 30 00 7C 10 66 0C 99 3A 85 22 |GOTO840.|.f..:."|
00000850: 11 1D 1D 1D 1D 1D 20 1C D2 C5 D0 CC C1 C3 C5 9E |...... .........|
00000860: 20 45 58 49 53 54 49 4E 47 20 46 49 4C 45 20 9D | EXISTING FILE .|
00000870: 3F 20 1C 4E 9E 9D 9D 9D 22 3B 41 24 00 82 10 67 |? .N....";A$...g|
00000880: 0C 99 00 94 10 68 0C 8B 41 24 B3 B1 22 59 22 89 |.....h..A$.."Y".|
00000890: 33 31 38 35 00 AE 10 69 0C 98 31 35 2C 22 53 30 |3185...i..15,"S0|
000008A0: 3A 22 AA 46 24 28 49 29 3A 89 33 31 36 39 00 C1 |:".F$(I):.3169..|
000008B0: 10 6A 0C 53 5A B2 B5 28 46 28 49 29 AD 32 35 36 |.j.SZ..(F(I).256|
000008C0: 29 00 DE 10 6B 0C 97 32 35 31 2C 46 28 49 29 AB |)...k..251,F(I).|
000008D0: 53 5A AC 32 35 36 3A 97 32 35 32 2C 53 5A 00 F1 |SZ.256:.252,SZ..|
000008E0: 10 6C 0C 53 5A B2 B5 28 54 28 49 29 AD 32 35 36 |.l.SZ..(T(I).256|
000008F0: 29 00 0E 11 6D 0C 97 32 35 33 2C 54 28 49 29 AB |)...m..253,T(I).|
00000900: 53 5A AC 32 35 36 3A 97 32 35 34 2C 53 5A 00 3C |SZ.256:.254,SZ.<|
00000910: 11 6E 0C 8D 33 31 30 31 3A 9E 38 32 38 3A 8D 33 |.n..3101:.828:.3|
00000920: 31 39 35 3A A0 31 3A 8D 33 31 30 32 3A 8B 45 B2 |195:.1:.3102:.E.|
00000930: 37 32 B0 45 B2 37 34 89 33 31 38 36 00 48 11 6F |72.E.74.3186.H.o|
00000940: 0C 8B 45 89 33 31 38 35 00 75 11 70 0C 99 C9 28 |..E.3185.u.p...(|
00000950: 22 20 20 20 22 AA C4 28 54 28 49 29 AB 46 28 49 |" "..(T(I).F(I|
00000960: 29 29 2C 35 29 3B 22 20 42 59 54 45 53 20 4F 46 |)),5);" BYTES OF|
00000970: 20 4D 45 4D 22 00 7C 11 71 0C 82 49 00 AF 11 72 | MEM".|.q..I...r|
00000980: 0C 85 22 11 1D 1D 1D 1D 1D 9E 20 D3 41 56 45 20 |.."....... .AVE |
00000990: 53 41 4D 45 20 50 52 4F 47 52 41 4D 53 20 41 47 |SAME PROGRAMS AG|
000009A0: 41 49 4E 3F 20 1C 4E 9E 9D 9D 9D 22 3B 41 24 00 |AIN? .N....";A$.|
000009B0: C0 11 73 0C 8B 41 24 B2 22 59 22 89 33 31 35 39 |..s..A$."Y".3159|
000009C0: 00 CB 11 74 0C A0 31 35 3A A0 31 00 0E 12 75 0C |...t..15:.1...u.|
000009D0: 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C |.53280,0:.53281,|
000009E0: 30 3A 85 22 11 1D 1D 1D 1D 1D 1D 9E 20 CD 4F 52 |0:."........ .OR|
000009F0: 45 20 50 52 4F 47 52 41 4D 53 20 54 4F 20 43 4F |E PROGRAMS TO CO|
00000A00: 50 59 3F 20 1C 59 9E 9D 9D 9D 22 3B 41 24 00 28 |PY? .Y....";A$.(|
00000A10: 12 76 0C 8B 41 24 B2 22 59 22 A7 20 A0 31 35 3A |.v..A$."Y". .15:|
00000A20: A0 31 3A 89 33 31 31 30 00 4D 12 77 0C 99 A3 31 |.1:.3110.M.w...1|
00000A30: 30 29 22 11 11 1C 2A 2A 2A 9E 20 C5 CE C4 20 CF |0)"...***. ... .|
00000A40: C6 20 C3 CF D0 D9 20 1C 2A 2A 2A 9E 22 00 7F 12 |. .... .***."...|
00000A50: 78 0C 99 22 11 11 C9 4E 53 45 52 54 20 9A C8 2E |x.."...NSERT ...|
00000A60: C1 2E CC 2E 9E 20 44 49 53 4B 20 41 4E 44 20 50 |..... DISK AND P|
00000A70: 52 45 53 53 20 1C D2 C5 D4 D5 D2 CE 9E 2E 22 00 |RESS .........".|
00000A80: 99 12 79 0C A1 41 4E 24 3A 8B 41 4E 24 B3 B1 C7 |..y..AN$:.AN$...|
00000A90: 28 31 33 29 A7 33 31 39 33 00 B2 12 7A 0C 99 C7 |(13).3193...z...|
00000AA0: 28 39 29 3B 3A 97 35 36 2C 31 36 30 3A 89 33 33 |(9);:.56,160:.33|
00000AB0: 31 30 00 C5 12 7B 0C 84 31 35 2C 45 2C 45 24 2C |10...{..15,E,E$,|
00000AC0: 45 31 2C 45 32 00 D0 12 7C 0C 8B 45 B2 30 A7 8E |E1,E2...|..E.0..|
00000AD0: 00 00 13 7D 0C 45 45 24 B2 CA 28 C4 28 45 29 2C |...}.EE$..(.(E),|
00000AE0: 32 29 3A 45 31 24 B2 CA 28 C4 28 45 31 29 2C 32 |2):E1$..(.(E1),2|
00000AF0: 29 3A 45 32 24 B2 CA 28 C4 28 45 32 29 2C 32 29 |):E2$..(.(E2),2)|
00000B00: 00 0C 13 7E 0C 8B 45 B2 36 33 A7 8E 00 3D 13 7F |...~..E.63...=..|
00000B10: 0C 99 3A 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..:."...........|
00000B20: 1C 22 3B 45 45 24 3B 22 2C 22 3B 45 24 3B 22 2C |.";EE$;",";E$;",|
00000B30: 22 3B 45 31 24 3B 22 2C 22 3B 45 32 24 00 64 13 |";E1$;",";E2$.d.|
00000B40: 80 0C 83 35 36 2C 31 37 36 2C 33 38 2C 31 36 32 |...56,176,38,162|
00000B50: 2C 31 2C 33 32 2C 31 39 38 2C 32 35 35 2C 33 32 |,1,32,198,255,32|
00000B60: 2C 32 32 38 00 8B 13 81 0C 83 32 35 35 2C 31 36 |,228......255,16|
00000B70: 30 2C 30 2C 33 32 2C 31 34 33 2C 33 2C 31 34 35 |0,0,32,143,3,145|
00000B80: 2C 32 35 31 2C 33 32 2C 31 34 39 00 B3 13 82 0C |,251,32,149.....|
00000B90: 83 33 2C 32 33 30 2C 32 35 31 2C 32 30 38 2C 37 |.3,230,251,208,7|
00000BA0: 2C 32 33 30 2C 32 35 32 2C 31 34 31 2C 33 32 2C |,230,252,141,32,|
00000BB0: 32 30 38 00 DB 13 83 0C 83 32 34 30 2C 36 2C 31 |208......240,6,1|
00000BC0: 36 35 2C 31 34 34 2C 34 31 2C 36 34 2C 32 34 30 |65,144,41,64,240|
00000BD0: 2C 32 32 36 2C 37 36 2C 32 30 34 00 02 14 84 0C |,226,76,204.....|
00000BE0: 83 32 35 35 2C 31 36 32 2C 31 2C 33 32 2C 32 30 |.255,162,1,32,20|
00000BF0: 31 2C 32 35 35 2C 33 32 2C 31 34 33 2C 33 2C 31 |1,255,32,143,3,1|
00000C00: 36 30 00 29 14 85 0C 83 30 2C 31 37 37 2C 32 35 |60.)....0,177,25|
00000C10: 31 2C 33 32 2C 31 34 39 2C 33 2C 33 32 2C 32 31 |1,32,149,3,32,21|
00000C20: 30 2C 32 35 35 2C 32 33 30 00 53 14 86 0C 83 32 |0,255,230.S....2|
00000C30: 35 31 2C 32 30 38 2C 35 2C 32 33 30 2C 32 35 32 |51,208,5,230,252|
00000C40: 2C 31 34 31 2C 33 32 2C 32 30 38 2C 31 36 35 2C |,141,32,208,165,|
00000C50: 32 35 31 00 80 14 87 0C 83 31 39 37 2C 32 35 33 |251......197,253|
00000C60: 2C 32 30 38 2C 32 32 38 2C 31 36 35 2C 32 35 32 |,208,228,165,252|
00000C70: 2C 31 39 37 2C 32 35 34 2C 32 30 38 2C 32 32 32 |,197,254,208,222|
00000C80: 00 A8 14 88 0C 83 37 36 2C 32 30 34 2C 32 35 35 |......76,204,255|
00000C90: 2C 31 32 30 2C 31 36 32 2C 35 32 2C 31 33 34 2C |,120,162,52,134,|
00000CA0: 31 2C 39 36 2C 31 36 32 00 BC 14 89 0C 83 35 35 |1,96,162......55|
00000CB0: 2C 31 33 34 2C 31 2C 38 38 2C 39 36 00 D8 14 EE |,134,1,88,96....|
00000CC0: 0C 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 |..53280,0:.53281|
00000CD0: 2C 30 3A 99 22 93 90 22 00 F7 14 F8 0C 48 24 B2 |,0:."..".....H$.|
00000CE0: 22 44 49 53 4B 20 55 54 49 4C 49 54 49 45 53 22 |"DISK UTILITIES"|
00000CF0: 3A 97 31 39 38 2C 34 00 0E 15 0C 0D 99 22 93 11 |:.198,4......"..|
00000D00: 11 4C 4F 41 44 22 C7 28 33 34 29 48 24 3B 00 20 |.LOAD".(34)H$;. |
00000D10: 15 16 0D 99 20 C7 28 33 34 29 22 2C 38 13 22 3B |.... .(34)",8.";|
00000D20: 00 47 15 20 0D 97 36 33 31 2C 31 33 3A 97 36 33 |.G. ..631,13:.63|
00000D30: 32 2C 38 32 3A 97 36 33 33 2C 31 31 37 3A 97 36 |2,82:.633,117:.6|
00000D40: 33 34 2C 31 33 3A 80 00 00 00 |34,13:.... |
.......:.3103.'....53265,11:.15,"UI-":..
A....53265,27:.15,"UI+":..T....55,0:.56,
24:..G. .PG.24:MX.B(56).|.!.Z$.G(0):Q$.G
(34)..."..53280,0:.53281,0...#..G(14);G(
8)...$..F$(MX),F(MX),T(MX).S.%..I.828.92
2:.A:.I,A:....&..".... SINGLE DISK
FILE COPIER ".9.'.."..PLEASE IN
SERT THE .SOURCE. DISKETTE INTO".L.(.."
THE DISK DRIVE AND PRESS THE ..RETURN..
KEY"...)..A$:.A$..G(13).3113...*..15,8,1
5,"I0"...+..". FILENAMES TO MATCH ? .*..
..";F$.Z.,..I(F$,1).."*".F$.F$."*"...-..
3195:.E.3191......1,8,0,"$0:".F$:.3195.=
./..E.."....... IMPOSSIBLE TO READ DIREC
TORY .":.3191.U.0.." ..'.C.' TO COPY FIL
E '.R.' TO REJECT FILE ";...1.."'.B.
' TO BEGIN COPY '.A.' TO ABORT COPY.."
.D.2..#1,A$,B$:N.0:AD.PG.256...3..#1,A$,
B$:.B$."".3144...4..#1,A$,B$:F$.""...5.S
Z.F(A$.Z$).F(B$.Z$).256.&.6..#1,A$:.64.S
T.3144.7.7..A$..Q$.3126.Y.8..#1,A$:.A$..
Q$.F$.F$.A$:.3128.R.9..#1,A$:.A$.." ".31
29...:..#1,T$:.T$." ".3130...;..#1,A$:.A
$.."".3131.C.<..SZ.0.(T$.."P".T$.."S").3
123...=..SZ;.5)T$" "Q$F$Q$.26);...>..AD.
SZ.256.65535.."..TOO LARGE.":.3123.(.?..
"._ .C:R:B:A?.........";.<.@..A$:.A$."".
3136._.A..A$."R"..".REJECT FILE.":.3123.
..B..A$."B"..".BEGIN COPY.":.3144...C..A
$."A"..".ABORT COPY.":.3188...D..A$.."C"
.3136...E.N.N.1:F$(N).F$.",".T$:.".COPY
FILE. "...F.AD.AD.SZ.256:.N.MX.3123...G.
.". .MAXIMUM OF";MX;"FILES.".G.H. 1:."..
...........";N;"FILES TO READ."._.I.AD.P
G.256:.N.0.3191.J.J..I.1.N...K..". ";Q$;
F$(I);Q$;.20);...L.SZ..(AD.256)...M..251
,AD.SZ.256:.252,SZ.N.N..1,8,2,"0:".F$(I)
:.3195...O..E.74. 1:N.I.1:.3159...P..E.
1:F$(I)."":.3158.0.Q..3101:.831:.3195: 1
:.3102:.E.74.N.I.1:.3159.F.R..E.F$(I).""
:.3158.U.S..B(252).208.F$(I)."":."..TOO
LARGE.":.3158...T.F(I).AD:AD.B(251).B(25
2).256:T(I).AD.K.U..I(" ".D(T(I).F(I))
,5);" BYTES OF MEM".R.V..I...W..N.0.3189
.$.X..53281,0:.53280,0:."..PLEASE INSERT
THE .DESTINATION. DISKETTE".U.Y..".....
....FORMAT. THIS DISKETTE .N....";A$.[.
Z...M.[..A$.."Y".3167...\.." DISK NAME,I
D";F$,T$. .]..15,"N0:".F$.",".T$...^..:.
3195:.E.3159..._..I.1.N.R.`..F$(I)."".31
85...A..". ";Q$;F$(I);Q$;.20);...B..1,8,
2,F$(I).",W"...C..3195:.E.0.3178.*.D. 1:
.E.63.3174.G.E.. CLOSE1:IFE<>63GOTO840.
|.F..:."...... .REPLACE. EXISTING FILE .
? .N....";A$...G.....H..A$.."Y".3185...I
..15,"S0:".F$(I):.3169.A.J.SZ..(F(I).256
)...K..251,F(I).SZ.256:.252,SZ...L.SZ..(
T(I).256)...M..253,T(I).SZ.256:.254,SZ.<
.N..3101:.828:.3195: 1:.3102:.E.72.E.74.
3186.H.O..E.3185.U.P..I(" ".D(T(I).F(I
)),5);" BYTES OF MEM".|.Q..I...R..".....
.. SAVE SAME PROGRAMS AGAIN? .N....";A$.
..S..A$."Y".3159.K.T. 15: 1...U..53280,0
:.53281,0:."........ MORE PROGRAMS TO CO
PY? .Y....";A$.(.V..A$."Y". 15: 1:.3110
.M.W...10)"...***. END OF COPY .***."..
X.."..INSERT .H.A.L.. DISK AND PRESS .RE
TURN.."...Y..AN$:.AN$..G(13).3193...Z..G
(9);:.56,160:.3310.E.{..15,E,E$,E1,E2.P.
|..E.0.....}.EE$.J(D(E),2):E1$.J(D(E1),2
):E2$.J(D(E2),2)...~..E.63...=...:."...
.........";EE$;",";E$;",";E1$;",";E2$.D.
...56,176,38,162,1,32,198,255,32,228....
..255,160,0,32,143,3,145,251,32,149.....
.3,230,251,208,7,230,252,141,32,208.....
.240,6,165,144,41,64,240,226,76,204.....
.255,162,1,32,201,255,32,143,3,160.)....
0,177,251,32,149,3,32,210,255,230.S....2
51,208,5,230,252,141,32,208,165,251.....
.197,253,208,228,165,252,197,254,208,222
......76,204,255,120,162,52,134,1,96,162
......55,134,1,88,96.X....53280,0:.53281
,0:."..".....H$."DISK UTILITIES":.198,4.
....."...LOAD"G(34)H$;. .... G(34)",8.";
.G. ..631,13:.632,82:.633,117:.634,13:..
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL