FASTCOPY 128

FILE INFORMATION

FILENAME(S): FASTCOPY 128

FILE TYPE(S): PRG

FILE SIZE: 4K

FIRST SEEN: 2025-10-20 14:30:12

APPEARS ON: 2 disk(s)

FILE HASH

fad8b15ac25b6755f607db46a13212a40706eabd075800fec02f80f28c8701a6

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GAZETTE 2 3 00	FASTCOPY 128	PRG	Treasure Chest - Klaus Der Suhler	12	6	DOWNLOAD FILE
17	FASTCOPY 128	PRG	Treasure Chest - Plattfuss	10	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 0A 1C 05 00 E7 35  2C 32 00 27 1C 14 00 8F  |.......5,2.'....|
00000010: 20 53 49 4E 47 4C 45 20  44 52 49 56 45 20 46 49  | SINGLE DRIVE FI|
00000020: 4C 45 20 43 4F 50 59 00  2E 1C 1E 00 FE 25 00 40  |LE COPY......%.@|
00000030: 1C 23 00 97 35 34 2C 38  3A 97 35 38 2C 38 3A 9C  |.#..54,8:.58,8:.|
00000040: 00 50 1C 2D 00 81 20 49  B2 30 20 A4 20 32 30 38  |.P.-.. I.0 . 208|
00000050: 00 65 1C 32 00 87 20 44  3A 97 31 33 30 35 36 AA  |.e.2.. D:.13056.|
00000060: 49 2C 44 3A 82 00 7B 1C  37 00 97 20 34 36 33 33  |I,D:..{.7.. 4633|
00000070: 2C 30 3A 97 34 36 33 34  2C 35 31 00 89 1C 3C 00  |,0:.4634,51...<.|
00000080: 50 4C 24 B2 C7 28 31 39  29 00 A5 1C 41 00 81 49  |PL$..(19)...A..I|
00000090: B2 31 A4 32 34 3A 50 4C  24 B2 50 4C 24 AA C7 28  |.1.24:PL$.PL$..(|
000000A0: 31 37 29 3A 82 00 C0 1C  46 00 81 20 49 B2 31 A4  |17):....F.. I.1.|
000000B0: 33 39 3A 43 4C 24 B2 43  4C 24 AA 22 20 22 3A 82  |39:CL$.CL$." ":.|
000000C0: 00 DC 1C 4B 00 43 4C 24  B2 43 4C 24 AA C7 28 31  |...K.CL$.CL$..(1|
000000D0: 33 29 AA 43 4C 24 AA C7  28 31 33 29 00 00 1D 50  |3).CL$..(13)...P|
000000E0: 00 43 4C 24 B2 C8 28 50  4C 24 2C 32 31 29 AA 43  |.CL$..(PL$,21).C|
000000F0: 4C 24 AA C7 28 31 34 35  29 AA C7 28 31 34 35 29  |L$..(145)..(145)|
00000100: 00 1F 1D 55 00 9F 31 35  2C 38 2C 31 35 3A 8F 20  |...U..15,8,15:. |
00000110: 4F 50 45 4E 20 45 52 52  4F 52 20 43 48 41 4E 00  |OPEN ERROR CHAN.|
00000120: 2A 1D 5A 00 89 20 31 30  31 30 00 43 1D 6E 00 8F  |*.Z.. 1010.C.n..|
00000130: 20 52 45 41 44 20 54 48  45 20 44 49 52 45 43 54  | READ THE DIRECT|
00000140: 4F 52 59 00 66 1D 82 00  97 34 36 33 33 2C 30 3A  |ORY.f....4633,0:|
00000150: 8F 20 53 45 4C 45 43 54  20 52 45 41 44 20 46 55  |. SELECT READ FU|
00000160: 4E 43 54 49 4F 4E 00 7D  1D 8C 00 98 31 35 2C 22  |NCTION.}....15,"|
00000170: 49 22 3A 9F 32 2C 38 2C  32 2C 22 24 22 00 9D 1D  |I":.2,8,2,"$"...|
00000180: 96 00 4E 42 B2 B7 28 32  29 3A 8F 20 4C 4F 41 44  |..NB..(2):. LOAD|
00000190: 20 44 49 52 20 49 4E 54  4F 20 4D 45 4D 00 B7 1D  | DIR INTO MEM...|
000001A0: A0 00 A0 32 3A 8D 38 31  30 3A 8F 20 43 48 45 43  |...2:.810:. CHEC|
000001B0: 4B 20 45 52 52 4F 52 00  BD 1D AA 00 8E 00 D5 1D  |K ERROR.........|
000001C0: D2 00 8F 20 44 49 53 50  4C 41 59 20 44 49 53 4B  |... DISPLAY DISK|
000001D0: 20 4E 41 4D 45 00 F5 1D  E6 00 97 34 36 33 33 2C  | NAME......4633,|
000001E0: 36 3A 8F 20 53 45 4C 45  43 54 20 46 45 54 43 48  |6:. SELECT FETCH|
000001F0: 20 43 48 41 52 00 0B 1E  F0 00 99 20 C8 28 50 4C  | CHAR...... .(PL|
00000200: 24 2C 33 29 3B C7 28 31  38 29 3B 00 1A 1E FA 00  |$,3);.(18);.....|
00000210: 81 4B B2 31 34 32 A4 31  36 39 00 2A 1E 04 01 99  |.K.142.169.*....|
00000220: C7 28 B7 28 4B 29 29 3B  3A 82 00 37 1E 0E 01 99  |.(.(K));:..7....|
00000230: 20 C7 28 31 34 36 29 00  3D 1E 18 01 8E 00 5C 1E  | .(146).=.....\.|
00000240: 36 01 8F 20 50 52 49 4E  54 20 44 49 52 45 43 54  |6.. PRINT DIRECT|
00000250: 4F 52 59 20 45 4E 54 52  59 20 44 45 00 7D 1E 4A  |ORY ENTRY DE.}.J|
00000260: 01 97 20 34 36 33 33 2C  36 3A 8F 20 53 45 4C 45  |.. 4633,6:. SELE|
00000270: 43 54 20 46 45 54 43 48  20 43 48 41 52 00 A0 1E  |CT FETCH CHAR...|
00000280: 54 01 49 58 B2 28 44 45  AB 31 29 AC 33 32 AA 32  |T.IX.(DE.1).32.2|
00000290: 35 34 AB B5 28 28 44 45  AB 31 29 AD 38 29 AC 32  |54..((DE.1).8).2|
000002A0: 00 B3 1E 59 01 8B 20 B7  28 49 58 29 B3 31 32 38  |...Y.. .(IX).128|
000002B0: A7 20 8E 00 D4 1E 5E 01  54 59 B2 B7 28 49 58 29  |. ....^.TY..(IX)|
000002C0: AB 31 32 38 3A 8B 20 54  59 B2 30 20 B0 20 54 59  |.128:. TY.0 . TY|
000002D0: B1 33 A7 8E 00 E6 1E 68  01 81 4B B2 49 58 AA 33  |.3.....h..K.IX.3|
000002E0: A4 49 58 AA 31 38 00 F5  1E 72 01 99 20 C7 28 B7  |.IX.18...r.. .(.|
000002F0: 28 4B 29 29 3B 00 06 1F  7C 01 82 3A 99 A3 31 36  |(K));...|..:..16|
00000300: 29 3B 22 2C 22 3B 00 1B  1F 86 01 99 CA 28 22 53  |);",";.......("S|
00000310: 50 55 22 2C 54 59 2C 31  29 3A 8E 00 36 1F 9A 01  |PU",TY,1):..6...|
00000320: 8F 20 47 45 54 20 44 45  53 54 49 4E 41 54 49 4F  |. GET DESTINATIO|
00000330: 4E 20 44 49 53 4B 00 41  1F AE 01 99 20 43 4C 24  |N DISK.A.... CL$|
00000340: 3B 00 61 1F B8 01 99 22  49 4E 53 45 52 54 20 44  |;.a...."INSERT D|
00000350: 45 53 54 49 4E 41 54 49  4F 4E 20 44 49 53 4B 2E  |ESTINATION DISK.|
00000360: 22 00 7F 1F C2 01 99 22  50 52 45 53 53 20 22 3B  |"......"PRESS ";|
00000370: C7 28 31 38 29 3B 22 52  45 54 55 52 4E 22 3B 00  |.(18);"RETURN";.|
00000380: 9A 1F CC 01 99 C7 28 31  34 36 29 3B 22 20 57 48  |......(146);" WH|
00000390: 45 4E 20 52 45 41 44 59  2E 22 00 B0 1F D6 01 A1  |EN READY."......|
000003A0: 20 44 4D 24 3A 8B 44 4D  24 B2 22 22 89 34 37 30  | DM$:.DM$."".470|
000003B0: 00 C6 1F E0 01 8B 20 44  4D 24 B3 B1 C7 28 31 33  |...... DM$...(13|
000003C0: 29 20 89 34 37 30 00 D4  1F EA 01 98 31 35 2C 22  |) .470......15,"|
000003D0: 49 22 3A 8E 00 ED 1F FE  01 8F 20 47 45 54 20 41  |I":....... GET A|
000003E0: 20 46 49 4C 45 20 54 4F  20 43 4F 50 59 00 06 20  | FILE TO COPY.. |
000003F0: 12 02 99 20 43 4C 24 3B  3A 8B 20 45 4E B2 36 33  |... CL$;:. EN.63|
00000400: 20 89 20 35 38 30 00 2A  20 1C 02 8B 20 55 45 B2  | . 580.* ... UE.|
00000410: 31 32 38 20 A7 20 99 20  4E 4D 24 3B 22 20 54 4F  |128 . . NM$;" TO|
00000420: 4F 20 4C 41 52 47 45 2E  22 3B 00 4A 20 26 02 8B  |O LARGE.";.J &..|
00000430: 20 45 4E B2 36 32 A7 99  4E 4D 24 3B 22 20 4E 4F  | EN.62..NM$;" NO|
00000440: 54 20 46 4F 55 4E 44 2E  22 3B 00 73 20 30 02 99  |T FOUND.";.s 0..|
00000450: 20 22 45 4E 54 45 52 20  46 49 4C 45 2C 54 59 50  | "ENTER FILE,TYP|
00000460: 45 22 3A 4E 4D 24 B2 22  22 3A 45 4E B2 30 3A 55  |E":NM$."":EN.0:U|
00000470: 45 B2 30 00 83 20 3A 02  85 20 4E 4D 24 2C 54 59  |E.0.. :.. NM$,TY|
00000480: 24 3A 8E 00 A7 20 44 02  99 20 4E 4D 24 3B 22 20  |$:... D.. NM$;" |
00000490: 45 58 49 53 54 53 2E 20  45 4E 54 45 52 20 4E 45  |EXISTS. ENTER NE|
000004A0: 57 20 4E 41 4D 45 22 00  BF 20 4E 02 45 4E B2 30  |W NAME".. N.EN.0|
000004B0: 3A 4E 4D 24 B2 22 22 3A  85 20 4E 4D 24 3A 8E 00  |:NM$."":. NM$:..|
000004C0: D3 20 62 02 8F 20 52 45  41 44 20 54 48 45 20 46  |. b.. READ THE F|
000004D0: 49 4C 45 00 F0 20 76 02  97 20 34 36 33 33 2C 30  |ILE.. v.. 4633,0|
000004E0: 3A 8F 20 52 45 41 44 20  54 48 45 20 46 49 4C 45  |:. READ THE FILE|
000004F0: 00 0C 21 80 02 9F 32 2C  38 2C 32 2C 4E 4D 24 AA  |..!...2,8,2,NM$.|
00000500: 22 2C 22 AA 54 59 24 AA  22 2C 52 22 00 21 21 8A  |",".TY$.",R".!!.|
00000510: 02 8D 39 31 30 3A 8B 45  4E B3 B1 30 A7 A0 32 3A  |..910:.EN..0..2:|
00000520: 8E 00 3D 21 94 02 4E 42  B2 B7 28 32 29 3A 8F 20  |..=!..NB..(2):. |
00000530: 52 45 41 44 20 54 48 45  20 46 49 4C 45 00 59 21  |READ THE FILE.Y!|
00000540: 9E 02 A0 32 3A 8D 38 31  30 3A 8F 20 43 48 45 43  |...2:.810:. CHEC|
00000550: 4B 20 52 45 53 55 4C 54  53 00 5F 21 A8 02 8E 00  |K RESULTS._!....|
00000560: 74 21 C6 02 8F 20 57 52  49 54 45 20 54 48 45 20  |t!... WRITE THE |
00000570: 46 49 4C 45 00 99 21 DA  02 97 20 34 36 33 33 2C  |FILE..!... 4633,|
00000580: 33 3A 8F 20 53 45 4C 45  43 54 20 57 52 49 54 45  |3:. SELECT WRITE|
00000590: 20 46 55 4E 43 54 49 4F  4E 00 B5 21 E4 02 9F 32  | FUNCTION..!...2|
000005A0: 2C 38 2C 31 2C 4E 4D 24  AA 22 2C 22 AA 54 59 24  |,8,1,NM$.",".TY$|
000005B0: AA 22 2C 57 22 00 CA 21  EE 02 8D 39 31 30 3A 8B  |.",W"..!...910:.|
000005C0: 45 4E B3 B1 30 A7 A0 32  3A 8E 00 E8 21 F8 02 4E  |EN..0..2:...!..N|
000005D0: 42 B2 B7 28 32 29 3A 8F  20 57 52 49 54 45 20 54  |B..(2):. WRITE T|
000005E0: 48 45 20 42 59 54 45 53  00 05 22 02 03 A0 32 3A  |HE BYTES.."...2:|
000005F0: 8D 20 38 31 30 3A 8F 20  43 48 45 43 4B 20 52 45  |. 810:. CHECK RE|
00000600: 53 55 4C 54 53 00 0B 22  0C 03 8E 00 2A 22 2A 03  |SULTS.."....*"*.|
00000610: 8F 20 43 48 45 43 4B 20  55 53 52 28 29 20 52 45  |. CHECK USR() RE|
00000620: 54 55 52 4E 20 56 41 4C  55 45 00 41 22 3E 03 4E  |TURN VALUE.A">.N|
00000630: 42 B2 4E 42 AB 28 4E 42  B3 30 29 AC 36 35 35 33  |B.NB.(NB.0).6553|
00000640: 36 00 59 22 48 03 8B 20  4E 42 B3 36 31 34 34 30  |6.Y"H.. NB.61440|
00000650: 20 A7 20 55 45 B2 30 3A  8E 00 73 22 52 03 8B 20  | . UE.0:..s"R.. |
00000660: 4E 42 B2 36 31 34 34 30  20 A7 20 55 45 B2 31 32  |NB.61440 . UE.12|
00000670: 38 3A 8E 00 7E 22 5C 03  99 20 43 4C 24 3B 00 97  |8:..~"\.. CL$;..|
00000680: 22 66 03 8B 20 C2 28 34  36 33 33 29 B2 30 A7 99  |"f.. .(4633).0..|
00000690: 22 52 45 41 44 22 3B 00  B2 22 70 03 8B 20 C2 28  |"READ";.."p.. .(|
000006A0: 34 36 33 33 29 B2 33 A7  20 99 22 57 52 49 54 45  |4633).3. ."WRITE|
000006B0: 22 3B 00 CD 22 7A 03 99  22 20 45 52 52 4F 52 20  |";.."z.." ERROR |
000006C0: 23 22 3B 4E 42 AB 36 31  34 34 30 3A 80 00 E6 22  |#";NB.61440:..."|
000006D0: 8E 03 8F 20 52 45 41 44  20 45 52 52 4F 52 20 43  |... READ ERROR C|
000006E0: 48 41 4E 4E 45 4C 00 FB  22 AC 03 84 31 35 2C 45  |HANNEL.."...15,E|
000006F0: 4E 2C 45 4D 24 2C 45 54  2C 45 53 00 14 23 B6 03  |N,EM$,ET,ES..#..|
00000700: 8B 20 45 4E B2 30 B0 45  4E B2 36 32 B0 45 4E B2  |. EN.0.EN.62.EN.|
00000710: 36 33 A7 8E 00 22 23 C0  03 A0 31 35 3A 99 43 4C  |63..."#...15:.CL|
00000720: 24 3B 00 39 23 CA 03 99  22 44 49 53 4B 20 45 52  |$;.9#..."DISK ER|
00000730: 52 4F 52 20 23 22 3B 45  4E 00 4F 23 D4 03 99 20  |ROR #";EN.O#... |
00000740: C8 28 50 4C 24 2C 32 32  29 3B 45 4D 24 3A 80 00  |.(PL$,22);EM$:..|
00000750: 62 23 F2 03 8F 20 4D 41  49 4E 20 52 4F 55 54 49  |b#... MAIN ROUTI|
00000760: 4E 45 00 7E 23 06 04 99  C7 28 31 34 37 29 3B 3A  |NE.~#....(147);:|
00000770: 8F 20 43 4C 45 41 52 20  53 43 52 45 45 4E 00 A4  |. CLEAR SCREEN..|
00000780: 23 10 04 99 22 20 20 20  20 20 20 20 20 53 49 4E  |#..."        SIN|
00000790: 47 4C 45 20 44 52 49 56  45 20 46 49 4C 45 20 43  |GLE DRIVE FILE C|
000007A0: 4F 50 59 22 00 BF 23 1A  04 99 3A 99 22 52 45 41  |OPY"..#...:."REA|
000007B0: 44 49 4E 47 20 44 49 52  45 43 54 4F 52 59 22 00  |DING DIRECTORY".|
000007C0: DF 23 24 04 8D 20 31 31  30 3A 8F 20 52 45 41 44  |.#$.. 110:. READ|
000007D0: 20 54 48 45 20 44 49 52  45 43 54 4F 52 59 22 00  | THE DIRECTORY".|
000007E0: F9 23 2E 04 8D 20 32 31  30 3A 8F 20 44 49 53 50  |.#... 210:. DISP|
000007F0: 4C 41 59 20 54 49 54 4C  45 00 0E 24 38 04 4E 53  |LAY TITLE..$8.NS|
00000800: B2 B5 28 28 4E 42 AA 31  29 AD 32 35 34 29 00 29  |..((NB.1).254).)|
00000810: 24 42 04 8B 20 4E 53 B2  31 89 34 30 31 30 3A 8F  |$B.. NS.1.4010:.|
00000820: 20 4E 4F 20 46 49 4C 45  53 00 32 24 4C 04 44 58  | NO FILES.2$L.DX|
00000830: B2 31 00 51 24 56 04 8B  20 4E 53 B3 B2 44 58 A7  |.1.Q$V.. NS..DX.|
00000840: 44 58 B2 31 3A 8F 20 53  54 41 52 54 20 4F 56 45  |DX.1:. START OVE|
00000850: 52 00 61 24 60 04 99 20  C8 28 50 4C 24 2C 34 29  |R.a$`.. .(PL$,4)|
00000860: 3B 00 7C 24 6A 04 42 45  B2 28 44 58 AB 31 29 AC  |;.|$j.BE.(DX.1).|
00000870: 38 AA 31 3A 4C 45 B2 42  45 AA 31 35 00 92 24 74  |8.1:LE.BE.15..$t|
00000880: 04 8B 20 44 58 AA 31 B2  4E 53 A7 4C 45 B2 42 45  |.. DX.1.NS.LE.BE|
00000890: AA 38 00 A2 24 7E 04 81  44 45 B2 42 45 20 A4 20  |.8..$~..DE.BE . |
000008A0: 4C 45 00 BE 24 88 04 8D  20 33 31 30 3A 82 3A 8F  |LE..$... 310:.:.|
000008B0: 20 44 49 53 50 4C 41 59  20 46 49 4C 45 53 00 D8  | DISPLAY FILES..|
000008C0: 24 92 04 81 20 49 B2 C2  28 32 33 35 29 A4 32 30  |$... I..(235).20|
000008D0: 3A 8F 20 43 4C 45 41 52  00 F5 24 9C 04 99 20 22  |:. CLEAR..$... "|
000008E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008F0: 20 20 20 20 22 00 FB 24  A6 04 82 00 14 25 B0 04  |    "..$.....%..|
00000900: 8D 35 31 30 3A 8F 20 47  45 54 20 46 49 4C 45 20  |.510:. GET FILE |
00000910: 4E 41 4D 45 00 30 25 BA  04 8B 20 4E 4D 24 B2 22  |NAME.0%... NM$."|
00000920: 22 A7 44 58 B2 44 58 AA  32 3A 89 20 31 31 31 30  |".DX.DX.2:. 1110|
00000930: 00 44 25 DA 07 8F 20 43  4F 50 59 20 54 48 45 20  |.D%... COPY THE |
00000940: 46 49 4C 45 00 4F 25 EE  07 99 20 43 4C 24 3B 00  |FILE.O%... CL$;.|
00000950: 64 25 F8 07 99 20 22 52  45 41 44 49 4E 47 20 22  |d%... "READING "|
00000960: 3B 4E 4D 24 00 7E 25 02  08 8D 20 36 31 30 3A 8F  |;NM$.~%... 610:.|
00000970: 20 52 45 41 44 20 54 48  45 20 46 49 4C 45 00 9A  | READ THE FILE..|
00000980: 25 0C 08 8B 20 45 4E B2  36 32 20 B0 20 55 45 B2  |%... EN.62 . UE.|
00000990: 31 32 38 20 89 20 31 32  30 30 00 B1 25 16 08 42  |128 . 1200..%..B|
000009A0: 43 B2 4E 42 3A 8F 20 53  41 56 45 20 43 4F 55 4E  |C.NB:. SAVE COUN|
000009B0: 54 00 CB 25 20 08 8D 20  34 31 30 3A 8F 20 57 52  |T..% .. 410:. WR|
000009C0: 49 54 45 20 54 48 45 20  46 4C 45 00 E4 25 2A 08  |ITE THE FLE..%*.|
000009D0: 99 20 43 4C 24 3B 22 57  52 49 54 49 4E 47 20 22  |. CL$;"WRITING "|
000009E0: 3B 4E 4D 24 00 FF 25 34  08 8D 20 37 31 30 3A 8F  |;NM$..%4.. 710:.|
000009F0: 20 57 52 49 54 45 20 54  48 45 20 46 49 4C 45 00  | WRITE THE FILE.|
00000A00: 11 26 3E 08 8B 20 45 4E  B2 30 20 89 20 33 30 31  |.&>.. EN.0 . 301|
00000A10: 30 00 2A 26 48 08 8D 20  35 31 30 3A 8F 20 47 45  |0.*&H.. 510:. GE|
00000A20: 54 20 4E 45 57 20 46 49  4C 45 00 3F 26 52 08 8B  |T NEW FILE.?&R..|
00000A30: 20 4E 4D 24 B3 B1 22 22  20 89 20 32 30 39 30 00  | NM$.."" . 2090.|
00000A40: 5B 26 5C 08 99 20 43 4C  24 3B 22 46 49 4C 45 20  |[&\.. CL$;"FILE |
00000A50: 4E 4F 54 20 43 4F 50 49  45 44 22 00 66 26 66 08  |NOT COPIED".f&f.|
00000A60: 89 20 33 31 30 30 00 86  26 C2 0B 8F 20 44 49 53  |. 3100..&... DIS|
00000A70: 50 4C 41 59 20 43 4F 4D  50 4C 45 54 49 4F 4E 20  |PLAY COMPLETION |
00000A80: 53 54 41 54 55 53 00 91  26 D6 0B 99 20 43 4C 24  |STATUS..&... CL$|
00000A90: 3B 00 A5 26 E0 0B 8B 20  4E 42 B3 B1 42 43 20 89  |;..&... NB..BC .|
00000AA0: 20 33 30 36 30 00 C8 26  EA 0B 99 20 22 43 4F 50  | 3060..&... "COP|
00000AB0: 59 20 53 55 43 43 45 53  53 46 55 4C 2E 20 20 22  |Y SUCCESSFUL.  "|
00000AC0: 3B 3A 89 20 33 30 37 30  00 E9 26 F4 0B 99 20 22  |;:. 3070..&... "|
00000AD0: 45 52 52 4F 52 2E 20 4F  4E 4C 59 20 22 3B 4E 42  |ERROR. ONLY ";NB|
00000AE0: 3B 22 20 4F 55 54 20 22  3B 00 02 27 FE 0B 99 20  |;" OUT ";..'... |
00000AF0: 42 43 3B 22 42 59 54 45  53 20 43 4F 50 49 45 44  |BC;"BYTES COPIED|
00000B00: 2E 22 00 18 27 1C 0C 99  20 22 50 52 45 53 53 20  |."..'... "PRESS |
00000B10: 22 3B C7 28 31 38 29 3B  00 2F 27 26 0C 99 20 22  |";.(18);./'&.. "|
00000B20: 52 45 54 55 52 4E 22 3B  C7 28 31 34 36 29 3B 00  |RETURN";.(146);.|
00000B30: 4C 27 30 0C 99 22 20 54  4F 20 43 4F 50 59 20 41  |L'0.." TO COPY A|
00000B40: 4E 4F 54 48 45 52 20 46  49 4C 45 22 00 65 27 3A  |NOTHER FILE".e':|
00000B50: 0C A1 20 44 4D 24 3A 8B  20 44 4D 24 B2 22 22 89  |.. DM$:. DM$."".|
00000B60: 20 33 31 33 30 00 7A 27  44 0C 8B 20 44 4D 24 B2  | 3130.z'D.. DM$.|
00000B70: C7 28 31 33 29 89 31 30  31 30 00 80 27 4E 0C 80  |.(13).1010..'N..|
00000B80: 00 9E 27 AA 0F 8F 20 4E  4F 20 46 49 4C 45 53 20  |..'... NO FILES |
00000B90: 45 52 52 4F 52 20 48 41  4E 44 4C 49 4E 47 00 AF  |ERROR HANDLING..|
00000BA0: 27 BE 0F 99 20 C8 28 50  4C 24 2C 32 31 29 3B 00  |'... .(PL$,21);.|
00000BB0: CD 27 C8 0F 99 20 22 4E  4F 20 46 49 4C 45 53 20  |.'... "NO FILES |
00000BC0: 4F 4E 20 54 48 45 20 44  49 53 4B 2E 22 00 EB 27  |ON THE DISK."..'|
00000BD0: D2 0F 99 20 22 50 52 45  53 53 20 52 45 54 55 52  |... "PRESS RETUR|
00000BE0: 4E 20 54 4F 20 54 52 59  20 22 3B 00 02 28 DC 0F  |N TO TRY ";..(..|
00000BF0: 99 20 22 41 4E 4F 54 48  45 52 20 44 49 53 4B 2E  |. "ANOTHER DISK.|
00000C00: 22 3B 00 1B 28 E6 0F A1  20 44 4D 24 3A 8B 20 44  |";..(... DM$:. D|
00000C10: 4D 24 B2 22 22 89 20 34  30 37 30 00 31 28 F0 0F  |M$."". 4070.1(..|
00000C20: 8B 20 44 4D 24 B2 C7 28  31 33 29 89 20 31 30 31  |. DM$..(13). 101|
00000C30: 30 00 37 28 FA 0F 80 00  56 28 10 27 83 20 37 36  |0.7(....V(.'. 76|
00000C40: 2C 31 35 2C 35 31 2C 37  36 2C 39 39 2C 35 31 2C  |,15,51,76,99,51,|
00000C50: 37 36 2C 31 37 33 00 77  28 1A 27 83 20 35 31 2C  |76,173.w(.'. 51,|
00000C60: 37 36 2C 31 35 39 2C 31  33 32 2C 37 36 2C 36 30  |76,159,132,76,60|
00000C70: 2C 31 32 31 2C 33 32 00  97 28 24 27 83 20 32 30  |,121,32..($'. 20|
00000C80: 33 2C 35 31 2C 33 32 2C  39 2C 35 31 2C 31 35 32  |3,51,32,9,51,152|
00000C90: 2C 31 37 30 2C 33 32 00  BA 28 2E 27 83 20 31 39  |,170,32..(.'. 19|
00000CA0: 38 2C 32 35 35 2C 31 36  38 2C 31 37 36 2C 36 35  |8,255,168,176,65|
00000CB0: 2C 31 36 39 2C 30 2C 31  33 33 00 DE 28 38 27 83  |,169,0,133..(8'.|
00000CC0: 20 32 35 31 2C 31 36 39  2C 38 2C 31 33 33 2C 32  | 251,169,8,133,2|
00000CD0: 35 32 2C 31 36 39 2C 32  35 31 2C 31 34 31 00 FD  |52,169,251,141..|
00000CE0: 28 42 27 83 20 31 38 35  2C 32 2C 31 36 32 2C 31  |(B'. 185,2,162,1|
00000CF0: 2C 31 36 30 2C 30 2C 33  32 2C 32 30 37 00 20 29  |,160,0,32,207. )|
00000D00: 4C 27 83 20 32 35 35 2C  33 32 2C 31 31 39 2C 32  |L'. 255,32,119,2|
00000D10: 35 35 2C 32 33 30 2C 32  35 31 2C 32 30 38 2C 32  |55,230,251,208,2|
00000D20: 00 45 29 56 27 83 20 32  33 30 2C 32 35 32 2C 31  |.E)V'. 230,252,1|
00000D30: 36 35 2C 31 34 34 2C 32  30 38 2C 31 33 2C 31 36  |65,144,208,13,16|
00000D40: 35 2C 32 35 32 00 6A 29  60 27 83 20 32 30 31 2C  |5,252.j)`'. 201,|
00000D50: 32 35 35 2C 31 34 34 2C  32 32 35 2C 33 32 2C 32  |255,144,225,32,2|
00000D60: 30 34 2C 32 35 35 2C 31  36 30 00 8C 29 6A 27 83  |04,255,160..)j'.|
00000D70: 20 30 2C 32 34 30 2C 31  39 2C 31 36 34 2C 31 34  | 0,240,19,164,14|
00000D80: 34 2C 33 32 2C 32 30 34  2C 32 35 35 00 B0 29 74  |4,32,204,255..)t|
00000D90: 27 83 20 31 39 32 2C 36  34 2C 32 30 38 2C 31 30  |'. 192,64,208,10|
00000DA0: 2C 31 36 34 2C 32 35 31  2C 31 36 35 2C 32 35 32  |,164,251,165,252|
00000DB0: 00 D2 29 7E 27 83 20 35  36 2C 32 33 33 2C 32 35  |..)~'. 56,233,25|
00000DC0: 35 2C 37 36 2C 31 32 2C  35 31 2C 31 36 39 2C 32  |5,76,12,51,169,2|
00000DD0: 34 30 00 F0 29 88 27 83  20 37 36 2C 31 32 2C 35  |40..).'. 76,12,5|
00000DE0: 31 2C 33 32 2C 32 30 33  2C 35 31 2C 33 32 2C 39  |1,32,203,51,32,9|
00000DF0: 00 14 2A 92 27 83 20 35  31 2C 31 35 32 2C 31 37  |..*.'. 51,152,17|
00000E00: 30 2C 33 32 2C 32 30 31  2C 32 35 35 2C 31 36 38  |0,32,201,255,168|
00000E10: 2C 31 37 36 00 39 2A 9C  27 83 20 32 33 37 2C 31  |,176.9*.'. 237,1|
00000E20: 36 35 2C 32 35 31 2C 31  34 31 2C 32 30 31 2C 35  |65,251,141,201,5|
00000E30: 31 2C 31 36 35 2C 32 35  32 00 5C 2A A6 27 83 20  |1,165,252.\*.'. |
00000E40: 31 34 31 2C 32 30 32 2C  35 31 2C 31 36 39 2C 30  |141,202,51,169,0|
00000E50: 2C 31 33 33 2C 32 35 31  2C 31 36 39 00 7E 2A B0  |,133,251,169.~*.|
00000E60: 27 83 20 38 2C 31 33 33  2C 32 35 32 2C 31 36 39  |'. 8,133,252,169|
00000E70: 2C 32 35 31 2C 31 36 32  2C 31 2C 31 36 30 00 A0  |,251,162,1,160..|
00000E80: 2A BA 27 83 20 30 2C 33  32 2C 31 31 36 2C 32 35  |*.'. 0,32,116,25|
00000E90: 35 2C 33 32 2C 32 31 30  2C 32 35 35 2C 31 36 34  |5,32,210,255,164|
00000EA0: 00 C3 2A C4 27 83 20 31  34 34 2C 32 30 38 2C 32  |..*.'. 144,208,2|
00000EB0: 30 2C 32 33 30 2C 32 35  31 2C 32 30 38 2C 32 2C  |0,230,251,208,2,|
00000EC0: 32 33 30 00 E8 2A CE 27  83 20 32 35 32 2C 31 36  |230..*.'. 252,16|
00000ED0: 35 2C 32 35 32 2C 32 30  35 2C 32 30 32 2C 35 31  |5,252,205,202,51|
00000EE0: 2C 31 34 34 2C 32 32 37  00 0C 2B D8 27 83 20 31  |,144,227..+.'. 1|
00000EF0: 36 35 2C 32 35 31 2C 32  30 35 2C 32 30 31 2C 35  |65,251,205,201,5|
00000F00: 31 2C 31 34 34 2C 32 32  30 2C 33 32 00 2D 2B E2  |1,144,220,32.-+.|
00000F10: 27 83 20 32 30 34 2C 32  35 35 2C 37 36 2C 38 34  |'. 204,255,76,84|
00000F20: 2C 35 31 2C 33 32 2C 32  30 33 2C 35 31 00 4C 2B  |,51,32,203,51.L+|
00000F30: EC 27 83 20 33 32 2C 39  2C 35 31 2C 31 33 32 2C  |.'. 32,9,51,132,|
00000F40: 32 35 31 2C 32 34 2C 31  30 35 2C 38 00 6C 2B F6  |251,24,105,8.l+.|
00000F50: 27 83 20 31 33 33 2C 32  35 32 2C 31 36 39 2C 32  |'. 133,252,169,2|
00000F60: 35 31 2C 31 36 32 2C 31  2C 31 36 30 00 8C 2B 00  |51,162,1,160..+.|
00000F70: 28 83 20 30 2C 33 32 2C  31 31 36 2C 32 35 35 2C  |(. 0,32,116,255,|
00000F80: 31 36 38 2C 31 36 39 2C  30 2C 37 36 00 A8 2B 0A  |168,169,0,76..+.|
00000F90: 28 83 20 31 32 2C 35 31  2C 30 2C 30 2C 31 36 32  |(. 12,51,0,0,162|
00000FA0: 2C 30 2C 31 34 32 2C 30  00 B5 2B 14 28 83 20 32  |,0,142,0..+.(. 2|
00000FB0: 35 35 2C 39 36 00 00 00  0D 20 20 20 20 20 20 20  |55,96....       |
00000FC0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000FD0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000FE0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000FF0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001000: 20 20 20 20 20 20 20 20  20 31                    |         1      |

.......5,2.'.... SINGLE DRIVE FILE COPY.
.....%.@.#..54,8:.58,8:..P.-.. I.0 . 208
.E.2.. D:.13056.I,D:..{.7.. 4633,0:.4634
,51...<.PL$.G(19)...A..I.1.24:PL$.PL$.G(
17):....F.. I.1.39:CL$.CL$." ":....K.CL$
.CL$.G(13).CL$.G(13)...P.CL$.H(PL$,21).C
L$.G(145).G(145)...U..15,8,15:. OPEN ERR
OR CHAN.*.Z.. 1010.C.N.. READ THE DIRECT
ORY.F....4633,0:. SELECT READ FUNCTION.}
....15,"I":.2,8,2,"$".....NB..(2):. LOAD
 DIR INTO MEM... . 2:.810:. CHECK ERROR.
......U.R.. DISPLAY DISK NAME......4633,
6:. SELECT FETCH CHAR...... H(PL$,3);G(1
8);......K.142.169.*....G(.(K));:..7....
 G(146).=.....\.6.. PRINT DIRECTORY ENTR
Y DE.}.J.. 4633,6:. SELECT FETCH CHAR. .
T.IX.(DE.1).32.254..((DE.1).8).2...Y.. .
(IX).128. ..T.^.TY..(IX).128:. TY.0 . TY
.3.....H..K.IX.3.IX.18...R.. G(.(K));...
|..:..16);",";......J("SPU",TY,1):..6...
. GET DESTINATION DISK.A.... CL$;.A...."
INSERT DESTINATION DISK."..B.."PRESS ";
G(18);"RETURN";...L..G(146);" WHEN READY
."...V.. DM$:.DM$."".470.F.... DM$..G(13
) .470.T....15,"I":....... GET A FILE TO
 COPY.. ... CL$;:. EN.63 . 580.* ... UE.
128 . . NM$;" TOO LARGE.";.J &.. EN.62..
NM$;" NOT FOUND.";.S 0.. "ENTER FILE,TYP
E":NM$."":EN.0:UE.0.. :.. NM$,TY$:... D.
. NM$;" EXISTS. ENTER NEW NAME".. N.EN.0
:NM$."":. NM$:..S B.. READ THE FILE.. V.
. 4633,0:. READ THE FILE..!...2,8,2,NM$.
",".TY$.",R".!!...910:.EN..0. 2:..=!..NB
..(2):. READ THE FILE.Y!.. 2:.810:. CHEC
K RESULTS._!....T!F.. WRITE THE FILE..!Z
.. 4633,3:. SELECT WRITE FUNCTION..!...2
,8,1,NM$.",".TY$.",W".J!...910:.EN..0. 2
:...!..NB..(2):. WRITE THE BYTES..".. 2:
. 810:. CHECK RESULTS.."....*"*.. CHECK 
USR() RETURN VALUE.A">.NB.NB.(NB.0).6553
6.Y"H.. NB.61440 . UE.0:..S"R.. NB.61440
 . UE.128:..~"\.. CL$;.."F.. B(4633).0..
"READ";.."P.. B(4633).3. ."WRITE";.M"Z..
" ERROR #";NB.61440:..."... READ ERROR C
HANNEL.."...15,EN,EM$,ET,ES..#... EN.0.E
N.62.EN.63..."#.. 15:.CL$;.9#J.."DISK ER
ROR #";EN.O#T.. H(PL$,22);EM$:..B#... MA
IN ROUTINE.~#...G(147);:. CLEAR SCREEN..
#..."        SINGLE DRIVE FILE COPY"..#.
..:."READING DIRECTORY"..#$.. 110:. READ
 THE DIRECTORY"..#... 210:. DISPLAY TITL
E..$8.NS..((NB.1).254).)$B.. NS.1.4010:.
 NO FILES.2$L.DX.1.Q$V.. NS..DX.DX.1:. S
TART OVER.A$`.. H(PL$,4);.|$J.BE.(DX.1).
8.1:LE.BE.15..$T.. DX.1.NS.LE.BE.8..$~..
DE.BE . LE..$... 310:.:. DISPLAY FILES.X
$... I.B(235).20:. CLEAR..$... "        
            "..$.....%...510:. GET FILE 
NAME.0%... NM$."".DX.DX.2:. 1110.D%Z.. C
OPY THE FILE.O%... CL$;.D%... "READING "
;NM$.~%... 610:. READ THE FILE..%... EN.
62 . UE.128 . 1200..%..BC.NB:. SAVE COUN
T.K% .. 410:. WRITE THE FLE..%*.. CL$;"W
RITING ";NM$..%4.. 710:. WRITE THE FILE.
.&>.. EN.0 . 3010.*&H.. 510:. GET NEW FI
LE.?&R.. NM$.."" . 2090.[&\.. CL$;"FILE 
NOT COPIED".F&F.. 3100..&B.. DISPLAY COM
PLETION STATUS..&V.. CL$;..&... NB..BC .
 3060.H&... "COPY SUCCESSFUL.  ";:. 3070
..&... "ERROR. ONLY ";NB;" OUT ";..'... 
BC;"BYTES COPIED."..'... "PRESS ";G(18);
./'&.. "RETURN";G(146);.L'0.." TO COPY A
NOTHER FILE".E':.. DM$:. DM$."". 3130.Z'
D.. DM$.G(13).1010..'N....'... NO FILES 
ERROR HANDLING..'... H(PL$,21);.M'H.. "N
O FILES ON THE DISK."..'R.. "PRESS RETUR
N TO TRY ";..(... "ANOTHER DISK.";..(...
 DM$:. DM$."". 4070.1(... DM$.G(13). 101
0.7(....V(.'. 76,15,51,76,99,51,76,173.W
(.'. 51,76,159,132,76,60,121,32..($'. 20
3,51,32,9,51,152,170,32..(.'. 198,255,16
8,176,65,169,0,133..(8'. 251,169,8,133,2
52,169,251,141..(B'. 185,2,162,1,160,0,3
2,207. )L'. 255,32,119,255,230,251,208,2
.E)V'. 230,252,165,144,208,13,165,252.J)
`'. 201,255,144,225,32,204,255,160..)J'.
 0,240,19,164,144,32,204,255..)T'. 192,6
4,208,10,164,251,165,252.R)~'. 56,233,25
5,76,12,51,169,240..).'. 76,12,51,32,203
,51,32,9..*.'. 51,152,170,32,201,255,168
,176.9*.'. 237,165,251,141,201,51,165,25
2.\*.'. 141,202,51,169,0,133,251,169.~*.
'. 8,133,252,169,251,162,1,160. *.'. 0,3
2,116,255,32,210,255,164.C*D'. 144,208,2
0,230,251,208,2,230..*N'. 252,165,252,20
5,202,51,144,227..+X'. 165,251,205,201,5
1,144,220,32.-+.'. 204,255,76,84,51,32,2
03,51.L+.'. 32,9,51,132,251,24,105,8.L+.
'. 133,252,169,251,162,1,160..+.(. 0,32,
116,255,168,169,0,76..+.(. 12,51,0,0,162
,0,142,0..+.(. 255,96....               
                                        
                         1

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL