SINGLE FILE COPY

FILE INFORMATION

FILENAME(S): SINGLE FILE COPY

FILE TYPE(S): PRG, DEL

FILE SIZE: 3.8K

FIRST SEEN: 2025-11-02 16:54:41

APPEARS ON: 7 disk(s)

FILE HASH

498a07593414e6e6d840175dc029d78f9b83e0ad50c7bf11dae9c848f0f27144

FOUND ON DISKS (7 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COMAL	SINGLE FILE COPY	PRG	Treasure Chest - Reamigation	4	0	DOWNLOAD FILE
U TILITIE	SINGLE FILE COPY	PRG	Treasure Chest - Wolfgang Rauprich	15	6	DOWNLOAD FILE
FREESOFT DISK NR	SINGLE FILE COPY	PRG	Treasure Chest - Wolfgang Rauprich	15	6	DOWNLOAD FILE
PD DISK 15	SINGLE FILE COPY	PRG	Treasure Chest - Wolfgang Rauprich	4	0	DOWNLOAD FILE
C64 COMAL 0 14	SINGLE FILE COPY	PRG	High Voltage Complete C64 Collection	3	0	DOWNLOAD FILE
DISK 43 SIDE B	SINGLE FILE COPY	PRG	Curtcool, Klaus & Jan	12	3	DOWNLOAD FILE
BLUE EYES 033	SINGLE FILE COPY	DEL	Curtcool, Misc	3	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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 32  |RIVE FILE COPY.2|
00000020: 08 28 00 97 35 32 2C 33  31 3A 97 35 36 2C 33 31  |.(..52,31:.56,31|
00000030: 3A 9C 00 3F 08 2D 00 81  49 B2 30 A4 31 37 33 00  |:..?.-..I.0.173.|
00000040: 53 08 32 00 87 20 44 3A  97 37 39 33 36 AA 49 2C  |S.2.. D:.7936.I,|
00000050: 44 3A 82 00 66 08 37 00  97 37 38 35 2C 30 3A 97  |D:..f.7..785,0:.|
00000060: 37 38 36 2C 33 31 00 74  08 3C 00 50 4C 24 B2 C7  |786,31.t.<.PL$..|
00000070: 28 31 39 29 00 90 08 41  00 81 49 B2 31 A4 32 34  |(19)...A..I.1.24|
00000080: 3A 50 4C 24 B2 50 4C 24  AA C7 28 31 37 29 3A 82  |:PL$.PL$..(17):.|
00000090: 00 AA 08 46 00 81 49 B2  31 A4 33 39 3A 43 4C 24  |...F..I.1.39:CL$|
000000A0: B2 43 4C 24 AA 22 20 22  3A 82 00 C6 08 4B 00 43  |.CL$." ":....K.C|
000000B0: 4C 24 B2 43 4C 24 AA C7  28 31 33 29 AA 43 4C 24  |L$.CL$..(13).CL$|
000000C0: AA C7 28 31 33 29 00 EA  08 50 00 43 4C 24 B2 C8  |..(13)...P.CL$..|
000000D0: 28 50 4C 24 2C 32 31 29  AA 43 4C 24 AA C7 28 31  |(PL$,21).CL$..(1|
000000E0: 34 35 29 AA C7 28 31 34  35 29 00 0C 09 55 00 9F  |45)..(145)...U..|
000000F0: 31 35 2C 38 2C 31 35 3A  8F 20 4F 50 45 4E 20 45  |15,8,15:. OPEN E|
00000100: 52 52 4F 52 20 43 48 41  4E 4E 45 4C 00 16 09 5A  |RROR CHANNEL...Z|
00000110: 00 89 31 30 30 30 00 1C  09 64 00 8F 00 35 09 6E  |..1000...d...5.n|
00000120: 00 8F 20 52 45 41 44 20  54 48 45 20 44 49 52 45  |.. READ THE DIRE|
00000130: 43 54 4F 52 59 00 57 09  82 00 97 37 38 35 2C 30  |CTORY.W....785,0|
00000140: 3A 8F 20 53 45 4C 45 43  54 20 52 45 41 44 20 46  |:. SELECT READ F|
00000150: 55 4E 43 54 49 4F 4E 00  6E 09 8C 00 98 31 35 2C  |UNCTION.n....15,|
00000160: 22 49 22 3A 9F 32 2C 38  2C 32 2C 22 24 22 00 8E  |"I":.2,8,2,"$"..|
00000170: 09 96 00 4E 42 B2 B7 28  32 29 3A 8F 20 4C 4F 41  |...NB..(2):. LOA|
00000180: 44 20 44 49 52 20 49 4E  54 4F 20 4D 45 4D 00 AA  |D DIR INTO MEM..|
00000190: 09 A0 00 A0 20 32 3A 8D  20 38 30 30 3A 8F 20 43  |.... 2:. 800:. C|
000001A0: 48 45 43 4B 20 45 52 52  4F 52 00 B0 09 AA 00 8E  |HECK ERROR......|
000001B0: 00 B6 09 C8 00 8F 00 CE  09 D2 00 8F 20 44 49 53  |............ DIS|
000001C0: 50 4C 41 59 20 44 49 53  4B 20 4E 41 4D 45 00 EC  |PLAY DISK NAME..|
000001D0: 09 E6 00 97 37 38 35 2C  36 3A 8F 53 45 4C 45 43  |....785,6:.SELEC|
000001E0: 54 20 46 45 54 43 48 20  43 48 41 52 00 02 0A F0  |T FETCH CHAR....|
000001F0: 00 99 20 C8 28 50 4C 24  2C 33 29 3B C7 28 31 38  |.. .(PL$,3);.(18|
00000200: 29 3B 00 11 0A FA 00 81  4B B2 31 34 32 A4 31 36  |);......K.142.16|
00000210: 39 00 22 0A 04 01 99 20  C7 28 B7 28 4B 29 29 3B  |9.".... .(.(K));|
00000220: 3A 82 00 2F 0A 0E 01 99  20 C7 28 31 34 36 29 00  |:../.... .(146).|
00000230: 35 0A 18 01 8E 00 3B 0A  2C 01 8F 00 5A 0A 36 01  |5.....;.,...Z.6.|
00000240: 8F 20 50 52 49 4E 54 20  44 49 52 45 43 54 4F 52  |. PRINT DIRECTOR|
00000250: 59 20 45 4E 54 52 59 20  44 45 00 7A 0A 4A 01 97  |Y ENTRY DE.z.J..|
00000260: 20 37 38 35 2C 36 3A 8F  20 53 45 4C 45 43 54 20  | 785,6:. SELECT |
00000270: 46 45 54 43 48 20 43 48  41 52 00 9D 0A 54 01 49  |FETCH CHAR...T.I|
00000280: 58 B2 28 44 45 AB 31 29  AC 33 32 AA 32 35 34 AB  |X.(DE.1).32.254.|
00000290: B5 28 28 44 45 AB 31 29  AD 38 29 AC 32 00 B1 0A  |.((DE.1).8).2...|
000002A0: 59 01 8B 20 B7 28 49 58  29 B3 31 32 38 20 A7 20  |Y.. .(IX).128 . |
000002B0: 8E 00 D0 0A 5E 01 54 59  B2 B7 28 49 58 29 AB 31  |....^.TY..(IX).1|
000002C0: 32 38 3A 8B 54 59 B2 30  B0 54 59 B1 33 A7 20 8E  |28:.TY.0.TY.3. .|
000002D0: 00 E6 0A 68 01 81 20 4B  B2 49 58 AA 33 20 A4 20  |...h.. K.IX.3 . |
000002E0: 49 58 20 AA 31 38 00 F5  0A 72 01 99 20 C7 28 B7  |IX .18...r.. .(.|
000002F0: 28 4B 29 29 3B 00 07 0B  7C 01 82 3A 99 20 A3 31  |(K));...|..:. .1|
00000300: 36 29 3B 22 2C 22 3B 00  1D 0B 86 01 99 20 CA 28  |6);",";...... .(|
00000310: 22 53 50 55 22 2C 54 59  2C 31 29 3A 8E 00 23 0B  |"SPU",TY,1):..#.|
00000320: 90 01 8F 00 3E 0B 9A 01  8F 20 47 45 54 20 44 45  |....>.... GET DE|
00000330: 53 54 49 4E 41 54 49 4F  4E 20 44 49 53 4B 00 49  |STINATION DISK.I|
00000340: 0B AE 01 99 20 43 4C 24  3B 00 69 0B B8 01 99 20  |.... CL$;.i.... |
00000350: 22 49 4E 53 45 52 54 20  44 45 53 54 49 4E 41 54  |"INSERT DESTINAT|
00000360: 49 4F 4E 20 44 49 53 4B  22 00 86 0B C2 01 99 22  |ION DISK"......"|
00000370: 50 52 45 53 53 22 3B C7  28 31 38 29 3B 22 52 45  |PRESS";.(18);"RE|
00000380: 54 55 52 4E 22 3B 00 A1  0B CC 01 99 20 C7 28 31  |TURN";...... .(1|
00000390: 34 36 29 3B 22 57 48 45  4E 20 52 45 41 44 59 2E  |46);"WHEN READY.|
000003A0: 22 00 B6 0B D6 01 A1 44  4D 24 3A 8B 44 4D 24 B2  |"......DM$:.DM$.|
000003B0: 22 22 89 34 37 30 00 CA  0B E0 01 8B 44 4D 24 B3  |"".470......DM$.|
000003C0: B1 C7 28 31 33 29 89 34  37 30 00 D8 0B EA 01 98  |..(13).470......|
000003D0: 31 35 2C 22 49 22 3A 8E  00 DE 0B F4 01 8F 00 F7  |15,"I":.........|
000003E0: 0B FE 01 8F 20 47 45 54  20 41 20 46 49 4C 45 20  |.... GET A FILE |
000003F0: 54 4F 20 43 4F 50 59 00  10 0C 12 02 99 20 43 4C  |TO COPY...... CL|
00000400: 24 3B 3A 8B 20 45 4E B2  36 33 20 89 20 35 38 30  |$;:. EN.63 . 580|
00000410: 00 32 0C 1C 02 8B 20 55  45 B2 31 32 38 A7 20 99  |.2.... UE.128. .|
00000420: 20 4E 4D 24 3B 22 54 4F  4F 20 4C 41 52 47 45 2E  | NM$;"TOO LARGE.|
00000430: 22 3B 00 53 0C 26 02 8B  45 4E B2 36 32 20 A7 20  |";.S.&..EN.62 . |
00000440: 99 20 4E 4D 24 3B 22 4E  4F 54 20 46 4F 55 4E 44  |. NM$;"NOT FOUND|
00000450: 2E 22 3B 00 7B 0C 30 02  99 22 45 4E 54 45 52 20  |.";.{.0.."ENTER |
00000460: 46 49 4C 45 2C 54 59 50  45 22 3A 4E 4D 24 B2 22  |FILE,TYPE":NM$."|
00000470: 22 3A 45 4E B2 30 3A 55  45 B2 30 00 8B 0C 3A 02  |":EN.0:UE.0...:.|
00000480: 85 20 4E 4D 24 2C 54 59  24 3A 8E 00 AE 0C 44 02  |. NM$,TY$:....D.|
00000490: 99 20 4E 4D 24 3B 22 45  58 49 53 54 53 2E 20 45  |. NM$;"EXISTS. E|
000004A0: 4E 54 45 52 20 4E 45 57  20 4E 41 4D 45 22 00 C6  |NTER NEW NAME"..|
000004B0: 0C 4E 02 45 4E B2 30 3A  4E 4D 24 B2 22 22 3A 85  |.N.EN.0:NM$."":.|
000004C0: 20 4E 4D 24 3A 8E 00 CC  0C 58 02 8F 00 E0 0C 62  | NM$:....X.....b|
000004D0: 02 8F 20 52 45 41 44 20  54 48 45 20 46 49 4C 45  |.. READ THE FILE|
000004E0: 00 03 0D 76 02 97 20 37  38 35 2C 30 3A 8F 20 53  |...v.. 785,0:. S|
000004F0: 45 4C 45 43 54 20 52 45  41 44 20 46 55 4E 43 54  |ELECT READ FUNCT|
00000500: 49 4F 4E 00 20 0D 80 02  9F 20 32 2C 38 2C 32 2C  |ION. .... 2,8,2,|
00000510: 4E 4D 24 AA 22 2C 22 AA  54 59 24 AA 22 2C 52 22  |NM$.",".TY$.",R"|
00000520: 00 3A 0D 8A 02 8D 20 39  30 30 3A 8B 20 45 4E B3  |.:.... 900:. EN.|
00000530: B1 30 20 A7 20 A0 20 32  3A 8E 00 56 0D 94 02 4E  |.0 . . 2:..V...N|
00000540: 42 B2 B7 28 32 29 3A 8F  20 52 45 41 44 20 54 48  |B..(2):. READ TH|
00000550: 45 20 46 49 4C 45 00 74  0D 9E 02 A0 20 32 3A 8D  |E FILE.t.... 2:.|
00000560: 20 38 30 30 3A 8F 20 43  48 45 43 4B 20 52 45 53  | 800:. CHECK RES|
00000570: 55 4C 54 53 00 7A 0D A8  02 8E 00 80 0D BC 02 8F  |ULTS.z..........|
00000580: 00 95 0D C6 02 8F 20 57  52 49 54 45 20 54 48 45  |...... WRITE THE|
00000590: 20 46 49 4C 45 00 B9 0D  DA 02 97 20 37 38 35 2C  | FILE...... 785,|
000005A0: 33 3A 8F 20 53 45 4C 45  43 54 20 57 52 49 54 45  |3:. SELECT WRITE|
000005B0: 20 46 55 4E 43 54 49 4F  4E 00 D6 0D E4 02 9F 20  | FUNCTION...... |
000005C0: 32 2C 38 2C 32 2C 4E 4D  24 AA 22 2C 22 AA 54 59  |2,8,2,NM$.",".TY|
000005D0: 24 AA 22 2C 57 22 00 F0  0D EE 02 8D 20 39 30 30  |$.",W"...... 900|
000005E0: 3A 8B 20 45 4E B3 B1 30  20 A7 20 A0 20 32 3A 8E  |:. EN..0 . . 2:.|
000005F0: 00 0E 0E F8 02 4E 42 B2  B7 28 32 29 3A 8F 20 57  |.....NB..(2):. W|
00000600: 52 49 54 45 20 54 48 45  20 42 59 54 45 53 00 2C  |RITE THE BYTES.,|
00000610: 0E 02 03 A0 20 32 3A 8D  20 38 30 30 3A 8F 20 43  |.... 2:. 800:. C|
00000620: 48 45 43 4B 20 52 45 53  55 4C 54 53 00 32 0E 0C  |HECK RESULTS.2..|
00000630: 03 8E 00 38 0E 20 03 8F  00 57 0E 2A 03 8F 20 43  |...8. ...W.*.. C|
00000640: 48 45 43 4B 20 55 53 52  28 29 20 52 45 54 55 52  |HECK USR() RETUR|
00000650: 4E 20 56 41 4C 55 45 00  6E 0E 3E 03 4E 42 B2 4E  |N VALUE.n.>.NB.N|
00000660: 42 AB 28 4E 42 B3 30 29  AC 36 35 35 33 36 00 87  |B.(NB.0).65536..|
00000670: 0E 48 03 8B 20 4E 42 B3  36 31 34 34 30 20 A7 20  |.H.. NB.61440 . |
00000680: 55 45 20 B2 30 3A 8E 00  A2 0E 52 03 8B 20 4E 42  |UE .0:....R.. NB|
00000690: B2 36 31 34 34 30 20 A7  20 55 45 20 B2 31 32 38  |.61440 . UE .128|
000006A0: 3A 8E 00 AD 0E 5C 03 99  20 43 4C 24 3B 00 C7 0E  |:....\.. CL$;...|
000006B0: 66 03 8B C2 28 37 38 35  29 B2 30 20 A7 20 99 20  |f...(785).0 . . |
000006C0: 22 52 45 41 44 22 3B 00  E3 0E 70 03 8B 20 C2 28  |"READ";...p.. .(|
000006D0: 37 38 35 29 B2 33 20 A7  20 99 20 22 57 52 49 54  |785).3 . . "WRIT|
000006E0: 45 22 3B 00 FE 0E 7A 03  99 20 22 45 52 52 4F 52  |E";...z.. "ERROR|
000006F0: 20 23 22 3B 4E 42 AB 36  31 34 34 30 3A 80 00 04  | #";NB.61440:...|
00000700: 0F 84 03 8F 00 1D 0F 8E  03 8F 20 52 45 41 44 20  |.......... READ |
00000710: 45 52 52 4F 52 20 43 48  41 4E 4E 45 4C 00 32 0F  |ERROR CHANNEL.2.|
00000720: AC 03 84 31 35 2C 45 4E  2C 45 4D 24 2C 45 54 2C  |...15,EN,EM$,ET,|
00000730: 45 53 00 4D 0F B6 03 8B  20 45 4E B2 30 B0 45 4E  |ES.M.... EN.0.EN|
00000740: B2 36 32 B0 45 4E B2 36  33 20 A7 20 8E 00 5E 0F  |.62.EN.63 . ..^.|
00000750: C0 03 A0 20 31 35 3A 20  99 20 43 4C 24 3B 00 76  |... 15: . CL$;.v|
00000760: 0F CA 03 99 20 22 44 49  53 4B 20 45 52 52 4F 52  |.... "DISK ERROR|
00000770: 20 23 22 3B 45 4E 00 8C  0F D4 03 99 20 C8 28 50  | #";EN...... .(P|
00000780: 4C 24 2C 32 32 29 3B 45  4D 24 3A 80 00 92 0F E8  |L$,22);EM$:.....|
00000790: 03 8F 00 A5 0F F2 03 8F  20 4D 41 49 4E 20 52 4F  |........ MAIN RO|
000007A0: 55 54 49 4E 45 00 C2 0F  06 04 99 20 C7 28 31 34  |UTINE...... .(14|
000007B0: 37 29 3B 3A 8F 20 43 4C  45 41 52 20 53 43 52 45  |7);:. CLEAR SCRE|
000007C0: 45 4E 00 E7 0F 10 04 99  22 20 20 20 20 20 20 20  |EN......"       |
000007D0: 53 49 4E 47 4C 45 20 44  52 49 56 45 20 46 49 4C  |SINGLE DRIVE FIL|
000007E0: 45 20 43 4F 50 59 22 00  03 10 1A 04 99 3A 99 20  |E COPY"......:. |
000007F0: 22 52 45 41 44 49 4E 47  20 44 49 52 45 43 54 4F  |"READING DIRECTO|
00000800: 52 59 22 00 22 10 24 04  8D 20 31 30 30 3A 8F 20  |RY".".$.. 100:. |
00000810: 52 45 41 44 20 54 48 45  20 44 49 52 45 43 54 4F  |READ THE DIRECTO|
00000820: 52 59 00 40 10 2E 04 8D  20 32 30 30 3A 8F 20 44  |RY.@.... 200:. D|
00000830: 49 53 50 4C 41 59 20 54  48 45 20 54 49 54 4C 45  |ISPLAY THE TITLE|
00000840: 00 55 10 38 04 4E 53 B2  B5 28 28 4E 42 AA 31 29  |.U.8.NS..((NB.1)|
00000850: AD 32 35 34 29 00 71 10  42 04 8B 4E 53 B2 31 20  |.254).q.B..NS.1 |
00000860: 89 20 35 30 30 30 3A 8F  20 4E 4F 20 46 49 4C 45  |. 5000:. NO FILE|
00000870: 53 00 7A 10 4C 04 44 53  B2 31 00 9B 10 56 04 8B  |S.z.L.DS.1...V..|
00000880: 20 4E 53 B3 B2 44 53 20  A7 20 44 53 B2 31 3A 8F  | NS..DS . DS.1:.|
00000890: 20 53 54 41 52 54 20 4F  56 45 52 00 AA 10 60 04  | START OVER...`.|
000008A0: 99 C8 28 50 4C 24 2C 34  29 3B 00 C5 10 6A 04 42  |..(PL$,4);...j.B|
000008B0: 45 B2 28 44 53 AB 31 29  AC 38 AA 31 3A 4C 45 B2  |E.(DS.1).8.1:LE.|
000008C0: 42 45 AA 31 35 00 DB 10  74 04 8B 44 53 AA 31 B2  |BE.15...t..DS.1.|
000008D0: 4E 53 A7 20 4C 45 B2 42  45 AA 38 00 ED 10 7E 04  |NS. LE.BE.8...~.|
000008E0: 81 20 44 45 B2 20 42 45  20 A4 20 4C 45 00 09 11  |. DE. BE . LE...|
000008F0: 88 04 8D 20 33 30 30 3A  82 3A 8F 20 44 49 53 50  |... 300:.:. DISP|
00000900: 4C 41 59 20 46 49 4C 45  53 00 22 11 92 04 81 49  |LAY FILES."....I|
00000910: B2 C2 28 32 31 34 29 A4  32 30 3A 8F 20 43 4C 45  |..(214).20:. CLE|
00000920: 41 52 00 3E 11 9C 04 99  22 20 20 20 20 20 20 20  |AR.>...."       |
00000930: 20 20 20 20 20 20 20 20  20 20 20 20 20 22 00 44  |             ".D|
00000940: 11 A6 04 82 00 5E 11 B0  04 8D 20 35 30 30 3A 8F  |.....^.... 500:.|
00000950: 20 47 45 54 20 46 49 4C  45 20 4E 41 4D 45 00 7C  | GET FILE NAME.||
00000960: 11 BA 04 8B 20 4E 4D 24  B2 22 22 20 A7 20 44 53  |.... NM$."" . DS|
00000970: B2 44 53 AA 32 3A 89 20  31 31 31 30 00 8E 11 DA  |.DS.2:. 1110....|
00000980: 07 8F 43 4F 50 59 54 48  45 20 46 49 4C 45 00 99  |..COPYTHE FILE..|
00000990: 11 EE 07 99 20 43 4C 24  3B 00 AD 11 F8 07 99 22  |.... CL$;......"|
000009A0: 52 45 41 44 49 4E 47 20  22 3B 4E 4D 24 00 C7 11  |READING ";NM$...|
000009B0: 02 08 8D 20 36 30 30 3A  8F 20 52 45 41 44 20 54  |... 600:. READ T|
000009C0: 48 45 20 46 49 4C 45 00  E1 11 0C 08 8B 20 45 4E  |HE FILE...... EN|
000009D0: B2 36 32 B0 55 45 B2 31  32 38 20 89 20 31 32 30  |.62.UE.128 . 120|
000009E0: 30 00 F8 11 16 08 42 43  B2 4E 42 3A 8F 20 53 41  |0.....BC.NB:. SA|
000009F0: 56 45 20 43 4F 55 4E 54  00 12 12 20 08 8D 20 34  |VE COUNT... .. 4|
00000A00: 30 30 3A 8F 20 47 45 54  20 44 45 53 54 20 44 49  |00:. GET DEST DI|
00000A10: 53 4B 00 2B 12 2A 08 99  20 43 4C 24 3B 22 57 52  |SK.+.*.. CL$;"WR|
00000A20: 49 54 49 4E 47 20 22 3B  4E 4D 24 00 46 12 34 08  |ITING ";NM$.F.4.|
00000A30: 8D 20 37 30 30 3A 8F 20  57 52 49 54 45 20 54 48  |. 700:. WRITE TH|
00000A40: 45 20 46 49 4C 45 00 58  12 3E 08 8B 20 45 4E B2  |E FILE.X.>.. EN.|
00000A50: 30 20 89 20 33 30 30 30  00 71 12 48 08 8D 20 35  |0 . 3000.q.H.. 5|
00000A60: 30 30 3A 8F 20 47 45 54  20 4E 45 57 20 46 49 4C  |00:. GET NEW FIL|
00000A70: 45 00 86 12 52 08 8B 20  4E 4D 24 B3 B1 22 22 89  |E...R.. NM$.."".|
00000A80: 20 20 32 30 39 30 00 9F  12 5C 08 99 20 43 4C 24  |  2090...\.. CL$|
00000A90: 3B 46 49 4C 45 20 A8 20  43 4F 50 49 45 44 22 00  |;FILE . COPIED".|
00000AA0: AA 12 66 08 89 20 33 31  30 30 00 B0 12 B8 0B 8F  |..f.. 3100......|
00000AB0: 00 D0 12 C2 0B 8F 20 44  49 53 50 4C 41 59 20 43  |...... DISPLAY C|
00000AC0: 4F 4D 50 4C 45 54 49 4F  4E 20 53 54 41 54 55 53  |OMPLETION STATUS|
00000AD0: 00 DB 12 D6 0B 99 20 43  4C 24 3B 00 EF 12 E0 0B  |...... CL$;.....|
00000AE0: 8B 20 4E 42 B3 B1 42 43  20 89 20 33 30 36 30 00  |. NB..BC . 3060.|
00000AF0: 10 13 EA 0B 99 22 43 4F  50 59 20 53 55 43 43 45  |....."COPY SUCCE|
00000B00: 53 53 46 55 4C 2E 20 20  22 3B 3A 89 33 30 37 30  |SSFUL.  ";:.3070|
00000B10: 00 2E 13 F4 0B 99 22 45  52 52 4F 52 20 4F 4E 4C  |......"ERROR ONL|
00000B20: 59 20 22 3B 4E 42 3B 22  20 4F 55 54 22 3B 00 47  |Y ";NB;" OUT";.G|
00000B30: 13 FE 0B 99 20 42 43 3B  22 42 59 54 45 53 20 43  |.... BC;"BYTES C|
00000B40: 4F 50 49 45 44 2E 22 00  5C 13 1C 0C 99 20 22 50  |OPIED.".\.... "P|
00000B50: 52 45 53 53 22 3B C7 28  31 38 29 3B 00 72 13 26  |RESS";.(18);.r.&|
00000B60: 0C 99 22 52 45 54 55 52  4E 22 3B C7 28 31 34 36  |.."RETURN";.(146|
00000B70: 29 3B 00 8E 13 30 0C 99  22 54 4F 20 43 4F 50 59  |);...0.."TO COPY|
00000B80: 20 41 4E 4F 54 48 45 52  20 46 49 4C 45 22 00 A4  | ANOTHER FILE"..|
00000B90: 13 3A 0C A1 44 4D 24 3A  8B 44 4D 24 B2 22 22 89  |.:..DM$:.DM$."".|
00000BA0: 33 31 33 30 00 BB 13 44  0C 8B 20 44 4D 24 B2 C7  |3130...D.. DM$..|
00000BB0: 28 31 33 29 20 89 20 31  30 30 30 00 C1 13 4E 0C  |(13) . 1000...N.|
00000BC0: 80 00 DF 13 AA 0F 8F 20  4E 4F 20 46 49 4C 45 53  |....... NO FILES|
00000BD0: 20 45 52 52 4F 52 20 48  41 4E 44 4C 49 4E 47 00  | ERROR HANDLING.|
00000BE0: F0 13 BE 0F 99 20 C8 28  50 4C 24 2C 32 31 29 3B  |..... .(PL$,21);|
00000BF0: 00 0D 14 C8 0F 99 22 4E  4F 20 46 49 4C 45 53 20  |......"NO FILES |
00000C00: 4F 4E 20 54 48 49 53 20  44 49 53 4B 22 00 29 14  |ON THIS DISK".).|
00000C10: D2 0F 99 22 50 52 45 53  53 20 52 45 54 55 52 4E  |..."PRESS RETURN|
00000C20: 20 54 4F 20 54 52 59 22  3B 00 40 14 DC 0F 99 20  | TO TRY";.@.... |
00000C30: 22 41 4E 4F 54 48 45 52  20 44 49 53 4B 2E 22 3B  |"ANOTHER DISK.";|
00000C40: 00 57 14 E6 0F A1 44 4D  24 3A 8B 20 44 4D 24 B2  |.W....DM$:. DM$.|
00000C50: 22 22 89 34 30 37 30 00  6D 14 F0 0F 8B 20 44 4D  |"".4070.m.... DM|
00000C60: 24 B2 C7 28 31 33 29 89  20 31 30 30 30 00 73 14  |$..(13). 1000.s.|
00000C70: FA 0F 80 00 79 14 88 13  8F 00 97 14 10 27 83 37  |....y........'.7|
00000C80: 36 2C 31 35 2C 33 31 2C  37 36 2C 38 38 2C 33 31  |6,15,31,76,88,31|
00000C90: 2C 37 36 2C 31 35 34 00  B2 14 1A 27 83 33 31 2C  |,76,154....'.31,|
00000CA0: 31 30 38 2C 33 2C 30 2C  31 30 38 2C 35 2C 30 2C  |108,3,0,108,5,0,|
00000CB0: 33 32 00 D3 14 24 27 83  39 2C 33 31 2C 31 35 32  |32...$'.9,31,152|
00000CC0: 2C 31 37 30 2C 33 32 2C  31 39 38 2C 32 35 35 2C  |,170,32,198,255,|
00000CD0: 31 36 38 00 F4 14 2E 27  83 31 37 36 2C 35 37 2C  |168....'.176,57,|
00000CE0: 31 36 39 2C 30 2C 31 33  33 2C 32 35 31 2C 31 36  |169,0,133,251,16|
00000CF0: 39 2C 33 32 00 16 15 38  27 83 31 33 33 2C 32 35  |9,32...8'.133,25|
00000D00: 32 2C 31 36 30 2C 30 2C  33 32 2C 32 30 37 2C 32  |2,160,0,32,207,2|
00000D10: 35 35 2C 31 34 35 00 39  15 42 27 83 32 35 31 2C  |55,145.9.B'.251,|
00000D20: 32 33 30 2C 32 35 31 2C  32 30 38 2C 32 2C 32 33  |230,251,208,2,23|
00000D30: 30 2C 32 35 32 2C 31 36  35 00 5D 15 4C 27 83 31  |0,252,165.].L'.1|
00000D40: 34 34 2C 32 30 38 2C 31  33 2C 31 36 35 2C 32 35  |44,208,13,165,25|
00000D50: 32 2C 32 30 31 2C 31 36  30 2C 31 34 34 00 7F 15  |2,201,160,144...|
00000D60: 56 27 83 20 32 33 35 2C  33 32 2C 32 30 34 2C 32  |V'. 235,32,204,2|
00000D70: 35 35 2C 31 36 30 2C 30  2C 32 34 30 2C 31 39 00  |55,160,0,240,19.|
00000D80: A2 15 60 27 83 31 36 34  2C 31 34 34 2C 33 32 2C  |..`'.164,144,32,|
00000D90: 32 30 34 2C 32 35 35 2C  31 39 32 2C 36 34 2C 32  |204,255,192,64,2|
00000DA0: 30 38 00 C4 15 6A 27 83  31 30 2C 31 36 34 2C 32  |08...j'.10,164,2|
00000DB0: 35 31 2C 31 36 35 2C 32  35 32 2C 35 36 2C 32 33  |51,165,252,56,23|
00000DC0: 33 2C 33 32 00 E4 15 74  27 83 20 37 36 2C 31 32  |3,32...t'. 76,12|
00000DD0: 2C 33 31 2C 31 36 39 2C  32 34 30 2C 37 36 2C 31  |,31,169,240,76,1|
00000DE0: 32 2C 33 31 00 04 16 7E  27 83 33 32 2C 39 2C 33  |2,31...~'.32,9,3|
00000DF0: 31 2C 31 35 32 2C 31 37  30 2C 33 32 2C 32 30 31  |1,152,170,32,201|
00000E00: 2C 32 35 35 00 28 16 88  27 83 31 36 38 2C 31 37  |,255.(..'.168,17|
00000E10: 36 2C 32 34 30 2C 31 36  35 2C 32 35 31 2C 31 34  |6,240,165,251,14|
00000E20: 31 2C 31 37 34 2C 33 31  00 4A 16 92 27 83 31 36  |1,174,31.J..'.16|
00000E30: 35 2C 32 35 32 2C 31 34  31 2C 31 37 35 2C 33 31  |5,252,141,175,31|
00000E40: 2C 31 36 39 2C 30 2C 31  33 33 00 6C 16 9C 27 83  |,169,0,133.l..'.|
00000E50: 32 35 31 2C 31 36 39 2C  33 32 2C 31 33 33 2C 32  |251,169,32,133,2|
00000E60: 35 32 2C 31 36 30 2C 30  2C 31 37 37 00 8F 16 A6  |52,160,0,177....|
00000E70: 27 83 32 35 31 2C 33 32  2C 32 31 30 2C 32 35 35  |'.251,32,210,255|
00000E80: 2C 31 36 34 2C 31 34 34  2C 32 30 38 2C 32 30 00  |,164,144,208,20.|
00000E90: B2 16 B0 27 83 32 33 30  2C 32 35 31 2C 32 30 38  |...'.230,251,208|
00000EA0: 2C 32 2C 32 33 30 2C 32  35 32 2C 31 36 35 2C 32  |,2,230,252,165,2|
00000EB0: 35 32 00 D6 16 BA 27 83  32 30 35 2C 31 37 35 2C  |52....'.205,175,|
00000EC0: 33 31 2C 31 34 34 2C 32  33 34 2C 31 36 35 2C 32  |31,144,234,165,2|
00000ED0: 35 31 2C 32 30 35 00 F8  16 C4 27 83 31 37 34 2C  |51,205....'.174,|
00000EE0: 33 31 2C 31 34 34 2C 32  32 37 2C 33 32 2C 32 30  |31,144,227,32,20|
00000EF0: 34 2C 32 35 35 2C 37 36  00 16 17 CE 27 83 37 33  |4,255,76....'.73|
00000F00: 2C 33 31 2C 33 32 2C 39  2C 33 31 2C 31 33 32 2C  |,31,32,9,31,132,|
00000F10: 32 35 31 2C 32 34 00 38  17 D8 27 83 31 30 35 2C  |251,24.8..'.105,|
00000F20: 33 32 2C 31 33 33 2C 32  35 32 2C 31 36 30 2C 30  |32,133,252,160,0|
00000F30: 2C 31 37 37 2C 32 35 31  00 50 17 E2 27 83 31 36  |,177,251.P..'.16|
00000F40: 38 2C 31 36 39 2C 30 2C  37 36 2C 31 32 2C 33 31  |8,169,0,76,12,31|
00000F50: 00 00 00                                          |...             |

....... SINGLE DRIVE FILE COPY.2.(..52,3
1:.56,31:..?.-..I.0.173.S.2.. D:.7936.I,
D:..F.7..785,0:.786,31.T.<.PL$.G(19)...A
..I.1.24:PL$.PL$.G(17):....F..I.1.39:CL$
.CL$." ":..F.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...5.N.. READ THE DIRECTORY.W....785,0
:. SELECT READ FUNCTION.N....15,"I":.2,8
,2,"$".....NB..(2):. LOAD DIR INTO MEM..
. .  2:. 800:. CHECK ERROR.........H...N
.R.. DISPLAY DISK NAME......785,6:.SELEC
T FETCH CHAR...... H(PL$,3);G(18);......
K.142.169.".... G(.(K));:../.... G(146).
5.....;.,...Z.6.. PRINT DIRECTORY ENTRY 
DE.Z.J.. 785,6:. SELECT FETCH CHAR...T.I
X.(DE.1).32.254..((DE.1).8).2...Y.. .(IX
).128 . ..P.^.TY..(IX).128:.TY.0.TY.3. .
...H.. K.IX.3 . IX .18...R.. G(.(K));...
|..:. .16);",";...... J("SPU",TY,1):..#.
....>.... GET DESTINATION DISK.I.... CL$
;.I.... "INSERT DESTINATION DISK"...B.."
PRESS";G(18);"RETURN";...L.. G(146);"WHE
N READY."...V..DM$:.DM$."".470.J....DM$.
.G(13).470.X....15,"I":............. GET
 A FILE TO COPY...... CL$;:. EN.63 . 580
.2.... UE.128. . NM$;"TOO LARGE.";.S.&..
EN.62 . . NM$;"NOT FOUND.";.{.0.."ENTER 
FILE,TYPE":NM$."":EN.0:UE.0...:.. NM$,TY
$:....D.. NM$;"EXISTS. ENTER NEW NAME".F
.N.EN.0:NM$."":. NM$:..L.X.....B.. READ 
THE FILE...V.. 785,0:. SELECT READ FUNCT
ION. .... 2,8,2,NM$.",".TY$.",R".:.... 9
00:. EN..0 .   2:..V...NB..(2):. READ TH
E FILE.T...  2:. 800:. CHECK RESULTS.Z..
...........F.. WRITE THE FILE...Z.. 785,
3:. SELECT WRITE FUNCTION.V.... 2,8,2,NM
$.",".TY$.",W"...... 900:. EN..0 .   2:.
.....NB..(2):. WRITE THE BYTES.,...  2:.
 800:. CHECK RESULTS.2.....8. ...W.*.. C
HECK USR() RETURN VALUE.N.>.NB.NB.(NB.0)
.65536...H.. NB.61440 . UE .0:....R.. NB
.61440 . UE .128:....\.. CL$;.G.F..B(785
).0 . . "READ";...P.. B(785).3 . . "WRIT
E";...Z.. "ERROR #";NB.61440:...........
.. READ ERROR CHANNEL.2....15,EN,EM$,ET,
ES.M.... EN.0.EN.62.EN.63 . ..^...  15: 
. CL$;.V.J.. "DISK ERROR #";EN...T.. H(P
L$,22);EM$:............. MAIN ROUTINE.B.
... G(147);:. CLEAR SCREEN......"       
SINGLE DRIVE FILE COPY"......:. "READING
 DIRECTORY".".$.. 100:. READ THE DIRECTO
RY.@.... 200:. DISPLAY THE TITLE.U.8.NS.
.((NB.1).254).Q.B..NS.1 . 5000:. NO FILE
S.Z.L.DS.1...V.. NS..DS . DS.1:. START O
VER...`..H(PL$,4);.E.J.BE.(DS.1).8.1:LE.
BE.15...T..DS.1.NS. LE.BE.8...~.. DE. BE
 . LE...... 300:.:. DISPLAY FILES."....I
.B(214).20:. CLEAR.>...."               
     ".D.....^.... 500:. GET FILE NAME.|
.... NM$."" . DS.DS.2:. 1110...Z..COPYTH
E FILE...... CL$;......"READING ";NM$.G.
... 600:. READ THE FILE...... EN.62.UE.1
28 . 1200.....BC.NB:. SAVE COUNT... .. 4
00:. GET DEST DISK.+.*.. CL$;"WRITING ";
NM$.F.4.. 700:. WRITE THE FILE.X.>.. EN.
0 . 3000.Q.H.. 500:. GET NEW FILE...R.. 
NM$.."".  2090...\.. CL$;FILE . COPIED".
..F.. 3100.......P.B.. DISPLAY COMPLETIO
N STATUS...V.. CL$;...... NB..BC . 3060.
....."COPY SUCCESSFUL.  ";:.3070......"E
RROR ONLY ";NB;" OUT";.G.... BC;"BYTES C
OPIED.".\.... "PRESS";G(18);.R.&.."RETUR
N";G(146);...0.."TO COPY ANOTHER FILE"..
.:..DM$:.DM$."".3130...D.. DM$.G(13) . 1
000.A.N........ NO FILES ERROR HANDLING.
..... H(PL$,21);...H.."NO FILES ON THIS 
DISK".).R.."PRESS RETURN TO TRY";.@.... 
"ANOTHER DISK.";.W....DM$:. DM$."".4070.
M.... DM$.G(13). 1000.S.....Y........'.7
6,15,31,76,88,31,76,154....'.31,108,3,0,
108,5,0,32.S.$'.9,31,152,170,32,198,255,
168....'.176,57,169,0,133,251,169,32...8
'.133,252,160,0,32,207,255,145.9.B'.251,
230,251,208,2,230,252,165.].L'.144,208,1
3,165,252,201,160,144..V'. 235,32,204,2
55,160,0,240,19...`'.164,144,32,204,255,
192,64,208.D.J'.10,164,251,165,252,56,23
3,32...T'. 76,12,31,169,240,76,12,31...~
'.32,9,31,152,170,32,201,255.(..'.168,17
6,240,165,251,141,174,31.J..'.165,252,14
1,175,31,169,0,133.L..'.251,169,32,133,2
52,160,0,177....'.251,32,210,255,164,144
,208,20....'.230,251,208,2,230,252,165,2
52.V..'.205,175,31,144,234,165,251,205..
.D'.174,31,144,227,32,204,255,76...N'.73
,31,32,9,31,132,251,24.8.X'.105,32,133,2
52,160,0,177,251.P..'.168,169,0,76,12,31
...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL