SING FILE COPY
FILE INFORMATION
FILENAME(S): SING FILE COPY
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-02 16:54:40
APPEARS ON: 1 disk(s)
FILE HASH
ef0f24164260d57e1b9bb115960b79a6f7cf8cf4ec8e4526580c61c9b1c9b6a6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C 64 MENUE | SING FILE COPY | PRG | Treasure Chest - Reamigation | 33 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 04 00 89 31 30 30 00 24 08 05 00 97 |.......100.$....|
00000010: 35 33 32 36 35 2C 31 31 3A 98 31 35 2C 22 55 49 |53265,11:.15,"UI|
00000020: 2D 22 3A 8E 00 3E 08 06 00 97 35 33 32 36 35 2C |-":..>....53265,|
00000030: 32 37 3A 98 31 35 2C 22 55 49 2B 22 3A 8E 00 51 |27:.15,"UI+":..Q|
00000040: 08 64 00 97 35 35 2C 30 3A 97 35 36 2C 32 34 3A |.d..55,0:.56,24:|
00000050: 9C 00 64 08 65 00 50 47 B2 32 34 3A 4D 58 B2 C2 |..d.e.PG.24:MX..|
00000060: 28 35 36 29 00 79 08 66 00 5A 24 B2 C7 28 30 29 |(56).y.f.Z$..(0)|
00000070: 3A 51 24 B2 C7 28 33 34 29 00 91 08 67 00 97 35 |:Q$..(34)...g..5|
00000080: 33 32 38 30 2C 31 35 3A 97 35 33 32 38 31 2C 31 |3280,15:.53281,1|
00000090: 35 00 A1 08 68 00 99 C7 28 31 34 29 3B C7 28 38 |5...h...(14);.(8|
000000A0: 29 00 B9 08 69 00 86 46 24 28 4D 58 29 2C 46 28 |)...i..F$(MX),F(|
000000B0: 4D 58 29 2C 54 28 4D 58 29 00 D2 08 6A 00 81 49 |MX),T(MX)...j..I|
000000C0: B2 38 32 38 A4 39 32 32 3A 87 41 3A 97 49 2C 41 |.828.922:.A:.I,A|
000000D0: 3A 82 00 06 09 6B 00 99 22 93 90 11 D3 C9 CE C7 |:....k..".......|
000000E0: CC C5 20 C4 C9 D3 CB 20 C6 C9 CC C5 20 C3 CF D0 |.. .... .... ...|
000000F0: C9 C5 D2 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00000100: 20 20 20 20 22 3B 00 37 09 6C 00 99 22 A3 A3 A3 | ";.7.l.."...|
00000110: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000120: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000130: A3 A3 A3 A3 A3 22 3B 00 69 09 6D 00 99 22 11 D0 |.....";.i.m.."..|
00000140: 4C 45 41 53 45 20 49 4E 53 45 52 54 20 54 48 45 |LEASE INSERT THE|
00000150: 20 1C D3 CF D5 D2 C3 C5 90 20 20 44 49 53 4B 45 | ........ DISKE|
00000160: 54 54 45 20 49 4E 54 4F 22 00 9A 09 6E 00 99 22 |TTE INTO"...n.."|
00000170: 54 48 45 20 44 49 53 4B 20 44 52 49 56 45 20 41 |THE DISK DRIVE A|
00000180: 4E 44 20 50 52 45 53 53 20 54 48 45 20 12 D2 C5 |ND PRESS THE ...|
00000190: D4 D5 D2 CE 92 20 4B 45 59 22 00 B1 09 6F 00 A1 |..... KEY"...o..|
000001A0: 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 31 31 |A$:.A$...(13).11|
000001B0: 31 00 C3 09 70 00 9F 31 35 2C 38 2C 31 35 2C 22 |1...p..15,8,15,"|
000001C0: 49 30 22 00 E9 09 71 00 85 22 11 20 C6 49 4C 45 |I0"...q..". .ILE|
000001D0: 4E 41 4D 45 53 20 54 4F 20 4D 41 54 43 48 20 3F |NAMES TO MATCH ?|
000001E0: 20 2A 9D 9D 9D 22 3B 46 24 00 05 0A 72 00 8B C9 | *...";F$...r...|
000001F0: 28 46 24 2C 31 29 B3 B1 22 2A 22 A7 46 24 B2 46 |(F$,1).."*".F$.F|
00000200: 24 AA 22 2A 22 00 15 0A 73 00 8D 31 39 33 3A 8B |$."*"...s..193:.|
00000210: 45 89 31 38 39 00 2E 0A 74 00 9F 31 2C 38 2C 30 |E.189...t..1,8,0|
00000220: 2C 22 24 30 3A 22 AA 46 24 3A 8D 31 39 33 00 64 |,"$0:".F$:.193.d|
00000230: 0A 75 00 8B 45 A7 99 22 11 1D 1D 1D 1D 12 9A 20 |.u..E.."....... |
00000240: 49 4D 50 4F 53 53 49 42 4C 45 20 54 4F 20 52 45 |IMPOSSIBLE TO RE|
00000250: 41 44 20 44 49 52 45 43 54 4F 52 59 20 92 22 3A |AD DIRECTORY .":|
00000260: 89 31 38 39 00 9B 0A 76 00 99 22 20 11 27 1C 59 |.189...v.." .'.Y|
00000270: 90 27 20 54 4F 20 43 4F 50 59 20 46 49 4C 45 20 |.' TO COPY FILE |
00000280: 20 20 20 27 1C 4E 90 27 20 54 4F 20 52 45 4A 45 | '.N.' TO REJE|
00000290: 43 54 20 46 49 4C 45 20 20 22 3B 00 D2 0A 77 00 |CT FILE ";...w.|
000002A0: 99 22 27 1C 52 45 54 55 52 4E 90 27 20 54 4F 20 |."'.RETURN.' TO |
000002B0: 42 45 47 49 4E 20 43 4F 50 59 20 20 20 27 1C C1 |BEGIN COPY '..|
000002C0: 90 27 20 54 4F 20 41 42 4F 52 54 20 43 4F 50 59 |.' TO ABORT COPY|
000002D0: 11 22 00 EE 0A 78 00 A1 23 31 2C 41 24 2C 42 24 |."...x..#1,A$,B$|
000002E0: 3A 4E B2 30 3A 41 44 B2 50 47 AC 32 35 36 00 07 |:N.0:AD.PG.256..|
000002F0: 0B 79 00 A1 23 31 2C 41 24 2C 42 24 3A 8B 42 24 |.y..#1,A$,B$:.B$|
00000300: B2 22 22 89 31 34 32 00 1B 0B 7A 00 A1 23 31 2C |."".142...z..#1,|
00000310: 41 24 2C 42 24 3A 46 24 B2 22 22 00 38 0B 7B 00 |A$,B$:F$."".8.{.|
00000320: 53 5A B2 C6 28 41 24 AA 5A 24 29 AA C6 28 42 24 |SZ..(A$.Z$)..(B$|
00000330: AA 5A 24 29 AC 32 35 36 00 4E 0B 7C 00 A1 23 31 |.Z$).256.N.|..#1|
00000340: 2C 41 24 3A 8B 36 34 AF 53 54 89 31 34 32 00 5E |,A$:.64.ST.142.^|
00000350: 0B 7D 00 8B 41 24 B3 B1 51 24 89 31 32 34 00 7F |.}..A$..Q$.124..|
00000360: 0B 7E 00 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 51 |.~..#1,A$:.A$..Q|
00000370: 24 A7 46 24 B2 46 24 AA 41 24 3A 89 31 32 36 00 |$.F$.F$.A$:.126.|
00000380: 97 0B 7F 00 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 |.....#1,A$:.A$..|
00000390: 22 20 22 89 31 32 37 00 AE 0B 80 00 A1 23 31 2C |" ".127......#1,|
000003A0: 54 24 3A 8B 54 24 B2 22 20 22 89 31 32 38 00 C5 |T$:.T$." ".128..|
000003B0: 0B 81 00 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 |....#1,A$:.A$.."|
000003C0: 22 89 31 32 39 00 E5 0B 82 00 8B 53 5A B2 30 B0 |".129......SZ.0.|
000003D0: 28 54 24 B3 B1 22 50 22 AF 54 24 B3 B1 22 53 22 |(T$.."P".T$.."S"|
000003E0: 29 89 31 32 31 00 01 0C 83 00 99 53 5A 3B A3 35 |).121......SZ;.5|
000003F0: 29 54 24 22 20 22 51 24 46 24 51 24 A3 32 36 29 |)T$" "Q$F$Q$.26)|
00000400: 3B 00 2B 0C 84 00 8B 41 44 AA 53 5A AC 32 35 36 |;.+....AD.SZ.256|
00000410: B1 36 35 35 33 35 A7 99 22 1C 12 D4 CF CF 20 CC |.65535.."..... .|
00000420: C1 D2 C7 C5 90 22 3A 89 31 32 31 00 48 0C 85 00 |.....":.121.H...|
00000430: 99 22 5F 20 12 59 3A 4E 3A 52 3A 41 3F 92 9D 9D |."_ .Y:N:R:A?...|
00000440: 9D 9D 9D 9D 9D 9D 22 3B 00 5B 0C 86 00 A1 41 24 |......";.[....A$|
00000450: 3A 8B 41 24 B2 22 22 89 31 33 34 00 7D 0C 87 00 |:.A$."".134.}...|
00000460: 8B 41 24 B2 22 4E 22 A7 99 22 9A 52 45 4A 45 43 |.A$."N"..".REJEC|
00000470: 54 20 46 49 4C 45 90 22 3A 89 31 32 31 00 A0 0C |T FILE.":.121...|
00000480: 88 00 8B 41 24 B2 C7 28 31 33 29 A7 99 22 9A 42 |...A$..(13)..".B|
00000490: 45 47 49 4E 20 43 4F 50 59 90 22 3A 89 31 34 32 |EGIN COPY.":.142|
000004A0: 00 C1 0C 89 00 8B 41 24 B2 22 41 22 A7 99 22 9A |......A$."A"..".|
000004B0: 41 42 4F 52 54 20 43 4F 50 59 90 22 3A 89 31 38 |ABORT COPY.":.18|
000004C0: 36 00 D2 0C 8A 00 8B 41 24 B3 B1 22 59 22 89 31 |6......A$.."Y".1|
000004D0: 33 34 00 FC 0C 8B 00 4E B2 4E AA 31 3A 46 24 28 |34.....N.N.1:F$(|
000004E0: 4E 29 B2 46 24 AA 22 2C 22 AA 54 24 3A 99 22 9A |N).F$.",".T$:.".|
000004F0: 43 4F 50 59 20 46 49 4C 45 90 20 22 00 17 0D 8C |COPY FILE. "....|
00000500: 00 41 44 B2 41 44 AA 53 5A AC 32 35 36 3A 8B 4E |.AD.AD.SZ.256:.N|
00000510: B3 4D 58 89 31 32 31 00 38 0D 8D 00 99 22 11 20 |.MX.121.8....". |
00000520: 12 CD 41 58 49 4D 55 4D 20 4F 46 22 3B 4D 58 3B |..AXIMUM OF";MX;|
00000530: 22 46 49 4C 45 53 2E 22 00 62 0D 8E 00 A0 31 3A |"FILES.".b....1:|
00000540: 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |."............";|
00000550: 4E 3B 22 46 49 4C 45 53 20 54 4F 20 52 45 41 44 |N;"FILES TO READ|
00000560: 11 22 00 79 0D 8F 00 41 44 B2 50 47 AC 32 35 36 |.".y...AD.PG.256|
00000570: 3A 8B 4E B2 30 89 31 38 39 00 84 0D 90 00 81 49 |:.N.0.189......I|
00000580: B2 31 A4 4E 00 9F 0D 91 00 99 22 20 22 3B 51 24 |.1.N......" ";Q$|
00000590: 3B 46 24 28 49 29 3B 51 24 3B A3 32 30 29 3B 00 |;F$(I);Q$;.20);.|
000005A0: B0 0D 92 00 53 5A B2 B5 28 41 44 AD 32 35 36 29 |....SZ..(AD.256)|
000005B0: 00 CB 0D 93 00 97 32 35 31 2C 41 44 AB 53 5A AC |......251,AD.SZ.|
000005C0: 32 35 36 3A 97 32 35 32 2C 53 5A 00 E6 0D 94 00 |256:.252,SZ.....|
000005D0: 9F 31 2C 38 2C 32 2C 22 30 3A 22 AA 46 24 28 49 |.1,8,2,"0:".F$(I|
000005E0: 29 3A 8D 31 39 33 00 FE 0D 95 00 8B 45 B2 37 34 |):.193......E.74|
000005F0: A7 A0 31 3A 4E B2 49 AB 31 3A 89 31 35 37 00 16 |..1:N.I.1:.157..|
00000600: 0E 96 00 8B 45 A7 A0 31 3A 46 24 28 49 29 B2 22 |....E..1:F$(I)."|
00000610: 22 3A 89 31 35 36 00 3E 0E 97 00 8D 35 3A 9E 38 |":.156.>....5:.8|
00000620: 33 31 3A 8D 31 39 33 3A A0 31 3A 8D 36 3A 8B 45 |31:.193:.1:.6:.E|
00000630: B2 37 34 A7 4E B2 49 AB 31 3A 89 31 35 37 00 53 |.74.N.I.1:.157.S|
00000640: 0E 98 00 8B 45 A7 46 24 28 49 29 B2 22 22 3A 89 |....E.F$(I)."":.|
00000650: 31 35 36 00 80 0E 99 00 8B C2 28 32 35 32 29 B2 |156.......(252).|
00000660: 32 30 38 A7 46 24 28 49 29 B2 22 22 3A 99 22 12 |208.F$(I)."":.".|
00000670: D4 CF CF 20 CC C1 D2 C7 C5 92 22 3A 89 31 35 36 |... ......":.156|
00000680: 00 A9 0E 9A 00 46 28 49 29 B2 41 44 3A 41 44 B2 |.....F(I).AD:AD.|
00000690: C2 28 32 35 31 29 AA C2 28 32 35 32 29 AC 32 35 |.(251)..(252).25|
000006A0: 36 3A 54 28 49 29 B2 41 44 00 D6 0E 9B 00 99 C9 |6:T(I).AD.......|
000006B0: 28 22 20 20 20 22 AA C4 28 54 28 49 29 AB 46 28 |(" "..(T(I).F(|
000006C0: 49 29 29 2C 35 29 3B 22 20 42 59 54 45 53 20 4F |I)),5);" BYTES O|
000006D0: 46 20 4D 45 4D 22 00 DD 0E 9C 00 82 49 00 EA 0E |F MEM"......I...|
000006E0: 9D 00 8B 4E B2 30 89 31 38 39 00 1B 0F 9E 00 99 |...N.0.189......|
000006F0: 22 11 D0 4C 45 41 53 45 20 49 4E 53 45 52 54 20 |"..LEASE INSERT |
00000700: 54 48 45 20 1C C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE |THE ............|
00000710: 90 20 44 49 53 4B 45 54 54 45 22 00 4A 0F 9F 00 |. DISKETTE".J...|
00000720: 85 22 11 1D 1D 1D 1D 1D 1D 1D 1C C6 CF D2 CD C1 |."..............|
00000730: D4 90 20 54 48 49 53 20 44 49 53 4B 45 54 54 45 |.. THIS DISKETTE|
00000740: 20 20 4E 9D 9D 9D 22 3B 41 24 00 50 0F A0 00 99 | N...";A$.P....|
00000750: 00 61 0F A1 00 8B 41 24 B3 B1 22 59 22 89 31 36 |.a....A$.."Y".16|
00000760: 35 00 7C 0F A2 00 85 22 20 C4 49 53 4B 20 4E 41 |5.|...." .ISK NA|
00000770: 4D 45 2C 49 44 22 3B 46 24 2C 54 24 00 94 0F A3 |ME,ID";F$,T$....|
00000780: 00 98 31 35 2C 22 4E 30 3A 22 AA 46 24 AA 22 2C |..15,"N0:".F$.",|
00000790: 22 AA 54 24 00 A6 0F A4 00 99 3A 8D 31 39 33 3A |".T$......:.193:|
000007A0: 8B 45 89 31 35 37 00 B1 0F A5 00 81 49 B2 31 A4 |.E.157......I.1.|
000007B0: 4E 00 C3 0F A6 00 8B 46 24 28 49 29 B2 22 22 89 |N......F$(I)."".|
000007C0: 31 38 33 00 DE 0F A7 00 99 22 20 22 3B 51 24 3B |183......" ";Q$;|
000007D0: 46 24 28 49 29 3B 51 24 3B A3 32 30 29 3B 00 F4 |F$(I);Q$;.20);..|
000007E0: 0F A8 00 9F 31 2C 38 2C 32 2C 46 24 28 49 29 AA |....1,8,2,F$(I).|
000007F0: 22 2C 57 22 00 06 10 A9 00 8D 31 39 33 3A 8B 45 |",W"......193:.E|
00000800: B2 30 89 31 37 36 00 17 10 AA 00 A0 31 3A 8B 45 |.0.176......1:.E|
00000810: B2 36 33 A7 31 37 32 00 34 10 AB 00 8F 20 20 43 |.63.172.4.... C|
00000820: 4C 4F 53 45 31 3A 49 46 45 3C 3E 36 33 47 4F 54 |LOSE1:IFE<>63GOT|
00000830: 4F 38 34 30 00 67 10 AC 00 99 3A 85 22 11 1D 1D |O840.g....:."...|
00000840: 1D 1D 1D 20 1C D2 C5 D0 CC C1 C3 C5 90 20 45 58 |... ......... EX|
00000850: 49 53 54 49 4E 47 20 46 49 4C 45 20 9D 3F 20 4E |ISTING FILE .? N|
00000860: 9D 9D 9D 22 3B 41 24 00 6D 10 AD 00 99 00 7E 10 |...";A$.m.....~.|
00000870: AE 00 8B 41 24 B3 B1 22 59 22 89 31 38 33 00 97 |...A$.."Y".183..|
00000880: 10 AF 00 98 31 35 2C 22 53 30 3A 22 AA 46 24 28 |....15,"S0:".F$(|
00000890: 49 29 3A 89 31 36 37 00 AA 10 B0 00 53 5A B2 B5 |I):.167.....SZ..|
000008A0: 28 46 28 49 29 AD 32 35 36 29 00 C7 10 B1 00 97 |(F(I).256)......|
000008B0: 32 35 31 2C 46 28 49 29 AB 53 5A AC 32 35 36 3A |251,F(I).SZ.256:|
000008C0: 97 32 35 32 2C 53 5A 00 DA 10 B2 00 53 5A B2 B5 |.252,SZ.....SZ..|
000008D0: 28 54 28 49 29 AD 32 35 36 29 00 F7 10 B3 00 97 |(T(I).256)......|
000008E0: 32 35 33 2C 54 28 49 29 AB 53 5A AC 32 35 36 3A |253,T(I).SZ.256:|
000008F0: 97 32 35 34 2C 53 5A 00 1D 11 B4 00 8D 35 3A 9E |.254,SZ......5:.|
00000900: 38 32 38 3A 8D 31 39 33 3A A0 31 3A 8D 36 3A 8B |828:.193:.1:.6:.|
00000910: 45 B2 37 32 B0 45 B2 37 34 89 31 38 34 00 28 11 |E.72.E.74.184.(.|
00000920: B5 00 8B 45 89 31 38 33 00 55 11 B6 00 99 C9 28 |...E.183.U.....(|
00000930: 22 20 20 20 22 AA C4 28 54 28 49 29 AB 46 28 49 |" "..(T(I).F(I|
00000940: 29 29 2C 35 29 3B 22 20 42 59 54 45 53 20 4F 46 |)),5);" BYTES OF|
00000950: 20 4D 45 4D 22 00 5C 11 B7 00 82 49 00 8C 11 B8 | MEM".\....I....|
00000960: 00 85 22 11 1D 1D 1D 1D 1D 20 D3 41 56 45 20 53 |.."...... .AVE S|
00000970: 41 4D 45 20 50 52 4F 47 52 41 4D 53 20 41 47 41 |AME PROGRAMS AGA|
00000980: 49 4E 3F 20 4E 9D 9D 9D 22 3B 41 24 00 9C 11 B9 |IN? N...";A$....|
00000990: 00 8B 41 24 B2 22 59 22 89 31 35 37 00 A7 11 BA |..A$."Y".157....|
000009A0: 00 A0 31 35 3A A0 31 00 D5 11 BB 00 85 22 11 1D |..15:.1......"..|
000009B0: 1D 1D 1D 1D 1D 20 CD 4F 52 45 20 50 52 4F 47 52 |..... .ORE PROGR|
000009C0: 41 4D 53 20 54 4F 20 43 4F 50 59 3F 20 59 9D 9D |AMS TO COPY? Y..|
000009D0: 9D 22 3B 41 24 00 EE 11 BC 00 8B 41 24 B2 22 59 |.";A$......A$."Y|
000009E0: 22 A7 20 A0 31 35 3A A0 31 3A 89 31 30 37 00 06 |". .15:.1:.107..|
000009F0: 12 BD 00 99 A3 31 34 29 22 11 C5 CE C4 20 CF C6 |.....14)".... ..|
00000A00: 20 C3 CF D0 D9 22 00 2D 12 BE 00 99 A3 37 29 22 | ....".-.....7)"|
00000A10: 11 1C D0 4C 45 41 53 45 20 52 45 4D 4F 56 45 20 |...LEASE REMOVE |
00000A20: 54 48 45 20 44 49 53 4B 45 54 54 45 22 00 4D 12 |THE DISKETTE".M.|
00000A30: BF 00 99 A3 31 31 29 22 46 52 4F 4D 20 54 48 45 |....11)"FROM THE|
00000A40: 20 44 49 53 4B 20 44 52 49 56 45 90 22 00 5A 12 | DISK DRIVE.".Z.|
00000A50: C0 00 99 C7 28 39 29 3B 3A 80 00 6D 12 C1 00 84 |....(9);:..m....|
00000A60: 31 35 2C 45 2C 45 24 2C 45 31 2C 45 32 00 78 12 |15,E,E$,E1,E2.x.|
00000A70: C2 00 8B 45 B2 30 A7 8E 00 A8 12 C3 00 45 45 24 |...E.0.......EE$|
00000A80: B2 CA 28 C4 28 45 29 2C 32 29 3A 45 31 24 B2 CA |..(.(E),2):E1$..|
00000A90: 28 C4 28 45 31 29 2C 32 29 3A 45 32 24 B2 CA 28 |(.(E1),2):E2$..(|
00000AA0: C4 28 45 32 29 2C 32 29 00 B4 12 C4 00 8B 45 B2 |.(E2),2)......E.|
00000AB0: 36 33 A7 8E 00 E5 12 C5 00 99 3A 99 22 11 1D 1D |63........:."...|
00000AC0: 1D 1D 1D 1D 1D 1D 1D 1D 1C 22 3B 45 45 24 3B 22 |.........";EE$;"|
00000AD0: 2C 22 3B 45 24 3B 22 2C 22 3B 45 31 24 3B 22 2C |,";E$;",";E1$;",|
00000AE0: 22 3B 45 32 24 00 0C 13 C6 00 83 35 36 2C 31 37 |";E2$......56,17|
00000AF0: 36 2C 33 38 2C 31 36 32 2C 31 2C 33 32 2C 31 39 |6,38,162,1,32,19|
00000B00: 38 2C 32 35 35 2C 33 32 2C 32 32 38 00 33 13 C7 |8,255,32,228.3..|
00000B10: 00 83 32 35 35 2C 31 36 30 2C 30 2C 33 32 2C 31 |..255,160,0,32,1|
00000B20: 34 33 2C 33 2C 31 34 35 2C 32 35 31 2C 33 32 2C |43,3,145,251,32,|
00000B30: 31 34 39 00 5B 13 C8 00 83 33 2C 32 33 30 2C 32 |149.[....3,230,2|
00000B40: 35 31 2C 32 30 38 2C 37 2C 32 33 30 2C 32 35 32 |51,208,7,230,252|
00000B50: 2C 31 34 31 2C 33 32 2C 32 30 38 00 83 13 C9 00 |,141,32,208.....|
00000B60: 83 32 34 30 2C 36 2C 31 36 35 2C 31 34 34 2C 34 |.240,6,165,144,4|
00000B70: 31 2C 36 34 2C 32 34 30 2C 32 32 36 2C 37 36 2C |1,64,240,226,76,|
00000B80: 32 30 34 00 AA 13 CA 00 83 32 35 35 2C 31 36 32 |204......255,162|
00000B90: 2C 31 2C 33 32 2C 32 30 31 2C 32 35 35 2C 33 32 |,1,32,201,255,32|
00000BA0: 2C 31 34 33 2C 33 2C 31 36 30 00 D1 13 CB 00 83 |,143,3,160......|
00000BB0: 30 2C 31 37 37 2C 32 35 31 2C 33 32 2C 31 34 39 |0,177,251,32,149|
00000BC0: 2C 33 2C 33 32 2C 32 31 30 2C 32 35 35 2C 32 33 |,3,32,210,255,23|
00000BD0: 30 00 FB 13 CC 00 83 32 35 31 2C 32 30 38 2C 35 |0......251,208,5|
00000BE0: 2C 32 33 30 2C 32 35 32 2C 31 34 31 2C 33 32 2C |,230,252,141,32,|
00000BF0: 32 30 38 2C 31 36 35 2C 32 35 31 00 28 14 CD 00 |208,165,251.(...|
00000C00: 83 31 39 37 2C 32 35 33 2C 32 30 38 2C 32 32 38 |.197,253,208,228|
00000C10: 2C 31 36 35 2C 32 35 32 2C 31 39 37 2C 32 35 34 |,165,252,197,254|
00000C20: 2C 32 30 38 2C 32 32 32 00 50 14 CE 00 83 37 36 |,208,222.P....76|
00000C30: 2C 32 30 34 2C 32 35 35 2C 31 32 30 2C 31 36 32 |,204,255,120,162|
00000C40: 2C 35 32 2C 31 33 34 2C 31 2C 39 36 2C 31 36 32 |,52,134,1,96,162|
00000C50: 00 64 14 CF 00 83 35 35 2C 31 33 34 2C 31 2C 38 |.d....55,134,1,8|
00000C60: 38 2C 39 36 00 00 00 |8,96... |
.......100.$....53265,11:.15,"UI-":..>..
..53265,27:.15,"UI+":..Q.D..55,0:.56,24:
..D.E.PG.24:MX.B(56).Y.F.Z$.G(0):Q$.G(34
)...G..53280,15:.53281,15...H..G(14);G(8
)...I..F$(MX),F(MX),T(MX).R.J..I.828.922
:.A:.I,A:....K.."...SINGLE DISK FILE COP
IER ";.7.L.."...........
.............................";.I.M..".P
LEASE INSERT THE .SOURCE. DISKETTE INTO
"...N.."THE DISK DRIVE AND PRESS THE .RE
TURN. KEY"...O..A$:.A$..G(13).111.C.P..1
5,8,15,"I0"...Q..". FILENAMES TO MATCH ?
*...";F$...R..I(F$,1).."*".F$.F$."*"...
S..193:.E.189...T..1,8,0,"$0:".F$:.193.D
.U..E.."....... IMPOSSIBLE TO READ DIREC
TORY .":.189...V.." .'.Y.' TO COPY FILE
'.N.' TO REJECT FILE ";.R.W.."'.RETU
RN.' TO BEGIN COPY '.A.' TO ABORT COPY
."...X..#1,A$,B$:N.0:AD.PG.256...Y..#1,A
$,B$:.B$."".142...Z..#1,A$,B$:F$."".8.{.
SZ.F(A$.Z$).F(B$.Z$).256.N.|..#1,A$:.64.
ST.142.^.}..A$..Q$.124..~..#1,A$:.A$..Q
$.F$.F$.A$:.126.....#1,A$:.A$.." ".127.
.....#1,T$:.T$." ".128.E....#1,A$:.A$.."
".129......SZ.0.(T$.."P".T$.."S").121...
...SZ;.5)T$" "Q$F$Q$.26);.+....AD.SZ.256
.65535.."..TOO LARGE.":.121.H...."_ .Y:N
:R:A?.........";.[....A$:.A$."".134.}...
.A$."N"..".REJECT FILE.":.121. ....A$.G(
13)..".BEGIN COPY.":.142.A....A$."A"..".
ABORT COPY.":.186.R....A$.."Y".134.....N
.N.1:F$(N).F$.",".T$:.".COPY FILE. "....
.AD.AD.SZ.256:.N.MX.121.8....". .MAXIMUM
OF";MX;"FILES.".B... 1:."............";
N;"FILES TO READ.".Y...AD.PG.256:.N.0.18
9......I.1.N......" ";Q$;F$(I);Q$;.20);.
....SZ..(AD.256).K....251,AD.SZ.256:.252
,SZ......1,8,2,"0:".F$(I):.193......E.74
. 1:N.I.1:.157......E. 1:F$(I)."":.156.>
....5:.831:.193: 1:.6:.E.74.N.I.1:.157.S
....E.F$(I)."":.156......B(252).208.F$(I
)."":.".TOO LARGE.":.156.....F(I).AD:AD.
B(251).B(252).256:T(I).AD.V....I(" ".D
(T(I).F(I)),5);" BYTES OF MEM"......I...
...N.0.189......".PLEASE INSERT THE .DES
TINATION. DISKETTE".J....".........FORMA
T. THIS DISKETTE N...";A$.P. ...A....A$
.."Y".165.|...." DISK NAME,ID";F$,T$....
..15,"N0:".F$.",".T$......:.193:.E.157..
....I.1.N.C....F$(I)."".183......" ";Q$;
F$(I);Q$;.20);......1,8,2,F$(I).",W"....
..193:.E.0.176..... 1:.E.63.172.4.... C
LOSE1:IFE<>63GOTO840.G....:."...... .REP
LACE. EXISTING FILE .? N...";A$.M.....~.
...A$.."Y".183......15,"S0:".F$(I):.167.
....SZ..(F(I).256).G....251,F(I).SZ.256:
.252,SZ.Z...SZ..(T(I).256)......253,T(I)
.SZ.256:.254,SZ......5:.828:.193: 1:.6:.
E.72.E.74.184.(....E.183.U....I(" ".D(
T(I).F(I)),5);" BYTES OF MEM".\....I....
.."...... SAVE SAME PROGRAMS AGAIN? N...
";A$......A$."Y".157..... 15: 1.U...."..
..... MORE PROGRAMS TO COPY? Y...";A$...
...A$."Y". 15: 1:.107.......14)".END OF
COPY".-.....7)"..PLEASE REMOVE THE DISK
ETTE".M.....11)"FROM THE DISK DRIVE.".Z.
...G(9);:..M.A..15,E,E$,E1,E2.X.B..E.0..
...C.EE$.J(D(E),2):E1$.J(D(E1),2):E2$.J(
D(E2),2)...D..E.63.....E..:."...........
.";EE$;",";E$;",";E1$;",";E2$...F..56,17
6,38,162,1,32,198,255,32,228.3.G..255,16
0,0,32,143,3,145,251,32,149.[.H..3,230,2
51,208,7,230,252,141,32,208...I..240,6,1
65,144,41,64,240,226,76,204...J..255,162
,1,32,201,255,32,143,3,160.Q.K..0,177,25
1,32,149,3,32,210,255,230...L..251,208,5
,230,252,141,32,208,165,251.(.M..197,253
,208,228,165,252,197,254,208,222.P.N..76
,204,255,120,162,52,134,1,96,162.D.O..55
,134,1,88,96...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL