FILECOPY

00000000: 01 08 1B 1C 0B 00 46 24  B2 22 46 49 4C 45 43 4F  |......F$."FILECO|
00000010: 50 59 2E 42 49 4E 22 3A  55 B2 38 00 2B 1C 0D 00  |PY.BIN":U.8.+...|
00000020: 8D 39 31 30 30 3A 8D 39  30 35 30 00 44 1C 0E 00  |.9100:.9050.D...|
00000030: 8B 20 46 B2 30 20 A7 20  93 20 46 24 2C 55 2C 31  |. F.0 . . F$,U,1|
00000040: 3A 89 32 35 00 4D 1C 14  00 DE 31 2C 31 00 6E 1C  |:.25.M....1,1.n.|
00000050: 15 00 FE 11 28 46 24 29  2C 50 28 42 41 29 91 55  |....(F$),P(BA).U|
00000060: 28 55 29 3A 8B CC 28 30  29 B3 35 A7 DE 30 00 78  |(U):..(0).5..0.x|
00000070: 1C 19 00 8D 39 30 30 30  00 A4 1C 28 00 85 20 22  |....9000...(.. "|
00000080: 1D 12 9B 59 4F 55 52 20  53 4F 55 52 43 45 20 44  |...YOUR SOURCE D|
00000090: 49 53 4B 20 55 4E 49 54  92 05 20 20 38 9D 9D 9D  |ISK UNIT..  8...|
000000A0: 22 3B 53 55 00 D2 1C 32  00 85 20 22 1D 12 9B 44  |";SU...2.. "...D|
000000B0: 45 53 54 49 4E 41 54 49  4F 4E 20 44 49 53 4B 20  |ESTINATION DISK |
000000C0: 55 4E 49 54 05 92 20 20  39 9D 9D 9D 22 3B 44 55  |UNIT..  9...";DU|
000000D0: 3A 99 00 03 1D 3C 00 3A  20 8B 20 53 55 B3 34 20  |:....<.: . SU.4 |
000000E0: B0 20 53 55 B1 33 31 20  B0 20 44 55 B3 34 20 B0  |. SU.31 . DU.4 .|
000000F0: 20 44 55 B1 33 31 20 B0  20 53 55 B2 44 55 20 A7  | DU.31 . SU.DU .|
00000100: 20 31 30 00 38 1D 46 00  99 20 22 12 9B 20 45 4E  | 10.8.F.. ".. EN|
00000110: 54 45 52 20 54 45 4D 50  4C 41 54 45 20 4F 52 20  |TER TEMPLATE OR |
00000120: 3C 52 45 54 55 52 4E 3E  20 92 05 20 22 3B 3A 4D  |<RETURN> .. ";:M|
00000130: 24 B2 22 22 3A 85 4D 24  00 6F 1D 48 00 57 B2 30  |$."":.M$.o.H.W.0|
00000140: 3A 57 57 B2 30 3A 81 20  49 B2 31 A4 C3 28 4D 24  |:WW.0:. I.1..(M$|
00000150: 29 3A 8B 20 22 2A 22 B2  CA 28 4D 24 2C 49 2C 31  |):. "*"..(M$,I,1|
00000160: 29 20 A7 20 57 B2 49 3A  57 57 B2 57 57 AA 31 00  |) . W.I:WW.WW.1.|
00000170: 98 1D 49 00 82 3A 20 8B  20 57 57 B1 31 20 A7 20  |..I..: . WW.1 . |
00000180: 99 22 11 9B 42 41 44 20  54 45 4D 50 4C 41 54 45  |."..BAD TEMPLATE|
00000190: 22 3A 20 89 20 31 32 30  00 AD 1D 4A 00 57 24 B2  |": . 120...J.W$.|
000001A0: C9 28 4D 24 2C C3 28 4D  24 29 AB 57 29 00 DB 1D  |.(M$,.(M$).W)...|
000001B0: 50 00 86 20 4E 24 28 32  30 30 29 2C 54 24 28 32  |P.. N$(200),T$(2|
000001C0: 30 30 29 2C 43 45 28 32  30 30 29 3A 51 24 B2 C7  |00),CE(200):Q$..|
000001D0: 28 33 34 29 3A 45 24 B2  22 2C 22 00 1B 1E 5A 00  |(34):E$.","...Z.|
000001E0: 9F 31 34 2C 53 55 2C 31  35 2C 22 49 22 3A 20 53  |.14,SU,15,"I": S|
000001F0: 43 B2 31 34 3A 55 B2 53  43 3A 20 8D 38 30 30 30  |C.14:U.SC: .8000|
00000200: 3A 20 8B 53 20 A7 20 99  22 9B 11 22 53 55 22 3A  |: .S . .".."SU":|
00000210: 12 22 3B 53 24 3A 20 89  31 32 30 00 5B 1E 5F 00  |.";S$: .120.[._.|
00000220: 9F 31 35 2C 44 55 2C 31  35 2C 22 49 22 3A 20 44  |.15,DU,15,"I": D|
00000230: 43 B2 31 35 3A 55 B2 44  43 3A 20 8D 38 30 30 30  |C.15:U.DC: .8000|
00000240: 3A 20 8B 20 53 20 A7 20  99 22 11 22 44 55 22 3A  |: . S . ."."DU":|
00000250: 12 22 3B 53 24 3A 20 89  31 32 30 00 76 1E 64 00  |.";S$: .120.v.d.|
00000260: 8D 20 39 30 30 30 3A 20  8D 20 31 30 30 30 3A 20  |. 9000: . 1000: |
00000270: 8D 20 32 30 30 30 00 8F  1E 6E 00 8B 20 4B 20 A7  |. 2000...n.. K .|
00000280: 20 8D 20 39 30 30 30 3A  20 8D 20 33 30 30 30 00  | . 9000: . 3000.|
00000290: C3 1E 78 00 99 3A 99 22  12 20 4D 4F 52 45 20 28  |..x..:.". MORE (|
000002A0: 59 2F 4E 29 20 3F 20 92  05 20 22 3B 3A 8D 34 30  |Y/N) ? .. ";:.40|
000002B0: 30 30 3A 20 8B 20 41 24  B2 22 4E 22 20 A7 20 9C  |00: . A$."N" . .|
000002C0: 3A 20 80 00 D3 1E 82 00  9C 3A 8D 39 31 30 30 3A  |: .......:.9100:|
000002D0: 89 32 35 00 03 1F E8 03  8F 20 20 52 45 41 44 20  |.25......  READ |
000002E0: 44 49 52 45 43 54 4F 52  59 20 49 4E 54 4F 20 4E  |DIRECTORY INTO N|
000002F0: 24 2C 54 24 3A 20 4E 3D  4E 55 4D 20 46 49 4C 45  |$,T$: N=NUM FILE|
00000300: 53 2B 31 00 20 1F F2 03  99 20 22 9B 52 45 41 44  |S+1. .... ".READ|
00000310: 49 4E 47 20 44 49 52 45  43 54 4F 52 59 2E 22 3B  |ING DIRECTORY.";|
00000320: 00 49 1F FC 03 4E B2 30  3A 20 46 24 B2 22 24 22  |.I...N.0: F$."$"|
00000330: 3A 20 8B 20 C3 28 4D 24  29 B3 B1 30 20 A7 20 46  |: . .(M$)..0 . F|
00000340: 24 B2 22 24 3A 22 AA 4D  24 00 66 1F 06 04 9F 20  |$."$:".M$.f.... |
00000350: 38 2C 53 55 2C 30 2C 46  24 3A 20 55 B2 53 43 3A  |8,SU,0,F$: U.SC:|
00000360: 20 8D 38 30 30 30 00 84  1F 0B 04 3A 20 8B 20 53  | .8000.....: . S|
00000370: 20 A7 20 99 3A 20 99 22  12 22 3B 53 24 3A 20 A0  | . .: .".";S$: .|
00000380: 38 3A 20 8E 00 92 1F 10  04 A1 23 38 2C 41 24 2C  |8: .......#8,A$,|
00000390: 42 24 00 B0 1F 1A 04 3A  20 A1 23 38 2C 41 24 2C  |B$.....: .#8,A$,|
000003A0: 41 24 2C 41 24 2C 41 24  20 3A 99 20 22 2E 22 3B  |A$,A$,A$ :. ".";|
000003B0: 00 D6 1F 24 04 3A 20 20  20 A1 23 38 2C 41 24 3A  |...$.:   .#8,A$:|
000003C0: 20 8B 20 C3 28 41 24 29  B2 30 20 B0 20 53 54 20  | . .(A$).0 . ST |
000003D0: A7 20 31 31 33 30 00 EF  1F 29 04 3A 20 20 20 8B  |. 1130...).:   .|
000003E0: 20 C6 28 41 24 29 B2 30  20 A7 20 31 31 33 30 00  | .(A$).0 . 1130.|
000003F0: 07 20 2E 04 3A 20 20 20  8B 20 41 24 B3 B1 51 24  |. ..:   . A$..Q$|
00000400: 20 A7 20 31 30 36 30 00  3E 20 38 04 3A 20 A1 23  | . 1060.> 8.: .#|
00000410: 38 2C 41 24 3A 20 8B 20  41 24 B3 B1 51 24 20 AF  |8,A$: . A$..Q$ .|
00000420: 20 53 54 B2 30 20 A7 20  4E 24 28 4E 29 B2 4E 24  | ST.0 . N$(N).N$|
00000430: 28 4E 29 AA 41 24 3A 20  89 20 31 30 38 30 00 5C  |(N).A$: . 1080.\|
00000440: 20 42 04 3A 20 A1 23 38  2C 41 24 3A 20 8B 20 41  | B.: .#8,A$: . A|
00000450: 24 B2 22 20 22 20 A7 20  31 30 39 30 00 92 20 4C  |$." " . 1090.. L|
00000460: 04 3A 20 54 24 28 4E 29  B2 54 24 28 4E 29 AA 41  |.: T$(N).T$(N).A|
00000470: 24 3A 20 A1 23 38 2C 41  24 3A 20 8B 20 41 24 B3  |$: .#8,A$: . A$.|
00000480: B1 22 20 22 20 AF 20 53  54 B2 30 20 A7 20 31 31  |." " . ST.0 . 11|
00000490: 30 30 00 C3 20 56 04 3A  20 A1 23 38 2C 41 24 3A  |00.. V.: .#8,A$:|
000004A0: 41 24 B2 41 24 AA C7 28  30 29 3A 8B 20 C6 28 41  |A$.A$..(0):. .(A|
000004B0: 24 29 B3 B1 30 20 AF 20  53 54 B2 30 20 A7 20 31  |$)..0 . ST.0 . 1|
000004C0: 31 31 30 00 DC 20 5C 04  3A 20 8B 20 4E B2 30 20  |110.. \.: . N.0 |
000004D0: B0 20 57 B2 30 20 A7 20  31 31 32 30 00 17 21 5D  |. W.0 . 1120..!]|
000004E0: 04 3A 20 8B 20 C3 28 4E  24 28 4E 29 29 20 B3 20  |.: . .(N$(N)) . |
000004F0: 28 57 AB 31 AA C3 28 57  24 29 29 20 A7 20 4E 24  |(W.1..(W$)) . N$|
00000500: 28 4E 29 B2 22 22 3A 54  24 28 4E 29 B2 22 22 3A  |(N)."":T$(N)."":|
00000510: 20 89 20 31 30 35 30 00  4D 21 5F 04 3A 20 8B 20  | . 1050.M!_.: . |
00000520: 57 24 B3 B1 C9 28 4E 24  28 4E 29 2C 20 C3 28 57  |W$...(N$(N), .(W|
00000530: 24 29 29 20 A7 20 4E 24  28 4E 29 B2 22 22 3A 54  |$)) . N$(N)."":T|
00000540: 24 28 4E 29 B2 22 22 3A  89 31 30 35 30 00 60 21  |$(N)."":.1050.`!|
00000550: 60 04 3A 20 4E B2 4E AA  31 3A 20 89 31 30 35 30  |`.: N.N.1: .1050|
00000560: 00 83 21 6A 04 99 3A A0  20 38 3A 20 8D 38 30 30  |..!j..:. 8: .800|
00000570: 30 3A 20 8B 20 53 20 A7  20 99 22 2E 2E 2E 12 22  |0: . S . ."...."|
00000580: 3B 53 24 00 A7 21 74 04  99 3A 99 20 4E AB 31 3B  |;S$..!t..:. N.1;|
00000590: 22 46 49 4C 45 53 20 54  41 52 47 45 54 45 44 22  |"FILES TARGETED"|
000005A0: 20 3A 99 20 3A 20 8E 00  DB 21 D0 07 8F 20 20 20  | :. : ...!...   |
000005B0: 44 49 53 50 4C 41 59 20  46 49 4C 45 53 20 26 20  |DISPLAY FILES & |
000005C0: 41 53 4B 20 55 53 45 52  20 57 48 49 43 48 20 4F  |ASK USER WHICH O|
000005D0: 4E 45 53 20 54 4F 20 43  4F 50 59 00 02 22 DA 07  |NES TO COPY.."..|
000005E0: 4B B2 30 3A 20 8B 20 4E  B3 32 20 A7 20 99 22 20  |K.0: . N.2 . ." |
000005F0: 4E 4F 20 46 49 4C 45 53  20 46 4F 55 4E 44 2E 22  |NO FILES FOUND."|
00000600: 3A 8E 00 18 22 E4 07 81  20 49 B2 31 A4 4E AB 31  |:..."... I.1.N.1|
00000610: 3A 43 45 28 49 29 B2 30  00 4F 22 EE 07 3A 20 99  |:CE(I).0.O"..: .|
00000620: 20 51 24 3B 4E 24 28 49  29 3B 51 24 3B A3 31 39  | Q$;N$(I);Q$;.19|
00000630: 29 3B 54 24 28 49 29 3B  A3 32 35 29 3B 3A 20 8B  |);T$(I);.25);: .|
00000640: 20 4D 24 B3 B1 22 2A 22  20 A7 20 32 30 37 30 00  | M$.."*" . 2070.|
00000650: 6C 22 F8 07 3A 20 99 3A  43 45 28 49 29 B2 31 3A  |l"..: .:CE(I).1:|
00000660: 20 4B B2 4B AA 31 3A 20  82 3A 20 99 00 A0 22 02  | K.K.1: .: ...".|
00000670: 08 99 20 22 12 20 43 4F  4E 54 49 4E 55 45 20 28  |.. ". CONTINUE (|
00000680: 59 2F 4E 29 20 3F 20 92  20 22 3B 3A 20 8D 34 30  |Y/N) ? . ";: .40|
00000690: 30 30 20 3A 8B 20 41 24  B2 22 59 22 20 A7 20 8E  |00 :. A$."Y" . .|
000006A0: 00 AB 22 0C 08 4B B2 30  3A 20 8E 00 E3 22 16 08  |.."..K.0: ..."..|
000006B0: 99 20 22 43 4F 50 59 20  3F 20 28 59 2F 4E 29 20  |. "COPY ? (Y/N) |
000006C0: 22 3B 3A 8D 34 30 30 30  20 3A 8B 20 41 24 B2 22  |";:.4000 :. A$."|
000006D0: 59 22 20 A7 20 43 45 28  49 29 B2 31 3A 20 4B B2  |Y" . CE(I).1: K.|
000006E0: 4B AA 31 00 EE 22 20 08  3A 20 82 3A 20 8E 00 05  |K.1.." .: .: ...|
000006F0: 23 B8 0B 8F 20 20 20 43  4F 50 59 20 54 48 45 20  |#...   COPY THE |
00000700: 46 49 4C 45 53 00 24 23  C2 0B 81 20 49 B2 31 A4  |FILES.$#... I.1.|
00000710: 4E AB 31 3A 8B 20 43 45  28 49 29 B2 30 20 A7 20  |N.1:. CE(I).0 . |
00000720: 82 3A 20 8E 00 4C 23 CC  0B 3A 54 24 28 49 29 20  |.: ..L#..:T$(I) |
00000730: B2 20 C8 28 54 24 28 49  29 2C 31 29 3A 20 46 24  |. .(T$(I),1): F$|
00000740: B2 51 24 AA 4E 24 28 49  29 AA 51 24 00 6F 23 D6  |.Q$.N$(I).Q$.o#.|
00000750: 0B 9F 39 2C 44 55 2C 39  2C 4E 24 28 49 29 3A 20  |..9,DU,9,N$(I): |
00000760: 55 B2 44 43 3A 20 8D 38  30 30 30 3A 20 A0 39 00  |U.DC: .8000: .9.|
00000770: 83 23 E0 0B 3A 20 8B 20  53 B2 36 32 20 A7 20 33  |.#..: . S.62 . 3|
00000780: 31 30 30 00 B2 23 EA 0B  3A 20 99 20 46 24 3B 22  |100..#..: . F$;"|
00000790: 20 45 58 49 53 54 53 2C  20 52 45 50 4C 41 43 45  | EXISTS, REPLACE|
000007A0: 3F 20 22 3B 3A 20 8D 34  30 30 30 3A 8D 20 34 35  |? ";: .4000:. 45|
000007B0: 30 30 00 DA 23 F4 0B 3A  20 8B 20 41 24 B2 22 4E  |00..#..: . A$."N|
000007C0: 22 20 A7 20 99 20 46 24  3B 22 20 4E 4F 54 20 43  |" . . F$;" NOT C|
000007D0: 4F 50 49 45 44 22 3A 82  3A 8E 00 FA 23 FE 0B 3A  |OPIED":.:...#..:|
000007E0: 20 20 20 99 20 20 22 53  43 52 41 54 43 48 49 4E  |   .  "SCRATCHIN|
000007F0: 47 20 4F 4C 44 20 22 3B  46 24 00 2D 24 08 0C 3A  |G OLD ";F$.-$..:|
00000800: 20 20 20 98 31 35 2C 22  53 30 3A 22 3B 4E 24 28  |   .15,"S0:";N$(|
00000810: 49 29 3A 20 8D 38 30 30  30 3A 8D 20 34 35 30 30  |I): .8000:. 4500|
00000820: 3A 8B 20 53 B1 31 20 A7  20 33 31 37 30 00 3C 24  |:. S.1 . 3170.<$|
00000830: 12 0C 3A 20 20 20 89 20  33 30 33 30 00 70 24 1C  |..:   . 3030.p$.|
00000840: 0C 3A 20 8B 20 54 24 28  49 29 B2 22 52 22 20 A7  |.: . T$(I)."R" .|
00000850: 20 8D 20 35 30 30 30 3A  89 20 33 31 37 30 3A 8F  | . 5000:. 3170:.|
00000860: 20 20 43 4F 50 59 20 52  45 4C 20 46 49 4C 45 53  |  COPY REL FILES|
00000870: 00 8B 24 26 0C 3A 20 20  99 20 22 4E 4F 57 20 43  |..$&.:  . "NOW C|
00000880: 4F 50 59 49 4E 47 20 22  3B 46 24 00 C9 24 30 0C  |OPYING ";F$..$0.|
00000890: 3A 20 20 9F 39 2C 44 55  2C 31 2C 4E 24 28 49 29  |:  .9,DU,1,N$(I)|
000008A0: AA 22 2C 22 AA 54 24 28  49 29 AA 22 2C 57 22 3A  |.",".T$(I).",W":|
000008B0: 20 55 B2 44 43 3A 20 8D  38 30 30 30 20 3A 20 8B  | U.DC: .8000 : .|
000008C0: 20 53 20 A7 20 33 31 37  30 00 07 25 44 0C 3A 20  | S . 3170..%D.: |
000008D0: 20 9F 38 2C 53 55 2C 30  2C 4E 24 28 49 29 AA 22  | .8,SU,0,N$(I)."|
000008E0: 2C 22 AA 54 24 28 49 29  AA 22 2C 52 22 3A 20 55  |,".T$(I).",R": U|
000008F0: B2 53 43 3A 20 8D 38 30  30 30 20 3A 20 8B 20 53  |.SC: .8000 : . S|
00000900: 20 A7 20 33 31 37 30 00  29 25 58 0C 3A 20 20 9E  | . 3170.)%X.:  .|
00000910: 20 42 41 3A 20 A0 20 38  3A 20 A0 20 39 3A 55 B2  | BA: . 8: . 9:U.|
00000920: 44 43 3A 8D 20 38 30 30  30 00 57 25 62 0C 3A 20  |DC:. 8000.W%b.: |
00000930: 20 8B 20 53 20 A7 20 99  20 22 12 1D 43 4F 50 59  | . S . . "..COPY|
00000940: 20 46 41 49 4C 45 44 3A  20 92 22 3B 53 24 20 3A  | FAILED: .";S$ :|
00000950: 20 89 20 33 31 38 30 00  6A 25 67 0C 3A 20 20 55  | . 3180.j%g.:  U|
00000960: B2 53 43 3A 8D 20 38 30  30 30 00 8F 25 68 0C 3A  |.SC:. 8000..%h.:|
00000970: 20 20 8B 20 53 20 A7 20  99 20 22 12 1D 43 4F 50  |  . S . . "..COP|
00000980: 59 20 46 41 49 4C 45 44  3A 20 92 22 3B 53 24 00  |Y FAILED: .";S$.|
00000990: 98 25 6C 0C 82 3A 20 8E  00 BD 25 A0 0F A1 20 41  |.%l..: ...%... A|
000009A0: 24 3A 20 8B 20 41 24 B3  B1 22 59 22 20 AF 20 41  |$: . A$.."Y" . A|
000009B0: 24 B3 B1 22 4E 22 20 A7  20 34 30 30 30 00 C8 25  |$.."N" . 4000..%|
000009C0: AA 0F 99 41 24 3A 20 8E  00 06 26 94 11 99 20 22  |...A$: ...&... "|
000009D0: 91 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000009E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009F0: 20 20 20 20 20 20 20 20  22 AA C7 28 31 33 29 AA  |        "..(13).|
00000A00: 22 91 22 3B 3A 8E 00 1E  26 88 13 8F 20 20 20 43  |".";:...&...   C|
00000A10: 4F 50 59 20 52 45 4C 20  46 49 4C 45 53 2E 00 33  |OPY REL FILES..3|
00000A20: 26 92 13 99 20 22 53 43  41 4E 4E 49 4E 47 20 22  |&... "SCANNING "|
00000A30: 3B 46 24 00 5C 26 9C 13  9F 38 2C 53 55 2C 38 2C  |;F$.\&...8,SU,8,|
00000A40: 4E 24 28 49 29 3A 20 55  B2 53 43 3A 20 8D 20 38  |N$(I): U.SC: . 8|
00000A50: 30 30 30 3A 20 8B 20 53  20 A7 20 8E 00 8B 26 A6  |000: . S . ...&.|
00000A60: 13 4C B2 30 3A 81 20 52  4E B2 37 A4 30 A9 AB 31  |.L.0:. RN.7.0..1|
00000A70: 3A 52 47 B2 32 AE 52 4E  3A 20 8F 20 53 43 41 4E  |:RG.2.RN: . SCAN|
00000A80: 20 46 4F 52 20 52 45 43  4C 45 4E 00 B0 26 B0 13  | FOR RECLEN..&..|
00000A90: 3A 20 52 B2 31 3A 4C B2  4C AA 52 47 3A 8D 20 36  |: R.1:L.L.RG:. 6|
00000AA0: 30 30 30 3A 8B 20 53 20  A7 20 4C B2 4C AB 52 47  |000:. S . L.L.RG|
00000AB0: 00 B8 26 BA 13 3A 20 82  00 E7 26 C4 13 52 B2 30  |..&..: ...&..R.0|
00000AC0: 3A 81 52 4E B2 31 35 A4  30 A9 AB 31 3A 52 47 B2  |:.RN.15.0..1:RG.|
00000AD0: 32 AE 52 4E 3A 20 8F 20  53 43 41 4E 20 46 4F 52  |2.RN: . SCAN FOR|
00000AE0: 20 4E 55 4D 52 45 43 00  0A 27 CE 13 3A 20 52 B2  | NUMREC..'..: R.|
00000AF0: 52 AA 52 47 3A 20 8D 20  36 30 30 30 3A 20 8B 20  |R.RG: . 6000: . |
00000B00: 53 20 A7 20 52 B2 52 AB  52 47 00 12 27 D8 13 3A  |S . R.R.RG..'..:|
00000B10: 20 82 00 2E 27 EC 13 8D  20 34 35 30 30 3A 99 20  | ...'... 4500:. |
00000B20: 22 43 52 45 41 54 49 4E  47 20 22 3B 46 24 00 4B  |"CREATING ";F$.K|
00000B30: 27 F6 13 9F 39 2C 44 55  2C 39 2C 4E 24 28 49 29  |'...9,DU,9,N$(I)|
00000B40: AA 22 2C 4C 2C 22 AA C7  28 4C 29 00 68 27 00 14  |.",L,"..(L).h'..|
00000B50: 3A 20 20 55 B2 44 43 3A  20 8D 20 38 30 30 30 3A  |:  U.DC: . 8000:|
00000B60: 20 8B 20 53 20 A7 20 8E  00 9A 27 0A 14 41 24 B2  | . S . ...'..A$.|
00000B70: 22 50 22 AA C7 28 39 36  AA 38 29 AA C7 28 31 29  |"P"..(96.8)..(1)|
00000B80: AA C7 28 30 29 AA C7 28  31 29 3A 20 98 31 34 2C  |..(0)..(1): .14,|
00000B90: 41 24 3A 20 98 31 34 2C  41 24 00 B7 27 14 14 3A  |A$: .14,A$..'..:|
00000BA0: 20 20 55 B2 53 43 3A 20  8D 20 38 30 30 30 3A 20  |  U.SC: . 8000: |
00000BB0: 8B 20 53 20 A7 20 8E 00  EB 27 1E 14 41 24 B2 22  |. S . ...'..A$."|
00000BC0: 50 22 AA C7 28 39 36 AA  39 29 AA C7 28 52 4C 29  |P"..(96.9)..(RL)|
00000BD0: AA C7 28 52 48 29 AA C7  28 31 29 3A 20 98 31 35  |..(RH)..(1): .15|
00000BE0: 2C 41 24 3A 20 98 31 35  2C 41 24 00 11 28 28 14  |,A$: .15,A$..((.|
00000BF0: 3A 20 20 98 39 2C C7 28  32 35 35 29 3B 3A 20 8F  |:  .9,.(255);: .|
00000C00: 20 57 52 49 54 45 20 45  4E 44 20 52 45 43 4F 52  | WRITE END RECOR|
00000C10: 44 00 43 28 32 14 41 24  B2 22 50 22 AA C7 28 39  |D.C(2.A$."P"..(9|
00000C20: 36 AA 39 29 AA C7 28 31  29 AA C7 28 30 29 AA C7  |6.9)..(1)..(0)..|
00000C30: 28 31 29 3A 20 98 31 35  2C 41 24 3A 20 98 31 35  |(1): .15,A$: .15|
00000C40: 2C 41 24 00 60 28 3C 14  3A 20 20 55 B2 44 43 3A  |,A$.`(<.:  U.DC:|
00000C50: 20 8D 20 38 30 30 30 3A  20 8B 20 53 20 A7 20 8E  | . 8000: . S . .|
00000C60: 00 7F 28 50 14 8D 20 34  35 30 30 3A 99 20 22 4E  |..(P.. 4500:. "N|
00000C70: 4F 57 20 43 4F 50 59 49  4E 47 20 22 3B 46 24 00  |OW COPYING ";F$.|
00000C80: 94 28 5A 14 81 20 52 4E  B2 31 A4 52 3A 20 9E 42  |.(Z.. RN.1.R: .B|
00000C90: 41 3A 20 82 00 AD 28 64  14 A0 38 3A 20 A0 39 3A  |A: ...(d..8: .9:|
00000CA0: 20 55 B2 44 43 3A 20 8D  20 38 30 30 30 00 B3 28  | U.DC: . 8000..(|
00000CB0: 6E 14 8E 00 F5 28 70 17  52 48 B2 B5 28 52 AD 32  |n....(p.RH..(R.2|
00000CC0: 35 36 29 3A 52 4C B2 52  AB 52 48 AC 32 35 36 20  |56):RL.R.RH.256 |
00000CD0: 3A 8F 20 20 53 45 4E 44  20 53 52 43 20 50 20 43  |:.  SEND SRC P C|
00000CE0: 4D 44 2E 20 20 52 3D 52  45 43 23 2C 20 4C 3D 4F  |MD.  R=REC#, L=O|
00000CF0: 46 46 53 45 54 00 29 29  7A 17 41 24 B2 22 50 22  |FFSET.))z.A$."P"|
00000D00: AA C7 28 39 36 AA 38 29  AA C7 28 52 4C 29 AA C7  |..(96.8)..(RL)..|
00000D10: 28 52 48 29 AA C7 28 4C  29 3A 20 98 31 34 2C 41  |(RH)..(L): .14,A|
00000D20: 24 3A 20 98 31 34 2C 41  24 00 60 29 84 17 3A 20  |$: .14,A$.`)..: |
00000D30: 55 B2 53 43 3A 20 89 38  30 30 30 20 20 20 20 20  |U.SC: .8000     |
00000D40: 20 20 20 20 20 3A 8F 20  47 45 54 20 44 49 53 4B  |     :. GET DISK|
00000D50: 20 53 54 41 54 20 41 4E  44 20 52 45 54 55 52 4E  | STAT AND RETURN|
00000D60: 00 98 29 40 1F 84 55 2C  41 24 2C 42 24 2C 43 24  |..)@..U,A$,B$,C$|
00000D70: 2C 44 24 3A 20 53 B2 C5  28 41 24 29 3A 20 53 24  |,D$: S..(A$): S$|
00000D80: B2 41 24 AA 45 24 AA 42  24 AA 45 24 AA 43 24 AA  |.A$.E$.B$.E$.C$.|
00000D90: 45 24 AA 44 24 20 3A 8E  00 B4 29 28 23 97 35 33  |E$.D$ :...)(#.53|
00000DA0: 32 38 30 2C 30 3A 97 35  33 32 38 31 2C 30 3A 99  |280,0:.53281,0:.|
00000DB0: 22 93 22 3B 00 DB 29 32  23 99 22 9B B0 C0 C0 C0  |".";..)2#.".....|
00000DC0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000DD0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 AE 00 04 2A 3C 23  |.............*<#|
00000DE0: 99 22 9B DD 20 20 9F 46  49 4C 45 43 4F 50 59 20  |."..  .FILECOPY |
00000DF0: 55 54 49 4C 49 54 59 20  2D 20 56 30 32 31 38 38  |UTILITY - V02188|
00000E00: 37 9B 20 DD 00 2D 2A 46  23 99 22 AD C0 C0 C0 C0  |7. ..-*F#.".....|
00000E10: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000E20: C0 C0 C0 C0 C0 C0 C0 C0  C0 BD 22 3A 99 00 33 2A  |..........":..3*|
00000E30: 50 23 8E 00 4C 2A 55 23  8B 55 B2 31 32 A7 99 22  |P#..L*U#.U.12.."|
00000E40: 1D 9B 22 46 24 22 20 22  42 24 3A 80 00 7A 2A 5A  |.."F$" "B$:..z*Z|
00000E50: 23 9F 31 35 2C 55 2C 31  35 3A 9F 32 2C 55 2C 32  |#.15,U,15:.2,U,2|
00000E60: 2C 46 24 AA 22 2C 50 2C  52 22 3A A0 32 3A 84 31  |,F$.",P,R":.2:.1|
00000E70: 35 2C 41 2C 42 24 2C 43  2C 44 00 94 2A 5F 23 A0  |5,A,B$,C,D..*_#.|
00000E80: 31 35 3A 8B 41 B1 31 39  A7 55 B2 55 AA 31 3A 89  |15:.A.19.U.U.1:.|
00000E90: 39 30 34 35 00 9A 2A 64  23 8E 00 D5 2A 8C 23 46  |9045..*d#...*.#F|
00000EA0: B2 B6 28 C2 28 36 35 35  33 33 29 B2 32 35 35 29  |..(.(65533).255)|
00000EB0: 20 20 20 20 20 20 20 20  20 20 20 3A 8F 20 46 3D  |           :. F=|
00000EC0: 30 20 49 46 20 43 36 34  2C 20 46 3D 31 20 49 46  |0 IF C64, F=1 IF|
00000ED0: 20 43 31 32 38 00 F3 2A  8D 23 8B 20 46 B2 30 20  | C128..*.#. F.0 |
00000EE0: AF 20 42 41 B2 30 20 A7  20 42 41 B2 31 32 AC 34  |. BA.0 . BA.12.4|
00000EF0: 30 39 36 00 12 2B 8E 23  8B 20 46 B2 31 20 AF 20  |096..+.#. F.1 . |
00000F00: 42 41 B2 30 20 A7 20 42  41 B2 D1 28 22 43 30 30  |BA.0 . BA..("C00|
00000F10: 22 29 00 18 2B 8F 23 8E  00 00 00                 |")..+.#....     |

......F$."FILECOPY.BIN":U.8.+....9100:.9
050.D.... F.0 . . F$,U,1:.25.M....1,1.N.
....(F$),P(BA).U(U):.L(0).5..0.X....9000
...(.. "...YOUR SOURCE DISK UNIT..  8...
";SU.R.2.. "...DESTINATION DISK UNIT..  
9...";DU:....<.: . SU.4 . SU.31 . DU.4 .
 DU.31 . SU.DU . 10.8.F.. ".. ENTER TEMP
LATE OR <RETURN> .. ";:M$."":.M$.O.H.W.0
:WW.0:. I.1.C(M$):. "*".J(M$,I,1) . W.I:
WW.WW.1...I..: . WW.1 . ."..BAD TEMPLATE
": . 120...J.W$.I(M$,C(M$).W)...P.. N$(2
00),T$(200),CE(200):Q$.G(34):E$.","...Z.
.14,SU,15,"I": SC.14:U.SC: .8000: .S . .
".."SU":.";S$: .120.[._..15,DU,15,"I": D
C.15:U.DC: .8000: . S . ."."DU":.";S$: .
120.V.D.. 9000: . 1000: . 2000...N.. K .
 . 9000: . 3000.C.X..:.". MORE (Y/N) ? .
. ";:.4000: . A$."N" . .: ..S....:.9100:
.25......  READ DIRECTORY INTO N$,T$: N=
NUM FILES+1. .... ".READING DIRECTORY.";
.I...N.0: F$."$": . C(M$)..0 . F$."$:".M
$.F.... 8,SU,0,F$: U.SC: .8000.....: . S
 . .: .".";S$:  8: .......#8,A$,B$.....:
 .#8,A$,A$,A$,A$ :. ".";.V.$.:   .#8,A$:
 . C(A$).0 . ST . 1130...).:   . F(A$).0
 . 1130.. ..:   . A$..Q$ . 1060.> 8.: .#
8,A$: . A$..Q$ . ST.0 . N$(N).N$(N).A$: 
. 1080.\ B.: .#8,A$: . A$." " . 1090.. L
.: T$(N).T$(N).A$: .#8,A$: . A$.." " . S
T.0 . 1100.C V.: .#8,A$:A$.A$.G(0):. F(A
$)..0 . ST.0 . 1110.. \.: . N.0 . W.0 . 
1120..!].: . C(N$(N)) . (W.1.C(W$)) . N$
(N)."":T$(N)."": . 1050.M!_.: . W$..I(N$
(N), C(W$)) . N$(N)."":T$(N)."":.1050.`!
`.: N.N.1: .1050..!J..:  8: .8000: . S .
 ."....";S$..!T..:. N.1;"FILES TARGETED"
 :. : ...!P..   DISPLAY FILES & ASK USER
 WHICH ONES TO COPY.."Z.K.0: . N.2 . ." 
NO FILES FOUND.":..."... I.1.N.1:CE(I).0
.O"..: . Q$;N$(I);Q$;.19);T$(I);.25);: .
 M$.."*" . 2070.L"..: .:CE(I).1: K.K.1: 
.: .. "... ". CONTINUE (Y/N) ? . ";: .40
00 :. A$."Y" . ..."..K.0: ..."... "COPY 
? (Y/N) ";:.4000 :. A$."Y" . CE(I).1: K.
K.1.." .: .: ...#...   COPY THE FILES.$#
B.. I.1.N.1:. CE(I).0 . .: ..L#L.:T$(I) 
. H(T$(I),1): F$.Q$.N$(I).Q$.O#V..9,DU,9
,N$(I): U.DC: .8000:  9..#..: . S.62 . 3
100..#..: . F$;" EXISTS, REPLACE? ";: .4
000:. 4500.Z#..: . A$."N" . . F$;" NOT C
OPIED":.:...#..:   .  "SCRATCHING OLD ";
F$.-$..:   .15,"S0:";N$(I): .8000:. 4500
:. S.1 . 3170.<$..:   . 3030.P$..: . T$(
I)."R" . . 5000:. 3170:.  COPY REL FILES
..$&.:  . "NOW COPYING ";F$.I$0.:  .9,DU
,1,N$(I).",".T$(I).",W": U.DC: .8000 : .
 S . 3170..%D.:  .8,SU,0,N$(I).",".T$(I)
.",R": U.SC: .8000 : . S . 3170.)%X.:  .
 BA:   8:   9:U.DC:. 8000.W%B.:  . S . .
 "..COPY FAILED: .";S$ : . 3180.J%G.:  U
.SC:. 8000..%H.:  . S . . "..COPY FAILED
: .";S$..%L..: ...% .. A$: . A$.."Y" . A
$.."N" . 4000.H%...A$: ...&... ".       
                                ".G(13).
".";:...&...   COPY REL FILES..3&... "SC
ANNING ";F$.\&...8,SU,8,N$(I): U.SC: . 8
000: . S . ...&..L.0:. RN.7.0..1:RG.2.RN
: . SCAN FOR RECLEN..&..: R.1:L.L.RG:. 6
000:. S . L.L.RG..&..: ...&D.R.0:.RN.15.
0..1:RG.2.RN: . SCAN FOR NUMREC..'N.: R.
R.RG: . 6000: . S . R.R.RG..'X.: ...'...
 4500:. "CREATING ";F$.K'...9,DU,9,N$(I)
.",L,".G(L).H'..:  U.DC: . 8000: . S . .
..'..A$."P".G(96.8).G(1).G(0).G(1): .14,
A$: .14,A$..'..:  U.SC: . 8000: . S . ..
.'..A$."P".G(96.9).G(RL).G(RH).G(1): .15
,A$: .15,A$..((.:  .9,G(255);: . WRITE E
ND RECORD.C(2.A$."P".G(96.9).G(1).G(0).G
(1): .15,A$: .15,A$.`(<.:  U.DC: . 8000:
 . S . ..(P.. 4500:. "NOW COPYING ";F$.
.(Z.. RN.1.R: .BA: ...(D. 8:  9: U.DC: .
 8000..(N....(P.RH..(R.256):RL.R.RH.256 
:.  SEND SRC P CMD.  R=REC#, L=OFFSET.))
Z.A$."P".G(96.8).G(RL).G(RH).G(L): .14,A
$: .14,A$.`)..: U.SC: .8000          :. 
GET DISK STAT AND RETURN..)@..U,A$,B$,C$
,D$: S.E(A$): S$.A$.E$.B$.E$.C$.E$.D$ :.
..)(#.53280,0:.53281,0:.".";..)2#.".....
.............................*<#."..  .F
ILECOPY UTILITY - V021887. ..-*F#.".....
..........................":..3*P#..L*U#
.U.12..".."F$" "B$:..Z*Z#.15,U,15:.2,U,2
,F$.",P,R": 2:.15,A,B$,C,D..*_# 15:.A.19
.U.U.1:.9045..*D#..U*.#F..(B(65533).255)
           :. F=0 IF C64, F=1 IF C128..*
.#. F.0 . BA.0 . BA.12.4096..+.#. F.1 . 
BA.0 . BA.Q("C00")..+.#....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL