FILE COPY-S/D 80

00000000: 01 1C 1E 1C 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 25  |RIVE FILE COPY.%|
00000020: 1C 1E 00 FE 25 00 5A 1C  20 00 99 22 93 11 11 11  |....%.Z. .."....|
00000030: 11 1D 1D 1D 49 4E 53 45  52 54 20 53 4F 55 52 43  |....INSERT SOURC|
00000040: 45 20 44 49 53 4B 22 3A  99 22 1D 1D 1D 50 52 45  |E DISK":."...PRE|
00000050: 53 53 20 52 45 54 55 52  4E 22 00 6C 1C 23 00 97  |SS RETURN".l.#..|
00000060: 35 34 2C 38 3A 97 35 38  2C 38 3A 9C 00 7C 1C 2D  |54,8:.58,8:..|.-|
00000070: 00 81 20 49 B2 30 20 A4  20 32 30 38 00 91 1C 32  |.. I.0 . 208...2|
00000080: 00 87 20 44 3A 97 31 33  30 35 36 AA 49 2C 44 3A  |.. D:.13056.I,D:|
00000090: 82 00 9A 1C 33 00 A1 F9  41 24 00 B0 1C 37 00 97  |....3...A$...7..|
000000A0: 20 34 36 33 33 2C 30 3A  97 34 36 33 34 2C 35 31  | 4633,0:.4634,51|
000000B0: 00 BE 1C 3C 00 50 4C 24  B2 C7 28 31 39 29 00 DA  |...<.PL$..(19)..|
000000C0: 1C 41 00 81 49 B2 31 A4  32 34 3A 50 4C 24 B2 50  |.A..I.1.24:PL$.P|
000000D0: 4C 24 AA C7 28 31 37 29  3A 82 00 F5 1C 46 00 81  |L$..(17):....F..|
000000E0: 20 49 B2 31 A4 33 39 3A  43 4C 24 B2 43 4C 24 AA  | I.1.39:CL$.CL$.|
000000F0: 22 20 22 3A 82 00 11 1D  4B 00 43 4C 24 B2 43 4C  |" ":....K.CL$.CL|
00000100: 24 AA C7 28 31 33 29 AA  43 4C 24 AA C7 28 31 33  |$..(13).CL$..(13|
00000110: 29 00 35 1D 50 00 43 4C  24 B2 C8 28 50 4C 24 2C  |).5.P.CL$..(PL$,|
00000120: 32 31 29 AA 43 4C 24 AA  C7 28 31 34 35 29 AA C7  |21).CL$..(145)..|
00000130: 28 31 34 35 29 00 54 1D  55 00 9F 31 35 2C 38 2C  |(145).T.U..15,8,|
00000140: 31 35 3A 8F 20 4F 50 45  4E 20 45 52 52 4F 52 20  |15:. OPEN ERROR |
00000150: 43 48 41 4E 00 5F 1D 5A  00 89 20 31 30 31 30 00  |CHAN._.Z.. 1010.|
00000160: 78 1D 6E 00 8F 20 52 45  41 44 20 54 48 45 20 44  |x.n.. READ THE D|
00000170: 49 52 45 43 54 4F 52 59  00 9B 1D 82 00 97 34 36  |IRECTORY......46|
00000180: 33 33 2C 30 3A 8F 20 53  45 4C 45 43 54 20 52 45  |33,0:. SELECT RE|
00000190: 41 44 20 46 55 4E 43 54  49 4F 4E 00 B2 1D 8C 00  |AD FUNCTION.....|
000001A0: 98 31 35 2C 22 49 22 3A  9F 32 2C 38 2C 32 2C 22  |.15,"I":.2,8,2,"|
000001B0: 24 22 00 D2 1D 96 00 4E  42 B2 B7 28 32 29 3A 8F  |$".....NB..(2):.|
000001C0: 20 4C 4F 41 44 20 44 49  52 20 49 4E 54 4F 20 4D  | LOAD DIR INTO M|
000001D0: 45 4D 00 EC 1D A0 00 A0  32 3A 8D 38 31 30 3A 8F  |EM......2:.810:.|
000001E0: 20 43 48 45 43 4B 20 45  52 52 4F 52 00 F2 1D AA  | CHECK ERROR....|
000001F0: 00 8E 00 0A 1E D2 00 8F  20 44 49 53 50 4C 41 59  |........ DISPLAY|
00000200: 20 44 49 53 4B 20 4E 41  4D 45 00 2A 1E E6 00 97  | DISK NAME.*....|
00000210: 34 36 33 33 2C 36 3A 8F  20 53 45 4C 45 43 54 20  |4633,6:. SELECT |
00000220: 46 45 54 43 48 20 43 48  41 52 00 40 1E F0 00 99  |FETCH CHAR.@....|
00000230: 20 C8 28 50 4C 24 2C 33  29 3B C7 28 31 38 29 3B  | .(PL$,3);.(18);|
00000240: 00 4F 1E FA 00 81 4B B2  31 34 32 A4 31 36 39 00  |.O....K.142.169.|
00000250: 5F 1E 04 01 99 C7 28 B7  28 4B 29 29 3B 3A 82 00  |_.....(.(K));:..|
00000260: 6C 1E 0E 01 99 20 C7 28  31 34 36 29 00 72 1E 18  |l.... .(146).r..|
00000270: 01 8E 00 91 1E 36 01 8F  20 50 52 49 4E 54 20 44  |.....6.. PRINT D|
00000280: 49 52 45 43 54 4F 52 59  20 45 4E 54 52 59 20 44  |IRECTORY ENTRY D|
00000290: 45 00 B2 1E 4A 01 97 20  34 36 33 33 2C 36 3A 8F  |E...J.. 4633,6:.|
000002A0: 20 53 45 4C 45 43 54 20  46 45 54 43 48 20 43 48  | SELECT FETCH CH|
000002B0: 41 52 00 D5 1E 54 01 49  58 B2 28 44 45 AB 31 29  |AR...T.IX.(DE.1)|
000002C0: AC 33 32 AA 32 35 34 AB  B5 28 28 44 45 AB 31 29  |.32.254..((DE.1)|
000002D0: AD 38 29 AC 32 00 E8 1E  59 01 8B 20 B7 28 49 58  |.8).2...Y.. .(IX|
000002E0: 29 B3 31 32 38 A7 20 8E  00 09 1F 5E 01 54 59 B2  |).128. ....^.TY.|
000002F0: B7 28 49 58 29 AB 31 32  38 3A 8B 20 54 59 B2 30  |.(IX).128:. TY.0|
00000300: 20 B0 20 54 59 B1 33 A7  8E 00 1B 1F 68 01 81 4B  | . TY.3.....h..K|
00000310: B2 49 58 AA 33 A4 49 58  AA 31 38 00 2A 1F 72 01  |.IX.3.IX.18.*.r.|
00000320: 99 20 C7 28 B7 28 4B 29  29 3B 00 3B 1F 7C 01 82  |. .(.(K));.;.|..|
00000330: 3A 99 A3 31 36 29 3B 22  2C 22 3B 00 50 1F 86 01  |:..16);",";.P...|
00000340: 99 CA 28 22 53 50 55 22  2C 54 59 2C 31 29 3A 8E  |..("SPU",TY,1):.|
00000350: 00 6B 1F 9A 01 8F 20 47  45 54 20 44 45 53 54 49  |.k.... GET DESTI|
00000360: 4E 41 54 49 4F 4E 20 44  49 53 4B 00 76 1F AE 01  |NATION DISK.v...|
00000370: 99 20 43 4C 24 3B 00 96  1F B8 01 99 22 49 4E 53  |. CL$;......"INS|
00000380: 45 52 54 20 44 45 53 54  49 4E 41 54 49 4F 4E 20  |ERT DESTINATION |
00000390: 44 49 53 4B 2E 22 00 B4  1F C2 01 99 22 50 52 45  |DISK."......"PRE|
000003A0: 53 53 20 22 3B C7 28 31  38 29 3B 22 52 45 54 55  |SS ";.(18);"RETU|
000003B0: 52 4E 22 3B 00 CF 1F CC  01 99 C7 28 31 34 36 29  |RN";.......(146)|
000003C0: 3B 22 20 57 48 45 4E 20  52 45 41 44 59 2E 22 00  |;" WHEN READY.".|
000003D0: E5 1F D6 01 A1 20 44 4D  24 3A 8B 44 4D 24 B2 22  |..... DM$:.DM$."|
000003E0: 22 89 34 37 30 00 FB 1F  E0 01 8B 20 44 4D 24 B3  |".470...... DM$.|
000003F0: B1 C7 28 31 33 29 20 89  34 37 30 00 09 20 EA 01  |..(13) .470.. ..|
00000400: 98 31 35 2C 22 49 22 3A  8E 00 22 20 FE 01 8F 20  |.15,"I":.." ... |
00000410: 47 45 54 20 41 20 46 49  4C 45 20 54 4F 20 43 4F  |GET A FILE TO CO|
00000420: 50 59 00 3B 20 12 02 99  20 43 4C 24 3B 3A 8B 20  |PY.; ... CL$;:. |
00000430: 45 4E B2 36 33 20 89 20  35 38 30 00 5F 20 1C 02  |EN.63 . 580._ ..|
00000440: 8B 20 55 45 B2 31 32 38  20 A7 20 99 20 4E 4D 24  |. UE.128 . . NM$|
00000450: 3B 22 20 54 4F 4F 20 4C  41 52 47 45 2E 22 3B 00  |;" TOO LARGE.";.|
00000460: 7F 20 26 02 8B 20 45 4E  B2 36 32 A7 99 4E 4D 24  |. &.. EN.62..NM$|
00000470: 3B 22 20 4E 4F 54 20 46  4F 55 4E 44 2E 22 3B 00  |;" NOT FOUND.";.|
00000480: C0 20 30 02 99 22 50 52  45 53 53 20 52 45 54 55  |. 0.."PRESS RETU|
00000490: 52 4E 20 46 4F 52 20 4D  4F 52 45 20 2D 4F 52 2D  |RN FOR MORE -OR-|
000004A0: 22 3A 99 22 50 4F 53 49  54 49 4F 4E 20 43 55 52  |":."POSITION CUR|
000004B0: 53 4F 52 20 54 4F 20 46  49 4C 45 4E 41 4D 45 22  |SOR TO FILENAME"|
000004C0: 00 EA 20 32 02 99 22 54  48 45 4E 20 50 52 45 53  |.. 2.."THEN PRES|
000004D0: 53 20 52 45 54 55 52 4E  22 3A 4E 4D 24 B2 22 22  |S RETURN":NM$.""|
000004E0: 3A 45 4E B2 30 3A 56 45  B2 30 00 0A 21 3A 02 85  |:EN.0:VE.0..!:..|
000004F0: 20 4E 4D 24 2C 54 59 24  3A 99 43 4C 24 3B C7 28  | NM$,TY$:.CL$;.(|
00000500: 32 37 29 3B 22 40 22 3B  3A 8E 00 2E 21 44 02 99  |27);"@";:...!D..|
00000510: 20 4E 4D 24 3B 22 20 45  58 49 53 54 53 2E 20 45  | NM$;" EXISTS. E|
00000520: 4E 54 45 52 20 4E 45 57  20 4E 41 4D 45 22 00 46  |NTER NEW NAME".F|
00000530: 21 4E 02 45 4E B2 30 3A  4E 4D 24 B2 22 22 3A 85  |!N.EN.0:NM$."":.|
00000540: 20 4E 4D 24 3A 8E 00 5A  21 62 02 8F 20 52 45 41  | NM$:..Z!b.. REA|
00000550: 44 20 54 48 45 20 46 49  4C 45 00 77 21 76 02 97  |D THE FILE.w!v..|
00000560: 20 34 36 33 33 2C 30 3A  8F 20 52 45 41 44 20 54  | 4633,0:. READ T|
00000570: 48 45 20 46 49 4C 45 00  93 21 80 02 9F 32 2C 38  |HE FILE..!...2,8|
00000580: 2C 32 2C 4E 4D 24 AA 22  2C 22 AA 54 59 24 AA 22  |,2,NM$.",".TY$."|
00000590: 2C 52 22 00 A8 21 8A 02  8D 39 31 30 3A 8B 45 4E  |,R"..!...910:.EN|
000005A0: B3 B1 30 A7 A0 32 3A 8E  00 C4 21 94 02 4E 42 B2  |..0..2:...!..NB.|
000005B0: B7 28 32 29 3A 8F 20 52  45 41 44 20 54 48 45 20  |.(2):. READ THE |
000005C0: 46 49 4C 45 00 E0 21 9E  02 A0 32 3A 8D 38 31 30  |FILE..!...2:.810|
000005D0: 3A 8F 20 43 48 45 43 4B  20 52 45 53 55 4C 54 53  |:. CHECK RESULTS|
000005E0: 00 E6 21 A8 02 8E 00 FB  21 C6 02 8F 20 57 52 49  |..!.....!... WRI|
000005F0: 54 45 20 54 48 45 20 46  49 4C 45 00 20 22 DA 02  |TE THE FILE. "..|
00000600: 97 20 34 36 33 33 2C 33  3A 8F 20 53 45 4C 45 43  |. 4633,3:. SELEC|
00000610: 54 20 57 52 49 54 45 20  46 55 4E 43 54 49 4F 4E  |T WRITE FUNCTION|
00000620: 00 3C 22 E4 02 9F 32 2C  38 2C 32 2C 4E 4D 24 AA  |.<"...2,8,2,NM$.|
00000630: 22 2C 22 AA 54 59 24 AA  22 2C 57 22 00 51 22 EE  |",".TY$.",W".Q".|
00000640: 02 8D 39 31 30 3A 8B 45  4E B3 B1 30 A7 A0 32 3A  |..910:.EN..0..2:|
00000650: 8E 00 6F 22 F8 02 4E 42  B2 B7 28 32 29 3A 8F 20  |..o"..NB..(2):. |
00000660: 57 52 49 54 45 20 54 48  45 20 42 59 54 45 53 00  |WRITE THE BYTES.|
00000670: 8C 22 02 03 A0 32 3A 8D  20 38 31 30 3A 8F 20 43  |."...2:. 810:. C|
00000680: 48 45 43 4B 20 52 45 53  55 4C 54 53 00 92 22 0C  |HECK RESULTS..".|
00000690: 03 8E 00 B1 22 2A 03 8F  20 43 48 45 43 4B 20 55  |...."*.. CHECK U|
000006A0: 53 52 28 29 20 52 45 54  55 52 4E 20 56 41 4C 55  |SR() RETURN VALU|
000006B0: 45 00 C8 22 3E 03 4E 42  B2 4E 42 AB 28 4E 42 B3  |E..">.NB.NB.(NB.|
000006C0: 30 29 AC 36 35 35 33 36  00 E0 22 48 03 8B 20 4E  |0).65536.."H.. N|
000006D0: 42 B3 36 31 34 34 30 20  A7 20 55 45 B2 30 3A 8E  |B.61440 . UE.0:.|
000006E0: 00 FA 22 52 03 8B 20 4E  42 B2 36 31 34 34 30 20  |.."R.. NB.61440 |
000006F0: A7 20 55 45 B2 31 32 38  3A 8E 00 05 23 5C 03 99  |. UE.128:...#\..|
00000700: 20 43 4C 24 3B 00 1E 23  66 03 8B 20 C2 28 34 36  | CL$;..#f.. .(46|
00000710: 33 33 29 B2 30 A7 99 22  52 45 41 44 22 3B 00 39  |33).0.."READ";.9|
00000720: 23 70 03 8B 20 C2 28 34  36 33 33 29 B2 33 A7 20  |#p.. .(4633).3. |
00000730: 99 22 57 52 49 54 45 22  3B 00 54 23 7A 03 99 22  |."WRITE";.T#z.."|
00000740: 20 45 52 52 4F 52 20 23  22 3B 4E 42 AB 36 31 34  | ERROR #";NB.614|
00000750: 34 30 3A 80 00 6D 23 8E  03 8F 20 52 45 41 44 20  |40:..m#... READ |
00000760: 45 52 52 4F 52 20 43 48  41 4E 4E 45 4C 00 82 23  |ERROR CHANNEL..#|
00000770: AC 03 84 31 35 2C 45 4E  2C 45 4D 24 2C 45 54 2C  |...15,EN,EM$,ET,|
00000780: 45 53 00 9B 23 B6 03 8B  20 45 4E B2 30 B0 45 4E  |ES..#... EN.0.EN|
00000790: B2 36 32 B0 45 4E B2 36  33 A7 8E 00 A9 23 C0 03  |.62.EN.63....#..|
000007A0: A0 31 35 3A 99 43 4C 24  3B 00 C0 23 CA 03 99 22  |.15:.CL$;..#..."|
000007B0: 44 49 53 4B 20 45 52 52  4F 52 20 23 22 3B 45 4E  |DISK ERROR #";EN|
000007C0: 00 D6 23 D4 03 99 20 C8  28 50 4C 24 2C 32 32 29  |..#... .(PL$,22)|
000007D0: 3B 45 4D 24 3A 80 00 E9  23 F2 03 8F 20 4D 41 49  |;EM$:...#... MAI|
000007E0: 4E 20 52 4F 55 54 49 4E  45 00 05 24 06 04 99 C7  |N ROUTINE..$....|
000007F0: 28 31 34 37 29 3B 3A 8F  20 43 4C 45 41 52 20 53  |(147);:. CLEAR S|
00000800: 43 52 45 45 4E 00 2B 24  10 04 99 22 20 20 20 20  |CREEN.+$..."    |
00000810: 20 20 20 20 53 49 4E 47  4C 45 20 44 52 49 56 45  |    SINGLE DRIVE|
00000820: 20 46 49 4C 45 20 43 4F  50 59 22 00 46 24 1A 04  | FILE COPY".F$..|
00000830: 99 3A 99 22 52 45 41 44  49 4E 47 20 44 49 52 45  |.:."READING DIRE|
00000840: 43 54 4F 52 59 22 00 66  24 24 04 8D 20 31 31 30  |CTORY".f$$.. 110|
00000850: 3A 8F 20 52 45 41 44 20  54 48 45 20 44 49 52 45  |:. READ THE DIRE|
00000860: 43 54 4F 52 59 22 00 80  24 2E 04 8D 20 32 31 30  |CTORY"..$... 210|
00000870: 3A 8F 20 44 49 53 50 4C  41 59 20 54 49 54 4C 45  |:. DISPLAY TITLE|
00000880: 00 95 24 38 04 4E 53 B2  B5 28 28 4E 42 AA 31 29  |..$8.NS..((NB.1)|
00000890: AD 32 35 34 29 00 B0 24  42 04 8B 20 4E 53 B2 31  |.254)..$B.. NS.1|
000008A0: 89 34 30 31 30 3A 8F 20  4E 4F 20 46 49 4C 45 53  |.4010:. NO FILES|
000008B0: 00 B9 24 4C 04 44 58 B2  31 00 D8 24 56 04 8B 20  |..$L.DX.1..$V.. |
000008C0: 4E 53 B3 B2 44 58 A7 44  58 B2 31 3A 8F 20 53 54  |NS..DX.DX.1:. ST|
000008D0: 41 52 54 20 4F 56 45 52  00 E8 24 60 04 99 20 C8  |ART OVER..$`.. .|
000008E0: 28 50 4C 24 2C 34 29 3B  00 03 25 6A 04 42 45 B2  |(PL$,4);..%j.BE.|
000008F0: 28 44 58 AB 31 29 AC 38  AA 31 3A 4C 45 B2 42 45  |(DX.1).8.1:LE.BE|
00000900: AA 31 35 00 19 25 74 04  8B 20 44 58 AA 31 B2 4E  |.15..%t.. DX.1.N|
00000910: 53 A7 4C 45 B2 42 45 AA  38 00 29 25 7E 04 81 44  |S.LE.BE.8.)%~..D|
00000920: 45 B2 42 45 20 A4 20 4C  45 00 45 25 88 04 8D 20  |E.BE . LE.E%... |
00000930: 33 31 30 3A 82 3A 8F 20  44 49 53 50 4C 41 59 20  |310:.:. DISPLAY |
00000940: 46 49 4C 45 53 00 5F 25  92 04 81 20 49 B2 C2 28  |FILES._%... I..(|
00000950: 32 33 35 29 A4 32 30 3A  8F 20 43 4C 45 41 52 00  |235).20:. CLEAR.|
00000960: 7C 25 9C 04 99 20 22 20  20 20 20 20 20 20 20 20  ||%... "         |
00000970: 20 20 20 20 20 20 20 20  20 20 20 22 00 82 25 A6  |           "..%.|
00000980: 04 82 00 9B 25 B0 04 8D  35 31 30 3A 8F 20 47 45  |....%...510:. GE|
00000990: 54 20 46 49 4C 45 20 4E  41 4D 45 00 B7 25 BA 04  |T FILE NAME..%..|
000009A0: 8B 20 4E 4D 24 B2 22 22  A7 44 58 B2 44 58 AA 32  |. NM$."".DX.DX.2|
000009B0: 3A 89 20 31 31 31 30 00  CB 25 DA 07 8F 20 43 4F  |:. 1110..%... CO|
000009C0: 50 59 20 54 48 45 20 46  49 4C 45 00 D6 25 EE 07  |PY THE FILE..%..|
000009D0: 99 20 43 4C 24 3B 00 EB  25 F8 07 99 20 22 52 45  |. CL$;..%... "RE|
000009E0: 41 44 49 4E 47 20 22 3B  4E 4D 24 00 05 26 02 08  |ADING ";NM$..&..|
000009F0: 8D 20 36 31 30 3A 8F 20  52 45 41 44 20 54 48 45  |. 610:. READ THE|
00000A00: 20 46 49 4C 45 00 21 26  0C 08 8B 20 45 4E B2 36  | FILE.!&... EN.6|
00000A10: 32 20 B0 20 55 45 B2 31  32 38 20 89 20 31 32 30  |2 . UE.128 . 120|
00000A20: 30 00 38 26 16 08 42 43  B2 4E 42 3A 8F 20 53 41  |0.8&..BC.NB:. SA|
00000A30: 56 45 20 43 4F 55 4E 54  00 52 26 20 08 8D 20 34  |VE COUNT.R& .. 4|
00000A40: 31 30 3A 8F 20 57 52 49  54 45 20 54 48 45 20 46  |10:. WRITE THE F|
00000A50: 4C 45 00 6B 26 2A 08 99  20 43 4C 24 3B 22 57 52  |LE.k&*.. CL$;"WR|
00000A60: 49 54 49 4E 47 20 22 3B  4E 4D 24 00 86 26 34 08  |ITING ";NM$..&4.|
00000A70: 8D 20 37 31 30 3A 8F 20  57 52 49 54 45 20 54 48  |. 710:. WRITE TH|
00000A80: 45 20 46 49 4C 45 00 98  26 3E 08 8B 20 45 4E B2  |E FILE..&>.. EN.|
00000A90: 30 20 89 20 33 30 31 30  00 B1 26 48 08 8D 20 35  |0 . 3010..&H.. 5|
00000AA0: 31 30 3A 8F 20 47 45 54  20 4E 45 57 20 46 49 4C  |10:. GET NEW FIL|
00000AB0: 45 00 C6 26 52 08 8B 20  4E 4D 24 B3 B1 22 22 20  |E..&R.. NM$.."" |
00000AC0: 89 20 32 30 39 30 00 E2  26 5C 08 99 20 43 4C 24  |. 2090..&\.. CL$|
00000AD0: 3B 22 46 49 4C 45 20 4E  4F 54 20 43 4F 50 49 45  |;"FILE NOT COPIE|
00000AE0: 44 22 00 ED 26 66 08 89  20 33 31 30 30 00 0D 27  |D"..&f.. 3100..'|
00000AF0: C2 0B 8F 20 44 49 53 50  4C 41 59 20 43 4F 4D 50  |... DISPLAY COMP|
00000B00: 4C 45 54 49 4F 4E 20 53  54 41 54 55 53 00 18 27  |LETION STATUS..'|
00000B10: D6 0B 99 20 43 4C 24 3B  00 2C 27 E0 0B 8B 20 4E  |... CL$;.,'... N|
00000B20: 42 B3 B1 42 43 20 89 20  33 30 36 30 00 4F 27 EA  |B..BC . 3060.O'.|
00000B30: 0B 99 20 22 43 4F 50 59  20 53 55 43 43 45 53 53  |.. "COPY SUCCESS|
00000B40: 46 55 4C 2E 20 20 22 3B  3A 89 20 33 30 37 30 00  |FUL.  ";:. 3070.|
00000B50: 70 27 F4 0B 99 20 22 45  52 52 4F 52 2E 20 4F 4E  |p'... "ERROR. ON|
00000B60: 4C 59 20 22 3B 4E 42 3B  22 20 4F 55 54 20 22 3B  |LY ";NB;" OUT ";|
00000B70: 00 89 27 FE 0B 99 20 42  43 3B 22 42 59 54 45 53  |..'... BC;"BYTES|
00000B80: 20 43 4F 50 49 45 44 2E  22 00 A9 27 1C 0C 99 22  | COPIED."..'..."|
00000B90: 49 4E 53 45 52 54 20 53  4F 55 52 43 45 20 44 49  |INSERT SOURCE DI|
00000BA0: 53 4B 2C 20 54 48 45 4E  22 00 BF 27 21 0C 99 20  |SK, THEN"..'!.. |
00000BB0: 22 50 52 45 53 53 20 22  3B C7 28 31 38 29 3B 00  |"PRESS ";.(18);.|
00000BC0: D6 27 26 0C 99 20 22 52  45 54 55 52 4E 22 3B C7  |.'&.. "RETURN";.|
00000BD0: 28 31 34 36 29 3B 00 F3  27 30 0C 99 22 20 54 4F  |(146);..'0.." TO|
00000BE0: 20 43 4F 50 59 20 41 4E  4F 54 48 45 52 20 46 49  | COPY ANOTHER FI|
00000BF0: 4C 45 22 00 0C 28 3A 0C  A1 20 44 4D 24 3A 8B 20  |LE"..(:.. DM$:. |
00000C00: 44 4D 24 B2 22 22 89 20  33 31 33 30 00 21 28 44  |DM$."". 3130.!(D|
00000C10: 0C 8B 20 44 4D 24 B2 C7  28 31 33 29 89 31 30 31  |.. DM$..(13).101|
00000C20: 30 00 27 28 4E 0C 80 00  45 28 AA 0F 8F 20 4E 4F  |0.'(N...E(... NO|
00000C30: 20 46 49 4C 45 53 20 45  52 52 4F 52 20 48 41 4E  | FILES ERROR HAN|
00000C40: 44 4C 49 4E 47 00 56 28  BE 0F 99 20 C8 28 50 4C  |DLING.V(... .(PL|
00000C50: 24 2C 32 31 29 3B 00 74  28 C8 0F 99 20 22 4E 4F  |$,21);.t(... "NO|
00000C60: 20 46 49 4C 45 53 20 4F  4E 20 54 48 45 20 44 49  | FILES ON THE DI|
00000C70: 53 4B 2E 22 00 92 28 D2  0F 99 20 22 50 52 45 53  |SK."..(... "PRES|
00000C80: 53 20 52 45 54 55 52 4E  20 54 4F 20 54 52 59 20  |S RETURN TO TRY |
00000C90: 22 3B 00 A9 28 DC 0F 99  20 22 41 4E 4F 54 48 45  |";..(... "ANOTHE|
00000CA0: 52 20 44 49 53 4B 2E 22  3B 00 C2 28 E6 0F A1 20  |R DISK.";..(... |
00000CB0: 44 4D 24 3A 8B 20 44 4D  24 B2 22 22 89 20 34 30  |DM$:. DM$."". 40|
00000CC0: 37 30 00 D8 28 F0 0F 8B  20 44 4D 24 B2 C7 28 31  |70..(... DM$..(1|
00000CD0: 33 29 89 20 31 30 31 30  00 DE 28 FA 0F 80 00 FD  |3). 1010..(.....|
00000CE0: 28 10 27 83 20 37 36 2C  31 35 2C 35 31 2C 37 36  |(.'. 76,15,51,76|
00000CF0: 2C 39 39 2C 35 31 2C 37  36 2C 31 37 33 00 1E 29  |,99,51,76,173..)|
00000D00: 1A 27 83 20 35 31 2C 37  36 2C 31 35 39 2C 31 33  |.'. 51,76,159,13|
00000D10: 32 2C 37 36 2C 36 30 2C  31 32 31 2C 33 32 00 3E  |2,76,60,121,32.>|
00000D20: 29 24 27 83 20 32 30 33  2C 35 31 2C 33 32 2C 39  |)$'. 203,51,32,9|
00000D30: 2C 35 31 2C 31 35 32 2C  31 37 30 2C 33 32 00 61  |,51,152,170,32.a|
00000D40: 29 2E 27 83 20 31 39 38  2C 32 35 35 2C 31 36 38  |).'. 198,255,168|
00000D50: 2C 31 37 36 2C 36 35 2C  31 36 39 2C 30 2C 31 33  |,176,65,169,0,13|
00000D60: 33 00 85 29 38 27 83 20  32 35 31 2C 31 36 39 2C  |3..)8'. 251,169,|
00000D70: 38 2C 31 33 33 2C 32 35  32 2C 31 36 39 2C 32 35  |8,133,252,169,25|
00000D80: 31 2C 31 34 31 00 A4 29  42 27 83 20 31 38 35 2C  |1,141..)B'. 185,|
00000D90: 32 2C 31 36 32 2C 31 2C  31 36 30 2C 30 2C 33 32  |2,162,1,160,0,32|
00000DA0: 2C 32 30 37 00 C7 29 4C  27 83 20 32 35 35 2C 33  |,207..)L'. 255,3|
00000DB0: 32 2C 31 31 39 2C 32 35  35 2C 32 33 30 2C 32 35  |2,119,255,230,25|
00000DC0: 31 2C 32 30 38 2C 32 00  EC 29 56 27 83 20 32 33  |1,208,2..)V'. 23|
00000DD0: 30 2C 32 35 32 2C 31 36  35 2C 31 34 34 2C 32 30  |0,252,165,144,20|
00000DE0: 38 2C 31 33 2C 31 36 35  2C 32 35 32 00 11 2A 60  |8,13,165,252..*`|
00000DF0: 27 83 20 32 30 31 2C 32  35 35 2C 31 34 34 2C 32  |'. 201,255,144,2|
00000E00: 32 35 2C 33 32 2C 32 30  34 2C 32 35 35 2C 31 36  |25,32,204,255,16|
00000E10: 30 00 33 2A 6A 27 83 20  30 2C 32 34 30 2C 31 39  |0.3*j'. 0,240,19|
00000E20: 2C 31 36 34 2C 31 34 34  2C 33 32 2C 32 30 34 2C  |,164,144,32,204,|
00000E30: 32 35 35 00 57 2A 74 27  83 20 31 39 32 2C 36 34  |255.W*t'. 192,64|
00000E40: 2C 32 30 38 2C 31 30 2C  31 36 34 2C 32 35 31 2C  |,208,10,164,251,|
00000E50: 31 36 35 2C 32 35 32 00  79 2A 7E 27 83 20 35 36  |165,252.y*~'. 56|
00000E60: 2C 32 33 33 2C 32 35 35  2C 37 36 2C 31 32 2C 35  |,233,255,76,12,5|
00000E70: 31 2C 31 36 39 2C 32 34  30 00 97 2A 88 27 83 20  |1,169,240..*.'. |
00000E80: 37 36 2C 31 32 2C 35 31  2C 33 32 2C 32 30 33 2C  |76,12,51,32,203,|
00000E90: 35 31 2C 33 32 2C 39 00  BB 2A 92 27 83 20 35 31  |51,32,9..*.'. 51|
00000EA0: 2C 31 35 32 2C 31 37 30  2C 33 32 2C 32 30 31 2C  |,152,170,32,201,|
00000EB0: 32 35 35 2C 31 36 38 2C  31 37 36 00 E0 2A 9C 27  |255,168,176..*.'|
00000EC0: 83 20 32 33 37 2C 31 36  35 2C 32 35 31 2C 31 34  |. 237,165,251,14|
00000ED0: 31 2C 32 30 31 2C 35 31  2C 31 36 35 2C 32 35 32  |1,201,51,165,252|
00000EE0: 00 03 2B A6 27 83 20 31  34 31 2C 32 30 32 2C 35  |..+.'. 141,202,5|
00000EF0: 31 2C 31 36 39 2C 30 2C  31 33 33 2C 32 35 31 2C  |1,169,0,133,251,|
00000F00: 31 36 39 00 25 2B B0 27  83 20 38 2C 31 33 33 2C  |169.%+.'. 8,133,|
00000F10: 32 35 32 2C 31 36 39 2C  32 35 31 2C 31 36 32 2C  |252,169,251,162,|
00000F20: 31 2C 31 36 30 00 47 2B  BA 27 83 20 30 2C 33 32  |1,160.G+.'. 0,32|
00000F30: 2C 31 31 36 2C 32 35 35  2C 33 32 2C 32 31 30 2C  |,116,255,32,210,|
00000F40: 32 35 35 2C 31 36 34 00  6A 2B C4 27 83 20 31 34  |255,164.j+.'. 14|
00000F50: 34 2C 32 30 38 2C 32 30  2C 32 33 30 2C 32 35 31  |4,208,20,230,251|
00000F60: 2C 32 30 38 2C 32 2C 32  33 30 00 8F 2B CE 27 83  |,208,2,230..+.'.|
00000F70: 20 32 35 32 2C 31 36 35  2C 32 35 32 2C 32 30 35  | 252,165,252,205|
00000F80: 2C 32 30 32 2C 35 31 2C  31 34 34 2C 32 32 37 00  |,202,51,144,227.|
00000F90: B3 2B D8 27 83 20 31 36  35 2C 32 35 31 2C 32 30  |.+.'. 165,251,20|
00000FA0: 35 2C 32 30 31 2C 35 31  2C 31 34 34 2C 32 32 30  |5,201,51,144,220|
00000FB0: 2C 33 32 00 D4 2B E2 27  83 20 32 30 34 2C 32 35  |,32..+.'. 204,25|
00000FC0: 35 2C 37 36 2C 38 34 2C  35 31 2C 33 32 2C 32 30  |5,76,84,51,32,20|
00000FD0: 33 2C 35 31 00 F3 2B EC  27 83 20 33 32 2C 39 2C  |3,51..+.'. 32,9,|
00000FE0: 35 31 2C 31 33 32 2C 32  35 31 2C 32 34 2C 31 30  |51,132,251,24,10|
00000FF0: 35 2C 38 00 13 2C F6 27  83 20 31 33 33 2C 32 35  |5,8..,.'. 133,25|
00001000: 32 2C 31 36 39 2C 32 35  31 2C 31 36 32 2C 31 2C  |2,169,251,162,1,|
00001010: 31 36 30 00 33 2C 00 28  83 20 30 2C 33 32 2C 31  |160.3,.(. 0,32,1|
00001020: 31 36 2C 32 35 35 2C 31  36 38 2C 31 36 39 2C 30  |16,255,168,169,0|
00001030: 2C 37 36 00 4F 2C 0A 28  83 20 31 32 2C 35 31 2C  |,76.O,.(. 12,51,|
00001040: 30 2C 30 2C 31 36 32 2C  30 2C 31 34 32 2C 30 00  |0,0,162,0,142,0.|
00001050: 5C 2C 14 28 83 20 32 35  35 2C 39 36 00 00 00 0D  |\,.(. 255,96....|
00001060: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001070: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001080: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001090: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000010A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |

....... SINGLE DRIVE FILE COPY.%....%.Z.
 .."........INSERT SOURCE DISK":."...PRE
SS RETURN".L.#..54,8:.58,8:..|.-.. I.0 .
 208...2.. D:.13056.I,D:....3...A$...7..
 4633,0:.4634,51...<.PL$.G(19).Z.A..I.1.
24:PL$.PL$.G(17):....F.. I.1.39:CL$.CL$.
" ":....K.CL$.CL$.G(13).CL$.G(13).5.P.CL
$.H(PL$,21).CL$.G(145).G(145).T.U..15,8,
15:. OPEN ERROR CHAN._.Z.. 1010.X.N.. RE
AD THE DIRECTORY......4633,0:. SELECT RE
AD FUNCTION......15,"I":.2,8,2,"$".R...N
B..(2):. LOAD DIR INTO MEM... . 2:.810:.
 CHECK ERROR.........R.. DISPLAY DISK NA
ME.*....4633,6:. SELECT FETCH CHAR.@....
 H(PL$,3);G(18);.O....K.142.169._....G(.
(K));:..L.... G(146).R.......6.. PRINT D
IRECTORY ENTRY DE...J.. 4633,6:. SELECT 
FETCH CHAR.U.T.IX.(DE.1).32.254..((DE.1)
.8).2...Y.. .(IX).128. ....^.TY..(IX).12
8:. TY.0 . TY.3.....H..K.IX.3.IX.18.*.R.
. G(.(K));.;.|..:..16);",";.P....J("SPU"
,TY,1):..K.... GET DESTINATION DISK.V...
. CL$;......"INSERT DESTINATION DISK."..
.B.."PRESS ";G(18);"RETURN";.O.L..G(146)
;" WHEN READY."...V.. DM$:.DM$."".470...
... DM$..G(13) .470.. ...15,"I":.." ... 
GET A FILE TO COPY.; ... CL$;:. EN.63 . 
580._ ... UE.128 . . NM$;" TOO LARGE.";.
 &.. EN.62..NM$;" NOT FOUND.";.. 0.."PR
ESS RETURN FOR MORE -OR-":."POSITION CUR
SOR TO FILENAME".. 2.."THEN PRESS RETURN
":NM$."":EN.0:VE.0..!:.. NM$,TY$:.CL$;G(
27);"@";:...!D.. NM$;" EXISTS. ENTER NEW
 NAME".F!N.EN.0:NM$."":. NM$:..Z!B.. REA
D THE FILE.W!V.. 4633,0:. READ THE FILE.
.!...2,8,2,NM$.",".TY$.",R"..!...910:.EN
..0. 2:..D!..NB..(2):. READ THE FILE..!.
. 2:.810:. CHECK RESULTS..!.....!F.. WRI
TE THE FILE. "Z.. 4633,3:. SELECT WRITE 
FUNCTION.<"...2,8,2,NM$.",".TY$.",W".Q".
..910:.EN..0. 2:..O"..NB..(2):. WRITE TH
E BYTES..".. 2:. 810:. CHECK RESULTS..".
...."*.. CHECK USR() RETURN VALUE.H">.NB
.NB.(NB.0).65536.."H.. NB.61440 . UE.0:.
.."R.. NB.61440 . UE.128:...#\.. CL$;..#
F.. B(4633).0.."READ";.9#P.. B(4633).3. 
."WRITE";.T#Z.." ERROR #";NB.61440:..M#.
.. READ ERROR CHANNEL..#...15,EN,EM$,ET,
ES..#... EN.0.EN.62.EN.63....#.. 15:.CL$
;..#J.."DISK ERROR #";EN.V#T.. H(PL$,22)
;EM$:...#... MAIN ROUTINE..$...G(147);:.
 CLEAR SCREEN.+$..."        SINGLE DRIVE
 FILE COPY".F$...:."READING DIRECTORY".F
$$.. 110:. READ THE DIRECTORY"..$... 210
:. DISPLAY TITLE..$8.NS..((NB.1).254)..$
B.. NS.1.4010:. NO FILES..$L.DX.1.X$V.. 
NS..DX.DX.1:. START OVER..$`.. H(PL$,4);
..%J.BE.(DX.1).8.1:LE.BE.15..%T.. DX.1.N
S.LE.BE.8.)%~..DE.BE . LE.E%... 310:.:. 
DISPLAY FILES._%... I.B(235).20:. CLEAR.
|%... "                    "..%.....%...
510:. GET FILE NAME..%... NM$."".DX.DX.2
:. 1110.K%Z.. COPY THE FILE.V%... CL$;..
%... "READING ";NM$..&... 610:. READ THE
 FILE.!&... EN.62 . UE.128 . 1200.8&..BC
.NB:. SAVE COUNT.R& .. 410:. WRITE THE F
LE.K&*.. CL$;"WRITING ";NM$..&4.. 710:. 
WRITE THE FILE..&>.. EN.0 . 3010..&H.. 5
10:. GET NEW FILE.F&R.. NM$.."" . 2090..
&\.. CL$;"FILE NOT COPIED"..&F.. 3100..'
B.. DISPLAY COMPLETION STATUS..'V.. CL$;
.,'... NB..BC . 3060.O'... "COPY SUCCESS
FUL.  ";:. 3070.P'... "ERROR. ONLY ";NB;
" OUT ";..'... BC;"BYTES COPIED."..'..."
INSERT SOURCE DISK, THEN"..'!.. "PRESS "
;G(18);.V'&.. "RETURN";G(146);..'0.." TO
 COPY ANOTHER FILE"..(:.. DM$:. DM$."". 
3130.!(D.. DM$.G(13).1010.'(N...E(... NO
 FILES ERROR HANDLING.V(... H(PL$,21);.T
(H.. "NO FILES ON THE DISK."..(R.. "PRES
S RETURN TO TRY ";..(... "ANOTHER DISK."
;.B(... DM$:. DM$."". 4070.X(... DM$.G(1
3). 1010..(.....(.'. 76,15,51,76,99,51,7
6,173..).'. 51,76,159,132,76,60,121,32.>
)$'. 203,51,32,9,51,152,170,32.A).'. 198
,255,168,176,65,169,0,133..)8'. 251,169,
8,133,252,169,251,141..)B'. 185,2,162,1,
160,0,32,207.G)L'. 255,32,119,255,230,25
1,208,2..)V'. 230,252,165,144,208,13,165
,252..*`'. 201,255,144,225,32,204,255,16
0.3*J'. 0,240,19,164,144,32,204,255.W*T'
. 192,64,208,10,164,251,165,252.Y*~'. 56
,233,255,76,12,51,169,240..*.'. 76,12,51
,32,203,51,32,9..*.'. 51,152,170,32,201,
255,168,176..*.'. 237,165,251,141,201,51
,165,252..+.'. 141,202,51,169,0,133,251,
169.%+.'. 8,133,252,169,251,162,1,160.G+
.'. 0,32,116,255,32,210,255,164.J+D'. 14
4,208,20,230,251,208,2,230..+N'. 252,165
,252,205,202,51,144,227..+X'. 165,251,20
5,201,51,144,220,32.T+.'. 204,255,76,84,
51,32,203,51..+.'. 32,9,51,132,251,24,10
5,8..,.'. 133,252,169,251,162,1,160.3,.(
. 0,32,116,255,168,169,0,76.O,.(. 12,51,
0,0,162,0,142,0.\,.(. 255,96....        
                                        
                                

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL