COPY DISK 2.0

00000000: 01 04 4C 04 01 00 8F 20  43 4F 50 59 20 44 49 53  |..L.... COPY DIS|
00000010: 4B 20 46 49 4C 45 53 20  2D 2D 20 56 45 52 20 32  |K FILES -- VER 2|
00000020: 2E 30 20 20 20 20 20 20  20 20 20 20 20 55 50 44  |.0           UPD|
00000030: 41 54 45 44 20 54 4F 20  44 4F 53 20 56 45 52 2E  |ATED TO DOS VER.|
00000040: 20 32 20 20 31 32 2F 32  36 2F 37 39 00 70 04 02  | 2  12/26/79.p..|
00000050: 00 99 22 93 11 11 22 A3  31 30 29 22 12 20 43 4F  |.."...".10)". CO|
00000060: 50 59 20 44 49 53 4B 20  46 49 4C 45 53 20 11 22  |PY DISK FILES ."|
00000070: 00 7E 04 03 00 97 31 30  32 32 2C 32 35 35 00 A1  |.~....1022,255..|
00000080: 04 05 00 99 22 49 4E 53  45 52 54 20 44 49 53 4B  |...."INSERT DISK|
00000090: 45 54 54 45 53 20 49 4E  20 44 52 49 56 45 53 11  |ETTES IN DRIVES.|
000000A0: 22 00 C3 04 0A 00 44 4E  B2 38 3A 44 4E 24 B2 C9  |".....DN.8:DN$..|
000000B0: 28 C4 28 44 4E 29 2C 31  29 3A 9F 31 35 2C 44 4E  |(.(DN),1):.15,DN|
000000C0: 2C 31 35 00 EC 04 0F 00  85 22 44 45 53 54 49 4E  |,15......"DESTIN|
000000D0: 41 54 49 4F 4E 20 44 52  49 56 45 20 4E 55 4D 42  |ATION DRIVE NUMB|
000000E0: 45 52 A0 A0 A0 9D 9D 9D  22 3B 44 44 00 10 05 10  |ER......";DD....|
000000F0: 00 44 44 24 B2 C9 28 C4  28 44 44 29 2C 31 29 3A  |.DD$..(.(DD),1):|
00000100: 53 44 24 B2 C9 28 C4 28  31 AB 44 44 29 2C 31 29  |SD$..(.(1.DD),1)|
00000110: 00 28 05 12 00 43 43 24  B2 22 49 22 AA 53 44 24  |.(...CC$."I".SD$|
00000120: 3A 98 31 35 2C 43 43 24  00 66 05 14 00 99 22 11  |:.15,CC$.f....".|
00000130: 44 4F 20 59 4F 55 20 57  49 53 48 20 54 4F 20 4E  |DO YOU WISH TO N|
00000140: 45 57 20 44 52 49 56 45  20 22 44 44 24 3B 3A 85  |EW DRIVE "DD$;:.|
00000150: 22 20 20 4E 9D 9D 9D 22  3B 53 24 3A 8B 53 24 B2  |"  N...";S$:.S$.|
00000160: 22 59 22 A7 33 30 00 87  05 19 00 8D 39 30 30 3A  |"Y".30......900:|
00000170: 43 43 24 B2 22 49 22 AA  44 44 24 3A 98 31 35 2C  |CC$."I".DD$:.15,|
00000180: 43 43 24 3A 89 34 30 00  B3 05 1E 00 85 22 44 49  |CC$:.40......"DI|
00000190: 53 4B 20 4E 41 4D 45 A0  A0 A0 9D 9D 9D 22 3B 4E  |SK NAME......";N|
000001A0: 24 3A 8B 4E 24 B2 22 A0  22 A7 99 22 91 22 3B 3A  |$:.N$."."..".";:|
000001B0: 89 33 30 00 EC 05 20 00  85 22 49 44 A0 28 46 4F  |.30... .."ID.(FO|
000001C0: 52 20 46 4F 52 4D 41 54  54 49 4E 47 29 A0 A0 A0  |R FORMATTING)...|
000001D0: 9D 9D 9D 22 3B 49 44 24  3A 8B 49 44 24 B2 22 A0  |...";ID$:.ID$.".|
000001E0: 22 A7 49 44 24 B2 22 22  3A 89 33 36 00 01 06 22  |".ID$."":.36..."|
000001F0: 00 49 44 24 B2 22 2C 22  AA C8 28 49 44 24 2C 32  |.ID$.","..(ID$,2|
00000200: 29 00 2A 06 24 00 8D 39  30 30 3A 43 43 24 B2 22  |).*.$..900:CC$."|
00000210: 4E 20 22 AA 44 44 24 AA  22 3A 22 AA 4E 24 AA 49  |N ".DD$.":".N$.I|
00000220: 44 24 3A 98 31 35 2C 43  43 24 00 37 06 28 00 86  |D$:.15,CC$.7.(..|
00000230: 44 24 28 32 35 30 29 00  5B 06 32 00 99 22 11 44  |D$(250).[.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 06 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 06  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 06 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 06 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: 07 42 00 8B 50 24 B2 22  A0 22 A7 50 24 B2 22 2A  |.B..P$.".".P$."*|
00000310: 22 00 34 07 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 07 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 07 5A  |PY..C...";Q$.e.Z|
00000360: 00 8D 39 30 30 00 79 07  64 00 81 4C B2 30 A4 33  |..900.y.d..L.0.3|
00000370: 30 30 3A 82 3A 8D 35 30  30 00 82 07 6E 00 8D 32  |00:.:.500...n..2|
00000380: 30 30 00 9B 07 73 00 99  22 11 43 4F 50 59 20 46  |00...s..".COPY F|
00000390: 49 4E 49 53 48 45 44 21  21 11 22 00 A9 07 78 00  |INISHED!!."...x.|
000003A0: 97 31 30 32 32 2C 38 3A  80 00 B6 07 C8 00 81 49  |.1022,8:.......I|
000003B0: B2 31 A4 4B AB 31 00 EE  07 CD 00 99 3A 49 4E 24  |.1.K.1......:IN$|
000003C0: B2 22 59 22 3A 8B 51 24  B2 22 51 22 A7 99 22 91  |."Y":.Q$."Q"..".|
000003D0: 43 4F 50 59 3A 20 12 22  44 24 28 49 29 22 92 22  |COPY: ."D$(I)"."|
000003E0: 3A 85 22 A0 20 59 9D 9D  9D 22 3B 49 4E 24 00 06  |:.". Y...";IN$..|
000003F0: 08 D2 00 99 22 91 91 22  3A 8B 49 4E 24 B3 B1 22  |...."..":.IN$.."|
00000400: 59 22 A7 82 3A 8E 00 33  08 DC 00 43 43 24 B2 22  |Y"..:..3...CC$."|
00000410: 43 20 22 AA 44 44 24 AA  22 3A 22 AA 44 24 28 49  |C ".DD$.":".D$(I|
00000420: 29 AA 22 3D 22 AA 53 44  24 AA 22 3A 22 AA 44 24  |)."=".SD$.":".D$|
00000430: 28 49 29 00 44 08 E6 00  98 31 35 2C 43 43 24 3A  |(I).D....15,CC$:|
00000440: 8D 39 30 30 00 5B 08 F0  00 8B 45 4E B1 32 39 20  |.900.[....EN.29 |
00000450: B0 20 45 4E B2 30 A7 20  82 3A 8E 00 87 08 04 01  |. EN.0. .:......|
00000460: 43 43 24 B2 22 53 20 22  AA 44 44 24 AA 22 3A 22  |CC$."S ".DD$.":"|
00000470: AA 44 24 28 49 29 3A 98  31 35 2C 43 43 24 3A 8D  |.D$(I):.15,CC$:.|
00000480: 39 30 30 3A 82 3A 8E 00  9C 08 F4 01 8F 20 52 45  |900:.:....... RE|
00000490: 41 44 20 44 49 52 45 43  54 4F 52 59 00 A4 08 F9  |AD DIRECTORY....|
000004A0: 01 4B B2 31 00 D4 08 08  02 99 20 22 93 11 20 20  |.K.1...... "..  |
000004B0: 20 20 12 44 49 52 45 43  54 4F 52 59 20 46 52 4F  |  .DIRECTORY FRO|
000004C0: 4D 20 44 52 49 56 45 20  22 53 44 24 22 11 22 3A  |M DRIVE "SD$".":|
000004D0: 42 B2 33 30 00 F8 08 26  02 43 43 24 B2 22 24 22  |B.30...&.CC$."$"|
000004E0: AA 53 44 24 AA 22 3A 22  AA 50 24 3A 9F 20 32 2C  |.SD$.":".P$:. 2,|
000004F0: 44 4E 2C 30 2C 43 43 24  00 24 09 27 02 43 43 24  |DN,0,CC$.$.'.CC$|
00000500: B2 22 4F 50 45 4E 20 32  2C 22 AA 44 4E 24 AA 22  |."OPEN 2,".DN$."|
00000510: 2C 30 2C 22 AA C7 28 33  34 29 AA 43 43 24 AA C7  |,0,"..(34).CC$..|
00000520: 28 33 34 29 00 2F 09 2B  02 8D 39 30 30 3A 99 00  |(34)./.+..900:..|
00000530: 49 09 30 02 A1 23 32 2C  41 24 20 3A A1 23 32 2C  |I.0..#2,A$ :.#2,|
00000540: 41 24 20 3A 49 24 B2 22  22 00 5B 09 3A 02 8B 20  |A$ :I$."".[.:.. |
00000550: 53 54 B3 B1 30 20 89 20  36 36 30 00 6F 09 44 02  |ST..0 . 660.o.D.|
00000560: 81 20 41 B2 31 A4 42 20  3A A1 23 32 2C 41 24 00  |. A.1.B :.#2,A$.|
00000570: 85 09 4E 02 8B 20 41 24  B2 22 22 20 A7 20 41 24  |..N.. A$."" . A$|
00000580: B2 C7 28 30 29 00 A1 09  58 02 49 24 B2 49 24 AA  |..(0)...X.I$.I$.|
00000590: 41 24 20 3A 82 20 3A 49  24 B2 49 24 AA 22 20 20  |A$ :. :I$.I$."  |
000005A0: 22 00 B5 09 62 02 42 51  B2 C6 28 CA 28 49 24 2C  |"...b.BQ..(.(I$,|
000005B0: 33 2C 31 29 29 00 D0 09  6C 02 42 51 B2 42 51 AA  |3,1))...l.BQ.BQ.|
000005C0: C6 28 CA 28 49 24 2C 34  2C 31 29 29 AC 32 35 36  |.(.(I$,4,1)).256|
000005D0: 00 E4 09 76 02 99 20 42  51 3B CA 28 49 24 2C 35  |...v.. BQ;.(I$,5|
000005E0: 2C 32 37 29 00 F2 09 77  02 8B 42 B2 33 30 A7 36  |,27)...w..B.30.6|
000005F0: 35 30 00 17 0A 79 02 81  49 B2 36 A4 32 37 3A 8B  |50...y..I.6.27:.|
00000600: CA 28 49 24 2C 49 2C 31  29 B3 B1 C7 28 33 34 29  |.(I$,I,1)...(34)|
00000610: A7 82 3A 89 36 35 30 00  49 0A 7B 02 81 4A B2 49  |..:.650.I.{..J.I|
00000620: AA 31 A4 32 37 3A 8B CA  28 49 24 2C 4A 2C 31 29  |.1.27:..(I$,J,1)|
00000630: B3 B1 C7 28 33 34 29 A7  44 24 B2 44 24 AA CA 28  |...(34).D$.D$..(|
00000640: 49 24 2C 4A 2C 31 29 3A  82 00 5F 0A 7F 02 8B 53  |I$,J,1):.._....S|
00000650: 24 B2 22 59 22 A7 8D 37  30 30 3A 89 36 35 30 00  |$."Y"..700:.650.|
00000660: 72 0A 80 02 44 24 28 4B  29 B2 44 24 3A 4B B2 4B  |r...D$(K).D$:K.K|
00000670: AA 31 00 94 0A 8A 02 44  24 B2 22 22 3A 49 24 B2  |.1.....D$."":I$.|
00000680: 22 22 3A 42 B2 33 32 3A  8B 41 24 B3 B1 22 53 22  |"":B.32:.A$.."S"|
00000690: 89 35 37 30 00 B4 0A 94  02 99 3A 43 43 24 B2 22  |.570......:CC$."|
000006A0: 52 45 41 44 20 44 49 52  45 43 54 4F 52 59 22 3A  |READ DIRECTORY":|
000006B0: 8D 39 30 30 00 D8 0A 9E  02 43 43 24 B2 22 43 4C  |.900.....CC$."CL|
000006C0: 4F 53 45 20 32 22 3A 20  A0 20 32 3A 8D 39 30 30  |OSE 2": . 2:.900|
000006D0: 3A 99 22 11 11 22 3A 8E  00 ED 0A BC 02 8F 20 53  |:."..":....... S|
000006E0: 4F 52 54 20 44 49 52 45  43 54 4F 52 59 00 04 0B  |ORT DIRECTORY...|
000006F0: C6 02 8B 20 4B B2 31 20  A7 20 4A B2 30 3A 20 89  |... K.1 . J.0: .|
00000700: 20 37 34 30 00 1B 0B D0  02 8B 20 4B B2 30 20 A7  | 740...... K.0 .|
00000710: 20 4A B2 AB 31 3A 89 20  37 34 30 00 4D 0B DA 02  | J..1:. 740.M...|
00000720: 81 20 4A B2 4B AB 31 20  A4 20 31 20 A9 AB 31 3A  |. J.K.1 . 1 ..1:|
00000730: 8B 20 44 24 B3 44 24 28  4A 29 20 A7 20 44 24 28  |. D$.D$(J) . D$(|
00000740: 4A AA 31 29 B2 44 24 28  4A 29 3A 20 82 00 66 0B  |J.1).D$(J): ..f.|
00000750: E4 02 44 24 28 4A AA 31  29 B2 44 24 20 3A 4B B2  |..D$(J.1).D$ :K.|
00000760: 4B AA 31 20 3A 8E 00 85  0B 84 03 8F 20 49 4E 50  |K.1 :....... INP|
00000770: 55 54 20 46 52 4F 4D 20  45 52 52 4F 52 20 43 48  |UT FROM ERROR CH|
00000780: 41 4E 4E 45 4C 00 9C 0B  8E 03 84 31 35 2C 45 4E  |ANNEL......15,EN|
00000790: 2C 45 4D 24 2C 45 54 24  2C 45 53 24 00 BE 0B 98  |,EM$,ET$,ES$....|
000007A0: 03 8B 45 4E B2 30 A7 99  22 12 22 43 43 24 22 92  |..EN.0.."."CC$".|
000007B0: 20 C3 3E 20 22 A3 31 35  29 45 4D 24 3A 8E 00 E9  | .> ".15)EM$:...|
000007C0: 0B A2 03 8B 45 4E B2 31  A7 99 22 12 22 43 43 24  |....EN.1.."."CC$|
000007D0: 22 92 20 C3 3E 20 22 A3  31 35 29 22 12 22 45 54  |". .> ".15)"."ET|
000007E0: 24 22 92 22 45 4D 24 3A  8E 00 0F 0C AC 03 99 22  |$"."EM$:......."|
000007F0: 11 12 22 43 43 24 3A 99  22 92 20 C3 3E 20 45 52  |.."CC$:.". .> ER|
00000800: 52 4F 52 20 23 22 45 4E  22 12 22 45 4D 24 3B 00  |ROR #"EN"."EM$;.|
00000810: 2C 0C B6 03 8B 45 4E B3  33 30 A7 99 22 20 4F 4E  |,....EN.30.." ON|
00000820: 20 22 45 54 24 22 2E 22  45 53 24 3B 00 35 0C C0  | "ET$"."ES$;.5..|
00000830: 03 99 22 11 22 00 5B 0C  CA 03 85 22 43 4F 4E 54  |..".".[...."CONT|
00000840: 49 4E 55 45 A0 A0 4E 9D  9D 9D 22 3B 49 4E 24 3A  |INUE..N...";IN$:|
00000850: 8B 49 4E 24 B2 22 59 22  A7 20 8E 00 61 0C D4 03  |.IN$."Y". ..a...|
00000860: 80 00 00 00 AA                                    |.....           |

..L.... COPY DISK FILES -- VER 2.0      
     UPDATED TO DOS VER. 2  12/26/79.P..
.."...".10)". COPY DISK FILES .".~....10
22,255......"INSERT DISKETTES IN DRIVES.
".C...DN.8:DN$.I(D(DN),1):.15,DN,15.....
."DESTINATION DRIVE NUMBER   ...";DD....
.DD$.I(D(DD),1):SD$.I(D(1.DD),1).(...CC$
."I".SD$:.15,CC$.F....".DO YOU WISH TO N
EW DRIVE "DD$;:."  N...";S$:.S$."Y".30..
....900:CC$."I".DD$:.15,CC$:.40......"DI
SK NAME   ...";N$:.N$." "..".";:.30... .
."ID (FOR FORMATTING)   ...";ID$:.ID$." 
".ID$."":.36...".ID$.",".H(ID$,2).*.$..9
00:CC$."N ".DD$.":".N$.ID$:.15,CC$.7.(..
D$(250).[.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.Y.D..L.0.3
00:.:.500...N..200...S..".COPY FINISHED!
!."...X..1022,8:....H..I.1.K.1...M..:IN$
."Y":.Q$."Q"..".COPY: ."D$(I)".":."  Y..
.";IN$...R.."..":.IN$.."Y"..:..3...CC$."
C ".DD$.":".D$(I)."=".SD$.":".D$(I).D...
.15,CC$:.900.[....EN.29 . EN.0. .:......
CC$."S ".DD$.":".D$(I):.15,CC$:.900:.:..
..... READ DIRECTORY.....K.1.T.... "..  
  .DIRECTORY FROM DRIVE "SD$".":B.30...&
.CC$."$".SD$.":".P$:. 2,DN,0,CC$.$.'.CC$
."OPEN 2,".DN$.",0,".G(34).CC$.G(34)./.+
..900:..I.0..#2,A$ :.#2,A$ :I$."".[.:.. 
ST..0 . 660.O.D.. A.1.B :.#2,A$...N.. A$
."" . A$.G(0)...X.I$.I$.A$ :. :I$.I$."  
"...B.BQ.F(J(I$,3,1)).P.L.BQ.BQ.F(J(I$,4
,1)).256...V.. BQ;J(I$,5,27)...W..B.30.6
50...Y..I.6.27:.J(I$,I,1)..G(34)..:.650.
I.{..J.I.1.27:.J(I$,J,1)..G(34).D$.D$.J(
I$,J,1):.._...S$."Y"..700:.650.R...D$(K
).D$:K.K.1.....D$."":I$."":B.32:.A$.."S"
.570......:CC$."READ DIRECTORY":.900.X..
.CC$."CLOSE 2":   2:.900:."..":....... S
ORT DIRECTORY...F.. K.1 . J.0: . 740...P
.. K.0 . J..1:. 740.M.Z.. J.K.1 . 1 ..1:
. D$.D$(J) . D$(J.1).D$(J): ..F...D$(J.1
).D$ :K.K.1 :....... INPUT FROM ERROR CH
ANNEL......15,EN,EM$,ET$,ES$......EN.0..
"."CC$". C> ".15)EM$:.......EN.1.."."CC$
". C> ".15)"."ET$"."EM$:.......".."CC$:.
". C> ERROR #"EN"."EM$;.,....EN.30.." ON
 "ET$"."ES$;.5....".".[.J.."CONTINUE  N.
..";IN$:.IN$."Y". ..A.T......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL