COPY
FILE INFORMATION
FILENAME(S): COPY
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-12-02 22:47:14
APPEARS ON: 2 disk(s)
FILE HASH
db4caa6cc4be06a947faa810dc8b01c3a8ee519acec7ac551f267c31292011da
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LEER | COPY | PRG | swasti, charly | 22 | 0 | DOWNLOAD FILE |
| LEER | COPY | PRG | swasti, charly | 22 | 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 75 |$,8.N.... 9000.u|
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 31 30 2C 31 00 9C 08 28 00 85 20 22 59 4F 55 |,10,1...(.. "YOU|
00000080: 52 20 53 4F 55 52 43 45 20 44 49 53 4B 20 55 4E |R SOURCE DISK UN|
00000090: 49 54 20 20 38 9D 9D 9D 22 3B 53 55 00 C5 08 32 |IT 8...";SU...2|
000000A0: 00 85 20 22 44 45 53 54 49 4E 41 54 49 4F 4E 20 |.. "DESTINATION |
000000B0: 44 49 53 4B 20 55 4E 49 54 20 20 39 9D 9D 9D 22 |DISK UNIT 9..."|
000000C0: 3B 44 55 3A 99 00 EE 08 3C 00 3A 20 8B 20 53 55 |;DU:....<.: . SU|
000000D0: B3 34 20 B0 20 53 55 B1 33 31 20 B0 20 44 55 B3 |.4 . SU.31 . DU.|
000000E0: 34 20 B0 20 44 55 B1 33 31 20 A7 20 31 30 00 21 |4 . DU.31 . 10.!|
000000F0: 09 46 00 99 20 22 12 20 45 4E 54 45 52 20 54 45 |.F.. ". ENTER TE|
00000100: 4D 50 4C 41 54 45 20 4F 52 20 3C 52 45 54 55 52 |MPLATE OR <RETUR|
00000110: 4E 3E 20 92 20 22 3B 3A 4D 24 B2 22 22 3A 85 4D |N> . ";:M$."":.M|
00000120: 24 00 62 09 50 00 86 20 4E 24 28 32 30 30 29 2C |$.b.P.. N$(200),|
00000130: 54 24 28 32 30 30 29 2C 43 45 28 32 30 30 29 3A |T$(200),CE(200):|
00000140: 51 24 B2 C7 28 33 34 29 3A 5A 24 B2 C7 28 30 29 |Q$..(34):Z$..(0)|
00000150: 3A 45 24 B2 22 2C 22 3A 42 41 B2 31 32 AC 34 30 |:E$.",":BA.12.40|
00000160: 39 36 00 A2 09 5A 00 9F 31 34 2C 53 55 2C 31 35 |96...Z..14,SU,15|
00000170: 2C 22 49 22 3A 20 53 43 B2 31 34 3A 55 B2 53 43 |,"I": SC.14:U.SC|
00000180: 3A 20 8D 38 30 30 30 3A 8B 20 44 53 20 A7 20 99 |: .8000:. DS . .|
00000190: 22 11 22 53 55 22 3A 12 22 3B 44 53 24 3A 89 31 |"."SU":.";DS$:.1|
000001A0: 32 30 00 E2 09 5F 00 9F 31 35 2C 44 55 2C 31 35 |20..._..15,DU,15|
000001B0: 2C 22 49 22 3A 20 44 43 B2 31 35 3A 55 B2 44 43 |,"I": DC.15:U.DC|
000001C0: 3A 20 8D 38 30 30 30 3A 8B 20 44 53 20 A7 20 99 |: .8000:. DS . .|
000001D0: 22 11 22 44 55 22 3A 12 22 3B 44 53 24 3A 89 31 |"."DU":.";DS$:.1|
000001E0: 32 30 00 FD 09 64 00 8D 20 39 30 30 30 3A 20 8D |20...d.. 9000: .|
000001F0: 20 31 30 30 30 3A 20 8D 20 32 30 30 30 00 16 0A | 1000: . 2000...|
00000200: 6E 00 8B 20 4B 20 A7 20 8D 20 39 30 30 30 3A 20 |n.. K . . 9000: |
00000210: 8D 20 33 30 30 30 00 48 0A 78 00 99 3A 20 99 22 |. 3000.H.x..: ."|
00000220: 12 20 4D 4F 52 45 20 28 59 2F 4E 29 20 3F 20 92 |. MORE (Y/N) ? .|
00000230: 20 22 3B 3A 20 8D 34 30 30 30 3A 20 8B 20 41 24 | ";: .4000: . A$|
00000240: B2 22 4E 22 20 A7 20 80 00 58 0A 82 00 9C 3A 20 |."N" . ..X....: |
00000250: 41 B2 31 3A 20 89 31 30 00 88 0A E8 03 8F 20 20 |A.1: .10...... |
00000260: 52 45 41 44 20 44 49 52 45 43 54 4F 52 59 20 49 |READ DIRECTORY I|
00000270: 4E 54 4F 20 4E 24 2C 54 24 3A 20 4E 3D 4E 55 4D |NTO N$,T$: N=NUM|
00000280: 20 46 49 4C 45 53 2B 31 00 A6 0A F2 03 99 20 22 | FILES+1...... "|
00000290: 52 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F 52 |READING DIRECTOR|
000002A0: 59 2E 2E 2E 22 3B 00 CD 0A FC 03 4E B2 30 3A 20 |Y...";.....N.0: |
000002B0: 46 24 B2 22 24 22 3A 20 8B 20 4D 24 B3 B1 22 22 |F$."$": . M$..""|
000002C0: 20 A7 20 46 24 B2 22 24 3A 22 AA 4D 24 00 EA 0A | . F$."$:".M$...|
000002D0: 06 04 9F 20 38 2C 53 55 2C 30 2C 46 24 3A 20 55 |... 8,SU,0,F$: U|
000002E0: B2 53 43 3A 20 8D 38 30 30 30 00 09 0B 0B 04 3A |.SC: .8000.....:|
000002F0: 20 8B 20 44 53 20 A7 20 99 3A 20 99 22 12 22 44 | . DS . .: ."."D|
00000300: 53 24 3A 20 A0 38 3A 20 8E 00 17 0B 10 04 A1 23 |S$: .8: .......#|
00000310: 38 2C 41 24 2C 42 24 00 2D 0B 1A 04 3A 20 A1 23 |8,A$,B$.-...: .#|
00000320: 38 2C 41 24 2C 41 24 2C 41 24 2C 41 24 00 56 0B |8,A$,A$,A$,A$.V.|
00000330: 24 04 3A 20 20 20 A1 23 38 2C 41 24 3A 20 8B 20 |$.: .#8,A$: . |
00000340: C6 28 41 24 AA 5A 24 29 B2 30 20 B0 20 53 54 20 |.(A$.Z$).0 . ST |
00000350: A7 20 31 31 33 30 00 6E 0B 2E 04 3A 20 20 20 8B |. 1130.n...: .|
00000360: 20 41 24 B3 B1 51 24 20 A7 20 31 30 36 30 00 A5 | A$..Q$ . 1060..|
00000370: 0B 38 04 3A 20 A1 23 38 2C 41 24 3A 20 8B 20 41 |.8.: .#8,A$: . A|
00000380: 24 B3 B1 51 24 20 AF 20 53 54 B2 30 20 A7 20 4E |$..Q$ . ST.0 . N|
00000390: 24 28 4E 29 B2 4E 24 28 4E 29 AA 41 24 3A 20 89 |$(N).N$(N).A$: .|
000003A0: 20 31 30 38 30 00 C3 0B 42 04 3A 20 A1 23 38 2C | 1080...B.: .#8,|
000003B0: 41 24 3A 20 8B 20 41 24 B2 22 20 22 20 A7 20 31 |A$: . A$." " . 1|
000003C0: 30 39 30 00 F9 0B 4C 04 3A 20 54 24 28 4E 29 B2 |090...L.: T$(N).|
000003D0: 54 24 28 4E 29 AA 41 24 3A 20 A1 23 38 2C 41 24 |T$(N).A$: .#8,A$|
000003E0: 3A 20 8B 20 41 24 B3 B1 22 20 22 20 AF 20 53 54 |: . A$.." " . ST|
000003F0: B2 30 20 A7 20 31 31 30 30 00 23 0C 56 04 3A 20 |.0 . 1100.#.V.: |
00000400: A1 23 38 2C 41 24 3A 20 8B 20 C6 28 41 24 AA 5A |.#8,A$: . .(A$.Z|
00000410: 24 29 B3 B1 30 20 AF 20 53 54 B2 30 20 A7 20 31 |$)..0 . ST.0 . 1|
00000420: 31 31 30 00 36 0C 60 04 3A 20 4E B2 4E AA 31 3A |110.6.`.: N.N.1:|
00000430: 20 89 31 30 35 30 00 55 0C 6A 04 A0 20 38 3A 20 | .1050.U.j.. 8: |
00000440: 8D 38 30 30 30 3A 20 8B 20 44 53 20 A7 20 99 22 |.8000: . DS . ."|
00000450: 12 22 44 53 24 00 77 0C 74 04 99 20 4E AB 31 3B |."DS$.w.t.. N.1;|
00000460: 22 46 49 4C 45 53 20 54 41 52 47 45 54 45 44 22 |"FILES TARGETED"|
00000470: 20 3A 99 20 3A 20 8E 00 AB 0C D0 07 8F 20 20 20 | :. : ....... |
00000480: 44 49 53 50 4C 41 59 20 46 49 4C 45 53 20 26 20 |DISPLAY FILES & |
00000490: 41 53 4B 20 55 53 45 52 20 57 48 49 43 48 20 4F |ASK USER WHICH O|
000004A0: 4E 45 53 20 54 4F 20 43 4F 50 59 00 D2 0C DA 07 |NES TO COPY.....|
000004B0: 4B B2 30 3A 20 8B 20 4E B3 32 20 A7 20 99 22 20 |K.0: . N.2 . ." |
000004C0: 4E 4F 20 46 49 4C 45 53 20 46 4F 55 4E 44 2E 22 |NO FILES FOUND."|
000004D0: 3A 8E 00 E8 0C E4 07 81 20 49 B2 31 A4 4E AB 31 |:....... I.1.N.1|
000004E0: 3A 43 45 28 49 29 B2 30 00 1F 0D EE 07 3A 20 99 |:CE(I).0.....: .|
000004F0: 20 51 24 3B 4E 24 28 49 29 3B 51 24 3B A3 31 39 | Q$;N$(I);Q$;.19|
00000500: 29 3B 54 24 28 49 29 3B A3 32 35 29 3B 3A 20 8B |);T$(I);.25);: .|
00000510: 20 4D 24 B3 B1 22 2A 22 20 A7 20 32 30 37 30 00 | M$.."*" . 2070.|
00000520: 3C 0D F8 07 3A 20 99 3A 43 45 28 49 29 B2 31 3A |<...: .:CE(I).1:|
00000530: 20 4B B2 4B AA 31 3A 20 82 3A 20 99 00 70 0D 02 | K.K.1: .: ..p..|
00000540: 08 99 20 22 12 20 43 4F 4E 54 49 4E 55 45 20 28 |.. ". CONTINUE (|
00000550: 59 2F 4E 29 20 3F 20 92 20 22 3B 3A 20 8D 34 30 |Y/N) ? . ";: .40|
00000560: 30 30 20 3A 8B 20 41 24 B2 22 59 22 20 A7 20 8E |00 :. A$."Y" . .|
00000570: 00 7B 0D 0C 08 4B B2 30 3A 20 8E 00 B3 0D 16 08 |.{...K.0: ......|
00000580: 99 20 22 43 4F 50 59 20 3F 20 28 59 2F 4E 29 20 |. "COPY ? (Y/N) |
00000590: 22 3B 3A 8D 34 30 30 30 20 3A 8B 20 41 24 B2 22 |";:.4000 :. A$."|
000005A0: 59 22 20 A7 20 43 45 28 49 29 B2 31 3A 20 4B B2 |Y" . CE(I).1: K.|
000005B0: 4B AA 31 00 BE 0D 20 08 3A 20 82 3A 20 8E 00 D5 |K.1... .: .: ...|
000005C0: 0D B8 0B 8F 20 20 20 43 4F 50 59 20 54 48 45 20 |.... COPY THE |
000005D0: 46 49 4C 45 53 00 F5 0D C2 0B 81 20 49 B2 31 A4 |FILES...... I.1.|
000005E0: 4E AB 31 3A 20 8B 20 43 45 28 49 29 B2 30 20 A7 |N.1: . CE(I).0 .|
000005F0: 20 82 3A 20 8E 00 1C 0E CC 0B 54 24 28 49 29 20 | .: ......T$(I) |
00000600: B2 20 C8 28 54 24 28 49 29 2C 31 29 3A 20 46 24 |. .(T$(I),1): F$|
00000610: B2 51 24 AA 4E 24 28 49 29 AA 51 24 00 3F 0E D6 |.Q$.N$(I).Q$.?..|
00000620: 0B 9F 39 2C 44 55 2C 39 2C 4E 24 28 49 29 3A 20 |..9,DU,9,N$(I): |
00000630: 55 B2 44 43 3A 20 8D 38 30 30 30 3A 20 A0 39 00 |U.DC: .8000: .9.|
00000640: 54 0E E0 0B 3A 20 8B 20 44 53 B2 36 32 20 A7 20 |T...: . DS.62 . |
00000650: 33 31 30 30 00 7A 0E EA 0B 99 20 46 24 3B 22 20 |3100.z.... F$;" |
00000660: 45 58 49 53 54 53 2C 20 52 45 50 4C 41 43 45 3F |EXISTS, REPLACE?|
00000670: 20 22 3B 3A 20 8D 34 30 30 30 00 B0 0E F4 0B 3A | ";: .4000.....:|
00000680: 20 8B 20 41 24 B2 22 4E 22 20 A7 20 99 20 22 91 | . A$."N" . . ".|
00000690: 22 3B 46 24 3B 22 20 4E 4F 54 20 43 4F 50 49 45 |";F$;" NOT COPIE|
000006A0: 44 20 20 20 20 20 20 20 20 20 20 22 3A 82 3A 8E |D ":.:.|
000006B0: 00 D9 0E FE 0B 3A 20 99 20 20 22 91 53 43 52 41 |.....: . ".SCRA|
000006C0: 54 43 48 49 4E 47 20 4F 4C 44 20 22 3B 46 24 3B |TCHING OLD ";F$;|
000006D0: 22 20 20 20 20 20 20 91 22 00 09 0F 08 0C 3A 20 |" .".....: |
000006E0: 98 31 35 2C 22 53 30 3A 22 3B 4E 24 28 49 29 3A |.15,"S0:";N$(I):|
000006F0: 20 8D 38 30 30 30 3A 20 8B 20 44 53 B1 31 20 A7 | .8000: . DS.1 .|
00000700: 20 99 3A 20 89 33 31 35 30 00 16 0F 12 0C 3A 20 | .: .3150.....: |
00000710: 89 20 33 30 33 30 00 40 0F 1C 0C 8B 20 54 24 28 |. 3030.@.... T$(|
00000720: 49 29 B2 22 52 22 20 A7 20 35 30 30 30 3A 20 8F |I)."R" . 5000: .|
00000730: 20 20 43 4F 50 59 20 52 45 4C 20 46 49 4C 45 53 | COPY REL FILES|
00000740: 00 64 0F 26 0C 99 20 22 4E 4F 57 20 43 4F 50 59 |.d.&.. "NOW COPY|
00000750: 49 4E 47 20 22 3B 46 24 3B 22 20 20 20 20 20 20 |ING ";F$;" |
00000760: 20 20 20 22 00 92 0F 30 0C 9F 39 2C 44 55 2C 31 | "...0..9,DU,1|
00000770: 2C 4E 24 28 49 29 AA 22 2C 22 AA 54 24 28 49 29 |,N$(I).",".T$(I)|
00000780: AA 22 2C 57 22 3A 20 55 B2 44 43 3A 20 8D 38 30 |.",W": U.DC: .80|
00000790: 30 30 00 A4 0F 3A 0C 3A 20 8B 20 44 53 20 A7 20 |00...:.: . DS . |
000007A0: 33 31 35 30 00 D2 0F 44 0C 9F 38 2C 53 55 2C 30 |3150...D..8,SU,0|
000007B0: 2C 4E 24 28 49 29 AA 22 2C 22 AA 54 24 28 49 29 |,N$(I).",".T$(I)|
000007C0: AA 22 2C 52 22 3A 20 55 B2 53 43 3A 20 8D 38 30 |.",R": U.SC: .80|
000007D0: 30 30 00 FC 0F 4E 0C 3A 20 8B 20 44 53 20 A7 20 |00...N.: . DS . |
000007E0: 99 22 12 43 4F 50 59 20 46 41 49 4C 45 44 3A 20 |.".COPY FAILED: |
000007F0: 22 3B 44 53 24 3A 20 89 33 31 37 30 00 05 10 58 |";DS$: .3170...X|
00000800: 0C 9E 20 42 41 00 16 10 62 0C A0 38 3A 20 A0 39 |.. BA...b..8: .9|
00000810: 3A 20 82 3A 20 8E 00 3A 10 A0 0F A1 41 24 3A 20 |: .: ..:....A$: |
00000820: 8B 20 41 24 B3 B1 22 59 22 20 AF 20 41 24 B3 B1 |. A$.."Y" . A$..|
00000830: 22 4E 22 20 A7 20 34 30 30 30 00 45 10 AA 0F 99 |"N" . 4000.E....|
00000840: 41 24 3A 20 8E 00 5D 10 88 13 8F 20 20 20 43 4F |A$: ..].... CO|
00000850: 50 59 20 52 45 4C 20 46 49 4C 45 53 2E 00 82 10 |PY REL FILES....|
00000860: 92 13 99 20 22 53 43 41 4E 4E 49 4E 47 20 22 3B |... "SCANNING ";|
00000870: 46 24 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |F$;" |
00000880: 91 22 00 AF 10 9C 13 9F 38 2C 53 55 2C 38 2C 4E |."......8,SU,8,N|
00000890: 24 28 49 29 3A 20 55 B2 53 43 3A 20 8D 20 38 30 |$(I): U.SC: . 80|
000008A0: 30 30 3A 20 8B 20 44 53 20 A7 20 33 31 35 30 00 |00: . DS . 3150.|
000008B0: DE 10 A6 13 4C B2 30 3A 81 20 52 4E B2 37 A4 30 |....L.0:. RN.7.0|
000008C0: A9 AB 31 3A 52 47 B2 32 AE 52 4E 3A 20 8F 20 53 |..1:RG.2.RN: . S|
000008D0: 43 41 4E 20 46 4F 52 20 52 45 43 4C 45 4E 00 04 |CAN FOR RECLEN..|
000008E0: 11 B0 13 3A 20 52 B2 31 3A 4C B2 4C AA 52 47 3A |...: R.1:L.L.RG:|
000008F0: 8D 20 36 30 30 30 3A 8B 20 44 53 20 A7 20 4C B2 |. 6000:. DS . L.|
00000900: 4C AB 52 47 00 0C 11 BA 13 3A 20 82 00 3B 11 C4 |L.RG.....: ..;..|
00000910: 13 52 B2 30 3A 81 52 4E B2 31 35 A4 30 A9 AB 31 |.R.0:.RN.15.0..1|
00000920: 3A 52 47 B2 32 AE 52 4E 3A 20 8F 20 53 43 41 4E |:RG.2.RN: . SCAN|
00000930: 20 46 4F 52 20 4E 55 4D 52 45 43 00 5F 11 CE 13 | FOR NUMREC._...|
00000940: 3A 20 52 B2 52 AA 52 47 3A 20 8D 20 36 30 30 30 |: R.R.RG: . 6000|
00000950: 3A 20 8B 20 44 53 20 A7 20 52 B2 52 AB 52 47 00 |: . DS . R.R.RG.|
00000960: 67 11 D8 13 3A 20 82 00 80 11 EC 13 99 20 22 43 |g...: ....... "C|
00000970: 52 45 41 54 49 4E 47 20 22 3B 46 24 3B 22 91 22 |REATING ";F$;"."|
00000980: 00 9D 11 F6 13 9F 39 2C 44 55 2C 39 2C 4E 24 28 |......9,DU,9,N$(|
00000990: 49 29 AA 22 2C 4C 2C 22 AA C7 28 4C 29 00 BE 11 |I).",L,"..(L)...|
000009A0: 00 14 3A 20 20 55 B2 44 43 3A 20 8D 20 38 30 30 |..: U.DC: . 800|
000009B0: 30 3A 20 8B 20 44 53 20 A7 20 33 31 35 30 00 F0 |0: . DS . 3150..|
000009C0: 11 0A 14 41 24 B2 22 50 22 AA C7 28 39 36 AA 38 |...A$."P"..(96.8|
000009D0: 29 AA C7 28 31 29 AA C7 28 30 29 AA C7 28 31 29 |)..(1)..(0)..(1)|
000009E0: 3A 20 98 31 34 2C 41 24 3A 20 98 31 34 2C 41 24 |: .14,A$: .14,A$|
000009F0: 00 11 12 14 14 3A 20 20 55 B2 53 43 3A 20 8D 20 |.....: U.SC: . |
00000A00: 38 30 30 30 3A 20 8B 20 44 53 20 A7 20 33 31 35 |8000: . DS . 315|
00000A10: 30 00 45 12 1E 14 41 24 B2 22 50 22 AA C7 28 39 |0.E...A$."P"..(9|
00000A20: 36 AA 39 29 AA C7 28 52 4C 29 AA C7 28 52 48 29 |6.9)..(RL)..(RH)|
00000A30: AA C7 28 31 29 3A 20 98 31 35 2C 41 24 3A 20 98 |..(1): .15,A$: .|
00000A40: 31 35 2C 41 24 00 6B 12 28 14 3A 20 20 98 39 2C |15,A$.k.(.: .9,|
00000A50: C7 28 32 35 35 29 3B 3A 20 8F 20 57 52 49 54 45 |.(255);: . WRITE|
00000A60: 20 45 4E 44 20 52 45 43 4F 52 44 00 9D 12 32 14 | END RECORD...2.|
00000A70: 41 24 B2 22 50 22 AA C7 28 39 36 AA 39 29 AA C7 |A$."P"..(96.9)..|
00000A80: 28 31 29 AA C7 28 30 29 AA C7 28 31 29 3A 20 98 |(1)..(0)..(1): .|
00000A90: 31 35 2C 41 24 3A 20 98 31 35 2C 41 24 00 BE 12 |15,A$: .15,A$...|
00000AA0: 3C 14 3A 20 20 55 B2 44 43 3A 20 8D 20 38 30 30 |<.: U.DC: . 800|
00000AB0: 30 3A 20 8B 20 44 53 20 A7 20 33 31 35 30 00 D6 |0: . DS . 3150..|
00000AC0: 12 50 14 99 20 22 4E 4F 57 20 43 4F 50 59 49 4E |.P.. "NOW COPYIN|
00000AD0: 47 20 22 3B 46 24 00 EB 12 5A 14 81 20 52 4E B2 |G ";F$...Z.. RN.|
00000AE0: 31 A4 52 3A 20 9E 42 41 3A 20 82 00 11 13 64 14 |1.R: .BA: ....d.|
00000AF0: A0 38 3A 20 A0 39 3A 20 55 B2 44 43 3A 20 8D 20 |.8: .9: U.DC: . |
00000B00: 38 30 30 30 3A 20 8B 20 44 53 20 A7 20 33 31 35 |8000: . DS . 315|
00000B10: 30 00 17 13 6E 14 8E 00 59 13 70 17 52 48 B2 B5 |0...n...Y.p.RH..|
00000B20: 28 52 AD 32 35 36 29 3A 52 4C B2 52 AB 52 48 AC |(R.256):RL.R.RH.|
00000B30: 32 35 36 20 3A 8F 20 20 53 45 4E 44 20 53 52 43 |256 :. SEND SRC|
00000B40: 20 50 20 43 4D 44 2E 20 20 52 3D 52 45 43 23 2C | P CMD. R=REC#,|
00000B50: 20 4C 3D 4F 46 46 53 45 54 00 8D 13 7A 17 41 24 | L=OFFSET...z.A$|
00000B60: B2 22 50 22 AA C7 28 39 36 AA 38 29 AA C7 28 52 |."P"..(96.8)..(R|
00000B70: 4C 29 AA C7 28 52 48 29 AA C7 28 4C 29 3A 20 98 |L)..(RH)..(L): .|
00000B80: 31 34 2C 41 24 3A 20 98 31 34 2C 41 24 00 C4 13 |14,A$: .14,A$...|
00000B90: 84 17 3A 20 55 B2 53 43 3A 20 89 38 30 30 30 20 |..: U.SC: .8000 |
00000BA0: 20 20 20 20 20 20 20 20 20 3A 8F 20 47 45 54 20 | :. GET |
00000BB0: 44 49 53 4B 20 53 54 41 54 20 41 4E 44 20 52 45 |DISK STAT AND RE|
00000BC0: 54 55 52 4E 00 FE 13 40 1F 84 55 2C 41 24 2C 42 |TURN...@..U,A$,B|
00000BD0: 24 2C 43 24 2C 44 24 3A 20 44 53 B2 C5 28 41 24 |$,C$,D$: DS..(A$|
00000BE0: 29 3A 20 44 53 24 B2 41 24 AA 45 24 AA 42 24 AA |): DS$.A$.E$.B$.|
00000BF0: 45 24 AA 43 24 AA 45 24 AA 44 24 20 3A 8E 00 08 |E$.C$.E$.D$ :...|
00000C00: 14 28 23 99 22 93 22 3B 00 2E 14 32 23 99 22 B0 |.(#.".";...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 C0 AE 00 54 |...............T|
00000C30: 14 3C 23 99 22 DD 20 20 46 49 4C 45 43 4F 50 59 |.<#.". FILECOPY|
00000C40: 20 55 54 49 4C 49 54 59 20 2D 20 56 31 31 31 32 | UTILITY - V1112|
00000C50: 38 36 20 DD 00 7D 14 46 23 99 22 AD C0 C0 C0 C0 |86 ..}.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 C0 BD 22 3A 99 00 83 14 |..........":....|
00000C80: 50 23 8E 00 00 00 |P#.... |
..C.... F$="0:FILECOPY.111286": OPEN1,8,
15,"S"+F$: CLOSE1: SAVEF$,8.N.... 9000.U
.... A.0 . A.1: . "FILECOPY.BIN",10,1...
(.. "YOUR SOURCE DISK UNIT 8...";SU.E.2
.. "DESTINATION DISK UNIT 9...";DU:....
<.: . SU.4 . SU.31 . DU.4 . DU.31 . 10.!
.F.. ". ENTER TEMPLATE OR <RETURN> . ";:
M$."":.M$.B.P.. N$(200),T$(200),CE(200):
Q$.G(34):Z$.G(0):E$.",":BA.12.4096...Z..
14,SU,15,"I": SC.14:U.SC: .8000:. DS . .
"."SU":.";DS$:.120..._..15,DU,15,"I": DC
.15:U.DC: .8000:. DS . ."."DU":.";DS$:.1
20...D.. 9000: . 1000: . 2000...N.. K .
. 9000: . 3000.H.X..: .". MORE (Y/N) ? .
";: .4000: . A$."N" . ..X....: A.1: .10
...... READ DIRECTORY INTO N$,T$: N=NUM
FILES+1...... "READING DIRECTORY...";.M
...N.0: F$."$": . M$.."" . F$."$:".M$...
... 8,SU,0,F$: U.SC: .8000.....: . DS .
.: ."."DS$: 8: .......#8,A$,B$.-...: .#
8,A$,A$,A$,A$.V.$.: .#8,A$: . F(A$.Z$)
.0 . ST . 1130.N...: . A$..Q$ . 1060..
.8.: .#8,A$: . A$..Q$ . ST.0 . N$(N).N$(
N).A$: . 1080.C.B.: .#8,A$: . A$." " . 1
090...L.: T$(N).T$(N).A$: .#8,A$: . A$..
" " . ST.0 . 1100.#.V.: .#8,A$: . F(A$.Z
$)..0 . ST.0 . 1110.6.`.: N.N.1: .1050.U
.J. 8: .8000: . DS . ."."DS$.W.T.. N.1;
"FILES TARGETED" :. : ....P.. DISPLAY
FILES & ASK USER WHICH ONES TO COPY.R.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.<...: .:
CE(I).1: K.K.1: .: ..P.... ". CONTINUE (
Y/N) ? . ";: .4000 :. A$."Y" . ..{...K.0
: ....... "COPY ? (Y/N) ";:.4000 :. A$."
Y" . CE(I).1: K.K.1... .: .: ..U.... C
OPY 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.
T...: . DS.62 . 3100.Z.... F$;" EXISTS,
REPLACE? ";: .4000.....: . A$."N" . . ".
";F$;" NOT COPIED ":.:..Y...: .
".SCRATCHING OLD ";F$;" .".....:
.15,"S0:";N$(I): .8000: . DS.1 . .: .315
0.....: . 3030.@.... T$(I)."R" . 5000: .
COPY REL FILES.D.&.. "NOW COPYING ";F$
;" "...0..9,DU,1,N$(I).",".T$(I)
.",W": U.DC: .8000...:.: . DS . 3150.R.D
..8,SU,0,N$(I).",".T$(I).",R": U.SC: .80
00...N.: . DS . .".COPY FAILED: ";DS$: .
3170...X.. BA...B. 8: 9: .: ..:. ..A$:
. A$.."Y" . A$.."N" . 4000.E....A$: ..].
... COPY REL FILES....... "SCANNING ";
F$;" ."......8,SU,8,N$(I): U.
SC: . 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 NUM
REC._.N.: R.R.RG: . 6000: . DS . R.R.RG.
G.X.: ....... "CREATING ";F$;"."......9,
DU,9,N$(I).",L,".G(L).....: U.DC: . 800
0: . DS . 3150.....A$."P".G(96.8).G(1).G
(0).G(1): .14,A$: .14,A$.....: U.SC: .
8000: . DS . 3150.E...A$."P".G(96.9).G(R
L).G(RH).G(1): .15,A$: .15,A$.K.(.: .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.V.P.. "NO
W COPYING ";F$...Z.. RN.1.R: .BA: ....D.
8: 9: U.DC: . 8000: . DS . 3150...N...
Y.P.RH..(R.256):RL.R.RH.256 :. SEND SRC
P CMD. R=REC#, L=OFFSET...Z.A$."P".G(9
6.8).G(RL).G(RH).G(L): .14,A$: .14,A$.D.
..: U.SC: .8000 :. GET DISK STA
T AND RETURN...@..U,A$,B$,C$,D$: DS.E(A$
): DS$.A$.E$.B$.E$.C$.E$.D$ :....(#.".";
...2#."................................T
.<#.". FILECOPY UTILITY - V111286 ..}.F
#."...............................":....
P#....
> CLICK IMAGE PREVIEW FOR FULL MODAL