COPY DISK FILES

00000000: 01 04 3C 04 01 00 8F 20  43 4F 50 59 20 44 49 53  |..<.... 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 31 20 20 20 20 20 20  20 20 20 20 20 55 50 44  |.1           UPD|
00000030: 41 54 45 44 20 35 2D 31  34 2D 37 39 00 60 04 02  |ATED 5-14-79.`..|
00000040: 00 99 22 93 11 11 22 A3  31 30 29 22 12 20 43 4F  |.."...".10)". CO|
00000050: 50 59 20 44 49 53 4B 20  46 49 4C 45 53 20 11 22  |PY DISK FILES ."|
00000060: 00 83 04 05 00 99 22 49  4E 53 45 52 54 20 44 49  |......"INSERT DI|
00000070: 53 4B 45 54 54 45 53 20  49 4E 20 44 52 49 56 45  |SKETTES IN DRIVE|
00000080: 53 11 22 00 A5 04 0A 00  44 4E B2 38 3A 44 4E 24  |S.".....DN.8:DN$|
00000090: B2 C9 28 C4 28 44 4E 29  2C 31 29 3A 9F 31 35 2C  |..(.(DN),1):.15,|
000000A0: 44 4E 2C 31 35 00 CE 04  0F 00 85 22 44 45 53 54  |DN,15......"DEST|
000000B0: 49 4E 41 54 49 4F 4E 20  44 52 49 56 45 20 4E 55  |INATION DRIVE NU|
000000C0: 4D 42 45 52 A0 A0 A0 9D  9D 9D 22 3B 44 44 00 F2  |MBER......";DD..|
000000D0: 04 10 00 44 44 24 B2 C9  28 C4 28 44 44 29 2C 31  |...DD$..(.(DD),1|
000000E0: 29 3A 53 44 24 B2 C9 28  C4 28 31 AB 44 44 29 2C  |):SD$..(.(1.DD),|
000000F0: 31 29 00 0A 05 12 00 43  43 24 B2 22 49 22 AA 53  |1).....CC$."I".S|
00000100: 44 24 3A 98 31 35 2C 43  43 24 00 48 05 14 00 99  |D$:.15,CC$.H....|
00000110: 22 11 44 4F 20 59 4F 55  20 57 49 53 48 20 54 4F  |".DO YOU WISH TO|
00000120: 20 4E 45 57 20 44 52 49  56 45 20 22 44 44 24 3B  | NEW DRIVE "DD$;|
00000130: 3A 85 22 20 20 4E 9D 9D  9D 22 3B 53 24 3A 8B 53  |:."  N...";S$:.S|
00000140: 24 B2 22 59 22 A7 33 30  00 69 05 19 00 8D 39 30  |$."Y".30.i....90|
00000150: 30 3A 43 43 24 B2 22 49  22 AA 44 44 24 3A 98 31  |0:CC$."I".DD$:.1|
00000160: 35 2C 43 43 24 3A 89 34  30 00 95 05 1E 00 85 22  |5,CC$:.40......"|
00000170: 44 49 53 4B 20 4E 41 4D  45 A0 A0 A0 9D 9D 9D 22  |DISK NAME......"|
00000180: 3B 4E 24 3A 8B 4E 24 B2  22 A0 22 A7 99 22 91 22  |;N$:.N$.".".."."|
00000190: 3B 3A 89 33 30 00 CE 05  20 00 85 22 49 44 A0 28  |;:.30... .."ID.(|
000001A0: 46 4F 52 20 46 4F 52 4D  41 54 54 49 4E 47 29 A0  |FOR FORMATTING).|
000001B0: A0 A0 9D 9D 9D 22 3B 49  44 24 3A 8B 49 44 24 B2  |.....";ID$:.ID$.|
000001C0: 22 A0 22 A7 49 44 24 B2  22 22 3A 89 33 36 00 E3  |".".ID$."":.36..|
000001D0: 05 22 00 49 44 24 B2 22  2C 22 AA C8 28 49 44 24  |.".ID$.","..(ID$|
000001E0: 2C 32 29 00 0C 06 24 00  8D 39 30 30 3A 43 43 24  |,2)...$..900:CC$|
000001F0: B2 22 4E 20 22 AA 44 44  24 AA 22 3A 22 AA 4E 24  |."N ".DD$.":".N$|
00000200: AA 49 44 24 3A 98 31 35  2C 43 43 24 00 47 06 28  |.ID$:.15,CC$.G.(|
00000210: 00 99 22 11 41 50 52 4F  58 49 4D 41 54 45 20 53  |..".APROXIMATE S|
00000220: 49 5A 45 20 4F 46 20 44  49 52 45 43 54 4F 52 59  |IZE OF DIRECTORY|
00000230: 20 4F 4E 20 22 53 44 24  3B 3A 85 22 A0 A0 A0 9D  | ON "SD$;:."....|
00000240: 9D 9D 22 3B 44 53 24 00  61 06 29 00 44 53 B2 C5  |..";DS$.a.).DS..|
00000250: 28 44 53 24 29 3A 8B 44  53 B2 30 A7 44 53 B2 32  |(DS$):.DS.0.DS.2|
00000260: 30 00 6D 06 2A 00 86 44  24 28 44 53 29 00 91 06  |0.m.*..D$(DS)...|
00000270: 32 00 99 22 11 44 4F 20  59 4F 55 20 57 49 53 48  |2..".DO YOU WISH|
00000280: 20 54 4F 20 41 4C 50 48  41 42 45 54 49 5A 45 20  | TO ALPHABETIZE |
00000290: 22 00 BB 06 33 00 85 22  54 48 45 20 4E 45 57 20  |"...3.."THE NEW |
000002A0: 44 49 52 45 43 54 4F 52  59 20 45 4E 54 52 49 45  |DIRECTORY ENTRIE|
000002B0: 53 20 20 4E 9D 9D 9D 22  3B 53 24 00 F0 06 3C 00  |S  N...";S$...<.|
000002C0: 85 22 11 44 4F 20 59 4F  55 20 57 49 53 48 20 54  |.".DO YOU WISH T|
000002D0: 4F 20 55 53 45 20 50 41  54 54 45 52 4E 20 4D 41  |O USE PATTERN MA|
000002E0: 54 43 48 49 4E 47 20 20  4E 9D 9D 9D 22 3B 50 24  |TCHING  N...";P$|
000002F0: 00 08 07 3D 00 8B 50 24  B3 B1 22 59 22 A7 50 24  |...=..P$.."Y".P$|
00000300: B2 22 2A 22 3A 89 37 30  00 34 07 41 00 85 22 11  |."*":.70.4.A..".|
00000310: 12 50 41 54 54 45 52 4E  92 20 28 55 53 45 20 32  |.PATTERN. (USE 2|
00000320: 30 34 30 20 52 55 4C 45  53 29 A0 A0 A0 9D 9D 9D  |040 RULES)......|
00000330: 22 3B 50 24 00 47 07 42  00 8B 50 24 B2 22 A0 22  |";P$.G.B..P$."."|
00000340: A7 50 24 B2 22 2A 22 00  6A 07 46 00 99 22 11 20  |.P$."*".j.F..". |
00000350: 12 43 92 4F 50 59 20 41  4C 4C 20 46 49 4C 45 53  |.C.OPY ALL FILES|
00000360: 20 46 52 4F 4D 20 22 53  44 24 00 92 07 47 00 85  | FROM "SD$...G..|
00000370: 22 4F 52 20 12 51 92 55  45 52 59 20 4F 4E 20 45  |"OR .Q.UERY ON E|
00000380: 41 43 48 20 43 4F 50 59  A0 A0 43 9D 9D 9D 22 3B  |ACH COPY..C...";|
00000390: 51 24 00 9B 07 5A 00 8D  39 30 30 00 B0 07 64 00  |Q$...Z..900...d.|
000003A0: 81 4C B2 30 A4 31 30 30  30 3A 82 3A 8D 35 30 30  |.L.0.1000:.:.500|
000003B0: 00 B9 07 6E 00 8D 32 30  30 00 DE 07 73 00 99 22  |...n..200...s.."|
000003C0: 11 43 4F 50 59 20 46 49  4E 49 53 48 45 44 21 21  |.COPY FINISHED!!|
000003D0: 11 22 3A 81 4C B2 30 A4  34 30 30 30 3A 82 00 0B  |.":.L.0.4000:...|
000003E0: 08 78 00 4B B2 30 3A 44  53 B2 37 30 3A 50 24 B2  |.x.K.0:DS.70:P$.|
000003F0: 22 2A 22 3A 53 44 24 B2  44 44 24 3A 8D 35 30 30  |"*":SD$.DD$:.500|
00000400: 3A 99 22 91 91 91 91 91  22 3A 80 00 18 08 C8 00  |:.".....":......|
00000410: 81 49 B2 31 A4 4B AB 31  00 50 08 CD 00 99 3A 49  |.I.1.K.1.P....:I|
00000420: 4E 24 B2 22 59 22 3A 8B  51 24 B2 22 51 22 A7 99  |N$."Y":.Q$."Q"..|
00000430: 22 91 43 4F 50 59 3A 20  12 22 44 24 28 49 29 22  |".COPY: ."D$(I)"|
00000440: 92 22 3A 85 22 A0 20 59  9D 9D 9D 22 3B 49 4E 24  |.":.". Y...";IN$|
00000450: 00 68 08 D2 00 99 22 91  91 22 3A 8B 49 4E 24 B3  |.h...."..":.IN$.|
00000460: B1 22 59 22 A7 82 3A 8E  00 95 08 DC 00 43 43 24  |."Y"..:......CC$|
00000470: B2 22 43 20 22 AA 44 44  24 AA 22 3A 22 AA 44 24  |."C ".DD$.":".D$|
00000480: 28 49 29 AA 22 3D 22 AA  53 44 24 AA 22 3A 22 AA  |(I)."=".SD$.":".|
00000490: 44 24 28 49 29 00 A6 08  E6 00 98 31 35 2C 43 43  |D$(I)......15,CC|
000004A0: 24 3A 8D 39 30 30 00 BD  08 F0 00 8B 45 4E B1 32  |$:.900......EN.2|
000004B0: 39 20 B0 20 45 4E B2 30  A7 20 82 3A 8E 00 F4 08  |9 . EN.0. .:....|
000004C0: FA 00 98 31 35 2C 22 4D  2D 57 22 C7 28 34 31 29  |...15,"M-W".(41)|
000004D0: C7 28 30 29 C7 28 31 29  C7 28 44 44 AA 36 36 29  |.(0).(1).(DD.66)|
000004E0: 3A 8F 20 50 41 54 43 48  20 46 4F 52 20 53 43 52  |:. PATCH FOR SCR|
000004F0: 41 54 43 48 00 20 09 04  01 43 43 24 B2 22 53 20  |ATCH. ...CC$."S |
00000500: 22 AA 44 44 24 AA 22 3A  22 AA 44 24 28 49 29 3A  |".DD$.":".D$(I):|
00000510: 98 31 35 2C 43 43 24 3A  8D 39 30 30 3A 82 3A 8E  |.15,CC$:.900:.:.|
00000520: 00 35 09 F4 01 8F 20 52  45 41 54 20 44 49 52 45  |.5.... REAT DIRE|
00000530: 43 54 4F 52 59 00 3D 09  F9 01 4B B2 31 00 6E 09  |CTORY.=...K.1.n.|
00000540: FE 01 98 31 35 2C 22 4D  2D 45 22 C7 28 32 31 32  |...15,"M-E".(212|
00000550: 29 C7 28 32 33 37 29 3A  8F 20 44 49 52 45 43 54  |).(237):. DIRECT|
00000560: 4F 52 59 20 4C 4F 41 44  20 50 41 54 43 48 00 9E  |ORY LOAD PATCH..|
00000570: 09 08 02 99 20 22 93 11  20 20 20 20 12 44 49 52  |.... "..    .DIR|
00000580: 45 43 54 4F 52 59 20 46  52 4F 4D 20 44 52 49 56  |ECTORY FROM DRIV|
00000590: 45 20 22 53 44 24 22 11  22 3A 42 B2 33 30 00 C2  |E "SD$".":B.30..|
000005A0: 19 26 02 43 43 24 B2 22  24 22 AA 53 44 24 AA 22  |.&.CC$."$".SD$."|
000005B0: 3A 22 AA 50 24 3A 9F 20  32 2C 44 4E 2C 30 2C 43  |:".P$:. 2,DN,0,C|
000005C0: 43 24 00 EE 09 27 02 43  43 24 B2 22 4F 50 45 4E  |C$...'.CC$."OPEN|
000005D0: 20 32 2C 22 AA 44 4E 24  AA 22 2C 30 2C 22 AA C7  | 2,".DN$.",0,"..|
000005E0: 28 33 34 29 AA 43 43 24  AA C7 28 33 34 29 00 F9  |(34).CC$..(34)..|
000005F0: 09 2B 02 8D 39 30 30 3A  99 00 13 0A 30 02 A1 23  |.+..900:....0..#|
00000600: 32 2C 41 24 20 3A A1 23  32 2C 41 24 20 3A 49 24  |2,A$ :.#2,A$ :I$|
00000610: B2 22 22 00 25 0A 3A 02  8B 20 53 54 B3 B1 30 20  |."".%.:.. ST..0 |
00000620: 89 20 36 36 30 00 39 0A  44 02 81 20 41 B2 31 A4  |. 660.9.D.. A.1.|
00000630: 42 20 3A A1 23 32 2C 41  24 00 4F 0A 4E 02 8B 20  |B :.#2,A$.O.N.. |
00000640: 41 24 B2 22 22 20 A7 20  41 24 B2 C7 28 30 29 00  |A$."" . A$..(0).|
00000650: 6B 0A 58 02 49 24 B2 49  24 AA 41 24 20 3A 82 20  |k.X.I$.I$.A$ :. |
00000660: 3A 49 24 B2 49 24 AA 22  20 20 22 00 7F 0A 62 02  |:I$.I$."  "...b.|
00000670: 42 51 B2 C6 28 CA 28 49  24 2C 33 2C 31 29 29 00  |BQ..(.(I$,3,1)).|
00000680: 9A 0A 6C 02 42 51 B2 42  51 AA C6 28 CA 28 49 24  |..l.BQ.BQ..(.(I$|
00000690: 2C 34 2C 31 29 29 AC 32  35 36 00 AE 0A 76 02 99  |,4,1)).256...v..|
000006A0: 20 42 51 3B CA 28 49 24  2C 35 2C 32 37 29 00 BC  | BQ;.(I$,5,27)..|
000006B0: 0A 77 02 8B 42 B2 33 30  A7 36 35 30 00 E1 0A 79  |.w..B.30.650...y|
000006C0: 02 81 49 B2 36 A4 32 37  3A 8B CA 28 49 24 2C 49  |..I.6.27:..(I$,I|
000006D0: 2C 31 29 B3 B1 C7 28 33  34 29 A7 82 3A 89 36 35  |,1)...(34)..:.65|
000006E0: 30 00 13 0B 7B 02 81 4A  B2 49 AA 31 A4 32 37 3A  |0...{..J.I.1.27:|
000006F0: 8B CA 28 49 24 2C 4A 2C  31 29 B3 B1 C7 28 33 34  |..(I$,J,1)...(34|
00000700: 29 A7 44 24 B2 44 24 AA  CA 28 49 24 2C 4A 2C 31  |).D$.D$..(I$,J,1|
00000710: 29 3A 82 00 29 0B 7F 02  8B 53 24 B2 22 59 22 A7  |):..)....S$."Y".|
00000720: 8D 37 30 30 3A 89 36 35  30 00 3C 0B 80 02 44 24  |.700:.650.<...D$|
00000730: 28 4B 29 B2 44 24 3A 4B  B2 4B AA 31 00 5E 0B 8A  |(K).D$:K.K.1.^..|
00000740: 02 44 24 B2 22 22 3A 49  24 B2 22 22 3A 42 B2 33  |.D$."":I$."":B.3|
00000750: 32 3A 8B 41 24 B3 B1 22  53 22 89 35 37 30 00 7E  |2:.A$.."S".570.~|
00000760: 0B 94 02 99 3A 43 43 24  B2 22 52 45 41 44 20 44  |....:CC$."READ D|
00000770: 49 52 45 43 54 4F 52 59  22 3A 8D 39 30 30 00 A2  |IRECTORY":.900..|
00000780: 0B 9E 02 43 43 24 B2 22  43 4C 4F 53 45 20 32 22  |...CC$."CLOSE 2"|
00000790: 3A 20 A0 20 32 3A 8D 39  30 30 3A 99 22 11 11 22  |: . 2:.900:.".."|
000007A0: 3A 8E 00 B7 0B BC 02 8F  20 53 4F 52 54 20 44 49  |:....... SORT DI|
000007B0: 52 45 43 54 4F 52 59 00  CE 0B C6 02 8B 20 4B B2  |RECTORY...... K.|
000007C0: 31 20 A7 20 4A B2 30 3A  20 89 20 37 34 30 00 E5  |1 . J.0: . 740..|
000007D0: 0B D0 02 8B 20 4B B2 30  20 A7 20 4A B2 AB 31 3A  |.... K.0 . J..1:|
000007E0: 89 20 37 34 30 00 17 0C  DA 02 81 20 4A B2 4B AB  |. 740...... J.K.|
000007F0: 31 20 A4 20 31 20 A9 AB  31 3A 8B 20 44 24 B3 44  |1 . 1 ..1:. D$.D|
00000800: 24 28 4A 29 20 A7 20 44  24 28 4A AA 31 29 B2 44  |$(J) . D$(J.1).D|
00000810: 24 28 4A 29 3A 20 82 00  30 0C E4 02 44 24 28 4A  |$(J): ..0...D$(J|
00000820: AA 31 29 B2 44 24 20 3A  4B B2 4B AA 31 20 3A 8E  |.1).D$ :K.K.1 :.|
00000830: 00 4F 0C 84 03 8F 20 49  4E 50 55 54 20 46 52 4F  |.O.... INPUT FRO|
00000840: 4D 20 45 52 52 4F 52 20  43 48 41 4E 4E 45 4C 00  |M ERROR CHANNEL.|
00000850: 66 0C 8E 03 84 31 35 2C  45 4E 2C 45 4D 24 2C 45  |f....15,EN,EM$,E|
00000860: 54 24 2C 45 53 24 00 88  0C 98 03 8B 45 4E B2 30  |T$,ES$......EN.0|
00000870: A7 99 22 12 22 43 43 24  22 92 20 C3 3E 20 22 A3  |.."."CC$". .> ".|
00000880: 31 35 29 45 4D 24 3A 8E  00 B3 0C A2 03 8B 45 4E  |15)EM$:.......EN|
00000890: B2 31 A7 99 22 12 22 43  43 24 22 92 20 C3 3E 20  |.1.."."CC$". .> |
000008A0: 22 A3 31 35 29 22 12 22  45 54 24 22 92 22 45 4D  |".15)"."ET$"."EM|
000008B0: 24 3A 8E 00 D9 0C AC 03  99 22 11 12 22 43 43 24  |$:.......".."CC$|
000008C0: 3A 99 22 92 20 C3 3E 20  45 52 52 4F 52 20 23 22  |:.". .> ERROR #"|
000008D0: 45 4E 22 12 22 45 4D 24  3B 00 F6 0C B6 03 8B 45  |EN"."EM$;......E|
000008E0: 4E B3 33 30 A7 99 22 20  4F 4E 20 22 45 54 24 22  |N.30.." ON "ET$"|
000008F0: 2E 22 45 53 24 3B 00 FF  0C C0 03 99 22 11 22 00  |."ES$;......".".|
00000900: 25 0D CA 03 85 22 43 4F  4E 54 49 4E 55 45 A0 A0  |%...."CONTINUE..|
00000910: 4E 9D 9D 9D 22 3B 49 4E  24 3A 8B 49 4E 24 B2 22  |N...";IN$:.IN$."|
00000920: 59 22 A7 20 8E 00 2B 0D  D4 03 80 00 00 00        |Y". ..+.......  |

..<.... COPY DISK FILES -- VER 1.1      
     UPDATED 5-14-79.`...."...".10)". CO
PY DISK FILES ."......"INSERT DISKETTES 
IN DRIVES.".....DN.8:DN$.I(D(DN),1):.15,
DN,15.N...."DESTINATION DRIVE NUMBER   .
..";DD.....DD$.I(D(DD),1):SD$.I(D(1.DD),
1).....CC$."I".SD$:.15,CC$.H....".DO YOU
 WISH TO NEW DRIVE "DD$;:."  N...";S$:.S
$."Y".30.I....900:CC$."I".DD$:.15,CC$:.4
0......"DISK NAME   ...";N$:.N$." ".."."
;:.30.N. .."ID (FOR FORMATTING)   ...";I
D$:.ID$." ".ID$."":.36...".ID$.",".H(ID$
,2)...$..900:CC$."N ".DD$.":".N$.ID$:.15
,CC$.G.(..".APROXIMATE SIZE OF DIRECTORY
 ON "SD$;:."   ...";DS$.A.).DS.E(DS$):.D
S.0.DS.20.M.*..D$(DS)...2..".DO YOU WISH
 TO ALPHABETIZE "...3.."THE NEW DIRECTOR
Y ENTRIES  N...";S$...<..".DO YOU WISH T
O USE PATTERN MATCHING  N...";P$...=..P$
.."Y".P$."*":.70.4.A.."..PATTERN. (USE 2
040 RULES)   ...";P$.G.B..P$." ".P$."*".
J.F..". .C.OPY ALL FILES FROM "SD$...G..
"OR .Q.UERY ON EACH COPY  C...";Q$...Z..
900...D..L.0.1000:.:.500...N..200...S.."
.COPY FINISHED!!.":.L.0.4000:....X.K.0:D
S.70:P$."*":SD$.DD$:.500:.".....":....H.
.I.1.K.1.P.M..:IN$."Y":.Q$."Q"..".COPY: 
."D$(I)".":."  Y...";IN$.H.R.."..":.IN$.
."Y"..:......CC$."C ".DD$.":".D$(I)."=".
SD$.":".D$(I)......15,CC$:.900......EN.2
9 . EN.0. .:.......15,"M-W"G(41)G(0)G(1)
G(DD.66):. PATCH FOR SCRATCH. ...CC$."S 
".DD$.":".D$(I):.15,CC$:.900:.:..5.... R
EAT DIRECTORY.=...K.1.N....15,"M-E"G(212
)G(237):. DIRECTORY LOAD PATCH...... "..
    .DIRECTORY FROM DRIVE "SD$".":B.30.B
.&.CC$."$".SD$.":".P$:. 2,DN,0,CC$...'.C
C$."OPEN 2,".DN$.",0,".G(34).CC$.G(34)..
.+..900:....0..#2,A$ :.#2,A$ :I$."".%.:.
. ST..0 . 660.9.D.. A.1.B :.#2,A$.O.N.. 
A$."" . A$.G(0).K.X.I$.I$.A$ :. :I$.I$."
  "..B.BQ.F(J(I$,3,1))...L.BQ.BQ.F(J(I$
,4,1)).256...V.. BQ;J(I$,5,27)...W..B.30
.650...Y..I.6.27:.J(I$,I,1)..G(34)..:.65
0...{..J.I.1.27:.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.~....:CC$."READ DIRECTORY":.900..
...CC$."CLOSE 2":   2:.900:."..":.......
 SORT DIRECTORY.N.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): ..0...D$(J
.1).D$ :K.K.1 :..O.... INPUT FROM ERROR 
CHANNEL.F....15,EN,EM$,ET$,ES$......EN.0
.."."CC$". C> ".15)EM$:.......EN.1.."."C
C$". C> ".15)"."ET$"."EM$:..Y....".."CC$
:.". C> ERROR #"EN"."EM$;......EN.30.." 
ON "ET$"."ES$;......".".%.J.."CONTINUE  
N...";IN$:.IN$."Y". ..+.T.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL