DUBBELCOPY 64
FILE INFORMATION
FILENAME(S): DUBBELCOPY 64
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:05:35
APPEARS ON: 1 disk(s)
FILE HASH
75fa0ac0f8d786be730d2162c748ebd4fc32c817bfd2e95b254bbcc37a2b7278
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIE | DUBBELCOPY 64 | PRG | DuncanTwain | 24 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 64 00 99 22 93 20 44 49 53 4B 2E 43 |....d..". DISK.C|
00000010: 4F 50 59 2E 36 34 00 43 08 6E 00 86 20 4C 32 28 |OPY.64.C.n.. L2(|
00000020: 32 33 32 29 2C 4C 31 25 28 32 33 32 29 2C 4E 24 |232),L1%(232),N$|
00000030: 28 32 33 32 29 2C 54 25 28 32 33 32 29 2C 54 24 |(232),T%(232),T$|
00000040: 28 34 29 00 5D 08 78 00 83 20 58 58 58 2C 53 45 |(4).].x.. XXX,SE|
00000050: 51 2C 50 52 47 2C 55 53 52 2C 52 45 4C 00 72 08 |Q,PRG,USR,REL.r.|
00000060: 82 00 81 4A B2 30 A4 34 3A 87 54 24 28 4A 29 3A |...J.0.4:.T$(J):|
00000070: 82 4A 00 8B 08 8C 00 85 22 46 52 4F 4D 20 55 4E |.J......"FROM UN|
00000080: 49 54 20 20 38 9D 9D 9D 22 3B 46 00 94 08 96 00 |IT 8...";F.....|
00000090: 8D 38 30 30 00 9E 08 A0 00 46 24 B2 44 24 00 B5 |.800.....F$.D$..|
000000A0: 08 AA 00 85 22 54 4F 20 55 4E 49 54 20 20 39 9D |...."TO UNIT 9.|
000000B0: 9D 9D 22 3B 54 00 BE 08 B4 00 8D 38 30 30 00 C8 |..";T......800..|
000000C0: 08 BE 00 54 24 B2 44 24 00 DA 08 C8 00 8B 46 B2 |...T$.D$......F.|
000000D0: 54 20 AF 46 24 B2 54 24 A7 8A 00 E3 08 D2 00 8D |T .F$.T$........|
000000E0: 38 36 30 00 03 09 DC 00 A0 31 3A A0 31 35 3A 9F |860......1:.15:.|
000000F0: 20 31 35 2C 46 2C 31 35 3A 98 31 35 2C 22 49 22 | 15,F,15:.15,"I"|
00000100: AA 46 24 00 19 09 E6 00 8D 38 33 30 3A 8B 20 45 |.F$......830:. E|
00000110: 20 A7 20 90 3A 89 32 32 30 00 31 09 F0 00 85 22 | . .:.220.1...."|
00000120: 50 41 54 54 45 52 4E 20 20 2A 9D 9D 9D 22 3B 50 |PATTERN *...";P|
00000130: 24 00 53 09 FA 00 81 4A B2 31 A4 C3 28 50 24 29 |$.S....J.1..(P$)|
00000140: 3A 8B CA 28 50 24 2C 4A 2C 31 29 B3 B1 22 2A 22 |:..(P$,J,1).."*"|
00000150: A7 82 4A 00 70 09 04 01 50 31 B2 4A AB 31 3A 8B |..J.p...P1.J.1:.|
00000160: 50 31 B1 30 A7 50 24 B2 C8 28 50 24 2C 50 31 29 |P1.0.P$..(P$,P1)|
00000170: 00 9A 09 0E 01 99 22 48 4F 4C 44 20 44 4F 57 4E |......"HOLD DOWN|
00000180: 20 27 59 27 20 4F 52 20 27 4E 27 20 4B 45 59 20 | 'Y' OR 'N' KEY |
00000190: 54 4F 20 53 45 4C 45 43 54 22 00 BA 09 18 01 99 |TO SELECT"......|
000001A0: 22 50 52 4F 47 52 41 4D 53 20 54 4F 20 42 45 20 |"PROGRAMS TO BE |
000001B0: 43 4F 50 49 45 44 2E 2E 2E 22 00 CD 09 22 01 9F |COPIED..."..."..|
000001C0: 20 31 2C 46 2C 33 2C 22 24 22 AA 46 24 00 E0 09 | 1,F,3,"$".F$...|
000001D0: 2C 01 8D 38 33 30 3A 8B 45 A7 90 3A 89 32 32 30 |,..830:.E..:.220|
000001E0: 00 F7 09 36 01 A1 23 31 2C 41 24 3A 41 B2 C6 28 |...6..#1,A$:A..(|
000001F0: 41 24 AA 22 20 22 29 00 11 0A 40 01 8B 41 B2 31 |A$." ")...@..A.1|
00000200: B0 41 B2 36 35 A7 4C 31 B2 32 35 33 3A 89 33 35 |.A.65.L1.253:.35|
00000210: 30 00 27 0A 4A 01 8B 41 B2 36 37 A7 4C 31 B2 37 |0.'.J..A.67.L1.7|
00000220: 36 31 3A 89 33 35 30 00 39 0A 54 01 A0 31 3A 99 |61:.350.9.T..1:.|
00000230: 22 3F 3F 3F 3F 3F 22 3A 90 00 4F 0A 5E 01 81 4A |"?????":..O.^..J|
00000240: B2 31 A4 4C 31 3A A1 23 31 2C 58 24 3A 82 4A 00 |.1.L1:.#1,X$:.J.|
00000250: 67 0A 68 01 4E B2 30 3A 4E 31 B2 30 3A 52 B2 32 |g.h.N.0:N1.0:R.2|
00000260: 35 35 3A 5A B2 38 39 00 86 0A 72 01 4E 24 B2 22 |55:Z.89...r.N$."|
00000270: 22 3A 8D 31 30 32 30 3A 54 39 B2 59 AB 31 32 38 |":.1020:T9.Y.128|
00000280: 3A 8D 31 30 30 30 00 B1 0A 7C 01 4A 31 B2 31 3A |:.1000...|.J1.1:|
00000290: 5A 24 B2 C7 28 31 36 30 29 3A 81 4A B2 31 A4 31 |Z$..(160):.J.1.1|
000002A0: 36 3A A1 23 31 2C 58 24 3A 4E 24 B2 4E 24 AA 58 |6:.#1,X$:N$.N$.X|
000002B0: 24 00 C2 0A 86 01 8B 58 24 B3 B1 5A 24 A7 4A 31 |$......X$..Z$.J1|
000002C0: B2 4A 00 C9 0A 90 01 82 4A 00 D8 0A 9A 01 8D 39 |.J......J......9|
000002D0: 39 30 3A 4C 31 25 B2 59 00 E6 0A A4 01 8D 39 38 |90:L1%.Y......98|
000002E0: 30 3A 8D 39 38 30 00 F5 0A AE 01 4C 32 B2 58 AA |0:.980.....L2.X.|
000002F0: 32 35 36 AC 59 00 08 0B B8 01 8B 54 39 B3 31 B0 |256.Y......T9.1.|
00000300: 54 39 B1 34 89 35 34 30 00 24 0B C2 01 8B 50 31 |T9.4.540.$....P1|
00000310: B1 30 A7 8B 50 24 B3 B1 C8 28 4E 24 2C 50 31 29 |.0..P$...(N$,P1)|
00000320: 89 35 34 30 00 37 0B CC 01 99 4E 24 3B 22 20 22 |.540.7....N$;" "|
00000330: 3B 54 24 28 54 39 29 00 46 0B D6 01 50 B2 C2 28 |;T$(T9).F...P..(|
00000340: 31 39 37 29 AF 52 00 5F 0B E0 01 A1 5A 24 3A 8B |197).R._....Z$:.|
00000350: 5A 24 B2 22 22 AF 50 B3 B1 36 34 89 35 32 30 00 |Z$."".P..64.520.|
00000360: 85 0B EA 01 8B 5A 24 B2 22 59 22 B0 5A 24 B2 22 |.....Z$."Y".Z$."|
00000370: 4E 22 A7 5A B2 C6 28 5A 24 29 3A 52 B2 32 35 35 |N".Z..(Z$):R.255|
00000380: 3A 89 35 32 30 00 9C 0B F4 01 8B 5A 24 B2 C7 28 |:.520......Z$..(|
00000390: 31 33 29 A7 52 B2 30 3A 89 35 32 30 00 A5 0B FE |13).R.0:.520....|
000003A0: 01 89 34 38 30 00 CF 0B 08 02 8B 5A B3 38 30 A7 |..480......Z.80.|
000003B0: 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
000003C0: 20 20 20 20 20 20 20 20 91 22 3A 89 35 34 30 00 | .":.540.|
000003D0: 05 0C 12 02 4E B2 4E AA 31 3A 4C 32 28 4E 29 B2 |....N.N.1:L2(N).|
000003E0: 4C 32 3A 4E 24 28 4E 29 B2 C8 28 4E 24 2C 4A 31 |L2:N$(N)..(N$,J1|
000003F0: 29 3A 54 25 28 4E 29 B2 54 39 3A 4C 31 25 28 4E |):T%(N).T9:L1%(N|
00000400: 29 B2 4C 31 25 00 13 0C 1C 02 8B 53 54 B1 30 89 |).L1%......ST.0.|
00000410: 35 37 30 00 2F 0C 26 02 4E 31 B2 4E 31 AA 31 3A |570./.&.N1.N1.1:|
00000420: 8B 4E 31 B2 38 A7 4E 31 B2 30 3A 89 33 37 30 00 |.N1.8.N1.0:.370.|
00000430: 3E 0C 30 02 8D 31 30 30 30 3A 89 33 37 30 00 57 |>.0..1000:.370.W|
00000440: 0C 3A 02 A0 31 3A A0 31 35 3A 99 22 20 2A 20 2A |.:..1:.15:." * *|
00000450: 20 2A 20 2A 20 2A 22 00 62 0C 44 02 81 4A B2 31 | * * *".b.D..J.1|
00000460: A4 4E 00 82 0C 4E 02 4C 32 B2 4C 32 28 4A 29 3A |.N...N.L2.L2(J):|
00000470: 54 25 B2 54 25 28 4A 29 3A 8B 4C B1 4C 32 89 36 |T%.T%(J):.L.L2.6|
00000480: 34 30 00 9E 0C 58 02 99 22 2A 2A 2A 20 4F 55 54 |40...X.."*** OUT|
00000490: 50 55 54 20 44 49 53 4B 20 46 55 4C 4C 22 00 BE |PUT DISK FULL"..|
000004A0: 0C 62 02 85 22 44 4F 20 59 4F 55 20 48 41 56 45 |.b.."DO YOU HAVE|
000004B0: 20 41 20 4E 45 57 20 4F 4E 45 22 3B 5A 24 00 CF | A NEW ONE";Z$..|
000004C0: 0C 6C 02 8B C6 28 5A 24 29 B3 B1 38 39 A7 80 00 |.l...(Z$)..89...|
000004D0: DD 0C 76 02 8D 38 36 30 3A 89 35 39 30 00 F3 0C |..v..860:.590...|
000004E0: 80 02 9F 31 34 2C 46 2C 31 35 3A 9F 31 35 2C 54 |...14,F,15:.15,T|
000004F0: 2C 31 35 00 21 0D 8A 02 99 4E 24 28 4A 29 3B C8 |,15.!....N$(J);.|
00000500: 28 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |(" |
00000510: 20 20 22 2C 31 37 AB C3 28 4E 24 28 4A 29 29 29 | ",17..(N$(J)))|
00000520: 3B 00 44 0D 94 02 9F 33 2C 46 2C 33 2C 46 24 AA |;.D....3,F,3,F$.|
00000530: 22 3A 22 AA 4E 24 28 4A 29 AA 22 2C 22 AA 54 24 |":".N$(J).",".T$|
00000540: 28 54 25 29 00 70 0D 9E 02 84 31 34 2C 45 2C 45 |(T%).p....14,E,E|
00000550: 24 2C 45 31 2C 45 32 3A 8D 38 34 30 3A 8B 45 A7 |$,E1,E2:.840:.E.|
00000560: 99 22 2A 2A 20 22 3B 45 24 3B 45 3A 89 37 35 30 |."** ";E$;E:.750|
00000570: 00 A3 0D A8 02 8B 54 25 B2 34 A7 9F 34 2C 54 2C |......T%.4..4,T,|
00000580: 34 2C 54 24 AA 22 3A 22 AA 4E 24 28 4A 29 AA 22 |4,T$.":".N$(J)."|
00000590: 2C 4C 2C 22 AA C7 28 4C 31 25 28 4A 29 29 3A 89 |,L,"..(L1%(J)):.|
000005A0: 37 30 30 00 CB 0D B2 02 9F 34 2C 54 2C 34 2C 54 |700......4,T,4,T|
000005B0: 24 AA 22 3A 22 AA 4E 24 28 4A 29 AA 22 2C 22 AA |$.":".N$(J).",".|
000005C0: 54 24 28 54 25 29 AA 22 2C 57 22 00 F0 0D BC 02 |T$(T%).",W".....|
000005D0: 4C B2 4C AB 4C 32 3A 8D 38 33 30 3A 8B 45 A7 99 |L.L.L2:.830:.E..|
000005E0: 22 2A 2A 2A 20 22 3B 45 24 3B 45 3A 89 37 35 30 |"*** ";E$;E:.750|
000005F0: 00 05 0E C6 02 8B 54 25 B2 34 A7 9E 34 33 39 35 |......T%.4..4395|
00000600: 3A 89 37 33 30 00 0F 0E D0 02 9E 34 33 35 32 00 |:.730......4352.|
00000610: 37 0E DA 02 4E 24 28 4A 29 B2 22 22 3A 8D 38 33 |7...N$(J)."":.83|
00000620: 30 3A 8B 45 A7 99 22 2A 2A 2A 2A 20 22 3B 45 24 |0:.E.."**** ";E$|
00000630: 3B 45 3A 89 37 35 30 00 40 0E E4 02 99 22 91 22 |;E:.750.@...."."|
00000640: 00 52 0E EE 02 A0 34 3A A0 33 3A A0 31 35 3A A0 |.R....4:.3:.15:.|
00000650: 31 34 00 59 0E F8 02 82 4A 00 83 0E 02 03 58 B2 |14.Y....J.....X.|
00000660: B8 28 30 29 3A 85 22 41 4E 4F 54 48 45 52 20 49 |.(0):."ANOTHER I|
00000670: 4E 50 55 54 20 44 49 53 4B 20 52 45 41 44 59 22 |NPUT DISK READY"|
00000680: 3B 5A 24 00 95 0E 0C 03 8B C6 28 5A 24 29 B2 38 |;Z$.......(Z$).8|
00000690: 39 89 32 32 30 00 9B 0E 16 03 80 00 B0 0E 20 03 |9.220......... .|
000006A0: 85 22 44 52 49 56 45 20 20 30 9D 9D 9D 22 3B 44 |."DRIVE 0...";D|
000006B0: 00 C0 0E 2A 03 8B 44 AC 44 B3 B1 44 89 38 30 30 |...*..D.D..D.800|
000006C0: 00 D1 0E 34 03 44 24 B2 C7 28 44 AA 34 38 29 3A |...4.D$..(D.48):|
000006D0: 8E 00 E4 0E 3E 03 84 31 35 2C 45 2C 45 24 2C 45 |....>..15,E,E$,E|
000006E0: 31 2C 45 32 00 04 0F 48 03 8B 45 B2 30 A7 45 B2 |1,E2...H..E.0.E.|
000006F0: 28 53 54 20 AF 20 31 39 31 29 3A 45 24 B2 22 2A |(ST . 191):E$."*|
00000700: 53 54 2A 22 00 0A 0F 52 03 8E 00 3F 0F 5C 03 9F |ST*"...R...?.\..|
00000710: 31 35 2C 54 2C 31 35 3A 85 22 57 41 4E 54 20 54 |15,T,15:."WANT T|
00000720: 4F 20 4E 45 57 20 54 48 45 20 4F 55 54 50 55 54 |O NEW THE OUTPUT|
00000730: 20 44 49 53 4B 20 20 4E 9D 9D 9D 22 3B 5A 24 00 | DISK N...";Z$.|
00000740: 52 0F 66 03 8B C6 28 5A 24 29 B3 B1 38 39 89 39 |R.f...(Z$)..89.9|
00000750: 31 30 00 6C 0F 70 03 85 22 44 49 53 4B 20 4E 41 |10.l.p.."DISK NA|
00000760: 4D 45 2C 49 44 22 3B 58 24 2C 59 24 00 89 0F 7A |ME,ID";X$,Y$...z|
00000770: 03 98 31 35 2C 22 4E 22 AA 54 24 AA 22 3A 22 AA |..15,"N".T$.":".|
00000780: 58 24 AA 22 2C 22 AA 59 24 00 9C 0F 84 03 8D 38 |X$.",".Y$......8|
00000790: 33 30 3A 8B 45 A7 90 3A 89 38 36 30 00 C2 0F 8E |30:.E..:.860....|
000007A0: 03 98 31 35 2C 22 49 22 AA 54 24 3A 9F 31 2C 54 |..15,"I".T$:.1,T|
000007B0: 2C 30 2C 22 24 22 AA 54 24 AA 22 3A 21 23 24 25 |,0,"$".T$.":!#$%|
000007C0: 26 22 00 D5 0F 98 03 8D 38 33 30 3A 8B 45 A7 90 |&"......830:.E..|
000007D0: 3A 89 38 36 30 00 E3 0F A2 03 8D 39 38 30 3A 8D |:.860......980:.|
000007E0: 39 38 30 00 00 10 AC 03 51 B2 51 AA 31 3A A1 23 |980.....Q.Q.1:.#|
000007F0: 31 2C 58 24 3A 8B 58 24 B3 B1 22 22 89 39 34 30 |1,X$:.X$.."".940|
00000800: 00 09 10 B6 03 8D 39 38 30 00 2E 10 C0 03 4C B2 |......980.....L.|
00000810: 58 AA 59 AC 32 35 36 3A 99 22 28 22 3B 4C 3B 22 |X.Y.256:."(";L;"|
00000820: 42 4C 4F 43 4B 53 20 46 52 45 45 20 29 22 00 3B |BLOCKS FREE )".;|
00000830: 10 CA 03 A0 31 3A A0 31 35 3A 8E 00 46 10 D4 03 |....1:.15:..F...|
00000840: A1 23 31 2C 58 24 00 51 10 DE 03 A1 23 31 2C 58 |.#1,X$.Q....#1,X|
00000850: 24 00 5C 10 E8 03 A1 23 31 2C 58 24 00 73 10 F2 |$.\....#1,X$.s..|
00000860: 03 58 B2 C3 28 58 24 29 3A 8B 58 A7 58 B2 C6 28 |.X..(X$):.X.X..(|
00000870: 58 24 29 00 91 10 FC 03 A1 23 31 2C 58 24 3A 59 |X$)......#1,X$:Y|
00000880: B2 C3 28 58 24 29 3A 8B 59 A7 59 B2 C6 28 58 24 |..(X$):.Y.Y..(X$|
00000890: 29 00 97 10 06 04 8E 00 00 00 A7 59 B2 C6 28 58 |)..........Y..(X|
000008A0: 24 29 00 AE 0C 06 04 8E 00 00 00 00 00 00 00 00 |$)..............|
000008B0: 00 00 00 00 00 00 00 00 00 00 20 CC FF A2 03 20 |.......... .... |
000008C0: C6 FF 20 73 0D 8E 40 02 A5 96 8D 41 02 20 CC FF |.. s..@....A. ..|
000008D0: A2 04 20 C9 FF AE 40 02 20 61 0D AD 41 02 F0 DA |.. ...@. a..A...|
000008E0: 85 96 4C CC FF A9 00 85 5F 85 60 20 CC 0D EA 00 |..L....._.` ....|
....D..". DISK.COPY.64.C.N.. L2(232),L1%
(232),N$(232),T%(232),T$(4).].X.. XXX,SE
Q,PRG,USR,REL.R....J.0.4:.T$(J):.J......
"FROM UNIT 8...";F......800... .F$.D$..
...."TO UNIT 9...";T......800.H...T$.D$
.Z.H..F.T .F$.T$.....R..860..... 1: 15:.
15,F,15:.15,"I".F$......830:. E . .:.22
0.1...."PATTERN *...";P$.S....J.1.C(P$)
:.J(P$,J,1).."*"..J.P...P1.J.1:.P1.0.P$.
H(P$,P1)......"HOLD DOWN 'Y' OR 'N' KEY
TO SELECT"......"PROGRAMS TO BE COPIED..
.".M.".. 1,F,3,"$".F$...,..830:.E..:.220
...6..#1,A$:A.F(A$." ")...@..A.1.A.65.L1
.253:.350.'.J..A.67.L1.761:.350.9.T. 1:.
"?????":..O.^..J.1.L1:.#1,X$:.J.G.H.N.0:
N1.0:R.255:Z.89...R.N$."":.1020:T9.Y.128
:.1000...|.J1.1:Z$.G(160):.J.1.16:.#1,X$
:N$.N$.X$.B....X$..Z$.J1.J.I....J.X....9
90:L1%.Y......980:.980.....L2.X.256.Y...
...T9.1.T9.4.540.$.B..P1.0..P$..H(N$,P1)
.540.7.L..N$;" ";T$(T9).F.V.P.B(197).R._
....Z$:.Z$."".P..64.520......Z$."Y".Z$."
N".Z.F(Z$):R.255:.520......Z$.G(13).R.0:
.520......480.O....Z.80..".
.":.540.....N.N.1:L2(N).L2:N$(N)
.H(N$,J1):T%(N).T9:L1%(N).L1%......ST.0.
570./.&.N1.N1.1:.N1.8.N1.0:.370.>.0..100
0:.370.W.:. 1: 15:." * * * * *".B.D..J.1
.N...N.L2.L2(J):T%.T%(J):.L.L2.640...X..
"*** OUTPUT DISK FULL"...B.."DO YOU HAVE
A NEW ONE";Z$.O.L..F(Z$)..89.....V..860
:.590......14,F,15:.15,T,15.!....N$(J);H
(" ",17.C(N$(J)));.D....3
,F,3,F$.":".N$(J).",".T$(T%).P....14,E,E
$,E1,E2:.840:.E.."** ";E$;E:.750......T%
.4..4,T,4,T$.":".N$(J).",L,".G(L1%(J)):.
700.K....4,T,4,T$.":".N$(J).",".T$(T%)."
,W".....L.L.L2:.830:.E.."*** ";E$;E:.750
...F..T%.4..4395:.730...P..4352.7.Z.N$(J
)."":.830:.E.."**** ";E$;E:.750.@...."."
.R... 4: 3: 15: 14.Y....J.....X..(0):."A
NOTHER INPUT DISK READY";Z$......F(Z$).8
9.220......... .."DRIVE 0...";D...*..D.
D..D.800.Q.4.D$.G(D.48):....>..15,E,E$,E
1,E2...H..E.0.E.(ST . 191):E$."*ST*"...R
...?.\..15,T,15:."WANT TO NEW THE OUTPUT
DISK N...";Z$.R.F..F(Z$)..89.910.L.P..
"DISK NAME,ID";X$,Y$...Z..15,"N".T$.":".
X$.",".Y$......830:.E..:.860.B....15,"I"
.T$:.1,T,0,"$".T$.":!#$%&".U....830:.E..
:.860......980:.980.....Q.Q.1:.#1,X$:.X$
.."".940......980.....L.X.Y.256:."(";L;"
BLOCKS FREE )".;.J. 1: 15:..F.T..#1,X$.Q
....#1,X$.\....#1,X$.S...X.C(X$):.X.X.F(
X$)......#1,X$:Y.C(X$):.Y.Y.F(X$).......
...Y.F(X$)........................ L...
F. S..@....A. L... I..@. A..A..Z..LL....
_.` L...
> CLICK IMAGE PREVIEW FOR FULL MODAL