FILECOPY 64
FILE INFORMATION
FILENAME(S): FILECOPY 64
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 21:14:01
APPEARS ON: 1 disk(s)
FILE HASH
12fbcb372d163db88eed3ef6ed93b0f53570ac130e9cc053c21e266f618c98a7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARIE | FILECOPY 64 | PRG | DuncanTwain | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 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 08 0D 00 |PY.BIN":U.8.+...| 00000020: 8D 39 31 30 30 3A 8D 39 30 35 30 00 52 08 0E 00 |.9100:.9050.R...| 00000030: 8B 20 46 B2 30 20 A7 8B C2 28 34 39 31 36 30 29 |. F.0 ...(49160)| 00000040: B3 B1 31 33 33 A7 93 20 46 24 2C 55 2C 31 3A 89 |..133.. F$,U,1:.| 00000050: 32 35 00 5C 08 19 00 8D 39 30 30 30 00 88 08 28 |25.\....9000...(| 00000060: 00 85 20 22 1D 12 9B 59 4F 55 52 20 53 4F 55 52 |.. "...YOUR SOUR| 00000070: 43 45 20 44 49 53 4B 20 55 4E 49 54 92 05 20 20 |CE DISK UNIT.. | 00000080: 38 9D 9D 9D 22 3B 53 55 00 B6 08 32 00 85 20 22 |8...";SU...2.. "| 00000090: 1D 12 9B 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 |...DESTINATION D| 000000A0: 49 53 4B 20 55 4E 49 54 05 92 20 20 39 9D 9D 9D |ISK UNIT.. 9...| 000000B0: 22 3B 44 55 3A 99 00 E7 08 3C 00 3A 20 8B 20 53 |";DU:....<.: . S| 000000C0: 55 B3 34 20 B0 20 53 55 B1 33 31 20 B0 20 44 55 |U.4 . SU.31 . DU| 000000D0: B3 34 20 B0 20 44 55 B1 33 31 20 B0 20 53 55 B2 |.4 . DU.31 . SU.| 000000E0: 44 55 20 A7 20 31 30 00 1C 09 46 00 99 20 22 12 |DU . 10...F.. ".| 000000F0: 9B 20 45 4E 54 45 52 20 54 45 4D 50 4C 41 54 45 |. ENTER TEMPLATE| 00000100: 20 4F 52 20 3C 52 45 54 55 52 4E 3E 20 92 05 20 | OR <RETURN> .. | 00000110: 22 3B 3A 4D 24 B2 22 22 3A 85 4D 24 00 53 09 48 |";:M$."":.M$.S.H| 00000120: 00 57 B2 30 3A 57 57 B2 30 3A 81 20 49 B2 31 A4 |.W.0:WW.0:. I.1.| 00000130: C3 28 4D 24 29 3A 8B 20 22 2A 22 B2 CA 28 4D 24 |.(M$):. "*"..(M$| 00000140: 2C 49 2C 31 29 20 A7 20 57 B2 49 3A 57 57 B2 57 |,I,1) . W.I:WW.W| 00000150: 57 AA 31 00 7C 09 49 00 82 3A 20 8B 20 57 57 B1 |W.1.|.I..: . WW.| 00000160: 31 20 A7 20 99 22 11 9B 42 41 44 20 54 45 4D 50 |1 . ."..BAD TEMP| 00000170: 4C 41 54 45 22 3A 20 89 20 31 32 30 00 91 09 4A |LATE": . 120...J| 00000180: 00 57 24 B2 C9 28 4D 24 2C C3 28 4D 24 29 AB 57 |.W$..(M$,.(M$).W| 00000190: 29 00 BF 09 50 00 86 20 4E 24 28 33 30 30 29 2C |)...P.. N$(300),| 000001A0: 54 24 28 33 30 30 29 2C 43 45 28 33 30 30 29 3A |T$(300),CE(300):| 000001B0: 51 24 B2 C7 28 33 34 29 3A 45 24 B2 22 2C 22 00 |Q$..(34):E$.",".| 000001C0: FF 09 5A 00 9F 31 34 2C 53 55 2C 31 35 2C 22 49 |..Z..14,SU,15,"I| 000001D0: 22 3A 20 53 43 B2 31 34 3A 55 B2 53 43 3A 20 8D |": SC.14:U.SC: .| 000001E0: 38 30 30 30 3A 20 8B 53 20 A7 20 99 22 9B 11 22 |8000: .S . .".."| 000001F0: 53 55 22 3A 12 22 3B 53 24 3A 20 89 31 32 30 00 |SU":.";S$: .120.| 00000200: 3F 0A 5F 00 9F 31 35 2C 44 55 2C 31 35 2C 22 49 |?._..15,DU,15,"I| 00000210: 22 3A 20 44 43 B2 31 35 3A 55 B2 44 43 3A 20 8D |": DC.15:U.DC: .| 00000220: 38 30 30 30 3A 20 8B 20 53 20 A7 20 99 22 11 22 |8000: . S . ."."| 00000230: 44 55 22 3A 12 22 3B 53 24 3A 20 89 31 32 30 00 |DU":.";S$: .120.| 00000240: 5A 0A 64 00 8D 20 39 30 30 30 3A 20 8D 20 31 30 |Z.d.. 9000: . 10| 00000250: 30 30 3A 20 8D 20 32 30 30 30 00 73 0A 6E 00 8B |00: . 2000.s.n..| 00000260: 20 4B 20 A7 20 8D 20 39 30 30 30 3A 20 8D 20 33 | K . . 9000: . 3| 00000270: 30 30 30 00 A7 0A 78 00 99 3A 99 22 12 20 4D 4F |000...x..:.". MO| 00000280: 52 45 20 28 59 2F 4E 29 20 3F 20 92 05 20 22 3B |RE (Y/N) ? .. ";| 00000290: 3A 8D 34 30 30 30 3A 20 8B 20 41 24 B2 22 4E 22 |:.4000: . A$."N"| 000002A0: 20 A7 20 9C 3A 20 80 00 B7 0A 82 00 9C 3A 8D 39 | . .: .......:.9| 000002B0: 31 30 30 3A 89 32 35 00 E7 0A E8 03 8F 20 20 52 |100:.25...... R| 000002C0: 45 41 44 20 44 49 52 45 43 54 4F 52 59 20 49 4E |EAD DIRECTORY IN| 000002D0: 54 4F 20 4E 24 2C 54 24 3A 20 4E 3D 4E 55 4D 20 |TO N$,T$: N=NUM | 000002E0: 46 49 4C 45 53 2B 31 00 04 0B F2 03 99 20 22 9B |FILES+1...... ".| 000002F0: 52 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F 52 |READING DIRECTOR| 00000300: 59 2E 22 3B 00 2D 0B FC 03 4E B2 30 3A 20 46 24 |Y.";.-...N.0: F$| 00000310: B2 22 24 22 3A 20 8B 20 C3 28 4D 24 29 B3 B1 30 |."$": . .(M$)..0| 00000320: 20 A7 20 46 24 B2 22 24 3A 22 AA 4D 24 00 4A 0B | . F$."$:".M$.J.| 00000330: 06 04 9F 20 38 2C 53 55 2C 30 2C 46 24 3A 20 55 |... 8,SU,0,F$: U| 00000340: B2 53 43 3A 20 8D 38 30 30 30 00 68 0B 0B 04 3A |.SC: .8000.h...:| 00000350: 20 8B 20 53 20 A7 20 99 3A 20 99 22 12 22 3B 53 | . S . .: .".";S| 00000360: 24 3A 20 A0 38 3A 20 8E 00 76 0B 10 04 A1 23 38 |$: .8: ..v....#8| 00000370: 2C 41 24 2C 42 24 00 94 0B 1A 04 3A 20 A1 23 38 |,A$,B$.....: .#8| 00000380: 2C 41 24 2C 41 24 2C 41 24 2C 41 24 20 3A 99 20 |,A$,A$,A$,A$ :. | 00000390: 22 2E 22 3B 00 BA 0B 24 04 3A 20 20 20 A1 23 38 |".";...$.: .#8| 000003A0: 2C 41 24 3A 20 8B 20 C3 28 41 24 29 B2 30 20 B0 |,A$: . .(A$).0 .| 000003B0: 20 53 54 20 A7 20 31 31 33 30 00 D3 0B 29 04 3A | ST . 1130...).:| 000003C0: 20 20 20 8B 20 C6 28 41 24 29 B2 30 20 A7 20 31 | . .(A$).0 . 1| 000003D0: 31 33 30 00 EB 0B 2E 04 3A 20 20 20 8B 20 41 24 |130.....: . A$| 000003E0: B3 B1 51 24 20 A7 20 31 30 36 30 00 22 0C 38 04 |..Q$ . 1060.".8.| 000003F0: 3A 20 A1 23 38 2C 41 24 3A 20 8B 20 41 24 B3 B1 |: .#8,A$: . A$..| 00000400: 51 24 20 AF 20 53 54 B2 30 20 A7 20 4E 24 28 4E |Q$ . ST.0 . N$(N| 00000410: 29 B2 4E 24 28 4E 29 AA 41 24 3A 20 89 20 31 30 |).N$(N).A$: . 10| 00000420: 38 30 00 40 0C 42 04 3A 20 A1 23 38 2C 41 24 3A |80.@.B.: .#8,A$:| 00000430: 20 8B 20 41 24 B2 22 20 22 20 A7 20 31 30 39 30 | . A$." " . 1090| 00000440: 00 76 0C 4C 04 3A 20 54 24 28 4E 29 B2 54 24 28 |.v.L.: T$(N).T$(| 00000450: 4E 29 AA 41 24 3A 20 A1 23 38 2C 41 24 3A 20 8B |N).A$: .#8,A$: .| 00000460: 20 41 24 B3 B1 22 20 22 20 AF 20 53 54 B2 30 20 | A$.." " . ST.0 | 00000470: A7 20 31 31 30 30 00 A7 0C 56 04 3A 20 A1 23 38 |. 1100...V.: .#8| 00000480: 2C 41 24 3A 41 24 B2 41 24 AA C7 28 30 29 3A 8B |,A$:A$.A$..(0):.| 00000490: 20 C6 28 41 24 29 B3 B1 30 20 AF 20 53 54 B2 30 | .(A$)..0 . ST.0| 000004A0: 20 A7 20 31 31 31 30 00 C0 0C 5C 04 3A 20 8B 20 | . 1110...\.: . | 000004B0: 4E B2 30 20 B0 20 57 B2 30 20 A7 20 31 31 32 30 |N.0 . W.0 . 1120| 000004C0: 00 FB 0C 5D 04 3A 20 8B 20 C3 28 4E 24 28 4E 29 |...].: . .(N$(N)| 000004D0: 29 20 B3 20 28 57 AB 31 AA C3 28 57 24 29 29 20 |) . (W.1..(W$)) | 000004E0: A7 20 4E 24 28 4E 29 B2 22 22 3A 54 24 28 4E 29 |. N$(N)."":T$(N)| 000004F0: B2 22 22 3A 20 89 20 31 30 35 30 00 31 0D 5F 04 |."": . 1050.1._.| 00000500: 3A 20 8B 20 57 24 B3 B1 C9 28 4E 24 28 4E 29 2C |: . W$...(N$(N),| 00000510: 20 C3 28 57 24 29 29 20 A7 20 4E 24 28 4E 29 B2 | .(W$)) . N$(N).| 00000520: 22 22 3A 54 24 28 4E 29 B2 22 22 3A 89 31 30 35 |"":T$(N)."":.105| 00000530: 30 00 44 0D 60 04 3A 20 4E B2 4E AA 31 3A 20 89 |0.D.`.: N.N.1: .| 00000540: 31 30 35 30 00 67 0D 6A 04 99 3A A0 20 38 3A 20 |1050.g.j..:. 8: | 00000550: 8D 38 30 30 30 3A 20 8B 20 53 20 A7 20 99 22 2E |.8000: . S . .".| 00000560: 2E 2E 12 22 3B 53 24 00 8B 0D 74 04 99 3A 99 20 |...";S$...t..:. | 00000570: 4E AB 31 3B 22 46 49 4C 45 53 20 54 41 52 47 45 |N.1;"FILES TARGE| 00000580: 54 45 44 22 20 3A 99 20 3A 20 8E 00 BF 0D D0 07 |TED" :. : ......| 00000590: 8F 20 20 20 44 49 53 50 4C 41 59 20 46 49 4C 45 |. DISPLAY FILE| 000005A0: 53 20 26 20 41 53 4B 20 55 53 45 52 20 57 48 49 |S & ASK USER WHI| 000005B0: 43 48 20 4F 4E 45 53 20 54 4F 20 43 4F 50 59 00 |CH ONES TO COPY.| 000005C0: E6 0D DA 07 4B B2 30 3A 20 8B 20 4E B3 32 20 A7 |....K.0: . N.2 .| 000005D0: 20 99 22 20 4E 4F 20 46 49 4C 45 53 20 46 4F 55 | ." NO FILES FOU| 000005E0: 4E 44 2E 22 3A 8E 00 FC 0D E4 07 81 20 49 B2 31 |ND.":....... I.1| 000005F0: A4 4E AB 31 3A 43 45 28 49 29 B2 30 00 33 0E EE |.N.1:CE(I).0.3..| 00000600: 07 3A 20 99 20 51 24 3B 4E 24 28 49 29 3B 51 24 |.: . Q$;N$(I);Q$| 00000610: 3B A3 31 39 29 3B 54 24 28 49 29 3B A3 32 35 29 |;.19);T$(I);.25)| 00000620: 3B 3A 20 8B 20 4D 24 B3 B1 22 2A 22 20 A7 20 32 |;: . M$.."*" . 2| 00000630: 30 37 30 00 50 0E F8 07 3A 20 99 3A 43 45 28 49 |070.P...: .:CE(I| 00000640: 29 B2 31 3A 20 4B B2 4B AA 31 3A 20 82 3A 20 99 |).1: K.K.1: .: .| 00000650: 00 84 0E 02 08 99 20 22 12 20 43 4F 4E 54 49 4E |...... ". CONTIN| 00000660: 55 45 20 28 59 2F 4E 29 20 3F 20 92 20 22 3B 3A |UE (Y/N) ? . ";:| 00000670: 20 8D 34 30 30 30 20 3A 8B 20 41 24 B2 22 59 22 | .4000 :. A$."Y"| 00000680: 20 A7 20 8E 00 8F 0E 0C 08 4B B2 30 3A 20 8E 00 | . ......K.0: ..| 00000690: C7 0E 16 08 99 20 22 43 4F 50 59 20 3F 20 28 59 |..... "COPY ? (Y| 000006A0: 2F 4E 29 20 22 3B 3A 8D 34 30 30 30 20 3A 8B 20 |/N) ";:.4000 :. | 000006B0: 41 24 B2 22 59 22 20 A7 20 43 45 28 49 29 B2 31 |A$."Y" . CE(I).1| 000006C0: 3A 20 4B B2 4B AA 31 00 D2 0E 20 08 3A 20 82 3A |: K.K.1... .: .:| 000006D0: 20 8E 00 E9 0E B8 0B 8F 20 20 20 43 4F 50 59 20 | ....... COPY | 000006E0: 54 48 45 20 46 49 4C 45 53 00 08 0F C2 0B 81 20 |THE FILES...... | 000006F0: 49 B2 31 A4 4E AB 31 3A 8B 20 43 45 28 49 29 B2 |I.1.N.1:. CE(I).| 00000700: 30 20 A7 20 82 3A 20 8E 00 30 0F CC 0B 3A 54 24 |0 . .: ..0...:T$| 00000710: 28 49 29 20 B2 20 C8 28 54 24 28 49 29 2C 31 29 |(I) . .(T$(I),1)| 00000720: 3A 20 46 24 B2 51 24 AA 4E 24 28 49 29 AA 51 24 |: F$.Q$.N$(I).Q$| 00000730: 00 53 0F D6 0B 9F 39 2C 44 55 2C 39 2C 4E 24 28 |.S....9,DU,9,N$(| 00000740: 49 29 3A 20 55 B2 44 43 3A 20 8D 38 30 30 30 3A |I): U.DC: .8000:| 00000750: 20 A0 39 00 67 0F E0 0B 3A 20 8B 20 53 B2 36 32 | .9.g...: . S.62| 00000760: 20 A7 20 33 31 30 30 00 96 0F EA 0B 3A 20 99 20 | . 3100.....: . | 00000770: 46 24 3B 22 20 45 58 49 53 54 53 2C 20 52 45 50 |F$;" EXISTS, REP| 00000780: 4C 41 43 45 3F 20 22 3B 3A 20 8D 34 30 30 30 3A |LACE? ";: .4000:| 00000790: 8D 20 34 35 30 30 00 BE 0F F4 0B 3A 20 8B 20 41 |. 4500.....: . A| 000007A0: 24 B2 22 4E 22 20 A7 20 99 20 46 24 3B 22 20 4E |$."N" . . F$;" N| 000007B0: 4F 54 20 43 4F 50 49 45 44 22 3A 82 3A 8E 00 DE |OT COPIED":.:...| 000007C0: 0F FE 0B 3A 20 20 20 99 20 20 22 53 43 52 41 54 |...: . "SCRAT| 000007D0: 43 48 49 4E 47 20 4F 4C 44 20 22 3B 46 24 00 11 |CHING OLD ";F$..| 000007E0: 10 08 0C 3A 20 20 20 98 31 35 2C 22 53 30 3A 22 |...: .15,"S0:"| 000007F0: 3B 4E 24 28 49 29 3A 20 8D 38 30 30 30 3A 8D 20 |;N$(I): .8000:. | 00000800: 34 35 30 30 3A 8B 20 53 B1 31 20 A7 20 33 31 37 |4500:. S.1 . 317| 00000810: 30 00 20 10 12 0C 3A 20 20 20 89 20 33 30 33 30 |0. ...: . 3030| 00000820: 00 54 10 1C 0C 3A 20 8B 20 54 24 28 49 29 B2 22 |.T...: . T$(I)."| 00000830: 52 22 20 A7 20 8D 20 35 30 30 30 3A 89 20 33 31 |R" . . 5000:. 31| 00000840: 37 30 3A 8F 20 20 43 4F 50 59 20 52 45 4C 20 46 |70:. COPY REL F| 00000850: 49 4C 45 53 00 6F 10 26 0C 3A 20 20 99 20 22 4E |ILES.o.&.: . "N| 00000860: 4F 57 20 43 4F 50 59 49 4E 47 20 22 3B 46 24 00 |OW COPYING ";F$.| 00000870: AD 10 30 0C 3A 20 20 9F 39 2C 44 55 2C 31 2C 4E |..0.: .9,DU,1,N| 00000880: 24 28 49 29 AA 22 2C 22 AA 54 24 28 49 29 AA 22 |$(I).",".T$(I)."| 00000890: 2C 57 22 3A 20 55 B2 44 43 3A 20 8D 38 30 30 30 |,W": U.DC: .8000| 000008A0: 20 3A 20 8B 20 53 20 A7 20 33 31 37 30 00 EB 10 | : . S . 3170...| 000008B0: 44 0C 3A 20 20 9F 38 2C 53 55 2C 30 2C 4E 24 28 |D.: .8,SU,0,N$(| 000008C0: 49 29 AA 22 2C 22 AA 54 24 28 49 29 AA 22 2C 52 |I).",".T$(I).",R| 000008D0: 22 3A 20 55 B2 53 43 3A 20 8D 38 30 30 30 20 3A |": U.SC: .8000 :| 000008E0: 20 8B 20 53 20 A7 20 33 31 37 30 00 0D 11 58 0C | . S . 3170...X.| 000008F0: 3A 20 20 9E 20 42 41 3A 20 A0 20 38 3A 20 A0 20 |: . BA: . 8: . | 00000900: 39 3A 55 B2 44 43 3A 8D 20 38 30 30 30 00 3B 11 |9:U.DC:. 8000.;.| 00000910: 62 0C 3A 20 20 8B 20 53 20 A7 20 99 20 22 12 1D |b.: . S . . "..| 00000920: 43 4F 50 59 20 46 41 49 4C 45 44 3A 20 92 22 3B |COPY FAILED: .";| 00000930: 53 24 20 3A 20 89 20 33 31 38 30 00 4E 11 67 0C |S$ : . 3180.N.g.| 00000940: 3A 20 20 55 B2 53 43 3A 8D 20 38 30 30 30 00 73 |: U.SC:. 8000.s| 00000950: 11 68 0C 3A 20 20 8B 20 53 20 A7 20 99 20 22 12 |.h.: . S . . ".| 00000960: 1D 43 4F 50 59 20 46 41 49 4C 45 44 3A 20 92 22 |.COPY FAILED: ."| 00000970: 3B 53 24 00 7C 11 6C 0C 82 3A 20 8E 00 A1 11 A0 |;S$.|.l..: .....| 00000980: 0F A1 20 41 24 3A 20 8B 20 41 24 B3 B1 22 59 22 |.. A$: . A$.."Y"| 00000990: 20 AF 20 41 24 B3 B1 22 4E 22 20 A7 20 34 30 30 | . A$.."N" . 400| 000009A0: 30 00 AC 11 AA 0F 99 41 24 3A 20 8E 00 EA 11 94 |0......A$: .....| 000009B0: 11 99 20 22 91 20 20 20 20 20 20 20 20 20 20 20 |.. ". | 000009C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 22 AA C7 28 | "..(| 000009E0: 31 33 29 AA 22 91 22 3B 3A 8E 00 02 12 88 13 8F |13).".";:.......| 000009F0: 20 20 20 43 4F 50 59 20 52 45 4C 20 46 49 4C 45 | COPY REL FILE| 00000A00: 53 2E 00 17 12 92 13 99 20 22 53 43 41 4E 4E 49 |S....... "SCANNI| 00000A10: 4E 47 20 22 3B 46 24 00 40 12 9C 13 9F 38 2C 53 |NG ";F$.@....8,S| 00000A20: 55 2C 38 2C 4E 24 28 49 29 3A 20 55 B2 53 43 3A |U,8,N$(I): U.SC:| 00000A30: 20 8D 20 38 30 30 30 3A 20 8B 20 53 20 A7 20 8E | . 8000: . S . .| 00000A40: 00 6F 12 A6 13 4C B2 30 3A 81 20 52 4E B2 37 A4 |.o...L.0:. RN.7.| 00000A50: 30 A9 AB 31 3A 52 47 B2 32 AE 52 4E 3A 20 8F 20 |0..1:RG.2.RN: . | 00000A60: 53 43 41 4E 20 46 4F 52 20 52 45 43 4C 45 4E 00 |SCAN FOR RECLEN.| 00000A70: 94 12 B0 13 3A 20 52 B2 31 3A 4C B2 4C AA 52 47 |....: R.1:L.L.RG| 00000A80: 3A 8D 20 36 30 30 30 3A 8B 20 53 20 A7 20 4C B2 |:. 6000:. S . L.| 00000A90: 4C AB 52 47 00 9C 12 BA 13 3A 20 82 00 CB 12 C4 |L.RG.....: .....| 00000AA0: 13 52 B2 30 3A 81 52 4E B2 31 35 A4 30 A9 AB 31 |.R.0:.RN.15.0..1| 00000AB0: 3A 52 47 B2 32 AE 52 4E 3A 20 8F 20 53 43 41 4E |:RG.2.RN: . SCAN| 00000AC0: 20 46 4F 52 20 4E 55 4D 52 45 43 00 EE 12 CE 13 | FOR NUMREC.....| 00000AD0: 3A 20 52 B2 52 AA 52 47 3A 20 8D 20 36 30 30 30 |: R.R.RG: . 6000| 00000AE0: 3A 20 8B 20 53 20 A7 20 52 B2 52 AB 52 47 00 F6 |: . S . R.R.RG..| 00000AF0: 12 D8 13 3A 20 82 00 12 13 EC 13 8D 20 34 35 30 |...: ....... 450| 00000B00: 30 3A 99 20 22 43 52 45 41 54 49 4E 47 20 22 3B |0:. "CREATING ";| 00000B10: 46 24 00 2F 13 F6 13 9F 39 2C 44 55 2C 39 2C 4E |F$./....9,DU,9,N| 00000B20: 24 28 49 29 AA 22 2C 4C 2C 22 AA C7 28 4C 29 00 |$(I).",L,"..(L).| 00000B30: 4C 13 00 14 3A 20 20 55 B2 44 43 3A 20 8D 20 38 |L...: U.DC: . 8| 00000B40: 30 30 30 3A 20 8B 20 53 20 A7 20 8E 00 7E 13 0A |000: . S . ..~..| 00000B50: 14 41 24 B2 22 50 22 AA C7 28 39 36 AA 38 29 AA |.A$."P"..(96.8).| 00000B60: C7 28 31 29 AA C7 28 30 29 AA C7 28 31 29 3A 20 |.(1)..(0)..(1): | 00000B70: 98 31 34 2C 41 24 3A 20 98 31 34 2C 41 24 00 9B |.14,A$: .14,A$..| 00000B80: 13 14 14 3A 20 20 55 B2 53 43 3A 20 8D 20 38 30 |...: U.SC: . 80| 00000B90: 30 30 3A 20 8B 20 53 20 A7 20 8E 00 CF 13 1E 14 |00: . S . ......| 00000BA0: 41 24 B2 22 50 22 AA C7 28 39 36 AA 39 29 AA C7 |A$."P"..(96.9)..| 00000BB0: 28 52 4C 29 AA C7 28 52 48 29 AA C7 28 31 29 3A |(RL)..(RH)..(1):| 00000BC0: 20 98 31 35 2C 41 24 3A 20 98 31 35 2C 41 24 00 | .15,A$: .15,A$.| 00000BD0: F5 13 28 14 3A 20 20 98 39 2C C7 28 32 35 35 29 |..(.: .9,.(255)| 00000BE0: 3B 3A 20 8F 20 57 52 49 54 45 20 45 4E 44 20 52 |;: . WRITE END R| 00000BF0: 45 43 4F 52 44 00 27 14 32 14 41 24 B2 22 50 22 |ECORD.'.2.A$."P"| 00000C00: AA C7 28 39 36 AA 39 29 AA C7 28 31 29 AA C7 28 |..(96.9)..(1)..(| 00000C10: 30 29 AA C7 28 31 29 3A 20 98 31 35 2C 41 24 3A |0)..(1): .15,A$:| 00000C20: 20 98 31 35 2C 41 24 00 44 14 3C 14 3A 20 20 55 | .15,A$.D.<.: U| 00000C30: B2 44 43 3A 20 8D 20 38 30 30 30 3A 20 8B 20 53 |.DC: . 8000: . S| 00000C40: 20 A7 20 8E 00 63 14 50 14 8D 20 34 35 30 30 3A | . ..c.P.. 4500:| 00000C50: 99 20 22 4E 4F 57 20 43 4F 50 59 49 4E 47 20 22 |. "NOW COPYING "| 00000C60: 3B 46 24 00 78 14 5A 14 81 20 52 4E B2 31 A4 52 |;F$.x.Z.. RN.1.R| 00000C70: 3A 20 9E 42 41 3A 20 82 00 91 14 64 14 A0 38 3A |: .BA: ....d..8:| 00000C80: 20 A0 39 3A 20 55 B2 44 43 3A 20 8D 20 38 30 30 | .9: U.DC: . 800| 00000C90: 30 00 97 14 6E 14 8E 00 D9 14 70 17 52 48 B2 B5 |0...n.....p.RH..| 00000CA0: 28 52 AD 32 35 36 29 3A 52 4C B2 52 AB 52 48 AC |(R.256):RL.R.RH.| 00000CB0: 32 35 36 20 3A 8F 20 20 53 45 4E 44 20 53 52 43 |256 :. SEND SRC| 00000CC0: 20 50 20 43 4D 44 2E 20 20 52 3D 52 45 43 23 2C | P CMD. R=REC#,| 00000CD0: 20 4C 3D 4F 46 46 53 45 54 00 0D 15 7A 17 41 24 | L=OFFSET...z.A$| 00000CE0: B2 22 50 22 AA C7 28 39 36 AA 38 29 AA C7 28 52 |."P"..(96.8)..(R| 00000CF0: 4C 29 AA C7 28 52 48 29 AA C7 28 4C 29 3A 20 98 |L)..(RH)..(L): .| 00000D00: 31 34 2C 41 24 3A 20 98 31 34 2C 41 24 00 44 15 |14,A$: .14,A$.D.| 00000D10: 84 17 3A 20 55 B2 53 43 3A 20 89 38 30 30 30 20 |..: U.SC: .8000 | 00000D20: 20 20 20 20 20 20 20 20 20 3A 8F 20 47 45 54 20 | :. GET | 00000D30: 44 49 53 4B 20 53 54 41 54 20 41 4E 44 20 52 45 |DISK STAT AND RE| 00000D40: 54 55 52 4E 00 7C 15 40 1F 84 55 2C 41 24 2C 42 |TURN.|.@..U,A$,B| 00000D50: 24 2C 43 24 2C 44 24 3A 20 53 B2 C5 28 41 24 29 |$,C$,D$: S..(A$)| 00000D60: 3A 20 53 24 B2 41 24 AA 45 24 AA 42 24 AA 45 24 |: S$.A$.E$.B$.E$| 00000D70: AA 43 24 AA 45 24 AA 44 24 20 3A 8E 00 98 15 28 |.C$.E$.D$ :....(| 00000D80: 23 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 |#.53280,0:.53281| 00000D90: 2C 30 3A 99 22 93 22 3B 00 BF 15 32 23 99 22 9B |,0:.".";...2#.".| 00000DA0: B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000DB0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 00 |................| 00000DC0: E8 15 3C 23 99 22 9B DD 20 20 9F 46 49 4C 45 43 |..<#.".. .FILEC| 00000DD0: 4F 50 59 20 55 54 49 4C 49 54 59 20 2D 20 56 30 |OPY UTILITY - V0| 00000DE0: 32 31 38 38 37 9B 20 DD 00 11 16 46 23 99 22 AD |21887. ....F#.".| 00000DF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000E00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 3A |..............":| 00000E10: 99 00 17 16 50 23 8E 00 30 16 55 23 8B 55 B2 31 |....P#..0.U#.U.1| 00000E20: 32 A7 99 22 1D 9B 22 46 24 22 20 22 42 24 3A 80 |2..".."F$" "B$:.| 00000E30: 00 5E 16 5A 23 9F 31 35 2C 55 2C 31 35 3A 9F 32 |.^.Z#.15,U,15:.2| 00000E40: 2C 55 2C 32 2C 46 24 AA 22 2C 50 2C 52 22 3A A0 |,U,2,F$.",P,R":.| 00000E50: 32 3A 84 31 35 2C 41 2C 42 24 2C 43 2C 44 00 78 |2:.15,A,B$,C,D.x| 00000E60: 16 5F 23 A0 31 35 3A 8B 41 B1 31 39 A7 55 B2 55 |._#.15:.A.19.U.U| 00000E70: AA 31 3A 89 39 30 34 35 00 7E 16 64 23 8E 00 8F |.1:.9045.~.d#...| 00000E80: 16 8C 23 42 41 B2 31 32 AC 34 30 39 36 3A 8E 00 |..#BA.12.4096:..| 00000E90: AD 16 8D 23 8B 20 46 B2 30 20 AF 20 42 41 B2 30 |...#. F.0 . BA.0| 00000EA0: 20 A7 20 42 41 B2 31 32 AC 34 30 39 36 00 00 00 | . BA.12.4096...|
......F$."FILECOPY.BIN":U.8.+....9100:.9
050.R.... F.0 ..B(49160)..133.. F$,U,1:.
25.\....9000...(.. "...YOUR SOURCE DISK
UNIT.. 8...";SU...2.. "...DESTINATION D
ISK UNIT.. 9...";DU:....<.: . SU.4 . SU
.31 . DU.4 . DU.31 . SU.DU . 10...F.. ".
. ENTER TEMPLATE OR <RETURN> .. ";:M$.""
:.M$.S.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$(300),T$(300),CE(300):Q$.G(34)
:E$.","...Z..14,SU,15,"I": SC.14:U.SC: .
8000: .S . .".."SU":.";S$: .120.?._..15,
DU,15,"I": DC.15:U.DC: .8000: . S . ."."
DU":.";S$: .120.Z.D.. 9000: . 1000: . 20
00.S.N.. K . . 9000: . 3000...X..:.". MO
RE (Y/N) ? .. ";:.4000: . A$."N" . .: ..
.....:.9100:.25...... READ DIRECTORY IN
TO N$,T$: N=NUM FILES+1...... ".READING
DIRECTORY.";.-...N.0: F$."$": . C(M$)..0
. F$."$:".M$.J.... 8,SU,0,F$: U.SC: .80
00.H...: . S . .: .".";S$: 8: ..V....#8
,A$,B$.....: .#8,A$,A$,A$,A$ :. ".";...$
.: .#8,A$: . C(A$).0 . ST . 1130.S.).:
. F(A$).0 . 1130.....: . A$..Q$ . 1
060.".8.: .#8,A$: . A$..Q$ . ST.0 . N$(N
).N$(N).A$: . 1080.@.B.: .#8,A$: . A$."
" . 1090.V.L.: T$(N).T$(N).A$: .#8,A$: .
A$.." " . ST.0 . 1100...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.1._.
: . W$..I(N$(N), C(W$)) . N$(N)."":T$(N)
."":.1050.D.`.: N.N.1: .1050.G.J..: 8:
.8000: . S . ."....";S$...T..:. N.1;"FIL
ES TARGETED" :. : ....P.. DISPLAY FILE
S & ASK USER WHICH ONES TO COPY...Z.K.0:
. N.2 . ." NO FILES FOUND.":....... I.1
.N.1:CE(I).0.3...: . Q$;N$(I);Q$;.19);T$
(I);.25);: . M$.."*" . 2070.P...: .:CE(I
).1: K.K.1: .: ....... ". CONTINUE (Y/N)
? . ";: .4000 :. A$."Y" . ......K.0: ..
G.... "COPY ? (Y/N) ";:.4000 :. A$."Y" .
CE(I).1: K.K.1.R. .: .: ....... COPY
THE FILES...B.. I.1.N.1:. CE(I).0 . .: .
.0.L.:T$(I) . H(T$(I),1): F$.Q$.N$(I).Q$
.S.V..9,DU,9,N$(I): U.DC: .8000: 9.G...
: . S.62 . 3100.....: . F$;" EXISTS, REP
LACE? ";: .4000:. 4500.....: . A$."N" .
. F$;" NOT COPIED":.:......: . "SCRAT
CHING OLD ";F$.....: .15,"S0:";N$(I):
.8000:. 4500:. S.1 . 3170. ...: . 3030
.T...: . T$(I)."R" . . 5000:. 3170:. CO
PY REL FILES.O.&.: . "NOW COPYING ";F$.
..0.: .9,DU,1,N$(I).",".T$(I).",W": U.D
C: .8000 : . S . 3170...D.: .8,SU,0,N$(
I).",".T$(I).",R": U.SC: .8000 : . S . 3
170...X.: . BA: 8: 9:U.DC:. 8000.;.
B.: . S . . "..COPY FAILED: .";S$ : . 3
180.N.G.: U.SC:. 8000.S.H.: . S . . ".
.COPY FAILED: .";S$.|.L..: .... .. A$: .
A$.."Y" . A$.."N" . 4000......A$: .....
.. ".
".G(13).".";:....... COPY REL FILE
S....... "SCANNING ";F$.@....8,SU,8,N$(I
): U.SC: . 8000: . S . ..O...L.0:. RN.7.
0..1:RG.2.RN: . SCAN FOR RECLEN.....: R.
1:L.L.RG:. 6000:. S . L.L.RG.....: ..K.D
.R.0:.RN.15.0..1:RG.2.RN: . SCAN FOR NUM
REC...N.: R.R.RG: . 6000: . S . R.R.RG..
.X.: ....... 4500:. "CREATING ";F$./....
9,DU,9,N$(I).",L,".G(L).L...: U.DC: . 8
000: . S . ..~...A$."P".G(96.8).G(1).G(0
).G(1): .14,A$: .14,A$.....: U.SC: . 80
00: . S . ..O...A$."P".G(96.9).G(RL).G(R
H).G(1): .15,A$: .15,A$...(.: .9,G(255)
;: . WRITE END RECORD.'.2.A$."P".G(96.9)
.G(1).G(0).G(1): .15,A$: .15,A$.D.<.: U
.DC: . 8000: . S . ..C.P.. 4500:. "NOW C
OPYING ";F$.X.Z.. RN.1.R: .BA: ....D. 8:
9: U.DC: . 8000...N...Y.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$.D...: 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#.".................................
..<#.".. .FILECOPY UTILITY - V021887. .
...F#."...............................":
....P#..0.U#.U.12..".."F$" "B$:..^.Z#.15
,U,15:.2,U,2,F$.",P,R": 2:.15,A,B$,C,D.X
._# 15:.A.19.U.U.1:.9045.~.D#.....#BA.12
.4096:.....#. F.0 . BA.0 . BA.12.4096...
> CLICK IMAGE PREVIEW FOR FULL MODAL