COPY FILES
FILE INFORMATION
FILENAME(S): COPY FILES
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 21:26:21
APPEARS ON: 1 disk(s)
FILE HASH
e7038805e71e0c1514cdeffb0329789d2c60b5f2fa47f61380db3ed2f28fb310
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ZCP SOFTWARE B | COPY FILES | PRG | DuncanTwain | 9 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 14 00 8F 20 53 49 4E 47 4C 45 20 44 |....... SINGLE D|
00000010: 52 49 56 45 20 46 49 4C 45 20 43 4F 50 59 00 31 |RIVE FILE COPY.1|
00000020: 08 28 00 97 35 35 2C 30 3A 97 35 36 2C 33 31 3A |.(..55,0:.56,31:|
00000030: 9C 00 3E 08 2D 00 81 49 B2 30 A4 31 37 33 00 51 |..>.-..I.0.173.Q|
00000040: 08 32 00 87 44 3A 97 37 39 33 36 AA 49 2C 44 3A |.2..D:.7936.I,D:|
00000050: 82 00 64 08 37 00 97 37 38 35 2C 30 3A 97 37 38 |..d.7..785,0:.78|
00000060: 36 2C 33 31 00 72 08 3C 00 50 4C 24 B2 C7 28 31 |6,31.r.<.PL$..(1|
00000070: 39 29 00 8E 08 41 00 81 49 B2 31 A4 32 34 3A 50 |9)...A..I.1.24:P|
00000080: 4C 24 B2 50 4C 24 AA C7 28 31 37 29 3A 82 00 A8 |L$.PL$..(17):...|
00000090: 08 46 00 81 49 B2 31 A4 33 39 3A 43 4C 24 B2 43 |.F..I.1.39:CL$.C|
000000A0: 4C 24 AA 22 20 22 3A 82 00 C4 08 4B 00 43 4C 24 |L$." ":....K.CL$|
000000B0: B2 43 4C 24 AA C7 28 31 33 29 AA 43 4C 24 AA C7 |.CL$..(13).CL$..|
000000C0: 28 31 33 29 00 E8 08 50 00 43 4C 24 B2 C8 28 50 |(13)...P.CL$..(P|
000000D0: 4C 24 2C 32 31 29 AA 43 4C 24 AA C7 28 31 34 35 |L$,21).CL$..(145|
000000E0: 29 AA C7 28 31 34 35 29 00 0A 09 55 00 9F 31 35 |)..(145)...U..15|
000000F0: 2C 38 2C 31 35 3A 8F 20 4F 50 45 4E 20 45 52 52 |,8,15:. OPEN ERR|
00000100: 4F 52 20 43 48 41 4E 4E 45 4C 00 14 09 5A 00 89 |OR CHANNEL...Z..|
00000110: 31 30 30 30 00 2D 09 64 00 8F 20 52 45 41 44 20 |1000.-.d.. READ |
00000120: 54 48 45 20 44 49 52 45 43 54 4F 52 59 00 4F 09 |THE DIRECTORY.O.|
00000130: 82 00 97 37 38 35 2C 30 3A 8F 20 53 45 4C 45 43 |...785,0:. SELEC|
00000140: 54 20 52 45 41 44 20 46 55 4E 43 54 49 4F 4E 00 |T READ FUNCTION.|
00000150: 66 09 8C 00 98 31 35 2C 22 49 22 3A 9F 32 2C 38 |f....15,"I":.2,8|
00000160: 2C 32 2C 22 24 22 00 86 09 96 00 4E 42 B2 B7 28 |,2,"$".....NB..(|
00000170: 32 29 3A 8F 20 4C 4F 41 44 20 44 49 52 20 49 4E |2):. LOAD DIR IN|
00000180: 54 4F 20 4D 45 4D 00 A0 09 A0 00 A0 32 3A 8D 38 |TO MEM......2:.8|
00000190: 30 30 3A 8F 20 43 48 45 43 4B 20 45 52 52 4F 52 |00:. CHECK ERROR|
000001A0: 00 A6 09 AA 00 8E 00 BE 09 C8 00 8F 20 44 49 53 |............ DIS|
000001B0: 50 4C 41 59 20 44 49 53 4B 20 4E 41 4D 45 00 DD |PLAY DISK NAME..|
000001C0: 09 E6 00 97 37 38 35 2C 36 3A 8F 20 53 45 4C 45 |....785,6:. SELE|
000001D0: 43 54 20 46 45 54 43 48 20 43 48 41 52 00 F2 09 |CT FETCH CHAR...|
000001E0: F0 00 99 C8 28 50 4C 24 2C 33 29 3B C7 28 31 38 |....(PL$,3);.(18|
000001F0: 29 3B 00 01 0A FA 00 81 4B B2 31 34 32 A4 31 36 |);......K.142.16|
00000200: 39 00 11 0A 04 01 99 C7 28 B7 28 4B 29 29 3B 3A |9.......(.(K));:|
00000210: 82 00 1D 0A 0E 01 99 C7 28 31 34 36 29 00 23 0A |........(146).#.|
00000220: 18 01 8E 00 42 0A 2C 01 8F 20 50 52 49 4E 54 20 |....B.,.. PRINT |
00000230: 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 59 20 |DIRECTORY ENTRY |
00000240: 44 45 00 61 0A 4A 01 97 37 38 35 2C 36 3A 8F 20 |DE.a.J..785,6:. |
00000250: 53 45 4C 45 43 54 20 46 45 54 43 48 20 43 48 41 |SELECT FETCH CHA|
00000260: 52 00 84 0A 54 01 49 58 B2 28 44 45 AB 31 29 AC |R...T.IX.(DE.1).|
00000270: 33 32 AA 32 35 34 AB B5 28 28 44 45 AB 31 29 AD |32.254..((DE.1).|
00000280: 38 29 AC 32 00 95 0A 59 01 8B B7 28 49 58 29 B3 |8).2...Y...(IX).|
00000290: 31 32 38 A7 8E 00 B3 0A 5E 01 54 59 B2 B7 28 49 |128.....^.TY..(I|
000002A0: 58 29 AB 31 32 38 3A 8B 54 59 B2 30 B0 54 59 B1 |X).128:.TY.0.TY.|
000002B0: 33 A7 8E 00 C5 0A 68 01 81 4B B2 49 58 AA 33 A4 |3.....h..K.IX.3.|
000002C0: 49 58 AA 31 38 00 D3 0A 72 01 99 C7 28 B7 28 4B |IX.18...r...(.(K|
000002D0: 29 29 3B 00 E4 0A 7C 01 82 3A 99 A3 31 36 29 3B |));...|..:..16);|
000002E0: 22 2C 22 3B 00 F9 0A 86 01 99 CA 28 22 53 50 55 |",";.......("SPU|
000002F0: 22 2C 54 59 2C 31 29 3A 8E 00 14 0B 90 01 8F 20 |",TY,1):....... |
00000300: 47 45 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 |GET DESTINATION |
00000310: 44 49 53 4B 00 1E 0B AE 01 99 43 4C 24 3B 00 3E |DISK......CL$;.>|
00000320: 0B B8 01 99 22 49 4E 53 45 52 54 20 44 45 53 54 |...."INSERT DEST|
00000330: 49 4E 41 54 49 4F 4E 20 44 49 53 4B 2E 22 00 5C |INATION DISK.".\|
00000340: 0B C2 01 99 22 50 52 45 53 53 20 22 3B C7 28 31 |...."PRESS ";.(1|
00000350: 38 29 3B 22 52 45 54 55 52 4E 22 3B 00 77 0B CC |8);"RETURN";.w..|
00000360: 01 99 C7 28 31 34 36 29 3B 22 20 57 48 45 4E 20 |...(146);" WHEN |
00000370: 52 45 41 44 59 2E 22 00 90 0B D6 01 A1 44 4D 24 |READY."......DM$|
00000380: 3A 8B 44 4D 24 B3 B1 C7 28 31 33 29 A7 34 37 30 |:.DM$...(13).470|
00000390: 00 9E 0B EA 01 98 31 35 2C 22 49 22 3A 8E 00 B7 |......15,"I":...|
000003A0: 0B F4 01 8F 20 47 45 54 20 41 20 46 49 4C 45 20 |.... GET A FILE |
000003B0: 54 4F 20 43 4F 50 59 00 CC 0B 12 02 99 43 4C 24 |TO COPY......CL$|
000003C0: 3B 3A 8B 45 4E B2 36 33 A7 35 38 30 00 EC 0B 1C |;:.EN.63.580....|
000003D0: 02 8B 55 45 B2 31 32 38 A7 99 4E 4D 24 3B 22 20 |..UE.128..NM$;" |
000003E0: 54 4F 4F 20 4C 41 52 47 45 2E 22 3B 00 0B 0C 26 |TOO LARGE.";...&|
000003F0: 02 8B 45 4E B2 36 32 A7 99 4E 4D 24 3B 22 20 4E |..EN.62..NM$;" N|
00000400: 4F 54 20 46 4F 55 4E 44 2E 22 3B 00 33 0C 30 02 |OT FOUND.";.3.0.|
00000410: 99 22 45 4E 54 45 52 20 46 49 4C 45 2C 54 59 50 |."ENTER FILE,TYP|
00000420: 45 22 3A 4E 4D 24 B2 22 22 3A 45 4E B2 30 3A 55 |E":NM$."":EN.0:U|
00000430: 45 B2 30 00 42 0C 3A 02 85 4E 4D 24 2C 54 59 24 |E.0.B.:..NM$,TY$|
00000440: 3A 8E 00 65 0C 44 02 99 4E 4D 24 3B 22 20 45 58 |:..e.D..NM$;" EX|
00000450: 49 53 54 53 2E 20 45 4E 54 45 52 20 4E 45 57 20 |ISTS. ENTER NEW |
00000460: 4E 41 4D 45 22 00 7C 0C 4E 02 45 4E B2 30 3A 4E |NAME".|.N.EN.0:N|
00000470: 4D 24 B2 22 22 3A 85 4E 4D 24 3A 8E 00 90 0C 58 |M$."":.NM$:....X|
00000480: 02 8F 20 52 45 41 44 20 54 48 45 20 46 49 4C 45 |.. READ THE FILE|
00000490: 00 B2 0C 76 02 97 37 38 35 2C 30 3A 8F 20 53 45 |...v..785,0:. SE|
000004A0: 4C 45 43 54 20 52 45 41 44 20 46 55 4E 43 54 49 |LECT READ FUNCTI|
000004B0: 4F 4E 00 CE 0C 80 02 9F 32 2C 38 2C 32 2C 4E 4D |ON......2,8,2,NM|
000004C0: 24 AA 22 2C 22 AA 54 59 24 AA 22 2C 52 22 00 E3 |$.",".TY$.",R"..|
000004D0: 0C 8A 02 8D 39 30 30 3A 8B 45 4E B3 B1 30 A7 A0 |....900:.EN..0..|
000004E0: 32 3A 8E 00 FF 0C 94 02 4E 42 B2 B7 28 32 29 3A |2:......NB..(2):|
000004F0: 8F 20 52 45 41 44 20 54 48 45 20 46 49 4C 45 00 |. READ THE FILE.|
00000500: 1B 0D 9E 02 A0 32 3A 8D 38 30 30 3A 8F 20 43 48 |.....2:.800:. CH|
00000510: 45 43 4B 20 52 45 53 55 4C 54 53 00 21 0D A8 02 |ECK RESULTS.!...|
00000520: 8E 00 36 0D BC 02 8F 20 57 52 49 54 45 20 54 48 |..6.... WRITE TH|
00000530: 45 20 46 49 4C 45 00 59 0D DA 02 97 37 38 35 2C |E FILE.Y....785,|
00000540: 33 3A 8F 20 53 45 4C 45 43 54 20 57 52 49 54 45 |3:. SELECT WRITE|
00000550: 20 46 55 4E 43 54 49 4F 4E 00 75 0D E4 02 9F 32 | FUNCTION.u....2|
00000560: 2C 38 2C 32 2C 4E 4D 24 AA 22 2C 22 AA 54 59 24 |,8,2,NM$.",".TY$|
00000570: AA 22 2C 57 22 00 8A 0D EE 02 8D 39 30 30 3A 8B |.",W"......900:.|
00000580: 45 4E B3 B1 30 A7 A0 32 3A 8E 00 A8 0D F8 02 4E |EN..0..2:......N|
00000590: 42 B2 B7 28 32 29 3A 8F 20 57 52 49 54 45 20 54 |B..(2):. WRITE T|
000005A0: 48 45 20 42 59 54 45 53 00 C4 0D 02 03 A0 32 3A |HE BYTES......2:|
000005B0: 8D 38 30 30 3A 8F 20 43 48 45 43 4B 20 52 45 53 |.800:. CHECK RES|
000005C0: 55 4C 54 53 00 CA 0D 0C 03 8E 00 E9 0D 20 03 8F |ULTS......... ..|
000005D0: 20 43 48 45 43 4B 20 55 53 52 28 29 20 52 45 54 | CHECK USR() RET|
000005E0: 55 52 4E 20 56 41 4C 55 45 00 FF 0D 3E 03 4E 42 |URN VALUE...>.NB|
000005F0: B2 4E 42 AB 28 4E 42 B3 30 29 AC 36 35 33 36 00 |.NB.(NB.0).6536.|
00000600: 14 0E 48 03 8B 4E 42 B3 36 31 34 34 30 A7 55 45 |..H..NB.61440.UE|
00000610: B2 30 3A 8E 00 2B 0E 52 03 8B 4E 42 B2 36 31 34 |.0:..+.R..NB.614|
00000620: 34 30 A7 55 45 B2 31 32 38 3A 8E 00 34 0E 5C 03 |40.UE.128:..4.\.|
00000630: 99 43 4C 24 00 4B 0E 66 03 8B C2 28 37 38 35 29 |.CL$.K.f...(785)|
00000640: B2 30 A7 99 22 52 45 41 44 22 3B 00 63 0E 70 03 |.0.."READ";.c.p.|
00000650: 8B C2 28 37 38 35 29 B2 33 A7 99 22 57 52 49 54 |..(785).3.."WRIT|
00000660: 45 22 3B 00 7E 0E 7A 03 99 22 20 45 52 52 4F 52 |E";.~.z.." ERROR|
00000670: 20 23 22 3B 4E 42 AB 36 31 34 34 30 3A 80 00 97 | #";NB.61440:...|
00000680: 0E 84 03 8F 20 52 45 41 44 20 45 52 52 4F 52 20 |.... READ ERROR |
00000690: 43 48 41 4E 4E 45 4C 00 AC 0E AC 03 84 31 35 2C |CHANNEL......15,|
000006A0: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 C4 0E B6 |EN,EM$,ET,ES....|
000006B0: 03 8B 45 4E B2 30 B0 45 4E B2 36 32 B0 45 4E B2 |..EN.0.EN.62.EN.|
000006C0: 36 33 A7 8E 00 D2 0E C0 03 A0 31 35 3A 99 43 4C |63........15:.CL|
000006D0: 24 3B 00 E9 0E CA 03 99 22 44 49 53 4B 20 45 52 |$;......"DISK ER|
000006E0: 52 4F 52 20 23 22 3B 45 4E 00 FE 0E D4 03 99 C8 |ROR #";EN.......|
000006F0: 28 50 4C 24 2C 32 32 29 3B 45 4D 24 3A 80 00 11 |(PL$,22);EM$:...|
00000700: 0F E8 03 8F 20 4D 41 49 4E 20 52 4F 55 54 49 4E |.... MAIN ROUTIN|
00000710: 45 00 1E 0F 06 04 99 C7 28 31 34 37 29 3B 00 43 |E.......(147);.C|
00000720: 0F 10 04 99 22 20 20 20 20 20 20 20 53 49 4E 47 |...." SING|
00000730: 4C 45 20 44 52 49 56 45 20 46 49 4C 45 20 43 4F |LE DRIVE FILE CO|
00000740: 50 59 22 00 5E 0F 1A 04 99 3A 99 22 52 45 41 44 |PY".^....:."READ|
00000750: 49 4E 47 20 44 49 52 45 43 54 4F 52 59 22 00 7C |ING DIRECTORY".||
00000760: 0F 24 04 8D 31 30 30 3A 8F 20 52 45 41 44 20 54 |.$..100:. READ T|
00000770: 48 45 20 44 49 52 45 43 54 4F 52 59 00 95 0F 2E |HE DIRECTORY....|
00000780: 04 8D 32 30 30 3A 8F 20 44 49 53 50 4C 41 59 20 |..200:. DISPLAY |
00000790: 54 49 54 4C 45 00 AA 0F 38 04 4E 53 B2 B5 28 28 |TITLE...8.NS..((|
000007A0: 4E 42 AA 31 29 AD 32 35 34 29 00 C4 0F 42 04 8B |NB.1).254)...B..|
000007B0: 4E 53 B2 31 A7 34 30 30 30 3A 8F 20 4E 4F 20 46 |NS.1.4000:. NO F|
000007C0: 49 4C 45 53 00 CD 0F 4C 04 44 53 B2 31 00 EB 0F |ILES...L.DS.1...|
000007D0: 56 04 8B 4E 53 B3 B2 44 53 A7 44 53 B2 31 3A 8F |V..NS..DS.DS.1:.|
000007E0: 20 53 54 41 52 54 20 4F 56 45 52 00 FA 0F 60 04 | START OVER...`.|
000007F0: 99 C8 28 50 4C 24 2C 34 29 3B 00 15 10 6A 04 42 |..(PL$,4);...j.B|
00000800: 45 B2 28 44 53 AB 31 29 AC 38 AA 31 3A 4C 45 B2 |E.(DS.1).8.1:LE.|
00000810: 42 45 AA 31 35 00 2A 10 74 04 8B 44 53 AA 31 B2 |BE.15.*.t..DS.1.|
00000820: 4E 53 A7 4C 45 B2 42 45 AA 38 00 38 10 7E 04 81 |NS.LE.BE.8.8.~..|
00000830: 44 45 B2 42 45 A4 4C 45 00 53 10 88 04 8D 33 30 |DE.BE.LE.S....30|
00000840: 30 3A 82 3A 8F 20 44 49 53 50 4C 41 59 20 46 49 |0:.:. DISPLAY FI|
00000850: 4C 45 53 00 6C 10 92 04 81 49 B2 C2 28 32 31 34 |LES.l....I..(214|
00000860: 29 A4 32 30 3A 8F 20 43 4C 45 41 52 00 88 10 9C |).20:. CLEAR....|
00000870: 04 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00000880: 20 20 20 20 20 20 20 22 00 8E 10 A6 04 82 00 A7 | "........|
00000890: 10 B0 04 8D 35 30 30 3A 8F 20 47 45 54 20 46 49 |....500:. GET FI|
000008A0: 4C 45 20 4E 41 4D 45 00 C1 10 BA 04 8B 4E 4D 24 |LE NAME......NM$|
000008B0: B2 22 22 A7 44 53 B2 44 53 AA 32 3A 89 31 31 31 |."".DS.DS.2:.111|
000008C0: 30 00 D5 10 DA 07 8F 20 43 4F 50 59 20 54 48 45 |0...... COPY THE|
000008D0: 20 46 49 4C 45 00 DF 10 EE 07 99 43 4C 24 3B 00 | FILE......CL$;.|
000008E0: F3 10 F8 07 99 22 52 45 41 44 49 4E 47 20 22 3B |....."READING ";|
000008F0: 4E 4D 24 00 0C 11 02 08 8D 36 30 30 3A 8F 20 52 |NM$......600:. R|
00000900: 45 41 44 20 54 48 45 20 46 49 4C 45 00 23 11 0C |EAD THE FILE.#..|
00000910: 08 8B 45 4E B2 36 32 B0 55 45 B2 31 32 38 A7 31 |..EN.62.UE.128.1|
00000920: 32 30 30 00 3A 11 16 08 42 43 B2 4E 42 3A 8F 20 |200.:...BC.NB:. |
00000930: 53 41 56 45 20 43 4F 55 4E 54 00 54 11 20 08 8D |SAVE COUNT.T. ..|
00000940: 34 30 30 3A 8F 20 47 45 54 20 44 45 53 54 2E 20 |400:. GET DEST. |
00000950: 44 49 53 4B 00 6C 11 2A 08 99 43 4C 24 3B 22 57 |DISK.l.*..CL$;"W|
00000960: 52 49 54 49 4E 47 20 22 3B 4E 4D 24 00 86 11 34 |RITING ";NM$...4|
00000970: 08 8D 37 30 30 3A 8F 20 57 52 49 54 45 20 54 48 |..700:. WRITE TH|
00000980: 45 20 46 49 4C 45 00 95 11 3E 08 8B 45 4E B2 30 |E FILE...>..EN.0|
00000990: A7 33 30 30 30 00 AD 11 48 08 8D 35 30 30 3A 8F |.3000...H..500:.|
000009A0: 20 47 45 54 20 4E 45 57 20 46 49 4C 45 00 BF 11 | GET NEW FILE...|
000009B0: 52 08 8B 4E 4D 24 B3 B1 22 22 A7 32 30 39 30 00 |R..NM$.."".2090.|
000009C0: DA 11 5C 08 99 43 4C 24 3B 22 46 49 4C 45 20 4E |..\..CL$;"FILE N|
000009D0: 4F 54 20 43 4F 50 49 45 44 22 00 E4 11 66 08 89 |OT COPIED"...f..|
000009E0: 33 31 30 30 00 02 12 B8 0B 8F 20 44 49 53 50 4C |3100...... DISPL|
000009F0: 41 59 20 43 4F 4D 50 4C 45 54 45 20 53 54 41 54 |AY COMPLETE STAT|
00000A00: 55 53 00 0C 12 D6 0B 99 43 4C 24 3B 00 1D 12 E0 |US......CL$;....|
00000A10: 0B 8B 4E 42 B3 B1 42 43 A7 33 30 36 30 00 3D 12 |..NB..BC.3060.=.|
00000A20: EA 0B 99 22 43 4F 50 59 20 53 55 43 43 45 53 46 |..."COPY SUCCESF|
00000A30: 55 4C 2E 20 20 22 3B 3A 89 33 30 37 30 00 5D 12 |UL. ";:.3070.].|
00000A40: F4 0B 99 22 45 52 52 4F 52 2E 20 4F 4E 4C 59 20 |..."ERROR. ONLY |
00000A50: 22 3B 4E 42 3B 22 20 4F 55 54 20 22 3B 00 75 12 |";NB;" OUT ";.u.|
00000A60: FE 0B 99 42 43 3B 22 42 59 54 45 53 20 43 4F 50 |...BC;"BYTES COP|
00000A70: 49 45 44 2E 22 00 8A 12 1C 0C 99 22 50 52 45 53 |IED."......"PRES|
00000A80: 53 20 22 3B C7 28 31 38 29 3B 00 A0 12 26 0C 99 |S ";.(18);...&..|
00000A90: 22 52 45 54 55 52 4E 22 3B C7 28 31 34 36 29 3B |"RETURN";.(146);|
00000AA0: 00 BD 12 30 0C 99 22 20 54 4F 20 43 4F 50 59 20 |...0.." TO COPY |
00000AB0: 41 4E 4F 54 48 45 52 20 46 49 4C 45 22 00 D3 12 |ANOTHER FILE"...|
00000AC0: 3A 0C A1 44 4D 24 3A 8B 44 4D 24 B2 22 22 A7 33 |:..DM$:.DM$."".3|
00000AD0: 31 33 30 00 E7 12 44 0C 8B 44 4D 24 B2 C7 28 31 |130...D..DM$..(1|
00000AE0: 33 29 A7 31 30 30 30 00 F1 12 4E 0C 89 34 30 39 |3).1000...N..409|
00000AF0: 30 00 0F 13 A0 0F 8F 20 4E 4F 20 46 49 4C 45 53 |0...... NO FILES|
00000B00: 20 45 52 52 4F 52 20 48 41 4E 44 4C 49 4E 47 00 | ERROR HANDLING.|
00000B10: 1F 13 BE 0F 99 C8 28 50 4C 24 2C 32 31 29 3B 00 |......(PL$,21);.|
00000B20: 3C 13 C8 0F 99 22 4E 4F 20 46 49 4C 45 53 20 4F |<...."NO FILES O|
00000B30: 4E 20 54 48 45 20 44 49 53 4B 2E 22 00 59 13 D2 |N THE DISK.".Y..|
00000B40: 0F 99 22 50 52 45 53 53 20 52 45 54 55 52 4E 20 |.."PRESS RETURN |
00000B50: 54 4F 20 54 52 59 20 22 3B 00 6F 13 DC 0F 99 22 |TO TRY ";.o...."|
00000B60: 41 4E 4F 54 48 45 52 20 44 49 53 4B 2E 22 3B 00 |ANOTHER DISK.";.|
00000B70: 85 13 E6 0F A1 44 4D 24 3A 8B 44 4D 24 B2 22 22 |.....DM$:.DM$.""|
00000B80: A7 34 30 37 30 00 99 13 F0 0F 8B 44 4D 24 B2 C7 |.4070......DM$..|
00000B90: 28 31 33 29 A7 31 30 30 30 00 B7 13 FA 0F 97 35 |(13).1000......5|
00000BA0: 35 2C C2 28 36 34 33 29 3A 97 35 36 2C C2 28 36 |5,.(643):.56,.(6|
00000BB0: 34 34 29 3A 9C 3A 80 00 D6 13 10 27 83 20 37 36 |44):.:.....'. 76|
00000BC0: 2C 31 35 2C 33 31 2C 37 36 2C 38 38 2C 33 31 2C |,15,31,76,88,31,|
00000BD0: 37 36 2C 31 35 34 00 F2 13 1A 27 83 20 33 31 2C |76,154....'. 31,|
00000BE0: 31 30 38 2C 33 2C 30 2C 31 30 38 2C 35 2C 30 2C |108,3,0,108,5,0,|
00000BF0: 33 32 00 14 14 24 27 83 20 39 2C 33 31 2C 31 35 |32...$'. 9,31,15|
00000C00: 32 2C 31 37 30 2C 33 32 2C 31 39 38 2C 32 35 35 |2,170,32,198,255|
00000C10: 2C 31 36 38 00 36 14 2E 27 83 20 31 37 36 2C 35 |,168.6..'. 176,5|
00000C20: 37 2C 31 36 39 2C 30 2C 31 33 33 2C 32 35 31 2C |7,169,0,133,251,|
00000C30: 31 36 39 2C 33 32 00 59 14 38 27 83 20 31 33 33 |169,32.Y.8'. 133|
00000C40: 2C 32 35 32 2C 31 36 30 2C 30 2C 33 32 2C 32 30 |,252,160,0,32,20|
00000C50: 37 2C 32 35 35 2C 31 34 35 00 7D 14 42 27 83 20 |7,255,145.}.B'. |
00000C60: 32 35 31 2C 32 33 30 2C 32 35 31 2C 32 30 38 2C |251,230,251,208,|
00000C70: 32 2C 32 33 30 2C 32 35 32 2C 31 36 35 00 A2 14 |2,230,252,165...|
00000C80: 4C 27 83 20 31 34 34 2C 32 30 38 2C 31 33 2C 31 |L'. 144,208,13,1|
00000C90: 36 35 2C 32 35 32 2C 32 30 31 2C 31 36 30 2C 31 |65,252,201,160,1|
00000CA0: 34 34 00 C4 14 56 27 83 20 32 33 35 2C 33 32 2C |44...V'. 235,32,|
00000CB0: 32 30 34 2C 32 35 35 2C 31 36 30 2C 30 2C 32 34 |204,255,160,0,24|
00000CC0: 30 2C 31 39 00 E8 14 60 27 83 20 31 36 34 2C 31 |0,19...`'. 164,1|
00000CD0: 34 34 2C 33 32 2C 32 30 34 2C 32 35 35 2C 31 39 |44,32,204,255,19|
00000CE0: 32 2C 36 34 2C 32 30 38 00 0B 15 6A 27 83 20 31 |2,64,208...j'. 1|
00000CF0: 30 2C 31 36 34 2C 32 35 31 2C 31 36 35 2C 32 35 |0,164,251,165,25|
00000D00: 32 2C 35 36 2C 32 33 33 2C 33 32 00 2B 15 74 27 |2,56,233,32.+.t'|
00000D10: 83 20 37 36 2C 31 32 2C 33 31 2C 31 36 39 2C 32 |. 76,12,31,169,2|
00000D20: 34 30 2C 37 36 2C 31 32 2C 33 31 00 4C 15 7E 27 |40,76,12,31.L.~'|
00000D30: 83 20 33 32 2C 39 2C 33 31 2C 31 35 32 2C 31 37 |. 32,9,31,152,17|
00000D40: 30 2C 33 32 2C 32 30 31 2C 32 35 35 00 71 15 88 |0,32,201,255.q..|
00000D50: 27 83 20 31 36 38 2C 31 37 36 2C 32 34 30 2C 31 |'. 168,176,240,1|
00000D60: 36 35 2C 32 35 31 2C 31 34 31 2C 31 37 34 2C 33 |65,251,141,174,3|
00000D70: 31 00 94 15 92 27 83 20 31 36 35 2C 32 35 32 2C |1....'. 165,252,|
00000D80: 31 34 31 2C 31 37 35 2C 33 31 2C 31 36 39 2C 30 |141,175,31,169,0|
00000D90: 2C 31 33 33 00 B7 15 9C 27 83 20 32 35 31 2C 31 |,133....'. 251,1|
00000DA0: 36 39 2C 33 32 2C 31 33 33 2C 32 35 32 2C 31 36 |69,32,133,252,16|
00000DB0: 30 2C 30 2C 31 37 37 00 DB 15 A6 27 83 20 32 35 |0,0,177....'. 25|
00000DC0: 31 2C 33 32 2C 32 31 30 2C 32 35 35 2C 31 36 34 |1,32,210,255,164|
00000DD0: 2C 31 34 34 2C 32 30 38 2C 32 30 00 FF 15 B0 27 |,144,208,20....'|
00000DE0: 83 20 32 33 30 2C 32 35 31 2C 32 30 38 2C 32 2C |. 230,251,208,2,|
00000DF0: 32 33 30 2C 32 35 32 2C 31 36 35 2C 32 35 32 00 |230,252,165,252.|
00000E00: 24 16 BA 27 83 20 32 30 35 2C 31 37 35 2C 33 31 |$..'. 205,175,31|
00000E10: 2C 31 34 34 2C 32 33 34 2C 31 36 35 2C 32 35 31 |,144,234,165,251|
00000E20: 2C 32 30 35 00 47 16 C4 27 83 20 31 37 34 2C 33 |,205.G..'. 174,3|
00000E30: 31 2C 31 34 34 2C 32 32 37 2C 33 32 2C 32 30 34 |1,144,227,32,204|
00000E40: 2C 32 35 35 2C 37 36 00 66 16 CE 27 83 20 37 33 |,255,76.f..'. 73|
00000E50: 2C 33 31 2C 33 32 2C 39 2C 33 31 2C 31 33 32 2C |,31,32,9,31,132,|
00000E60: 32 35 31 2C 32 34 00 89 16 D8 27 83 20 31 30 35 |251,24....'. 105|
00000E70: 2C 33 32 2C 31 33 33 2C 32 35 32 2C 31 36 30 2C |,32,133,252,160,|
00000E80: 30 2C 31 37 37 2C 32 35 31 00 A2 16 E2 27 83 20 |0,177,251....'. |
00000E90: 31 36 38 2C 31 36 39 2C 30 2C 37 36 2C 31 32 2C |168,169,0,76,12,|
00000EA0: 33 31 00 00 00 00 |31.... |
....... SINGLE DRIVE FILE COPY.1.(..55,0
:.56,31:..>.-..I.0.173.Q.2..D:.7936.I,D:
..D.7..785,0:.786,31.R.<.PL$.G(19)...A..
I.1.24:PL$.PL$.G(17):....F..I.1.39:CL$.C
L$." ":..D.K.CL$.CL$.G(13).CL$.G(13)...P
.CL$.H(PL$,21).CL$.G(145).G(145)...U..15
,8,15:. OPEN ERROR CHANNEL...Z..1000.-.D
.. READ THE DIRECTORY.O....785,0:. SELEC
T READ FUNCTION.F....15,"I":.2,8,2,"$"..
...NB..(2):. LOAD DIR INTO MEM. . . 2:.8
00:. CHECK ERROR.........H.. DISPLAY DIS
K NAME......785,6:. SELECT FETCH CHAR...
...H(PL$,3);G(18);......K.142.169......G
(.(K));:.......G(146).#.....B.,.. PRINT
DIRECTORY ENTRY DE.A.J..785,6:. SELECT F
ETCH CHAR...T.IX.(DE.1).32.254..((DE.1).
8).2...Y...(IX).128.....^.TY..(IX).128:.
TY.0.TY.3...E.H..K.IX.3.IX.18.S.R..G(.(K
));...|..:..16);",";......J("SPU",TY,1):
....... GET DESTINATION DISK......CL$;.>
...."INSERT DESTINATION DISK.".\.B.."PRE
SS ";G(18);"RETURN";.W.L..G(146);" WHEN
READY."...V..DM$:.DM$..G(13).470......15
,"I":....... GET A FILE TO COPY.L....CL$
;:.EN.63.580......UE.128..NM$;" TOO LARG
E.";...&..EN.62..NM$;" NOT FOUND.";.3.0.
."ENTER FILE,TYPE":NM$."":EN.0:UE.0.B.:.
.NM$,TY$:..E.D..NM$;" EXISTS. ENTER NEW
NAME".|.N.EN.0:NM$."":.NM$:....X.. READ
THE FILE...V..785,0:. SELECT READ FUNCTI
ON.N....2,8,2,NM$.",".TY$.",R"......900:
.EN..0. 2:......NB..(2):. READ THE FILE.
.... 2:.800:. CHECK RESULTS.!.....6....
WRITE THE FILE.Y.Z..785,3:. SELECT WRITE
FUNCTION.U....2,8,2,NM$.",".TY$.",W"...
...900:.EN..0. 2:......NB..(2):. WRITE T
HE BYTES.D... 2:.800:. CHECK RESULTS.J..
..... .. CHECK USR() RETURN VALUE...>.NB
.NB.(NB.0).6536...H..NB.61440.UE.0:..+.R
..NB.61440.UE.128:..4.\..CL$.K.F..B(785)
.0.."READ";.C.P..B(785).3.."WRITE";.~.Z.
." ERROR #";NB.61440:....... READ ERROR
CHANNEL......15,EN,EM$,ET,ES.D....EN.0.E
N.62.EN.63...R... 15:.CL$;...J.."DISK ER
ROR #";EN...T..H(PL$,22);EM$:....... MAI
N ROUTINE......G(147);.C...." SING
LE DRIVE FILE COPY".^....:."READING DIRE
CTORY".|.$..100:. READ THE DIRECTORY....
..200:. DISPLAY TITLE...8.NS..((NB.1).25
4).D.B..NS.1.4000:. NO FILES.M.L.DS.1...
V..NS..DS.DS.1:. START OVER...`..H(PL$,4
);...J.BE.(DS.1).8.1:LE.BE.15.*.T..DS.1.
NS.LE.BE.8.8.~..DE.BE.LE.S....300:.:. DI
SPLAY FILES.L....I.B(214).20:. CLEAR....
.." "............500:
. GET FILE NAME.A....NM$."".DS.DS.2:.111
0.U.Z.. COPY THE FILE......CL$;......"RE
ADING ";NM$......600:. READ THE FILE.#..
..EN.62.UE.128.1200.:...BC.NB:. SAVE COU
NT.T. ..400:. GET DEST. DISK.L.*..CL$;"W
RITING ";NM$...4..700:. WRITE THE FILE..
.>..EN.0.3000...H..500:. GET NEW FILE...
R..NM$.."".2090.Z.\..CL$;"FILE NOT COPIE
D"...F..3100...... DISPLAY COMPLETE STAT
US...V..CL$;......NB..BC.3060.=...."COPY
SUCCESFUL. ";:.3070.]...."ERROR. ONLY
";NB;" OUT ";.U....BC;"BYTES COPIED."...
..."PRESS ";G(18);. .&.."RETURN";G(146);
...0.." TO COPY ANOTHER FILE".S.:..DM$:.
DM$."".3130...D..DM$.G(13).1000...N..409
0... .. NO FILES ERROR HANDLING......H(P
L$,21);.<.H.."NO FILES ON THE DISK.".Y.R
.."PRESS RETURN TO TRY ";.O...."ANOTHER
DISK.";......DM$:.DM$."".4070......DM$.G
(13).1000......55,B(643):.56,B(644):.:..
V..'. 76,15,31,76,88,31,76,154....'. 31,
108,3,0,108,5,0,32...$'. 9,31,152,170,32
,198,255,168.6..'. 176,57,169,0,133,251,
169,32.Y.8'. 133,252,160,0,32,207,255,14
5.}.B'. 251,230,251,208,2,230,252,165...
L'. 144,208,13,165,252,201,160,144.D.V'.
235,32,204,255,160,0,240,19...`'. 164,1
44,32,204,255,192,64,208...J'. 10,164,25
1,165,252,56,233,32.+.T'. 76,12,31,169,2
40,76,12,31.L.~'. 32,9,31,152,170,32,201
,255.Q..'. 168,176,240,165,251,141,174,3
1....'. 165,252,141,175,31,169,0,133....
'. 251,169,32,133,252,160,0,177....'. 25
1,32,210,255,164,144,208,20....'. 230,25
1,208,2,230,252,165,252.$..'. 205,175,31
,144,234,165,251,205.G.D'. 174,31,144,22
7,32,204,255,76.F.N'. 73,31,32,9,31,132,
251,24...X'. 105,32,133,252,160,0,177,25
1....'. 168,169,0,76,12,31....
> CLICK IMAGE PREVIEW FOR FULL MODAL