Multiple names: 12COPY DISK 1.4, DISK-DISK SAVE
FILE INFORMATION
FILENAME(S):
• 12COPY DISK 1.4<br>• DISK-DISK SAVE
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 2 disk(s)
FILE HASH
ef6839abe06ee3f64e891c3c62f0d0acf582c519986d15297053f3003b70ad1e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| USER 64 | 12COPY DISK 1.4 | PRG | Radd Maxx | 9 | 1 | DOWNLOAD FILE |
| UTILITY 64 | DISK-DISK SAVE | PRG | Radd Maxx | 8 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 50 08 01 00 8F 20 43 4F 50 59 20 44 49 53 |..P.... COPY DIS|
00000010: 4B 20 46 49 4C 45 53 20 2D 2D 20 56 45 52 20 31 |K FILES -- VER 1|
00000020: 2E 34 20 55 50 44 41 54 45 44 20 38 2D 35 2D 38 |.4 UPDATED 8-5-8|
00000030: 30 20 46 4F 52 20 42 41 53 49 43 20 34 2E 30 20 |0 FOR BASIC 4.0 |
00000040: 4D 41 52 56 20 56 41 4E 44 45 52 20 4B 4F 4F 49 |MARV VANDER KOOI|
00000050: 00 74 08 02 00 99 22 93 11 11 22 A3 31 30 29 22 |.t...."...".10)"|
00000060: 12 20 43 4F 50 59 20 44 49 53 4B 20 46 49 4C 45 |. COPY DISK FILE|
00000070: 53 20 11 22 00 97 08 05 00 99 22 49 4E 53 45 52 |S ."......"INSER|
00000080: 54 20 44 49 53 4B 45 54 54 45 53 20 49 4E 20 44 |T DISKETTES IN D|
00000090: 52 49 56 45 53 11 22 00 B9 08 0A 00 44 4E B2 38 |RIVES.".....DN.8|
000000A0: 3A 44 4E 24 B2 C9 28 C4 28 44 4E 29 2C 31 29 3A |:DN$..(.(DN),1):|
000000B0: 9F 31 35 2C 44 4E 2C 31 35 00 E2 08 0F 00 85 22 |.15,DN,15......"|
000000C0: 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 52 49 56 |DESTINATION DRIV|
000000D0: 45 20 4E 55 4D 42 45 52 A0 A0 A0 9D 9D 9D 22 3B |E NUMBER......";|
000000E0: 44 44 00 06 09 10 00 44 44 24 B2 C9 28 C4 28 44 |DD.....DD$..(.(D|
000000F0: 44 29 2C 31 29 3A 53 44 24 B2 C9 28 C4 28 31 AB |D),1):SD$..(.(1.|
00000100: 44 44 29 2C 31 29 00 1E 09 12 00 43 43 24 B2 22 |DD),1).....CC$."|
00000110: 49 22 AA 53 44 24 3A 98 31 35 2C 43 43 24 00 5C |I".SD$:.15,CC$.\|
00000120: 09 14 00 99 22 11 44 4F 20 59 4F 55 20 57 49 53 |....".DO YOU WIS|
00000130: 48 20 54 4F 20 4E 45 57 20 44 52 49 56 45 20 22 |H TO NEW DRIVE "|
00000140: 44 44 24 3B 3A 85 22 20 20 4E 9D 9D 9D 22 3B 53 |DD$;:." N...";S|
00000150: 24 3A 8B 53 24 B2 22 59 22 A7 33 30 00 7D 09 19 |$:.S$."Y".30.}..|
00000160: 00 8D 39 30 30 3A 43 43 24 B2 22 49 22 AA 44 44 |..900:CC$."I".DD|
00000170: 24 3A 98 31 35 2C 43 43 24 3A 89 34 30 00 A9 09 |$:.15,CC$:.40...|
00000180: 1E 00 85 22 44 49 53 4B 20 4E 41 4D 45 A0 A0 A0 |..."DISK NAME...|
00000190: 9D 9D 9D 22 3B 4E 24 3A 8B 4E 24 B2 22 A0 22 A7 |...";N$:.N$.".".|
000001A0: 99 22 91 22 3B 3A 89 33 30 00 E2 09 20 00 85 22 |.".";:.30... .."|
000001B0: 49 44 A0 28 46 4F 52 20 46 4F 52 4D 41 54 54 49 |ID.(FOR FORMATTI|
000001C0: 4E 47 29 A0 A0 A0 9D 9D 9D 22 3B 49 44 24 3A 8B |NG)......";ID$:.|
000001D0: 49 44 24 B2 22 A0 22 A7 49 44 24 B2 22 22 3A 89 |ID$.".".ID$."":.|
000001E0: 33 36 00 F7 09 22 00 49 44 24 B2 22 2C 22 AA C8 |36...".ID$.","..|
000001F0: 28 49 44 24 2C 32 29 00 20 0A 24 00 8D 39 30 30 |(ID$,2). .$..900|
00000200: 3A 43 43 24 B2 22 4E 20 22 AA 44 44 24 AA 22 3A |:CC$."N ".DD$.":|
00000210: 22 AA 4E 24 AA 49 44 24 3A 98 31 35 2C 43 43 24 |".N$.ID$:.15,CC$|
00000220: 00 2B 0A 28 00 53 53 B2 31 35 32 00 37 0A 2A 00 |.+.(.SS.152.7.*.|
00000230: 86 44 24 28 53 53 29 00 5B 0A 32 00 99 22 11 44 |.D$(SS).[.2..".D|
00000240: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 41 4C |O YOU WISH TO AL|
00000250: 50 48 41 42 45 54 49 5A 45 20 22 00 85 0A 33 00 |PHABETIZE "...3.|
00000260: 85 22 54 48 45 20 4E 45 57 20 44 49 52 45 43 54 |."THE NEW DIRECT|
00000270: 4F 52 59 20 45 4E 54 52 49 45 53 20 20 4E 9D 9D |ORY ENTRIES N..|
00000280: 9D 22 3B 53 24 00 BA 0A 3C 00 85 22 11 44 4F 20 |.";S$...<..".DO |
00000290: 59 4F 55 20 57 49 53 48 20 54 4F 20 55 53 45 20 |YOU WISH TO USE |
000002A0: 50 41 54 54 45 52 4E 20 4D 41 54 43 48 49 4E 47 |PATTERN MATCHING|
000002B0: 20 20 4E 9D 9D 9D 22 3B 50 24 00 D2 0A 3D 00 8B | N...";P$...=..|
000002C0: 50 24 B3 B1 22 59 22 A7 50 24 B2 22 2A 22 3A 89 |P$.."Y".P$."*":.|
000002D0: 37 30 00 FE 0A 41 00 85 22 11 12 50 41 54 54 45 |70...A.."..PATTE|
000002E0: 52 4E 92 20 28 55 53 45 20 32 30 34 30 20 52 55 |RN. (USE 2040 RU|
000002F0: 4C 45 53 29 A0 A0 A0 9D 9D 9D 22 3B 50 24 00 11 |LES)......";P$..|
00000300: 0B 42 00 8B 50 24 B2 22 A0 22 A7 50 24 B2 22 2A |.B..P$.".".P$."*|
00000310: 22 00 34 0B 46 00 99 22 11 20 12 43 92 4F 50 59 |".4.F..". .C.OPY|
00000320: 20 41 4C 4C 20 46 49 4C 45 53 20 46 52 4F 4D 20 | ALL FILES FROM |
00000330: 22 53 44 24 00 5C 0B 47 00 85 22 4F 52 20 12 51 |"SD$.\.G.."OR .Q|
00000340: 92 55 45 52 59 20 4F 4E 20 45 41 43 48 20 43 4F |.UERY ON EACH CO|
00000350: 50 59 A0 A0 43 9D 9D 9D 22 3B 51 24 00 65 0B 5A |PY..C...";Q$.e.Z|
00000360: 00 8D 39 30 30 00 7A 0B 64 00 81 4C B2 30 A4 31 |..900.z.d..L.0.1|
00000370: 30 30 30 3A 82 3A 8D 35 30 30 00 83 0B 6E 00 8D |000:.:.500...n..|
00000380: 32 30 30 00 A8 0B 73 00 99 22 11 43 4F 50 59 20 |200...s..".COPY |
00000390: 46 49 4E 49 53 48 45 44 21 21 11 22 3A 81 4C B2 |FINISHED!!.":.L.|
000003A0: 30 A4 34 30 30 30 3A 82 00 D5 0B 78 00 4B B2 30 |0.4000:....x.K.0|
000003B0: 3A 53 53 B2 37 30 3A 50 24 B2 22 2A 22 3A 53 44 |:SS.70:P$."*":SD|
000003C0: 24 B2 44 44 24 3A 8D 35 30 30 3A 99 22 91 91 91 |$.DD$:.500:."...|
000003D0: 91 91 22 3A 80 00 E2 0B C8 00 81 49 B2 31 A4 4B |..":.......I.1.K|
000003E0: AB 31 00 1A 0C CD 00 99 3A 49 4E 24 B2 22 59 22 |.1......:IN$."Y"|
000003F0: 3A 8B 51 24 B2 22 51 22 A7 99 22 91 43 4F 50 59 |:.Q$."Q"..".COPY|
00000400: 3A 20 12 22 44 24 28 49 29 22 92 22 3A 85 22 A0 |: ."D$(I)".":.".|
00000410: 20 59 9D 9D 9D 22 3B 49 4E 24 00 32 0C D2 00 99 | Y...";IN$.2....|
00000420: 22 91 91 22 3A 8B 49 4E 24 B3 B1 22 59 22 A7 82 |"..":.IN$.."Y"..|
00000430: 3A 8E 00 5F 0C DC 00 43 43 24 B2 22 43 20 22 AA |:.._...CC$."C ".|
00000440: 44 44 24 AA 22 3A 22 AA 44 24 28 49 29 AA 22 3D |DD$.":".D$(I)."=|
00000450: 22 AA 53 44 24 AA 22 3A 22 AA 44 24 28 49 29 00 |".SD$.":".D$(I).|
00000460: 70 0C E6 00 98 31 35 2C 43 43 24 3A 8D 39 30 30 |p....15,CC$:.900|
00000470: 00 87 0C F0 00 8B 45 4E B1 32 39 20 B0 20 45 4E |......EN.29 . EN|
00000480: B2 30 A7 20 82 3A 8E 00 BE 0C FA 00 98 31 35 2C |.0. .:.......15,|
00000490: 22 4D 2D 57 22 C7 28 34 31 29 C7 28 30 29 C7 28 |"M-W".(41).(0).(|
000004A0: 31 29 C7 28 44 44 AA 36 36 29 3A 8F 20 50 41 54 |1).(DD.66):. PAT|
000004B0: 43 48 20 46 4F 52 20 53 43 52 41 54 43 48 00 EA |CH FOR SCRATCH..|
000004C0: 0C 04 01 43 43 24 B2 22 53 20 22 AA 44 44 24 AA |...CC$."S ".DD$.|
000004D0: 22 3A 22 AA 44 24 28 49 29 3A 98 31 35 2C 43 43 |":".D$(I):.15,CC|
000004E0: 24 3A 8D 39 30 30 3A 82 3A 8E 00 FF 0C F4 01 8F |$:.900:.:.......|
000004F0: 20 52 45 41 44 20 44 49 52 45 43 54 4F 52 59 00 | READ DIRECTORY.|
00000500: 07 0D F9 01 4B B2 31 00 38 0D FE 01 98 31 35 2C |....K.1.8....15,|
00000510: 22 4D 2D 45 22 C7 28 32 31 32 29 C7 28 32 33 37 |"M-E".(212).(237|
00000520: 29 3A 8F 20 44 49 52 45 43 54 4F 52 59 20 4C 4F |):. DIRECTORY LO|
00000530: 41 44 20 50 41 54 43 48 00 68 0D 08 02 99 20 22 |AD PATCH.h.... "|
00000540: 93 11 20 20 20 20 12 44 49 52 45 43 54 4F 52 59 |.. .DIRECTORY|
00000550: 20 46 52 4F 4D 20 44 52 49 56 45 20 22 53 44 24 | FROM DRIVE "SD$|
00000560: 22 11 22 3A 42 B2 33 30 00 8C 0D 26 02 43 43 24 |".":B.30...&.CC$|
00000570: B2 22 24 22 AA 53 44 24 AA 22 3A 22 AA 50 24 3A |."$".SD$.":".P$:|
00000580: 9F 20 32 2C 44 4E 2C 30 2C 43 43 24 00 B8 0D 27 |. 2,DN,0,CC$...'|
00000590: 02 43 43 24 B2 22 4F 50 45 4E 20 32 2C 22 AA 44 |.CC$."OPEN 2,".D|
000005A0: 4E 24 AA 22 2C 30 2C 22 AA C7 28 33 34 29 AA 43 |N$.",0,"..(34).C|
000005B0: 43 24 AA C7 28 33 34 29 00 C3 0D 2B 02 8D 39 30 |C$..(34)...+..90|
000005C0: 30 3A 99 00 DD 0D 30 02 A1 23 32 2C 41 24 20 3A |0:....0..#2,A$ :|
000005D0: A1 23 32 2C 41 24 20 3A 49 24 B2 22 22 00 EF 0D |.#2,A$ :I$.""...|
000005E0: 3A 02 8B 20 53 54 B3 B1 30 20 89 20 36 36 30 00 |:.. ST..0 . 660.|
000005F0: 03 0E 44 02 81 20 41 B2 31 A4 42 20 3A A1 23 32 |..D.. A.1.B :.#2|
00000600: 2C 41 24 00 19 0E 4E 02 8B 20 41 24 B2 22 22 20 |,A$...N.. A$."" |
00000610: A7 20 41 24 B2 C7 28 30 29 00 35 0E 58 02 49 24 |. A$..(0).5.X.I$|
00000620: B2 49 24 AA 41 24 20 3A 82 20 3A 49 24 B2 49 24 |.I$.A$ :. :I$.I$|
00000630: AA 22 20 20 22 00 49 0E 62 02 42 51 B2 C6 28 CA |." ".I.b.BQ..(.|
00000640: 28 49 24 2C 33 2C 31 29 29 00 64 0E 6C 02 42 51 |(I$,3,1)).d.l.BQ|
00000650: B2 42 51 AA C6 28 CA 28 49 24 2C 34 2C 31 29 29 |.BQ..(.(I$,4,1))|
00000660: AC 32 35 36 00 78 0E 76 02 99 20 42 51 3B CA 28 |.256.x.v.. BQ;.(|
00000670: 49 24 2C 35 2C 32 37 29 00 86 0E 77 02 8B 42 B2 |I$,5,27)...w..B.|
00000680: 33 30 A7 36 35 30 00 AB 0E 79 02 81 49 B2 36 A4 |30.650...y..I.6.|
00000690: 32 37 3A 8B CA 28 49 24 2C 49 2C 31 29 B3 B1 C7 |27:..(I$,I,1)...|
000006A0: 28 33 34 29 A7 82 3A 89 36 35 30 00 DD 0E 7B 02 |(34)..:.650...{.|
000006B0: 81 4A B2 49 AA 31 A4 32 37 3A 8B CA 28 49 24 2C |.J.I.1.27:..(I$,|
000006C0: 4A 2C 31 29 B3 B1 C7 28 33 34 29 A7 44 24 B2 44 |J,1)...(34).D$.D|
000006D0: 24 AA CA 28 49 24 2C 4A 2C 31 29 3A 82 00 F3 0E |$..(I$,J,1):....|
000006E0: 7F 02 8B 53 24 B2 22 59 22 A7 8D 37 30 30 3A 89 |...S$."Y"..700:.|
000006F0: 36 35 30 00 06 0F 80 02 44 24 28 4B 29 B2 44 24 |650.....D$(K).D$|
00000700: 3A 4B B2 4B AA 31 00 28 0F 8A 02 44 24 B2 22 22 |:K.K.1.(...D$.""|
00000710: 3A 49 24 B2 22 22 3A 42 B2 33 32 3A 8B 41 24 B3 |:I$."":B.32:.A$.|
00000720: B1 22 53 22 89 35 37 30 00 48 0F 94 02 99 3A 43 |."S".570.H....:C|
00000730: 43 24 B2 22 52 45 41 44 20 44 49 52 45 43 54 4F |C$."READ DIRECTO|
00000740: 52 59 22 3A 8D 39 30 30 00 6C 0F 9E 02 43 43 24 |RY":.900.l...CC$|
00000750: B2 22 43 4C 4F 53 45 20 32 22 3A 20 A0 20 32 3A |."CLOSE 2": . 2:|
00000760: 8D 39 30 30 3A 99 22 11 11 22 3A 8E 00 81 0F BC |.900:."..":.....|
00000770: 02 8F 20 53 4F 52 54 20 44 49 52 45 43 54 4F 52 |.. SORT DIRECTOR|
00000780: 59 00 98 0F C6 02 8B 20 4B B2 31 20 A7 20 4A B2 |Y...... K.1 . J.|
00000790: 30 3A 20 89 20 37 34 30 00 AF 0F D0 02 8B 20 4B |0: . 740...... K|
000007A0: B2 30 20 A7 20 4A B2 AB 31 3A 89 20 37 34 30 00 |.0 . J..1:. 740.|
000007B0: E1 0F DA 02 81 20 4A B2 4B AB 31 20 A4 20 31 20 |..... J.K.1 . 1 |
000007C0: A9 AB 31 3A 8B 20 44 24 B3 44 24 28 4A 29 20 A7 |..1:. D$.D$(J) .|
000007D0: 20 44 24 28 4A AA 31 29 B2 44 24 28 4A 29 3A 20 | D$(J.1).D$(J): |
000007E0: 82 00 FA 0F E4 02 44 24 28 4A AA 31 29 B2 44 24 |......D$(J.1).D$|
000007F0: 20 3A 4B B2 4B AA 31 20 3A 8E 00 19 10 84 03 8F | :K.K.1 :.......|
00000800: 20 49 4E 50 55 54 20 46 52 4F 4D 20 45 52 52 4F | INPUT FROM ERRO|
00000810: 52 20 43 48 41 4E 4E 45 4C 00 30 10 8E 03 84 31 |R CHANNEL.0....1|
00000820: 35 2C 45 4E 2C 45 4D 24 2C 45 54 24 2C 45 53 24 |5,EN,EM$,ET$,ES$|
00000830: 00 52 10 98 03 8B 45 4E B2 30 A7 99 22 12 22 43 |.R....EN.0.."."C|
00000840: 43 24 22 92 20 C3 3E 20 22 A3 31 35 29 45 4D 24 |C$". .> ".15)EM$|
00000850: 3A 8E 00 7D 10 A2 03 8B 45 4E B2 31 A7 99 22 12 |:..}....EN.1..".|
00000860: 22 43 43 24 22 92 20 C3 3E 20 22 A3 31 35 29 22 |"CC$". .> ".15)"|
00000870: 12 22 45 54 24 22 92 22 45 4D 24 3A 8E 00 A3 10 |."ET$"."EM$:....|
00000880: AC 03 99 22 11 12 22 43 43 24 3A 99 22 92 20 C3 |...".."CC$:.". .|
00000890: 3E 20 45 52 52 4F 52 20 23 22 45 4E 22 12 22 45 |> ERROR #"EN"."E|
000008A0: 4D 24 3B 00 C0 10 B6 03 8B 45 4E B3 33 30 A7 99 |M$;......EN.30..|
000008B0: 22 20 4F 4E 20 22 45 54 24 22 2E 22 45 53 24 3B |" ON "ET$"."ES$;|
000008C0: 00 C9 10 C0 03 99 22 11 22 00 EF 10 CA 03 85 22 |......"."......"|
000008D0: 43 4F 4E 54 49 4E 55 45 A0 A0 4E 9D 9D 9D 22 3B |CONTINUE..N...";|
000008E0: 49 4E 24 3A 8B 49 4E 24 B2 22 59 22 A7 20 8E 00 |IN$:.IN$."Y". ..|
000008F0: F5 10 D4 03 80 00 00 00 AA 00 0D |........... |
..P.... COPY DISK FILES -- VER 1.4 UPDAT
ED 8-5-80 FOR BASIC 4.0 MARV VANDER KOOI
.T...."...".10)". COPY DISK FILES ."....
.."INSERT DISKETTES IN DRIVES.".....DN.8
:DN$.I(D(DN),1):.15,DN,15......"DESTINAT
ION DRIVE NUMBER ...";DD.....DD$.I(D(D
D),1):SD$.I(D(1.DD),1).....CC$."I".SD$:.
15,CC$.\....".DO YOU WISH TO NEW DRIVE "
DD$;:." N...";S$:.S$."Y".30.}....900:CC
$."I".DD$:.15,CC$:.40......"DISK NAME
...";N$:.N$." "..".";:.30... .."ID (FOR
FORMATTING) ...";ID$:.ID$." ".ID$."":.
36...".ID$.",".H(ID$,2). .$..900:CC$."N
".DD$.":".N$.ID$:.15,CC$.+.(.SS.152.7.*.
.D$(SS).[.2..".DO YOU WISH TO ALPHABETIZ
E "...3.."THE NEW DIRECTORY ENTRIES N..
.";S$...<..".DO YOU WISH TO USE PATTERN
MATCHING N...";P$.R.=..P$.."Y".P$."*":.
70...A.."..PATTERN. (USE 2040 RULES) .
..";P$...B..P$." ".P$."*".4.F..". .C.OPY
ALL FILES FROM "SD$.\.G.."OR .Q.UERY ON
EACH COPY C...";Q$.E.Z..900.Z.D..L.0.1
000:.:.500...N..200...S..".COPY FINISHED
!!.":.L.0.4000:..U.X.K.0:SS.70:P$."*":SD
$.DD$:.500:.".....":....H..I.1.K.1...M..
:IN$."Y":.Q$."Q"..".COPY: ."D$(I)".":."
Y...";IN$.2.R.."..":.IN$.."Y"..:.._...C
C$."C ".DD$.":".D$(I)."=".SD$.":".D$(I).
P....15,CC$:.900......EN.29 . EN.0. .:..
.....15,"M-W"G(41)G(0)G(1)G(DD.66):. PAT
CH FOR SCRATCH.....CC$."S ".DD$.":".D$(I
):.15,CC$:.900:.:....... READ DIRECTORY.
....K.1.8....15,"M-E"G(212)G(237):. DIRE
CTORY LOAD PATCH.H.... ".. .DIRECTORY
FROM DRIVE "SD$".":B.30...&.CC$."$".SD$
.":".P$:. 2,DN,0,CC$...'.CC$."OPEN 2,".D
N$.",0,".G(34).CC$.G(34).C.+..900:....0.
.#2,A$ :.#2,A$ :I$.""...:.. ST..0 . 660.
..D.. A.1.B :.#2,A$...N.. A$."" . A$.G(0
).5.X.I$.I$.A$ :. :I$.I$." ".I.B.BQ.F(J
(I$,3,1)).D.L.BQ.BQ.F(J(I$,4,1)).256.X.V
.. BQ;J(I$,5,27)...W..B.30.650...Y..I.6.
27:.J(I$,I,1)..G(34)..:.650...{..J.I.1.2
7:.J(I$,J,1)..G(34).D$.D$.J(I$,J,1):....
..S$."Y"..700:.650.....D$(K).D$:K.K.1.(
...D$."":I$."":B.32:.A$.."S".570.H....:C
C$."READ DIRECTORY":.900.L...CC$."CLOSE
2": 2:.900:."..":....... SORT DIRECTOR
Y...F.. K.1 . J.0: . 740...P.. K.0 . J..
1:. 740...Z.. J.K.1 . 1 ..1:. D$.D$(J) .
D$(J.1).D$(J): ......D$(J.1).D$ :K.K.1
:....... INPUT FROM ERROR CHANNEL.0....1
5,EN,EM$,ET$,ES$.R....EN.0.."."CC$". C>
".15)EM$:..}....EN.1.."."CC$". C> ".15)"
."ET$"."EM$:.......".."CC$:.". C> ERROR
#"EN"."EM$;......EN.30.." ON "ET$"."ES$;
.I...."."...J.."CONTINUE N...";IN$:.IN$
."Y". ....T........
> CLICK IMAGE PREVIEW FOR FULL MODAL