FILECOPY.111286
FILE INFORMATION
FILENAME(S): FILECOPY.111286
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 18:07:08
APPEARS ON: 3 disk(s)
FILE HASH
53d1c7e6daf57c8a5ac63ae6572801f1b64ddeb950c80aef17d92c8ae1f1444a
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 1764 V 040887 | FILECOPY.111286 | PRG | Xii | 19 | 0 | DOWNLOAD FILE |
| 1764 V 040887 | FILECOPY.111286 | PRG | Sailor, Pbv | 19 | 0 | DOWNLOAD FILE |
| 1764 V 040887 | FILECOPY.111286 | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 43 08 0A 00 8F 20 46 24 3D 22 30 3A 46 49 |..C.... F$="0:FI| 00000010: 4C 45 43 4F 50 59 2E 31 31 31 32 38 36 22 3A 20 |LECOPY.111286": | 00000020: 4F 50 45 4E 31 2C 38 2C 31 35 2C 22 53 22 2B 46 |OPEN1,8,15,"S"+F| 00000030: 24 3A 20 43 4C 4F 53 45 31 3A 20 53 41 56 45 46 |$: CLOSE1: SAVEF| 00000040: 24 2C 38 00 4E 08 14 00 8D 20 39 30 30 30 00 74 |$,8.N.... 9000.t| 00000050: 08 1E 00 8B 20 41 B2 30 20 A7 20 41 B2 31 3A 20 |.... A.0 . A.1: | 00000060: 93 20 22 46 49 4C 45 43 4F 50 59 2E 42 49 4E 22 |. "FILECOPY.BIN"| 00000070: 2C 38 2C 31 00 9B 08 28 00 85 20 22 59 4F 55 52 |,8,1...(.. "YOUR| 00000080: 20 53 4F 55 52 43 45 20 44 49 53 4B 20 55 4E 49 | SOURCE DISK UNI| 00000090: 54 20 20 38 9D 9D 9D 22 3B 53 55 00 C4 08 32 00 |T 8...";SU...2.| 000000A0: 85 20 22 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 |. "DESTINATION D| 000000B0: 49 53 4B 20 55 4E 49 54 20 20 39 9D 9D 9D 22 3B |ISK UNIT 9...";| 000000C0: 44 55 3A 99 00 ED 08 3C 00 3A 20 8B 20 53 55 B3 |DU:....<.: . SU.| 000000D0: 34 20 B0 20 53 55 B1 33 31 20 B0 20 44 55 B3 34 |4 . SU.31 . DU.4| 000000E0: 20 B0 20 44 55 B1 33 31 20 A7 20 31 30 00 20 09 | . DU.31 . 10. .| 000000F0: 46 00 99 20 22 12 20 45 4E 54 45 52 20 54 45 4D |F.. ". ENTER TEM| 00000100: 50 4C 41 54 45 20 4F 52 20 3C 52 45 54 55 52 4E |PLATE OR <RETURN| 00000110: 3E 20 92 20 22 3B 3A 4D 24 B2 22 22 3A 85 4D 24 |> . ";:M$."":.M$| 00000120: 00 61 09 50 00 86 20 4E 24 28 32 30 30 29 2C 54 |.a.P.. N$(200),T| 00000130: 24 28 32 30 30 29 2C 43 45 28 32 30 30 29 3A 51 |$(200),CE(200):Q| 00000140: 24 B2 C7 28 33 34 29 3A 5A 24 B2 C7 28 30 29 3A |$..(34):Z$..(0):| 00000150: 45 24 B2 22 2C 22 3A 42 41 B2 31 32 AC 34 30 39 |E$.",":BA.12.409| 00000160: 36 00 A1 09 5A 00 9F 31 34 2C 53 55 2C 31 35 2C |6...Z..14,SU,15,| 00000170: 22 49 22 3A 20 53 43 B2 31 34 3A 55 B2 53 43 3A |"I": SC.14:U.SC:| 00000180: 20 8D 38 30 30 30 3A 8B 20 44 53 20 A7 20 99 22 | .8000:. DS . ."| 00000190: 11 22 53 55 22 3A 12 22 3B 44 53 24 3A 89 31 32 |."SU":.";DS$:.12| 000001A0: 30 00 E1 09 5F 00 9F 31 35 2C 44 55 2C 31 35 2C |0..._..15,DU,15,| 000001B0: 22 49 22 3A 20 44 43 B2 31 35 3A 55 B2 44 43 3A |"I": DC.15:U.DC:| 000001C0: 20 8D 38 30 30 30 3A 8B 20 44 53 20 A7 20 99 22 | .8000:. DS . ."| 000001D0: 11 22 44 55 22 3A 12 22 3B 44 53 24 3A 89 31 32 |."DU":.";DS$:.12| 000001E0: 30 00 FC 09 64 00 8D 20 39 30 30 30 3A 20 8D 20 |0...d.. 9000: . | 000001F0: 31 30 30 30 3A 20 8D 20 32 30 30 30 00 15 0A 6E |1000: . 2000...n| 00000200: 00 8B 20 4B 20 A7 20 8D 20 39 30 30 30 3A 20 8D |.. K . . 9000: .| 00000210: 20 33 30 30 30 00 47 0A 78 00 99 3A 20 99 22 12 | 3000.G.x..: .".| 00000220: 20 4D 4F 52 45 20 28 59 2F 4E 29 20 3F 20 92 20 | MORE (Y/N) ? . | 00000230: 22 3B 3A 20 8D 34 30 30 30 3A 20 8B 20 41 24 B2 |";: .4000: . A$.| 00000240: 22 4E 22 20 A7 20 80 00 57 0A 82 00 9C 3A 20 41 |"N" . ..W....: A| 00000250: B2 31 3A 20 89 31 30 00 87 0A E8 03 8F 20 20 52 |.1: .10...... R| 00000260: 45 41 44 20 44 49 52 45 43 54 4F 52 59 20 49 4E |EAD DIRECTORY IN| 00000270: 54 4F 20 4E 24 2C 54 24 3A 20 4E 3D 4E 55 4D 20 |TO N$,T$: N=NUM | 00000280: 46 49 4C 45 53 2B 31 00 A5 0A F2 03 99 20 22 52 |FILES+1...... "R| 00000290: 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F 52 59 |EADING DIRECTORY| 000002A0: 2E 2E 2E 22 3B 00 CC 0A FC 03 4E B2 30 3A 20 46 |...";.....N.0: F| 000002B0: 24 B2 22 24 22 3A 20 8B 20 4D 24 B3 B1 22 22 20 |$."$": . M$.."" | 000002C0: A7 20 46 24 B2 22 24 3A 22 AA 4D 24 00 E9 0A 06 |. F$."$:".M$....| 000002D0: 04 9F 20 38 2C 53 55 2C 30 2C 46 24 3A 20 55 B2 |.. 8,SU,0,F$: U.| 000002E0: 53 43 3A 20 8D 38 30 30 30 00 08 0B 0B 04 3A 20 |SC: .8000.....: | 000002F0: 8B 20 44 53 20 A7 20 99 3A 20 99 22 12 22 44 53 |. DS . .: ."."DS| 00000300: 24 3A 20 A0 38 3A 20 8E 00 16 0B 10 04 A1 23 38 |$: .8: .......#8| 00000310: 2C 41 24 2C 42 24 00 2C 0B 1A 04 3A 20 A1 23 38 |,A$,B$.,...: .#8| 00000320: 2C 41 24 2C 41 24 2C 41 24 2C 41 24 00 55 0B 24 |,A$,A$,A$,A$.U.$| 00000330: 04 3A 20 20 20 A1 23 38 2C 41 24 3A 20 8B 20 C6 |.: .#8,A$: . .| 00000340: 28 41 24 AA 5A 24 29 B2 30 20 B0 20 53 54 20 A7 |(A$.Z$).0 . ST .| 00000350: 20 31 31 33 30 00 6D 0B 2E 04 3A 20 20 20 8B 20 | 1130.m...: . | 00000360: 41 24 B3 B1 51 24 20 A7 20 31 30 36 30 00 A4 0B |A$..Q$ . 1060...| 00000370: 38 04 3A 20 A1 23 38 2C 41 24 3A 20 8B 20 41 24 |8.: .#8,A$: . A$| 00000380: B3 B1 51 24 20 AF 20 53 54 B2 30 20 A7 20 4E 24 |..Q$ . ST.0 . N$| 00000390: 28 4E 29 B2 4E 24 28 4E 29 AA 41 24 3A 20 89 20 |(N).N$(N).A$: . | 000003A0: 31 30 38 30 00 C2 0B 42 04 3A 20 A1 23 38 2C 41 |1080...B.: .#8,A| 000003B0: 24 3A 20 8B 20 41 24 B2 22 20 22 20 A7 20 31 30 |$: . A$." " . 10| 000003C0: 39 30 00 F8 0B 4C 04 3A 20 54 24 28 4E 29 B2 54 |90...L.: T$(N).T| 000003D0: 24 28 4E 29 AA 41 24 3A 20 A1 23 38 2C 41 24 3A |$(N).A$: .#8,A$:| 000003E0: 20 8B 20 41 24 B3 B1 22 20 22 20 AF 20 53 54 B2 | . A$.." " . ST.| 000003F0: 30 20 A7 20 31 31 30 30 00 22 0C 56 04 3A 20 A1 |0 . 1100.".V.: .| 00000400: 23 38 2C 41 24 3A 20 8B 20 C6 28 41 24 AA 5A 24 |#8,A$: . .(A$.Z$| 00000410: 29 B3 B1 30 20 AF 20 53 54 B2 30 20 A7 20 31 31 |)..0 . ST.0 . 11| 00000420: 31 30 00 35 0C 60 04 3A 20 4E B2 4E AA 31 3A 20 |10.5.`.: N.N.1: | 00000430: 89 31 30 35 30 00 54 0C 6A 04 A0 20 38 3A 20 8D |.1050.T.j.. 8: .| 00000440: 38 30 30 30 3A 20 8B 20 44 53 20 A7 20 99 22 12 |8000: . DS . .".| 00000450: 22 44 53 24 00 76 0C 74 04 99 20 4E AB 31 3B 22 |"DS$.v.t.. N.1;"| 00000460: 46 49 4C 45 53 20 54 41 52 47 45 54 45 44 22 20 |FILES TARGETED" | 00000470: 3A 99 20 3A 20 8E 00 AA 0C D0 07 8F 20 20 20 44 |:. : ....... D| 00000480: 49 53 50 4C 41 59 20 46 49 4C 45 53 20 26 20 41 |ISPLAY FILES & A| 00000490: 53 4B 20 55 53 45 52 20 57 48 49 43 48 20 4F 4E |SK USER WHICH ON| 000004A0: 45 53 20 54 4F 20 43 4F 50 59 00 D1 0C DA 07 4B |ES TO COPY.....K| 000004B0: B2 30 3A 20 8B 20 4E B3 32 20 A7 20 99 22 20 4E |.0: . N.2 . ." N| 000004C0: 4F 20 46 49 4C 45 53 20 46 4F 55 4E 44 2E 22 3A |O FILES FOUND.":| 000004D0: 8E 00 E7 0C E4 07 81 20 49 B2 31 A4 4E AB 31 3A |....... I.1.N.1:| 000004E0: 43 45 28 49 29 B2 30 00 1E 0D EE 07 3A 20 99 20 |CE(I).0.....: . | 000004F0: 51 24 3B 4E 24 28 49 29 3B 51 24 3B A3 31 39 29 |Q$;N$(I);Q$;.19)| 00000500: 3B 54 24 28 49 29 3B A3 32 35 29 3B 3A 20 8B 20 |;T$(I);.25);: . | 00000510: 4D 24 B3 B1 22 2A 22 20 A7 20 32 30 37 30 00 3B |M$.."*" . 2070.;| 00000520: 0D F8 07 3A 20 99 3A 43 45 28 49 29 B2 31 3A 20 |...: .:CE(I).1: | 00000530: 4B B2 4B AA 31 3A 20 82 3A 20 99 00 6F 0D 02 08 |K.K.1: .: ..o...| 00000540: 99 20 22 12 20 43 4F 4E 54 49 4E 55 45 20 28 59 |. ". CONTINUE (Y| 00000550: 2F 4E 29 20 3F 20 92 20 22 3B 3A 20 8D 34 30 30 |/N) ? . ";: .400| 00000560: 30 20 3A 8B 20 41 24 B2 22 59 22 20 A7 20 8E 00 |0 :. A$."Y" . ..| 00000570: 7A 0D 0C 08 4B B2 30 3A 20 8E 00 B2 0D 16 08 99 |z...K.0: .......| 00000580: 20 22 43 4F 50 59 20 3F 20 28 59 2F 4E 29 20 22 | "COPY ? (Y/N) "| 00000590: 3B 3A 8D 34 30 30 30 20 3A 8B 20 41 24 B2 22 59 |;:.4000 :. A$."Y| 000005A0: 22 20 A7 20 43 45 28 49 29 B2 31 3A 20 4B B2 4B |" . CE(I).1: K.K| 000005B0: AA 31 00 BD 0D 20 08 3A 20 82 3A 20 8E 00 D4 0D |.1... .: .: ....| 000005C0: B8 0B 8F 20 20 20 43 4F 50 59 20 54 48 45 20 46 |... COPY THE F| 000005D0: 49 4C 45 53 00 F4 0D C2 0B 81 20 49 B2 31 A4 4E |ILES...... I.1.N| 000005E0: AB 31 3A 20 8B 20 43 45 28 49 29 B2 30 20 A7 20 |.1: . CE(I).0 . | 000005F0: 82 3A 20 8E 00 1B 0E CC 0B 54 24 28 49 29 20 B2 |.: ......T$(I) .| 00000600: 20 C8 28 54 24 28 49 29 2C 31 29 3A 20 46 24 B2 | .(T$(I),1): F$.| 00000610: 51 24 AA 4E 24 28 49 29 AA 51 24 00 3E 0E D6 0B |Q$.N$(I).Q$.>...| 00000620: 9F 39 2C 44 55 2C 39 2C 4E 24 28 49 29 3A 20 55 |.9,DU,9,N$(I): U| 00000630: B2 44 43 3A 20 8D 38 30 30 30 3A 20 A0 39 00 53 |.DC: .8000: .9.S| 00000640: 0E E0 0B 3A 20 8B 20 44 53 B2 36 32 20 A7 20 33 |...: . DS.62 . 3| 00000650: 31 30 30 00 79 0E EA 0B 99 20 46 24 3B 22 20 45 |100.y.... F$;" E| 00000660: 58 49 53 54 53 2C 20 52 45 50 4C 41 43 45 3F 20 |XISTS, REPLACE? | 00000670: 22 3B 3A 20 8D 34 30 30 30 00 AF 0E F4 0B 3A 20 |";: .4000.....: | 00000680: 8B 20 41 24 B2 22 4E 22 20 A7 20 99 20 22 91 22 |. A$."N" . . "."| 00000690: 3B 46 24 3B 22 20 4E 4F 54 20 43 4F 50 49 45 44 |;F$;" NOT COPIED| 000006A0: 20 20 20 20 20 20 20 20 20 20 22 3A 82 3A 8E 00 | ":.:..| 000006B0: D8 0E FE 0B 3A 20 99 20 20 22 91 53 43 52 41 54 |....: . ".SCRAT| 000006C0: 43 48 49 4E 47 20 4F 4C 44 20 22 3B 46 24 3B 22 |CHING OLD ";F$;"| 000006D0: 20 20 20 20 20 20 91 22 00 08 0F 08 0C 3A 20 98 | .".....: .| 000006E0: 31 35 2C 22 53 30 3A 22 3B 4E 24 28 49 29 3A 20 |15,"S0:";N$(I): | 000006F0: 8D 38 30 30 30 3A 20 8B 20 44 53 B1 31 20 A7 20 |.8000: . DS.1 . | 00000700: 99 3A 20 89 33 31 35 30 00 15 0F 12 0C 3A 20 89 |.: .3150.....: .| 00000710: 20 33 30 33 30 00 3F 0F 1C 0C 8B 20 54 24 28 49 | 3030.?.... T$(I| 00000720: 29 B2 22 52 22 20 A7 20 35 30 30 30 3A 20 8F 20 |)."R" . 5000: . | 00000730: 20 43 4F 50 59 20 52 45 4C 20 46 49 4C 45 53 00 | COPY REL FILES.| 00000740: 63 0F 26 0C 99 20 22 4E 4F 57 20 43 4F 50 59 49 |c.&.. "NOW COPYI| 00000750: 4E 47 20 22 3B 46 24 3B 22 20 20 20 20 20 20 20 |NG ";F$;" | 00000760: 20 20 22 00 91 0F 30 0C 9F 39 2C 44 55 2C 31 2C | "...0..9,DU,1,| 00000770: 4E 24 28 49 29 AA 22 2C 22 AA 54 24 28 49 29 AA |N$(I).",".T$(I).| 00000780: 22 2C 57 22 3A 20 55 B2 44 43 3A 20 8D 38 30 30 |",W": U.DC: .800| 00000790: 30 00 A3 0F 3A 0C 3A 20 8B 20 44 53 20 A7 20 33 |0...:.: . DS . 3| 000007A0: 31 35 30 00 D1 0F 44 0C 9F 38 2C 53 55 2C 30 2C |150...D..8,SU,0,| 000007B0: 4E 24 28 49 29 AA 22 2C 22 AA 54 24 28 49 29 AA |N$(I).",".T$(I).| 000007C0: 22 2C 52 22 3A 20 55 B2 53 43 3A 20 8D 38 30 30 |",R": U.SC: .800| 000007D0: 30 00 FB 0F 4E 0C 3A 20 8B 20 44 53 20 A7 20 99 |0...N.: . DS . .| 000007E0: 22 12 43 4F 50 59 20 46 41 49 4C 45 44 3A 20 22 |".COPY FAILED: "| 000007F0: 3B 44 53 24 3A 20 89 33 31 37 30 00 04 10 58 0C |;DS$: .3170...X.| 00000800: 9E 20 42 41 00 15 10 62 0C A0 38 3A 20 A0 39 3A |. BA...b..8: .9:| 00000810: 20 82 3A 20 8E 00 39 10 A0 0F A1 41 24 3A 20 8B | .: ..9....A$: .| 00000820: 20 41 24 B3 B1 22 59 22 20 AF 20 41 24 B3 B1 22 | A$.."Y" . A$.."| 00000830: 4E 22 20 A7 20 34 30 30 30 00 44 10 AA 0F 99 41 |N" . 4000.D....A| 00000840: 24 3A 20 8E 00 5C 10 88 13 8F 20 20 20 43 4F 50 |$: ..\.... COP| 00000850: 59 20 52 45 4C 20 46 49 4C 45 53 2E 00 81 10 92 |Y REL FILES.....| 00000860: 13 99 20 22 53 43 41 4E 4E 49 4E 47 20 22 3B 46 |.. "SCANNING ";F| 00000870: 24 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 91 |$;" .| 00000880: 22 00 AE 10 9C 13 9F 38 2C 53 55 2C 38 2C 4E 24 |"......8,SU,8,N$| 00000890: 28 49 29 3A 20 55 B2 53 43 3A 20 8D 20 38 30 30 |(I): U.SC: . 800| 000008A0: 30 3A 20 8B 20 44 53 20 A7 20 33 31 35 30 00 DD |0: . DS . 3150..| 000008B0: 10 A6 13 4C B2 30 3A 81 20 52 4E B2 37 A4 30 A9 |...L.0:. RN.7.0.| 000008C0: AB 31 3A 52 47 B2 32 AE 52 4E 3A 20 8F 20 53 43 |.1:RG.2.RN: . SC| 000008D0: 41 4E 20 46 4F 52 20 52 45 43 4C 45 4E 00 03 11 |AN FOR RECLEN...| 000008E0: B0 13 3A 20 52 B2 31 3A 4C B2 4C AA 52 47 3A 8D |..: R.1:L.L.RG:.| 000008F0: 20 36 30 30 30 3A 8B 20 44 53 20 A7 20 4C B2 4C | 6000:. DS . L.L| 00000900: AB 52 47 00 0B 11 BA 13 3A 20 82 00 3A 11 C4 13 |.RG.....: ..:...| 00000910: 52 B2 30 3A 81 52 4E B2 31 35 A4 30 A9 AB 31 3A |R.0:.RN.15.0..1:| 00000920: 52 47 B2 32 AE 52 4E 3A 20 8F 20 53 43 41 4E 20 |RG.2.RN: . SCAN | 00000930: 46 4F 52 20 4E 55 4D 52 45 43 00 5E 11 CE 13 3A |FOR NUMREC.^...:| 00000940: 20 52 B2 52 AA 52 47 3A 20 8D 20 36 30 30 30 3A | R.R.RG: . 6000:| 00000950: 20 8B 20 44 53 20 A7 20 52 B2 52 AB 52 47 00 66 | . DS . R.R.RG.f| 00000960: 11 D8 13 3A 20 82 00 7F 11 EC 13 99 20 22 43 52 |...: ....... "CR| 00000970: 45 41 54 49 4E 47 20 22 3B 46 24 3B 22 91 22 00 |EATING ";F$;".".| 00000980: 9C 11 F6 13 9F 39 2C 44 55 2C 39 2C 4E 24 28 49 |.....9,DU,9,N$(I| 00000990: 29 AA 22 2C 4C 2C 22 AA C7 28 4C 29 00 BD 11 00 |).",L,"..(L)....| 000009A0: 14 3A 20 20 55 B2 44 43 3A 20 8D 20 38 30 30 30 |.: U.DC: . 8000| 000009B0: 3A 20 8B 20 44 53 20 A7 20 33 31 35 30 00 EF 11 |: . DS . 3150...| 000009C0: 0A 14 41 24 B2 22 50 22 AA C7 28 39 36 AA 38 29 |..A$."P"..(96.8)| 000009D0: AA C7 28 31 29 AA C7 28 30 29 AA C7 28 31 29 3A |..(1)..(0)..(1):| 000009E0: 20 98 31 34 2C 41 24 3A 20 98 31 34 2C 41 24 00 | .14,A$: .14,A$.| 000009F0: 10 12 14 14 3A 20 20 55 B2 53 43 3A 20 8D 20 38 |....: U.SC: . 8| 00000A00: 30 30 30 3A 20 8B 20 44 53 20 A7 20 33 31 35 30 |000: . DS . 3150| 00000A10: 00 44 12 1E 14 41 24 B2 22 50 22 AA C7 28 39 36 |.D...A$."P"..(96| 00000A20: AA 39 29 AA C7 28 52 4C 29 AA C7 28 52 48 29 AA |.9)..(RL)..(RH).| 00000A30: C7 28 31 29 3A 20 98 31 35 2C 41 24 3A 20 98 31 |.(1): .15,A$: .1| 00000A40: 35 2C 41 24 00 6A 12 28 14 3A 20 20 98 39 2C C7 |5,A$.j.(.: .9,.| 00000A50: 28 32 35 35 29 3B 3A 20 8F 20 57 52 49 54 45 20 |(255);: . WRITE | 00000A60: 45 4E 44 20 52 45 43 4F 52 44 00 9C 12 32 14 41 |END RECORD...2.A| 00000A70: 24 B2 22 50 22 AA C7 28 39 36 AA 39 29 AA C7 28 |$."P"..(96.9)..(| 00000A80: 31 29 AA C7 28 30 29 AA C7 28 31 29 3A 20 98 31 |1)..(0)..(1): .1| 00000A90: 35 2C 41 24 3A 20 98 31 35 2C 41 24 00 BD 12 3C |5,A$: .15,A$...<| 00000AA0: 14 3A 20 20 55 B2 44 43 3A 20 8D 20 38 30 30 30 |.: U.DC: . 8000| 00000AB0: 3A 20 8B 20 44 53 20 A7 20 33 31 35 30 00 D5 12 |: . DS . 3150...| 00000AC0: 50 14 99 20 22 4E 4F 57 20 43 4F 50 59 49 4E 47 |P.. "NOW COPYING| 00000AD0: 20 22 3B 46 24 00 EA 12 5A 14 81 20 52 4E B2 31 | ";F$...Z.. RN.1| 00000AE0: A4 52 3A 20 9E 42 41 3A 20 82 00 10 13 64 14 A0 |.R: .BA: ....d..| 00000AF0: 38 3A 20 A0 39 3A 20 55 B2 44 43 3A 20 8D 20 38 |8: .9: U.DC: . 8| 00000B00: 30 30 30 3A 20 8B 20 44 53 20 A7 20 33 31 35 30 |000: . DS . 3150| 00000B10: 00 16 13 6E 14 8E 00 58 13 70 17 52 48 B2 B5 28 |...n...X.p.RH..(| 00000B20: 52 AD 32 35 36 29 3A 52 4C B2 52 AB 52 48 AC 32 |R.256):RL.R.RH.2| 00000B30: 35 36 20 3A 8F 20 20 53 45 4E 44 20 53 52 43 20 |56 :. SEND SRC | 00000B40: 50 20 43 4D 44 2E 20 20 52 3D 52 45 43 23 2C 20 |P CMD. R=REC#, | 00000B50: 4C 3D 4F 46 46 53 45 54 00 8C 13 7A 17 41 24 B2 |L=OFFSET...z.A$.| 00000B60: 22 50 22 AA C7 28 39 36 AA 38 29 AA C7 28 52 4C |"P"..(96.8)..(RL| 00000B70: 29 AA C7 28 52 48 29 AA C7 28 4C 29 3A 20 98 31 |)..(RH)..(L): .1| 00000B80: 34 2C 41 24 3A 20 98 31 34 2C 41 24 00 C3 13 84 |4,A$: .14,A$....| 00000B90: 17 3A 20 55 B2 53 43 3A 20 89 38 30 30 30 20 20 |.: U.SC: .8000 | 00000BA0: 20 20 20 20 20 20 20 20 3A 8F 20 47 45 54 20 44 | :. GET D| 00000BB0: 49 53 4B 20 53 54 41 54 20 41 4E 44 20 52 45 54 |ISK STAT AND RET| 00000BC0: 55 52 4E 00 FD 13 40 1F 84 55 2C 41 24 2C 42 24 |URN...@..U,A$,B$| 00000BD0: 2C 43 24 2C 44 24 3A 20 44 53 B2 C5 28 41 24 29 |,C$,D$: DS..(A$)| 00000BE0: 3A 20 44 53 24 B2 41 24 AA 45 24 AA 42 24 AA 45 |: DS$.A$.E$.B$.E| 00000BF0: 24 AA 43 24 AA 45 24 AA 44 24 20 3A 8E 00 07 14 |$.C$.E$.D$ :....| 00000C00: 28 23 99 22 93 22 3B 00 2D 14 32 23 99 22 B0 C0 |(#.".";.-.2#."..| 00000C10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000C20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 00 53 14 |..............S.| 00000C30: 3C 23 99 22 DD 20 20 46 49 4C 45 43 4F 50 59 20 |<#.". FILECOPY | 00000C40: 55 54 49 4C 49 54 59 20 2D 20 56 31 31 31 32 38 |UTILITY - V11128| 00000C50: 36 20 DD 00 7C 14 46 23 99 22 AD C0 C0 C0 C0 C0 |6 ..|.F#."......| 00000C60: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000C70: C0 C0 C0 C0 C0 C0 C0 C0 BD 22 3A 99 00 82 14 50 |.........":....P| 00000C80: 23 8E 00 00 00 |#.... |
..C.... F$="0:FILECOPY.111286": OPEN1,8, 15,"S"+F$: CLOSE1: SAVEF$,8.N.... 9000.T .... A.0 . A.1: . "FILECOPY.BIN",8,1...( .. "YOUR SOURCE DISK UNIT 8...";SU.D.2. . "DESTINATION DISK UNIT 9...";DU:....< .: . SU.4 . SU.31 . DU.4 . DU.31 . 10. . F.. ". ENTER TEMPLATE OR <RETURN> . ";:M $."":.M$.A.P.. N$(200),T$(200),CE(200):Q $.G(34):Z$.G(0):E$.",":BA.12.4096...Z..1 4,SU,15,"I": SC.14:U.SC: .8000:. DS . ." ."SU":.";DS$:.120..._..15,DU,15,"I": DC. 15:U.DC: .8000:. DS . ."."DU":.";DS$:.12 0...D.. 9000: . 1000: . 2000...N.. K . . 9000: . 3000.G.X..: .". MORE (Y/N) ? . ";: .4000: . A$."N" . ..W....: A.1: .10. ..... READ DIRECTORY INTO N$,T$: N=NUM FILES+1...... "READING DIRECTORY...";.L. ..N.0: F$."$": . M$.."" . F$."$:".M$.... .. 8,SU,0,F$: U.SC: .8000.....: . DS . . : ."."DS$: 8: .......#8,A$,B$.,...: .#8 ,A$,A$,A$,A$.U.$.: .#8,A$: . F(A$.Z$). 0 . ST . 1130.M...: . A$..Q$ . 1060... 8.: .#8,A$: . A$..Q$ . ST.0 . N$(N).N$(N ).A$: . 1080.B.B.: .#8,A$: . A$." " . 10 90...L.: T$(N).T$(N).A$: .#8,A$: . A$.." " . ST.0 . 1100.".V.: .#8,A$: . F(A$.Z$ )..0 . ST.0 . 1110.5.`.: N.N.1: .1050.T. J. 8: .8000: . DS . ."."DS$.V.T.. N.1;" FILES TARGETED" :. : ....P.. DISPLAY F ILES & ASK USER WHICH ONES TO COPY.Q.Z.K .0: . N.2 . ." NO FILES FOUND.":....... I.1.N.1:CE(I).0.....: . Q$;N$(I);Q$;.19) ;T$(I);.25);: . M$.."*" . 2070.;...: .:C E(I).1: K.K.1: .: ..O.... ". CONTINUE (Y /N) ? . ";: .4000 :. A$."Y" . ..Z...K.0: ....... "COPY ? (Y/N) ";:.4000 :. A$."Y " . CE(I).1: K.K.1... .: .: ..T.... CO PY THE FILES...B.. I.1.N.1: . CE(I).0 . .: ....L.T$(I) . H(T$(I),1): F$.Q$.N$(I) .Q$.>.V..9,DU,9,N$(I): U.DC: .8000: 9.S ...: . DS.62 . 3100.Y.... F$;" EXISTS, R EPLACE? ";: .4000.....: . A$."N" . . "." ;F$;" NOT COPIED ":.:..X...: . ".SCRATCHING OLD ";F$;" .".....: . 15,"S0:";N$(I): .8000: . DS.1 . .: .3150 .....: . 3030.?.... T$(I)."R" . 5000: . COPY REL FILES.C.&.. "NOW COPYING ";F$; " "...0..9,DU,1,N$(I).",".T$(I). ",W": U.DC: .8000...:.: . DS . 3150.Q.D. .8,SU,0,N$(I).",".T$(I).",R": U.SC: .800 0...N.: . DS . .".COPY FAILED: ";DS$: .3 170...X.. BA...B. 8: 9: .: ..9. ..A$: . A$.."Y" . A$.."N" . 4000.D....A$: ..\.. .. COPY REL FILES....... "SCANNING ";F $;" ."......8,SU,8,N$(I): U.S C: . 8000: . DS . 3150.....L.0:. RN.7.0. .1:RG.2.RN: . SCAN FOR RECLEN.....: R.1: L.L.RG:. 6000:. DS . L.L.RG.....: ..:.D. R.0:.RN.15.0..1:RG.2.RN: . SCAN FOR NUMR EC.^.N.: R.R.RG: . 6000: . DS . R.R.RG.F .X.: ...... "CREATING ";F$;"."......9,D U,9,N$(I).",L,".G(L).....: U.DC: . 8000 : . DS . 3150.....A$."P".G(96.8).G(1).G( 0).G(1): .14,A$: .14,A$.....: U.SC: . 8 000: . DS . 3150.D...A$."P".G(96.9).G(RL ).G(RH).G(1): .15,A$: .15,A$.J.(.: .9,G (255);: . WRITE END RECORD...2.A$."P".G( 96.9).G(1).G(0).G(1): .15,A$: .15,A$...< .: U.DC: . 8000: . DS . 3150.U.P.. "NOW COPYING ";F$...Z.. RN.1.R: .BA: ....D. 8: 9: U.DC: . 8000: . DS . 3150...N...X .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$.C.. .: U.SC: .8000 :. GET DISK STAT AND RETURN...@..U,A$,B$,C$,D$: DS.E(A$) : DS$.A$.E$.B$.E$.C$.E$.D$ :....(#.".";. -.2#."................................S. <#.". FILECOPY UTILITY - V111286 ..|.F# ."...............................":....P #....
> CLICK IMAGE PREVIEW FOR FULL MODAL