FILECOPY

00000000: 01 40 51 40 01 00 8F 20  30 35 32 36 38 37 20 56  |.@Q@... 052687 V|
00000010: 45 52 53 49 4F 4E 20 46  4F 52 20 43 36 34 20 26  |ERSION FOR C64 &|
00000020: 20 43 31 32 38 2C 20 53  55 50 50 4F 52 54 49 4E  | C128, SUPPORTIN|
00000030: 47 20 31 35 34 31 2F 31  35 37 31 2F 31 35 38 31  |G 1541/1571/1581|
00000040: 2F 52 41 4D 44 49 53 4B  20 20 46 2E 42 4F 57 45  |/RAMDISK  F.BOWE|
00000050: 4E 00 89 40 0A 00 8F 20  46 24 3D 22 46 49 4C 45  |N..@... F$="FILE|
00000060: 43 4F 50 59 22 3A 4F 50  45 4E 31 2C 38 2C 31 35  |COPY":OPEN1,8,15|
00000070: 2C 22 53 30 3A 22 2B 46  24 3A 43 4C 4F 53 45 31  |,"S0:"+F$:CLOSE1|
00000080: 3A 53 41 56 45 46 24 2C  38 00 97 40 0C 00 8B 20  |:SAVEF$,8..@... |
00000090: 42 41 20 A7 20 32 35 00  A7 40 0F 00 8D 39 32 30  |BA . 25..@...920|
000000A0: 30 3A 8D 39 31 30 30 00  BC 40 14 00 8B 20 46 B2  |0:.9100..@... F.|
000000B0: 30 20 A7 20 93 20 46 24  2C 55 2C 31 00 F2 40 15  |0 . . F$,U,1..@.|
000000C0: 00 8B 20 46 B2 31 20 A7  20 DE 31 2C 31 3A 20 FE  |.. F.1 . .1,1: .|
000000D0: 11 28 46 24 29 2C 50 28  42 41 29 2C 55 28 55 29  |.(F$),P(BA),U(U)|
000000E0: 3A 20 8B C2 28 D1 28 22  44 37 22 29 29 B2 30 A7  |: ..(.("D7")).0.|
000000F0: DE 30 00 FC 40 19 00 8D  39 30 30 30 00 02 41 1E  |.0..@...9000..A.|
00000100: 00 3A 00 2C 41 28 00 85  20 22 12 20 59 4F 55 52  |.:.,A(.. ". YOUR|
00000110: 20 53 4F 55 52 43 45 20  44 49 53 4B 20 55 4E 49  | SOURCE DISK UNI|
00000120: 54 20 92 20 38 9D 9D 9D  22 3B 53 55 00 58 41 32  |T . 8...";SU.XA2|
00000130: 00 85 20 22 12 20 44 45  53 54 49 4E 41 54 49 4F  |.. ". DESTINATIO|
00000140: 4E 20 44 49 53 4B 20 55  4E 49 54 20 92 20 39 9D  |N DISK UNIT . 9.|
00000150: 9D 9D 22 3B 44 55 3A 99  00 99 41 3C 00 3A 20 8B  |..";DU:...A<.: .|
00000160: 20 53 55 B3 34 20 B0 20  53 55 B1 33 30 20 B0 20  | SU.4 . SU.30 . |
00000170: 44 55 B3 34 20 B0 20 44  55 B1 33 30 20 B0 20 53  |DU.4 . DU.30 . S|
00000180: 55 B2 44 55 20 A7 20 99  22 42 41 44 20 55 4E 49  |U.DU . ."BAD UNI|
00000190: 54 20 23 22 3A 89 31 32  30 00 CC 41 46 00 99 20  |T #":.120..AF.. |
000001A0: 22 12 20 45 4E 54 45 52  20 54 45 4D 50 4C 41 54  |". ENTER TEMPLAT|
000001B0: 45 20 4F 52 20 3C 52 45  54 55 52 4E 3E 20 92 20  |E OR <RETURN> . |
000001C0: 22 3B 3A 4D 24 B2 22 22  3A 85 4D 24 00 03 42 48  |";:M$."":.M$..BH|
000001D0: 00 57 B2 30 3A 57 57 B2  30 3A 81 20 49 B2 31 A4  |.W.0:WW.0:. I.1.|
000001E0: C3 28 4D 24 29 3A 8B 20  22 2A 22 B2 CA 28 4D 24  |.(M$):. "*"..(M$|
000001F0: 2C 49 2C 31 29 20 A7 20  57 B2 49 3A 57 57 B2 57  |,I,1) . W.I:WW.W|
00000200: 57 AA 31 00 2B 42 49 00  82 3A 20 8B 20 57 57 B1  |W.1.+BI..: . WW.|
00000210: 31 20 A7 20 99 22 11 42  41 44 20 54 45 4D 50 4C  |1 . .".BAD TEMPL|
00000220: 41 54 45 22 3A 20 89 20  31 32 30 00 40 42 4A 00  |ATE": . 120.@BJ.|
00000230: 57 24 B2 C9 28 4D 24 2C  C3 28 4D 24 29 AB 57 29  |W$..(M$,.(M$).W)|
00000240: 00 46 42 4B 00 3A 00 74  42 50 00 86 20 4E 24 28  |.FBK.:.tBP.. N$(|
00000250: 32 30 30 29 2C 54 24 28  32 30 30 29 2C 43 45 28  |200),T$(200),CE(|
00000260: 32 30 30 29 3A 51 24 B2  C7 28 33 34 29 3A 45 24  |200):Q$..(34):E$|
00000270: B2 22 2C 22 00 B4 42 5A  00 9F 31 34 2C 53 55 2C  |.","..BZ..14,SU,|
00000280: 31 35 2C 22 49 22 3A 20  53 43 B2 31 34 3A 55 B2  |15,"I": SC.14:U.|
00000290: 53 43 3A 20 8D 38 30 30  30 3A 20 8B 20 53 20 A7  |SC: .8000: . S .|
000002A0: 20 99 22 11 22 53 55 22  3A 12 22 3B 53 24 3A 20  | ."."SU":.";S$: |
000002B0: 89 31 32 30 00 F4 42 5F  00 9F 31 35 2C 44 55 2C  |.120..B_..15,DU,|
000002C0: 31 35 2C 22 49 22 3A 20  44 43 B2 31 35 3A 55 B2  |15,"I": DC.15:U.|
000002D0: 44 43 3A 20 8D 38 30 30  30 3A 20 8B 20 53 20 A7  |DC: .8000: . S .|
000002E0: 20 99 22 11 22 44 55 22  3A 12 22 3B 53 24 3A 20  | ."."DU":.";S$: |
000002F0: 89 31 32 30 00 FA 42 63  00 3A 00 12 43 64 00 8D  |.120..Bc.:..Cd..|
00000300: 39 30 30 30 3A 20 8D 31  30 30 30 3A 20 8D 32 30  |9000: .1000: .20|
00000310: 30 30 00 2A 43 6E 00 3A  8B 20 4B 20 A7 20 8D 39  |00.*Cn.:. K . .9|
00000320: 30 30 30 3A 20 8D 33 30  30 30 00 5D 43 78 00 99  |000: .3000.]Cx..|
00000330: 3A 99 22 12 20 4D 4F 52  45 20 28 59 2F 4E 29 20  |:.". MORE (Y/N) |
00000340: 3F 20 92 20 22 3B 3A 8D  34 30 30 30 3A 20 8B 20  |? . ";:.4000: . |
00000350: 41 24 B2 22 4E 22 20 A7  20 9C 3A 20 80 00 6D 43  |A$."N" . .: ..mC|
00000360: 82 00 9C 3A 8D 39 32 30  30 3A 89 32 35 00 73 43  |...:.9200:.25.sC|
00000370: 8C 00 3A 00 A3 43 E8 03  8F 20 20 52 45 41 44 20  |..:..C...  READ |
00000380: 44 49 52 45 43 54 4F 52  59 20 49 4E 54 4F 20 4E  |DIRECTORY INTO N|
00000390: 24 2C 54 24 3A 20 4E 3D  4E 55 4D 20 46 49 4C 45  |$,T$: N=NUM FILE|
000003A0: 53 2B 31 00 BF 43 F2 03  99 20 22 52 45 41 44 49  |S+1..C... "READI|
000003B0: 4E 47 20 44 49 52 45 43  54 4F 52 59 2E 22 3B 00  |NG DIRECTORY.";.|
000003C0: E8 43 FC 03 4E B2 30 3A  20 46 24 B2 22 24 22 3A  |.C..N.0: F$."$":|
000003D0: 20 8B 20 C3 28 4D 24 29  B3 B1 30 20 A7 20 46 24  | . .(M$)..0 . F$|
000003E0: B2 22 24 3A 22 AA 4D 24  00 05 44 06 04 9F 20 38  |."$:".M$..D... 8|
000003F0: 2C 53 55 2C 30 2C 46 24  3A 20 55 B2 53 43 3A 20  |,SU,0,F$: U.SC: |
00000400: 8D 38 30 30 30 00 23 44  0B 04 3A 20 8B 20 53 20  |.8000.#D..: . S |
00000410: A7 20 99 3A 20 99 22 12  22 3B 53 24 3A 20 A0 38  |. .: .".";S$: .8|
00000420: 3A 20 8E 00 31 44 10 04  A1 23 38 2C 41 24 2C 42  |: ..1D...#8,A$,B|
00000430: 24 00 4F 44 1A 04 3A 20  A1 23 38 2C 41 24 2C 41  |$.OD..: .#8,A$,A|
00000440: 24 2C 41 24 2C 41 24 20  3A 99 20 22 2E 22 3B 00  |$,A$,A$ :. ".";.|
00000450: 75 44 24 04 3A 20 20 20  A1 23 38 2C 41 24 3A 20  |uD$.:   .#8,A$: |
00000460: 8B 20 C3 28 41 24 29 B2  30 20 B0 20 53 54 20 A7  |. .(A$).0 . ST .|
00000470: 20 31 31 33 30 00 8E 44  29 04 3A 20 20 20 8B 20  | 1130..D).:   . |
00000480: C6 28 41 24 29 B2 30 20  A7 20 31 31 33 30 00 A6  |.(A$).0 . 1130..|
00000490: 44 2E 04 3A 20 20 20 8B  20 41 24 B3 B1 51 24 20  |D..:   . A$..Q$ |
000004A0: A7 20 31 30 36 30 00 DD  44 38 04 3A 20 A1 23 38  |. 1060..D8.: .#8|
000004B0: 2C 41 24 3A 20 8B 20 41  24 B3 B1 51 24 20 AF 20  |,A$: . A$..Q$ . |
000004C0: 53 54 B2 30 20 A7 20 4E  24 28 4E 29 B2 4E 24 28  |ST.0 . N$(N).N$(|
000004D0: 4E 29 AA 41 24 3A 20 89  20 31 30 38 30 00 FB 44  |N).A$: . 1080..D|
000004E0: 42 04 3A 20 A1 23 38 2C  41 24 3A 20 8B 20 41 24  |B.: .#8,A$: . A$|
000004F0: B2 22 20 22 20 A7 20 31  30 39 30 00 31 45 4C 04  |." " . 1090.1EL.|
00000500: 3A 20 54 24 28 4E 29 B2  54 24 28 4E 29 AA 41 24  |: T$(N).T$(N).A$|
00000510: 3A 20 A1 23 38 2C 41 24  3A 20 8B 20 41 24 B3 B1  |: .#8,A$: . A$..|
00000520: 22 20 22 20 AF 20 53 54  B2 30 20 A7 20 31 31 30  |" " . ST.0 . 110|
00000530: 30 00 62 45 56 04 3A 20  A1 23 38 2C 41 24 3A 41  |0.bEV.: .#8,A$:A|
00000540: 24 B2 41 24 AA C7 28 30  29 3A 8B 20 C6 28 41 24  |$.A$..(0):. .(A$|
00000550: 29 B3 B1 30 20 AF 20 53  54 B2 30 20 A7 20 31 31  |)..0 . ST.0 . 11|
00000560: 31 30 00 7B 45 5C 04 3A  20 8B 20 4E B2 30 20 B0  |10.{E\.: . N.0 .|
00000570: 20 57 B2 30 20 A7 20 31  31 32 30 00 B5 45 5D 04  | W.0 . 1120..E].|
00000580: 3A 20 8B 20 C3 28 4E 24  28 4E 29 29 20 B3 20 28  |: . .(N$(N)) . (|
00000590: 57 AB 31 AA C3 28 57 24  29 29 20 A7 20 4E 24 28  |W.1..(W$)) . N$(|
000005A0: 4E 29 B2 22 22 3A 54 24  28 4E 29 B2 22 22 3A 89  |N)."":T$(N)."":.|
000005B0: 20 31 30 35 30 00 EC 45  5F 04 3A 20 8B 20 57 24  | 1050..E_.: . W$|
000005C0: B3 B1 C9 28 4E 24 28 4E  29 2C 20 C3 28 57 24 29  |...(N$(N), .(W$)|
000005D0: 29 20 A7 20 4E 24 28 4E  29 B2 22 22 3A 54 24 28  |) . N$(N)."":T$(|
000005E0: 4E 29 B2 22 22 3A 89 20  31 30 35 30 00 FF 45 60  |N)."":. 1050..E`|
000005F0: 04 3A 20 4E B2 4E AA 31  3A 20 89 31 30 35 30 00  |.: N.N.1: .1050.|
00000600: 22 46 6A 04 99 3A A0 20  38 3A 20 8D 38 30 30 30  |"Fj..:. 8: .8000|
00000610: 3A 20 8B 20 53 20 A7 20  99 22 2E 2E 2E 12 22 3B  |: . S . ."....";|
00000620: 53 24 00 45 46 74 04 99  3A 99 20 4E AB 31 3B 22  |S$.EFt..:. N.1;"|
00000630: 46 49 4C 45 53 20 54 41  52 47 45 54 45 44 22 20  |FILES TARGETED" |
00000640: 3A 99 20 3A 8E 00 4B 46  7E 04 3A 00 7F 46 D0 07  |:. :..KF~.:..F..|
00000650: 8F 20 20 20 44 49 53 50  4C 41 59 20 46 49 4C 45  |.   DISPLAY FILE|
00000660: 53 20 26 20 41 53 4B 20  55 53 45 52 20 57 48 49  |S & ASK USER WHI|
00000670: 43 48 20 4F 4E 45 53 20  54 4F 20 43 4F 50 59 00  |CH ONES TO COPY.|
00000680: A6 46 DA 07 4B B2 30 3A  20 8B 20 4E B3 32 20 A7  |.F..K.0: . N.2 .|
00000690: 20 99 22 20 4E 4F 20 46  49 4C 45 53 20 46 4F 55  | ." NO FILES FOU|
000006A0: 4E 44 2E 22 3A 8E 00 BC  46 E4 07 81 20 49 B2 31  |ND.":...F... I.1|
000006B0: A4 4E AB 31 3A 43 45 28  49 29 B2 30 00 F3 46 EE  |.N.1:CE(I).0..F.|
000006C0: 07 3A 20 99 20 51 24 3B  4E 24 28 49 29 3B 51 24  |.: . Q$;N$(I);Q$|
000006D0: 3B A3 31 39 29 3B 54 24  28 49 29 3B A3 32 35 29  |;.19);T$(I);.25)|
000006E0: 3B 3A 20 8B 20 4D 24 B3  B1 22 2A 22 20 A7 20 32  |;: . M$.."*" . 2|
000006F0: 30 37 30 00 10 47 F8 07  3A 20 99 3A 43 45 28 49  |070..G..: .:CE(I|
00000700: 29 B2 31 3A 20 4B B2 4B  AA 31 3A 20 82 3A 20 99  |).1: K.K.1: .: .|
00000710: 00 44 47 02 08 99 20 22  12 20 43 4F 4E 54 49 4E  |.DG... ". CONTIN|
00000720: 55 45 20 28 59 2F 4E 29  20 3F 20 92 20 22 3B 3A  |UE (Y/N) ? . ";:|
00000730: 20 8D 34 30 30 30 20 3A  8B 20 41 24 B2 22 59 22  | .4000 :. A$."Y"|
00000740: 20 A7 20 8E 00 4F 47 0C  08 4B B2 30 3A 20 8E 00  | . ..OG..K.0: ..|
00000750: 87 47 16 08 99 20 22 43  4F 50 59 20 3F 20 28 59  |.G... "COPY ? (Y|
00000760: 2F 4E 29 20 22 3B 3A 8D  34 30 30 30 20 3A 8B 20  |/N) ";:.4000 :. |
00000770: 41 24 B2 22 59 22 20 A7  20 43 45 28 49 29 B2 31  |A$."Y" . CE(I).1|
00000780: 3A 20 4B B2 4B AA 31 00  92 47 20 08 3A 20 82 3A  |: K.K.1..G .: .:|
00000790: 20 8E 00 98 47 2A 08 3A  00 AF 47 B8 0B 8F 20 20  | ...G*.:..G...  |
000007A0: 20 43 4F 50 59 20 54 48  45 20 46 49 4C 45 53 00  | COPY THE FILES.|
000007B0: CE 47 C2 0B 81 20 49 B2  31 A4 4E AB 31 3A 8B 20  |.G... I.1.N.1:. |
000007C0: 43 45 28 49 29 B2 30 20  A7 20 82 3A 20 8E 00 F6  |CE(I).0 . .: ...|
000007D0: 47 CC 0B 3A 54 24 28 49  29 20 B2 20 C8 28 54 24  |G..:T$(I) . .(T$|
000007E0: 28 49 29 2C 31 29 3A 20  46 24 B2 51 24 AA 4E 24  |(I),1): F$.Q$.N$|
000007F0: 28 49 29 AA 51 24 00 19  48 D6 0B 9F 39 2C 44 55  |(I).Q$..H...9,DU|
00000800: 2C 39 2C 4E 24 28 49 29  3A 20 55 B2 44 43 3A 20  |,9,N$(I): U.DC: |
00000810: 8D 38 30 30 30 3A 20 A0  39 00 2D 48 E0 0B 3A 20  |.8000: .9.-H..: |
00000820: 8B 20 53 B2 36 32 20 A7  20 33 31 30 30 00 5C 48  |. S.62 . 3100.\H|
00000830: EA 0B 3A 20 99 20 46 24  3B 22 20 45 58 49 53 54  |..: . F$;" EXIST|
00000840: 53 2C 20 52 45 50 4C 41  43 45 3F 20 22 3B 3A 20  |S, REPLACE? ";: |
00000850: 8D 34 30 30 30 3A 8D 20  34 35 30 30 00 84 48 F4  |.4000:. 4500..H.|
00000860: 0B 3A 20 8B 20 41 24 B2  22 4E 22 20 A7 20 99 20  |.: . A$."N" . . |
00000870: 46 24 3B 22 20 4E 4F 54  20 43 4F 50 49 45 44 22  |F$;" NOT COPIED"|
00000880: 3A 82 3A 8E 00 A4 48 FE  0B 3A 20 20 20 99 20 20  |:.:...H..:   .  |
00000890: 22 53 43 52 41 54 43 48  49 4E 47 20 4F 4C 44 20  |"SCRATCHING OLD |
000008A0: 22 3B 46 24 00 D7 48 08  0C 3A 20 20 20 98 31 35  |";F$..H..:   .15|
000008B0: 2C 22 53 30 3A 22 3B 4E  24 28 49 29 3A 20 8D 38  |,"S0:";N$(I): .8|
000008C0: 30 30 30 3A 8D 20 34 35  30 30 3A 8B 20 53 B1 31  |000:. 4500:. S.1|
000008D0: 20 A7 20 33 31 37 30 00  E6 48 12 0C 3A 20 20 20  | . 3170..H..:   |
000008E0: 89 20 33 30 33 30 00 1C  49 1C 0C 3A 20 8B 20 54  |. 3030..I..: . T|
000008F0: 24 28 49 29 B2 22 52 22  20 A7 20 8D 20 35 30 30  |$(I)."R" . . 500|
00000900: 30 3A 20 89 20 33 31 37  30 20 3A 8F 20 20 43 4F  |0: . 3170 :.  CO|
00000910: 50 59 20 52 45 4C 20 46  49 4C 45 53 00 37 49 26  |PY REL FILES.7I&|
00000920: 0C 3A 20 20 99 20 22 4E  4F 57 20 43 4F 50 59 49  |.:  . "NOW COPYI|
00000930: 4E 47 20 22 3B 46 24 00  74 49 30 0C 3A 20 20 9F  |NG ";F$.tI0.:  .|
00000940: 39 2C 44 55 2C 31 2C 4E  24 28 49 29 AA 22 2C 22  |9,DU,1,N$(I).","|
00000950: AA 54 24 28 49 29 AA 22  2C 57 22 3A 20 55 B2 44  |.T$(I).",W": U.D|
00000960: 43 3A 20 8D 38 30 30 30  3A 20 8B 20 53 20 A7 20  |C: .8000: . S . |
00000970: 33 31 37 30 00 B1 49 44  0C 3A 20 20 9F 38 2C 53  |3170..ID.:  .8,S|
00000980: 55 2C 30 2C 4E 24 28 49  29 AA 22 2C 22 AA 54 24  |U,0,N$(I).",".T$|
00000990: 28 49 29 AA 22 2C 52 22  3A 20 55 B2 53 43 3A 20  |(I).",R": U.SC: |
000009A0: 8D 38 30 30 30 3A 20 8B  20 53 20 A7 20 33 31 37  |.8000: . S . 317|
000009B0: 30 00 CB 49 58 0C 3A 20  20 9E 20 42 41 3A 20 55  |0..IX.:  . BA: U|
000009C0: B2 44 43 3A 20 8D 20 38  30 30 30 00 F8 49 62 0C  |.DC: . 8000..Ib.|
000009D0: 3A 20 20 8B 20 53 20 A7  20 99 20 22 12 20 43 4F  |:  . S . . ". CO|
000009E0: 50 59 20 46 41 49 4C 45  44 3A 20 92 22 3B 53 24  |PY FAILED: .";S$|
000009F0: 3A 20 89 20 33 31 38 30  00 0C 4A 67 0C 3A 20 20  |: . 3180..Jg.:  |
00000A00: 55 B2 53 43 3A 20 8D 20  38 30 30 30 00 31 4A 68  |U.SC: . 8000.1Jh|
00000A10: 0C 3A 20 20 8B 20 53 20  A7 20 99 20 22 12 20 43  |.:  . S . . ". C|
00000A20: 4F 50 59 20 46 41 49 4C  45 44 3A 20 92 22 3B 53  |OPY FAILED: .";S|
00000A30: 24 00 42 4A 6C 0C A0 38  3A 20 A0 39 3A 20 82 3A  |$.BJl..8: .9: .:|
00000A40: 20 8E 00 48 4A 76 0C 3A  00 6D 4A A0 0F A1 20 41  | ..HJv.:.mJ... A|
00000A50: 24 3A 20 8B 20 41 24 B3  B1 22 59 22 20 AF 20 41  |$: . A$.."Y" . A|
00000A60: 24 B3 B1 22 4E 22 20 A7  20 34 30 30 30 00 78 4A  |$.."N" . 4000.xJ|
00000A70: AA 0F 99 41 24 3A 20 8E  00 7E 4A B4 0F 3A 00 BC  |...A$: ..~J..:..|
00000A80: 4A 94 11 99 20 22 91 20  20 20 20 20 20 20 20 20  |J... ".         |
00000A90: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000AA0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 22 AA  |              ".|
00000AB0: C7 28 31 33 29 AA 22 91  22 3B 3A 8E 00 C2 4A 9E  |.(13).".";:...J.|
00000AC0: 11 3A 00 DA 4A 88 13 8F  20 20 20 43 4F 50 59 20  |.:..J...   COPY |
00000AD0: 52 45 4C 20 46 49 4C 45  53 2E 00 EF 4A 92 13 99  |REL FILES...J...|
00000AE0: 20 22 53 43 41 4E 4E 49  4E 47 20 22 3B 46 24 00  | "SCANNING ";F$.|
00000AF0: 18 4B 9C 13 9F 38 2C 53  55 2C 38 2C 4E 24 28 49  |.K...8,SU,8,N$(I|
00000B00: 29 3A 20 55 B2 53 43 3A  20 8D 20 38 30 30 30 3A  |): U.SC: . 8000:|
00000B10: 20 8B 20 53 20 A7 20 8E  00 47 4B A6 13 4C B2 30  | . S . ..GK..L.0|
00000B20: 3A 81 20 52 4E B2 37 A4  30 A9 AB 31 3A 52 47 B2  |:. RN.7.0..1:RG.|
00000B30: 32 AE 52 4E 3A 20 8F 20  53 43 41 4E 20 46 4F 52  |2.RN: . SCAN FOR|
00000B40: 20 52 45 43 4C 45 4E 00  6C 4B B0 13 3A 20 52 B2  | RECLEN.lK..: R.|
00000B50: 31 3A 4C B2 4C AA 52 47  3A 8D 20 36 30 30 30 3A  |1:L.L.RG:. 6000:|
00000B60: 8B 20 53 20 A7 20 4C B2  4C AB 52 47 00 74 4B BA  |. S . L.L.RG.tK.|
00000B70: 13 3A 20 82 00 A3 4B C4  13 52 B2 30 3A 81 52 4E  |.: ...K..R.0:.RN|
00000B80: B2 31 35 A4 30 A9 AB 31  3A 52 47 B2 32 AE 52 4E  |.15.0..1:RG.2.RN|
00000B90: 3A 20 8F 20 53 43 41 4E  20 46 4F 52 20 4E 55 4D  |: . SCAN FOR NUM|
00000BA0: 52 45 43 00 C6 4B CE 13  3A 20 52 B2 52 AA 52 47  |REC..K..: R.R.RG|
00000BB0: 3A 20 8D 20 36 30 30 30  3A 20 8B 20 53 20 A7 20  |: . 6000: . S . |
00000BC0: 52 B2 52 AB 52 47 00 CE  4B D8 13 3A 20 82 00 EA  |R.R.RG..K..: ...|
00000BD0: 4B EC 13 8D 20 34 35 30  30 3A 99 20 22 43 52 45  |K... 4500:. "CRE|
00000BE0: 41 54 49 4E 47 20 22 3B  46 24 00 07 4C F6 13 9F  |ATING ";F$..L...|
00000BF0: 39 2C 44 55 2C 39 2C 4E  24 28 49 29 AA 22 2C 4C  |9,DU,9,N$(I).",L|
00000C00: 2C 22 AA C7 28 4C 29 00  24 4C 00 14 3A 20 20 55  |,"..(L).$L..:  U|
00000C10: B2 44 43 3A 20 8D 20 38  30 30 30 3A 20 8B 20 53  |.DC: . 8000: . S|
00000C20: 20 A7 20 8E 00 56 4C 0A  14 41 24 B2 22 50 22 AA  | . ..VL..A$."P".|
00000C30: C7 28 39 36 AA 38 29 AA  C7 28 31 29 AA C7 28 30  |.(96.8)..(1)..(0|
00000C40: 29 AA C7 28 31 29 3A 20  98 31 34 2C 41 24 3A 20  |)..(1): .14,A$: |
00000C50: 98 31 34 2C 41 24 00 73  4C 14 14 3A 20 20 55 B2  |.14,A$.sL..:  U.|
00000C60: 53 43 3A 20 8D 20 38 30  30 30 3A 20 8B 20 53 20  |SC: . 8000: . S |
00000C70: A7 20 8E 00 A7 4C 1E 14  41 24 B2 22 50 22 AA C7  |. ...L..A$."P"..|
00000C80: 28 39 36 AA 39 29 AA C7  28 52 4C 29 AA C7 28 52  |(96.9)..(RL)..(R|
00000C90: 48 29 AA C7 28 31 29 3A  20 98 31 35 2C 41 24 3A  |H)..(1): .15,A$:|
00000CA0: 20 98 31 35 2C 41 24 00  CD 4C 28 14 3A 20 20 98  | .15,A$..L(.:  .|
00000CB0: 39 2C C7 28 32 35 35 29  3B 3A 20 8F 20 57 52 49  |9,.(255);: . WRI|
00000CC0: 54 45 20 45 4E 44 20 52  45 43 4F 52 44 00 FF 4C  |TE END RECORD..L|
00000CD0: 32 14 41 24 B2 22 50 22  AA C7 28 39 36 AA 39 29  |2.A$."P"..(96.9)|
00000CE0: AA C7 28 31 29 AA C7 28  30 29 AA C7 28 31 29 3A  |..(1)..(0)..(1):|
00000CF0: 20 98 31 35 2C 41 24 3A  20 98 31 35 2C 41 24 00  | .15,A$: .15,A$.|
00000D00: 1C 4D 3C 14 3A 20 20 55  B2 44 43 3A 20 8D 20 38  |.M<.:  U.DC: . 8|
00000D10: 30 30 30 3A 20 8B 20 53  20 A7 20 8E 00 3B 4D 50  |000: . S . ..;MP|
00000D20: 14 8D 20 34 35 30 30 3A  99 20 22 4E 4F 57 20 43  |.. 4500:. "NOW C|
00000D30: 4F 50 59 49 4E 47 20 22  3B 46 24 00 50 4D 5A 14  |OPYING ";F$.PMZ.|
00000D40: 81 20 52 4E B2 31 A4 52  3A 20 9E 42 41 3A 20 82  |. RN.1.R: .BA: .|
00000D50: 00 69 4D 64 14 A0 38 3A  20 A0 39 3A 20 55 B2 44  |.iMd..8: .9: U.D|
00000D60: 43 3A 20 8D 20 38 30 30  30 00 6F 4D 6E 14 8E 00  |C: . 8000.oMn...|
00000D70: 75 4D 78 14 3A 00 B7 4D  70 17 52 48 B2 B5 28 52  |uMx.:..Mp.RH..(R|
00000D80: AD 32 35 36 29 3A 52 4C  B2 52 AB 52 48 AC 32 35  |.256):RL.R.RH.25|
00000D90: 36 20 3A 8F 20 20 53 45  4E 44 20 53 52 43 20 50  |6 :.  SEND SRC P|
00000DA0: 20 43 4D 44 2E 20 20 52  3D 52 45 43 23 2C 20 4C  | CMD.  R=REC#, L|
00000DB0: 3D 4F 46 46 53 45 54 00  EB 4D 7A 17 41 24 B2 22  |=OFFSET..Mz.A$."|
00000DC0: 50 22 AA C7 28 39 36 AA  38 29 AA C7 28 52 4C 29  |P"..(96.8)..(RL)|
00000DD0: AA C7 28 52 48 29 AA C7  28 4C 29 3A 20 98 31 34  |..(RH)..(L): .14|
00000DE0: 2C 41 24 3A 20 98 31 34  2C 41 24 00 22 4E 84 17  |,A$: .14,A$."N..|
00000DF0: 3A 20 55 B2 53 43 3A 20  89 38 30 30 30 20 20 20  |: U.SC: .8000   |
00000E00: 20 20 20 20 20 20 20 3A  8F 20 47 45 54 20 44 49  |       :. GET DI|
00000E10: 53 4B 20 53 54 41 54 20  41 4E 44 20 52 45 54 55  |SK STAT AND RETU|
00000E20: 52 4E 00 28 4E 8E 17 3A  00 60 4E 40 1F 84 55 2C  |RN.(N..:.`N@..U,|
00000E30: 41 24 2C 42 24 2C 43 24  2C 44 24 3A 20 53 B2 C5  |A$,B$,C$,D$: S..|
00000E40: 28 41 24 29 3A 20 53 24  B2 41 24 AA 45 24 AA 42  |(A$): S$.A$.E$.B|
00000E50: 24 AA 45 24 AA 43 24 AA  45 24 AA 44 24 20 3A 8E  |$.E$.C$.E$.D$ :.|
00000E60: 00 66 4E 4A 1F 3A 00 70  4E 28 23 99 22 93 22 3B  |.fNJ.:.pN(#.".";|
00000E70: 00 97 4E 32 23 99 22 20  20 B0 C0 C0 C0 C0 C0 C0  |..N2#."  .......|
00000E80: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000E90: C0 C0 C0 C0 C0 C0 AE 00  BE 4E 3C 23 99 22 20 20  |.........N<#."  |
00000EA0: DD 20 46 49 4C 45 43 4F  50 59 20 55 54 49 4C 49  |. FILECOPY UTILI|
00000EB0: 54 59 20 2D 20 56 30 35  32 36 38 37 20 DD 00 E8  |TY - V052687 ...|
00000EC0: 4E 46 23 99 22 20 20 AD  C0 C0 C0 C0 C0 C0 C0 C0  |NF#."  .........|
00000ED0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000EE0: C0 C0 C0 C0 BD 22 3A 99  00 EE 4E 50 23 8E 00 F4  |.....":...NP#...|
00000EF0: 4E 51 23 3A 00 0E 4F 8C  23 55 B2 38 3A 46 24 B2  |NQ#:..O.#U.8:F$.|
00000F00: 22 46 49 4C 45 43 4F 50  59 2E 42 49 4E 22 00 26  |"FILECOPY.BIN".&|
00000F10: 4F 96 23 8B 55 B2 31 32  A7 99 22 20 22 46 24 22  |O.#.U.12.." "F$"|
00000F20: 20 22 42 24 3A 80 00 54  4F A0 23 9F 31 35 2C 55  | "B$:..TO.#.15,U|
00000F30: 2C 31 35 3A 9F 32 2C 55  2C 32 2C 46 24 AA 22 2C  |,15:.2,U,2,F$.",|
00000F40: 50 2C 52 22 3A A0 32 3A  84 31 35 2C 41 2C 42 24  |P,R":.2:.15,A,B$|
00000F50: 2C 43 2C 44 00 6E 4F AA  23 A0 31 35 3A 8B 41 B1  |,C,D.nO.#.15:.A.|
00000F60: 31 39 A7 55 B2 55 AA 31  3A 89 39 31 31 30 00 74  |19.U.U.1:.9110.t|
00000F70: 4F B4 23 8E 00 7A 4F BE  23 3A 00 AC 4F F0 23 46  |O.#..zO.#:..O.#F|
00000F80: B2 B6 28 C2 28 36 35 35  33 33 29 B2 32 35 35 29  |..(.(65533).255)|
00000F90: 20 20 3A 8F 20 46 3D 30  20 49 46 20 43 36 34 2C  |  :. F=0 IF C64,|
00000FA0: 20 46 3D 31 20 49 46 20  43 31 32 38 00 C8 4F FA  | F=1 IF C128..O.|
00000FB0: 23 8B 20 46 B2 30 20 AF  20 42 41 B2 30 20 A7 20  |#. F.0 . BA.0 . |
00000FC0: 42 41 B2 34 39 31 35 32  00 E9 4F 04 24 8B 20 46  |BA.49152..O.$. F|
00000FD0: B2 31 20 AF 20 42 41 B2  30 20 A7 20 42 41 B2 33  |.1 . BA.0 . BA.3|
00000FE0: 30 37 32 3A 20 FE 02 31  35 00 EF 4F 0E 24 8E 00  |072: ..15..O.$..|
00000FF0: F5 4F 18 24 3A 00 3C 50  0F 27 8F 20 46 2E 42 4F  |.O.$:.<P.'. F.BO|
00001000: 57 45 4E 20 48 2E 44 41  56 49 53 20 43 4F 50 59  |WEN H.DAVIS COPY|
00001010: 52 49 47 48 54 20 31 39  38 37 20 43 4F 4D 4D 4F  |RIGHT 1987 COMMO|
00001020: 44 4F 52 45 20 42 55 53  49 4E 45 53 53 20 4D 41  |DORE BUSINESS MA|
00001030: 43 48 49 4E 45 53 2C 20  49 4E 43 2E 00 00 00     |CHINES, INC.... |

.@Q@... 052687 VERSION FOR C64 & C128, S
UPPORTING 1541/1571/1581/RAMDISK  F.BOWE
N..@... F$="FILECOPY":OPEN1,8,15,"S0:"+F
$:CLOSE1:SAVEF$,8..@... BA . 25..@...920
0:.9100..@... F.0 . . F$,U,1..@... F.1 .
 .1,1: ..(F$),P(BA),U(U): .B(Q("D7")).0.
.0..@...9000..A..:.,A(.. ". YOUR SOURCE 
DISK UNIT . 8...";SU.XA2.. ". DESTINATIO
N DISK UNIT . 9...";DU:...A<.: . SU.4 . 
SU.30 . DU.4 . DU.30 . SU.DU . ."BAD UNI
T #":.120.LAF.. ". ENTER TEMPLATE OR <RE
TURN> . ";:M$."":.M$..BH.W.0:WW.0:. I.1.
C(M$):. "*".J(M$,I,1) . W.I:WW.WW.1.+BI.
.: . WW.1 . .".BAD TEMPLATE": . 120.@BJ.
W$.I(M$,C(M$).W).FBK.:.TBP.. N$(200),T$(
200),CE(200):Q$.G(34):E$.","..BZ..14,SU,
15,"I": SC.14:U.SC: .8000: . S . ."."SU"
:.";S$: .120..B_..15,DU,15,"I": DC.15:U.
DC: .8000: . S . ."."DU":.";S$: .120..BC
.:..CD..9000: .1000: .2000.*CN.:. K . .9
000: .3000.]CX..:.". MORE (Y/N) ? . ";:.
4000: . A$."N" . .: ..MC...:.9200:.25.SC
..:..C...  READ DIRECTORY INTO N$,T$: N=
NUM FILES+1..C... "READING DIRECTORY.";.
.C..N.0: F$."$": . C(M$)..0 . F$."$:".M$
..D... 8,SU,0,F$: U.SC: .8000.#D..: . S 
. .: .".";S$:  8: ..1D...#8,A$,B$.OD..: 
.#8,A$,A$,A$,A$ :. ".";.UD$.:   .#8,A$: 
. C(A$).0 . ST . 1130..D).:   . F(A$).0 
. 1130..D..:   . A$..Q$ . 1060..D8.: .#8
,A$: . A$..Q$ . ST.0 . N$(N).N$(N).A$: .
 1080..DB.: .#8,A$: . A$." " . 1090.1EL.
: T$(N).T$(N).A$: .#8,A$: . A$.." " . ST
.0 . 1100.BEV.: .#8,A$:A$.A$.G(0):. F(A$
)..0 . ST.0 . 1110.{E\.: . N.0 . W.0 . 1
120..E].: . C(N$(N)) . (W.1.C(W$)) . N$(
N)."":T$(N)."":. 1050..E_.: . W$..I(N$(N
), C(W$)) . N$(N)."":T$(N)."":. 1050..E`
.: N.N.1: .1050."FJ..:  8: .8000: . S . 
."....";S$.EFT..:. N.1;"FILES TARGETED" 
:. :..KF~.:.FP..   DISPLAY FILES & ASK 
USER WHICH ONES TO COPY..FZ.K.0: . N.2 .
 ." NO FILES FOUND.":...F... I.1.N.1:CE(
I).0..F..: . Q$;N$(I);Q$;.19);T$(I);.25)
;: . M$.."*" . 2070..G..: .:CE(I).1: K.K
.1: .: ..DG... ". CONTINUE (Y/N) ? . ";:
 .4000 :. A$."Y" . ..OG..K.0: ...G... "C
OPY ? (Y/N) ";:.4000 :. A$."Y" . CE(I).1
: K.K.1..G .: .: ...G*.:..G...   COPY TH
E FILES.NGB.. I.1.N.1:. CE(I).0 . .: ...
GL.:T$(I) . H(T$(I),1): F$.Q$.N$(I).Q$..
HV..9,DU,9,N$(I): U.DC: .8000:  9.-H..: 
. S.62 . 3100.\H..: . F$;" EXISTS, REPLA
CE? ";: .4000:. 4500..H..: . A$."N" . . 
F$;" NOT COPIED":.:...H..:   .  "SCRATCH
ING OLD ";F$.WH..:   .15,"S0:";N$(I): .8
000:. 4500:. S.1 . 3170..H..:   . 3030..
I..: . T$(I)."R" . . 5000: . 3170 :.  CO
PY REL FILES.7I&.:  . "NOW COPYING ";F$.
TI0.:  .9,DU,1,N$(I).",".T$(I).",W": U.D
C: .8000: . S . 3170..ID.:  .8,SU,0,N$(I
).",".T$(I).",R": U.SC: .8000: . S . 317
0.KIX.:  . BA: U.DC: . 8000..IB.:  . S .
 . ". COPY FAILED: .";S$: . 3180..JG.:  
U.SC: . 8000.1JH.:  . S . . ". COPY FAIL
ED: .";S$.BJL. 8:  9: .: ..HJV.:.MJ .. A
$: . A$.."Y" . A$.."N" . 4000.XJ...A$: .
.~J..:..J... ".                         
              ".G(13).".";:..BJ..:.ZJ...
   COPY REL FILES...J... "SCANNING ";F$.
.K...8,SU,8,N$(I): U.SC: . 8000: . S . .
.GK..L.0:. RN.7.0..1:RG.2.RN: . SCAN FOR
 RECLEN.LK..: R.1:L.L.RG:. 6000:. S . L.
L.RG.TK..: ...KD.R.0:.RN.15.0..1:RG.2.RN
: . SCAN FOR NUMREC.FKN.: R.R.RG: . 6000
: . S . R.R.RG.NKX.: ...K... 4500:. "CRE
ATING ";F$..L...9,DU,9,N$(I).",L,".G(L).
$L..:  U.DC: . 8000: . S . ..VL..A$."P".
G(96.8).G(1).G(0).G(1): .14,A$: .14,A$.S
L..:  U.SC: . 8000: . S . ...L..A$."P".G
(96.9).G(RL).G(RH).G(1): .15,A$: .15,A$.
ML(.:  .9,G(255);: . WRITE END RECORD..L
2.A$."P".G(96.9).G(1).G(0).G(1): .15,A$:
 .15,A$..M<.:  U.DC: . 8000: . S . ..;MP
.. 4500:. "NOW COPYING ";F$.PMZ.. RN.1.R
: .BA: ..IMD. 8:  9: U.DC: . 8000.OMN...
UMX.:..MP.RH..(R.256):RL.R.RH.256 :.  SE
ND SRC P CMD.  R=REC#, L=OFFSET..MZ.A$."
P".G(96.8).G(RL).G(RH).G(L): .14,A$: .14
,A$."N..: U.SC: .8000          :. GET DI
SK STAT AND RETURN.(N..:.`N@..U,A$,B$,C$
,D$: S.E(A$): S$.A$.E$.B$.E$.C$.E$.D$ :.
.FNJ.:.PN(#.".";..N2#."  ...............
.................N<#."  . FILECOPY UTILI
TY - V052687 ...NF#."  .................
.............":...NP#...NQ#:..O.#U.8:F$.
"FILECOPY.BIN".&O.#.U.12.." "F$" "B$:..T
O #.15,U,15:.2,U,2,F$.",P,R": 2:.15,A,B$
,C,D.NO.# 15:.A.19.U.U.1:.9110.TO.#..ZO.
#:..O.#F..(B(65533).255)  :. F=0 IF C64,
 F=1 IF C128.HO.#. F.0 . BA.0 . BA.49152
..O.$. F.1 . BA.0 . BA.3072: ..15..O.$..
.O.$:.<P.'. F.BOWEN H.DAVIS COPYRIGHT 19
87 COMMODORE BUSINESS MACHINES, INC....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL