SINGLE FILE COPY

00000000: 01 08 17 08 0A 00 97 35  33 32 38 30 2C 30 3A 97  |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 00  34 08 14 00 8F 20 53 49  |53281,0.4.... SI|
00000020: 4E 47 4C 45 20 44 52 49  56 45 20 46 49 4C 45 20  |NGLE DRIVE FILE |
00000030: 43 4F 50 59 00 3A 08 1E  00 8F 00 4E 08 28 00 97  |COPY.:.....N.(..|
00000040: 35 32 2C 33 31 3A 97 35  36 2C 33 31 3A 9C 00 5C  |52,31:.56,31:..\|
00000050: 08 2D 00 81 20 49 B2 30  A4 31 37 33 00 70 08 32  |.-.. I.0.173.p.2|
00000060: 00 87 20 44 3A 97 37 39  33 36 AA 49 2C 44 3A 82  |.. D:.7936.I,D:.|
00000070: 00 83 08 37 00 97 37 38  35 2C 30 3A 97 37 38 36  |...7..785,0:.786|
00000080: 2C 33 31 00 91 08 3C 00  50 4C 24 B2 C7 28 31 39  |,31...<.PL$..(19|
00000090: 29 00 B0 08 41 00 81 20  49 B2 31 20 A4 20 32 34  |)...A.. I.1 . 24|
000000A0: 3A 50 4C 24 B2 50 4C 24  AA C7 28 31 37 29 3A 82  |:PL$.PL$..(17):.|
000000B0: 00 CC 08 46 00 81 49 B2  31 20 A4 20 33 39 3A 43  |...F..I.1 . 39:C|
000000C0: 4C 24 B2 43 4C 24 AA 22  20 22 3A 82 00 E8 08 4B  |L$.CL$." ":....K|
000000D0: 00 43 4C 24 B2 43 4C 24  AA C7 28 31 33 29 AA 43  |.CL$.CL$..(13).C|
000000E0: 4C 24 AA C7 28 31 33 29  00 0C 09 50 00 43 4C 24  |L$..(13)...P.CL$|
000000F0: B2 C8 28 50 4C 24 2C 32  31 29 AA 43 4C 24 AA C7  |..(PL$,21).CL$..|
00000100: 28 31 34 35 29 AA C7 28  31 34 35 29 00 2C 09 55  |(145)..(145).,.U|
00000110: 00 9F 20 31 35 2C 38 2C  31 35 3A 8F 20 4F 50 45  |.. 15,8,15:. OPE|
00000120: 4E 20 45 52 52 4F 52 20  43 48 41 4E 00 37 09 5A  |N ERROR CHAN.7.Z|
00000130: 00 89 20 31 30 30 30 00  3D 09 64 00 8F 00 56 09  |.. 1000.=.d...V.|
00000140: 6E 00 8F 20 52 45 41 44  20 54 48 45 20 44 49 52  |n.. READ THE DIR|
00000150: 45 43 54 4F 52 59 00 5C  09 78 00 8F 00 7E 09 82  |ECTORY.\.x...~..|
00000160: 00 97 37 38 35 2C 30 3A  8F 20 53 45 4C 45 43 54  |..785,0:. SELECT|
00000170: 20 52 45 41 44 20 46 55  4E 43 54 49 4F 4E 00 96  | READ FUNCTION..|
00000180: 09 8C 00 98 31 35 2C 22  49 22 3A 9F 20 32 2C 38  |....15,"I":. 2,8|
00000190: 2C 32 2C 22 24 22 00 B6  09 96 00 4E 42 B2 B7 28  |,2,"$".....NB..(|
000001A0: 32 29 3A 8F 20 4C 4F 41  44 20 44 49 52 20 49 4E  |2):. LOAD DIR IN|
000001B0: 54 4F 20 4D 45 4D 00 D2  09 A0 00 A0 20 32 3A 8D  |TO MEM...... 2:.|
000001C0: 20 38 30 30 3A 8F 20 43  48 45 43 4B 20 45 52 52  | 800:. CHECK ERR|
000001D0: 4F 52 00 D8 09 AA 00 8E  00 DE 09 C8 00 8F 00 F6  |OR..............|
000001E0: 09 D2 00 8F 20 44 49 53  50 4C 41 59 20 44 49 53  |.... DISPLAY DIS|
000001F0: 4B 20 4E 41 4D 45 00 FC  09 DC 00 8F 00 1B 0A E6  |K NAME..........|
00000200: 00 97 37 38 35 2C 36 3A  8F 20 53 45 4C 45 43 54  |..785,6:. SELECT|
00000210: 20 46 45 54 43 48 20 43  48 41 52 00 31 0A F0 00  | FETCH CHAR.1...|
00000220: 99 20 C8 28 50 4C 24 2C  33 29 3B C7 28 31 38 29  |. .(PL$,3);.(18)|
00000230: 3B 00 41 0A FA 00 81 20  4B B2 31 34 32 A4 31 36  |;.A.... K.142.16|
00000240: 39 00 51 0A 04 01 99 C7  28 B7 28 4B 29 29 3B 3A  |9.Q.....(.(K));:|
00000250: 82 00 5D 0A 0E 01 99 C7  28 31 34 36 29 00 63 0A  |..].....(146).c.|
00000260: 18 01 8E 00 69 0A 2C 01  8F 00 88 0A 36 01 8F 20  |....i.,.....6.. |
00000270: 50 52 49 4E 54 20 44 49  52 45 43 54 4F 52 59 20  |PRINT DIRECTORY |
00000280: 45 4E 54 52 59 20 44 45  00 8E 0A 40 01 8F 00 AD  |ENTRY DE...@....|
00000290: 0A 4A 01 97 37 38 35 2C  36 3A 8F 20 53 45 4C 45  |.J..785,6:. SELE|
000002A0: 43 54 20 46 45 54 43 48  20 43 48 41 52 00 D0 0A  |CT FETCH CHAR...|
000002B0: 54 01 49 58 B2 28 44 45  AB 31 29 AC 33 32 AA 32  |T.IX.(DE.1).32.2|
000002C0: 35 34 AB B5 28 28 44 45  AB 31 29 AD 38 29 AC 32  |54..((DE.1).8).2|
000002D0: 00 E4 0A 59 01 8B 20 B7  28 49 58 29 B3 31 32 38  |...Y.. .(IX).128|
000002E0: 20 A7 20 8E 00 07 0B 5E  01 54 59 B2 B7 28 49 58  | . ....^.TY..(IX|
000002F0: 29 AB 31 32 38 3A 8B 20  54 59 B2 30 20 B0 20 54  |).128:. TY.0 . T|
00000300: 59 B1 33 20 A7 20 8E 00  1C 0B 68 01 81 20 4B B2  |Y.3 . ....h.. K.|
00000310: 49 58 AA 33 20 A4 20 49  58 AA 31 38 00 2A 0B 72  |IX.3 . IX.18.*.r|
00000320: 01 99 C7 28 B7 28 4B 29  29 3B 00 3B 0B 7C 01 82  |...(.(K));.;.|..|
00000330: 3A 99 A3 31 36 29 3B 22  2C 22 3B 00 50 0B 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 56 0B 90 01 8F 00 71  0B 9A 01 8F 20 47 45 54  |.V.....q.... GET|
00000360: 20 44 45 53 54 49 4E 41  54 49 4F 4E 20 44 49 53  | DESTINATION DIS|
00000370: 4B 00 77 0B A4 01 8F 00  81 0B AE 01 99 43 4C 24  |K.w..........CL$|
00000380: 3B 00 A3 0B B8 01 99 20  22 49 4E 53 45 52 54 20  |;...... "INSERT |
00000390: 44 45 53 54 49 4E 41 54  49 4F 4E 20 44 49 53 4B  |DESTINATION DISK|
000003A0: 2E 20 22 00 C2 0B C2 01  99 20 22 50 52 45 53 53  |. "...... "PRESS|
000003B0: 20 22 3B C7 28 31 38 29  3B 22 52 45 54 55 52 4E  | ";.(18);"RETURN|
000003C0: 22 3B 00 DF 0B CC 01 99  20 C7 28 31 34 36 29 3B  |";...... .(146);|
000003D0: 22 20 57 48 45 4E 20 52  45 41 44 59 2E 20 22 00  |" WHEN READY. ".|
000003E0: F8 0B D6 01 A1 20 44 4D  24 3A 8B 20 44 4D 24 B2  |..... DM$:. DM$.|
000003F0: 22 22 20 89 20 34 37 30  00 0F 0C E0 01 8B 20 44  |"" . 470...... D|
00000400: 4D 24 B3 B1 C7 28 31 33  29 20 89 20 34 37 30 00  |M$...(13) . 470.|
00000410: 1D 0C EA 01 98 31 35 2C  22 49 22 3A 8E 00 23 0C  |.....15,"I":..#.|
00000420: F4 01 8F 00 3A 0C FE 01  8F 20 47 45 54 20 41 20  |....:.... GET A |
00000430: 46 49 4C 45 20 54 4F 20  64 77 00 40 0C 08 02 8F  |FILE TO dw.@....|
00000440: 00 58 0C 12 02 99 43 4C  24 3B 3A 8B 20 45 4E B2  |.X....CL$;:. EN.|
00000450: 36 33 20 89 20 35 38 30  00 7C 0C 1C 02 8B 20 55  |63 . 580.|.... U|
00000460: 45 B2 31 32 38 20 A7 20  99 20 4E 4D 24 3B 22 20  |E.128 . . NM$;" |
00000470: 54 4F 4F 20 4C 41 52 47  45 2E 22 3B 00 A1 0C 26  |TOO LARGE.";...&|
00000480: 02 8B 20 45 4E B2 36 32  20 A7 20 99 20 4E 4D 24  |.. EN.62 . . NM$|
00000490: 3B 22 20 4E 4F 54 20 46  4F 55 4E 44 2E 20 20 22  |;" NOT FOUND.  "|
000004A0: 3B 00 CA 0C 30 02 99 20  22 45 4E 54 45 52 20 46  |;...0.. "ENTER F|
000004B0: 49 4C 45 2C 54 59 50 45  22 3A 4E 4D 24 B2 22 22  |ILE,TYPE":NM$.""|
000004C0: 3A 45 4E B2 30 3A 55 45  B2 30 00 DA 0C 3A 02 85  |:EN.0:UE.0...:..|
000004D0: 20 4E 4D 24 2C 54 59 24  3A 8E 00 FD 0C 44 02 99  | NM$,TY$:....D..|
000004E0: 4E 4D 24 3B 22 20 45 58  49 53 54 53 2E 20 45 4E  |NM$;" EXISTS. EN|
000004F0: 54 45 52 20 4E 45 57 20  4E 41 4D 45 22 00 15 0D  |TER NEW NAME"...|
00000500: 4E 02 45 4E B2 30 3A 4E  4D 24 B2 22 22 3A 85 20  |N.EN.0:NM$."":. |
00000510: 4E 4D 24 3A 8E 00 1B 0D  58 02 8F 00 2F 0D 62 02  |NM$:....X.../.b.|
00000520: 8F 20 52 45 41 44 20 54  48 45 20 46 49 4C 45 00  |. READ THE FILE.|
00000530: 35 0D 6C 02 8F 00 57 0D  76 02 97 37 38 35 2C 30  |5.l...W.v..785,0|
00000540: 3A 8F 20 53 45 4C 45 43  54 20 52 45 41 44 20 46  |:. SELECT READ F|
00000550: 55 4E 43 54 49 4F 4E 00  73 0D 80 02 9F 32 2C 38  |UNCTION.s....2,8|
00000560: 2C 32 2C 4E 4D 24 AA 22  2C 22 AA 54 59 24 AA 22  |,2,NM$.",".TY$."|
00000570: 2C 52 22 00 8D 0D 8A 02  8D 20 39 30 30 3A 8B 20  |,R"...... 900:. |
00000580: 45 4E B3 B1 30 20 A7 20  A0 20 32 3A 8E 00 A9 0D  |EN..0 . . 2:....|
00000590: 94 02 4E 42 B2 B7 28 32  29 3A 8F 20 52 45 41 44  |..NB..(2):. READ|
000005A0: 20 54 48 45 20 46 49 4C  45 00 C4 0D 9E 02 A0 20  | THE FILE...... |
000005B0: 32 3A 8D 20 38 30 30 3A  8F 20 64 7C 20 52 45 53  |2:. 800:. d| RES|
000005C0: 55 4C 54 53 00 CA 0D A8  02 8E 00 D0 0D BC 02 8F  |ULTS............|
000005D0: 00 E5 0D C6 02 8F 20 57  52 49 54 45 20 54 48 45  |...... WRITE THE|
000005E0: 20 46 49 4C 45 00 EB 0D  D0 02 8F 00 0E 0E DA 02  | FILE...........|
000005F0: 97 37 38 35 2C 33 3A 8F  20 53 45 4C 45 43 54 20  |.785,3:. SELECT |
00000600: 57 52 49 54 45 20 46 55  4E 43 54 49 4F 4E 00 2A  |WRITE FUNCTION.*|
00000610: 0E E4 02 9F 32 2C 38 2C  32 2C 4E 4D 24 AA 22 2C  |....2,8,2,NM$.",|
00000620: 22 AA 54 59 24 AA 22 2C  57 22 00 42 0E EE 02 8D  |".TY$.",W".B....|
00000630: 39 30 30 3A 8B 20 45 4E  B3 B1 30 A7 20 A0 20 32  |900:. EN..0. . 2|
00000640: 3A 8E 00 60 0E F8 02 4E  42 B2 B7 28 32 29 3A 8F  |:..`...NB..(2):.|
00000650: 20 57 52 49 54 45 20 54  48 45 20 42 59 54 45 53  | WRITE THE BYTES|
00000660: 00 7A 0E 02 03 A0 20 32  3A 8D 38 30 30 3A 8F 20  |.z.... 2:.800:. |
00000670: 64 7C 20 52 45 53 55 4C  54 53 00 80 0E 0C 03 8E  |d| RESULTS......|
00000680: 00 86 0E 20 03 8F 00 A5  0E 2A 03 8F 20 43 48 45  |... .....*.. CHE|
00000690: 43 4B 20 55 53 52 28 29  20 52 45 54 55 52 4E 20  |CK USR() RETURN |
000006A0: 56 41 4C 55 45 00 AB 0E  34 03 8F 00 C2 0E 3E 03  |VALUE...4.....>.|
000006B0: 4E 42 B2 4E 42 AB 28 4E  42 B3 30 29 AC 36 35 35  |NB.NB.(NB.0).655|
000006C0: 33 36 00 DA 0E 48 03 8B  20 4E 42 B3 36 31 34 34  |36...H.. NB.6144|
000006D0: 30 20 A7 20 55 45 B2 30  3A 8E 00 F4 0E 52 03 8B  |0 . UE.0:....R..|
000006E0: 20 4E 42 B2 36 31 34 34  30 20 A7 20 55 45 B2 31  | NB.61440 . UE.1|
000006F0: 32 38 3A 8E 00 FE 0E 5C  03 99 43 4C 24 3B 00 18  |28:....\..CL$;..|
00000700: 0F 66 03 8B C2 28 37 38  35 29 B2 30 20 A7 20 99  |.f...(785).0 . .|
00000710: 20 22 52 45 41 44 22 3B  00 34 0F 70 03 8B 20 C2  | "READ";.4.p.. .|
00000720: 28 37 38 35 29 B2 33 20  A7 20 99 20 22 57 52 49  |(785).3 . . "WRI|
00000730: 54 45 22 3B 00 50 0F 7A  03 99 20 22 20 45 52 52  |TE";.P.z.. " ERR|
00000740: 4F 52 20 23 22 3B 4E 42  AB 36 31 34 34 30 3A 80  |OR #";NB.61440:.|
00000750: 00 56 0F 84 03 8F 00 6F  0F 8E 03 8F 20 52 45 41  |.V.....o.... REA|
00000760: 44 20 45 52 52 4F 52 20  43 48 41 4E 4E 45 4C 00  |D ERROR CHANNEL.|
00000770: 75 0F 98 03 8F 00 8A 0F  AC 03 84 31 35 2C 45 4E  |u..........15,EN|
00000780: 2C 45 4D 24 2C 45 54 2C  45 53 00 A9 0F B6 03 8B  |,EM$,ET,ES......|
00000790: 20 45 4E B2 30 20 B0 20  45 4E B2 36 32 20 B0 20  | EN.0 . EN.62 . |
000007A0: 45 4E B2 36 33 20 A7 20  8E 00 B8 0F C0 03 A0 20  |EN.63 . ....... |
000007B0: 31 35 3A 99 43 4C 24 3B  00 D0 0F CA 03 99 20 22  |15:.CL$;...... "|
000007C0: 44 49 53 4B 20 45 52 52  4F 52 20 23 22 3B 45 4E  |DISK ERROR #";EN|
000007D0: 00 E6 0F D4 03 99 20 C8  28 50 4C 24 2C 32 32 29  |...... .(PL$,22)|
000007E0: 3B 45 4D 24 3A 80 00 EC  0F E8 03 8F 00 FF 0F F2  |;EM$:...........|
000007F0: 03 8F 20 4D 41 49 4E 20  52 4F 55 54 49 4E 45 00  |.. MAIN ROUTINE.|
00000800: 05 10 FC 03 8F 00 21 10  06 04 99 C7 28 31 34 37  |......!.....(147|
00000810: 29 3B 3A 8F 20 43 4C 45  41 52 20 53 43 52 45 45  |);:. CLEAR SCREE|
00000820: 4E 00 47 10 10 04 99 20  22 20 20 20 20 20 20 20  |N.G.... "       |
00000830: 53 49 4E 47 4C 45 20 44  52 49 56 45 20 46 49 4C  |SINGLE DRIVE FIL|
00000840: 45 20 43 4F 50 59 22 00  63 10 1A 04 99 3A 99 20  |E COPY".c....:. |
00000850: 22 52 45 41 44 49 4E 47  20 44 49 52 45 43 54 4F  |"READING DIRECTO|
00000860: 52 59 22 00 82 10 24 04  8D 20 31 30 30 3A 8F 20  |RY"...$.. 100:. |
00000870: 52 45 41 44 20 54 48 45  20 44 49 52 45 43 54 4F  |READ THE DIRECTO|
00000880: 52 59 00 9C 10 2E 04 8D  20 32 30 30 3A 8F 20 44  |RY...... 200:. D|
00000890: 49 53 50 4C 41 59 20 54  49 54 4C 45 00 B1 10 38  |ISPLAY TITLE...8|
000008A0: 04 4E 53 B2 B5 28 28 4E  42 AA 31 29 AD 32 35 34  |.NS..((NB.1).254|
000008B0: 29 00 CE 10 42 04 8B 20  4E 53 B2 31 20 89 20 34  |)...B.. NS.1 . 4|
000008C0: 30 30 30 3A 8F 20 4E 4F  20 46 49 4C 45 53 00 D7  |000:. NO FILES..|
000008D0: 10 4C 04 44 53 B2 31 00  F8 10 56 04 8B 20 4E 53  |.L.DS.1...V.. NS|
000008E0: B3 B2 44 53 20 A7 20 44  53 B2 31 3A 8F 20 53 54  |..DS . DS.1:. ST|
000008F0: 41 52 54 20 4F 56 45 52  00 07 11 60 04 99 C8 28  |ART OVER...`...(|
00000900: 50 4C 24 2C 34 29 3B 00  22 11 6A 04 42 45 B2 28  |PL$,4);.".j.BE.(|
00000910: 44 53 AB 31 29 AC 38 AA  31 3A 4C 45 B2 42 45 AA  |DS.1).8.1:LE.BE.|
00000920: 31 35 00 3A 11 74 04 8B  20 44 53 AA 31 B2 4E 53  |15.:.t.. DS.1.NS|
00000930: 20 A7 20 4C 45 B2 42 45  AA 38 00 4B 11 7E 04 81  | . LE.BE.8.K.~..|
00000940: 20 44 45 B2 42 45 20 A4  20 4C 45 00 62 11 88 04  | DE.BE . LE.b...|
00000950: 8D 20 33 30 30 3A 82 3A  8F 20 64 7D 20 46 49 4C  |. 300:.:. d} FIL|
00000960: 45 53 00 7C 11 92 04 81  20 49 B2 C2 28 32 31 34  |ES.|.... I..(214|
00000970: 29 A4 32 30 3A 8F 20 43  4C 45 41 52 00 99 11 9C  |).20:. CLEAR....|
00000980: 04 99 20 22 20 20 20 20  20 20 20 20 20 20 20 20  |.. "            |
00000990: 20 20 20 20 20 20 20 20  22 00 9F 11 A6 04 82 00  |        ".......|
000009A0: B8 11 B0 04 8D 35 30 30  3A 8F 20 47 45 54 20 46  |.....500:. GET F|
000009B0: 49 4C 45 20 4E 41 4D 45  00 D5 11 BA 04 8B 20 4E  |ILE NAME...... N|
000009C0: 4D 24 B2 22 22 20 A7 20  44 53 B2 44 53 AA 32 3A  |M$."" . DS.DS.2:|
000009D0: 89 31 31 31 30 00 DB 11  D0 07 8F 00 EF 11 DA 07  |.1110...........|
000009E0: 8F 20 43 4F 50 59 20 54  48 45 20 46 49 4C 45 00  |. COPY THE FILE.|
000009F0: F5 11 E4 07 8F 00 00 12  EE 07 99 20 43 4C 24 3B  |........... CL$;|
00000A00: 00 15 12 F8 07 99 20 22  52 45 41 44 49 4E 47 20  |...... "READING |
00000A10: 22 3B 4E 4D 24 00 2F 12  02 08 8D 20 36 30 30 3A  |";NM$./.... 600:|
00000A20: 8F 20 52 45 41 44 20 54  48 45 20 46 49 4C 45 00  |. READ THE FILE.|
00000A30: 4B 12 0C 08 8B 20 45 4E  B2 36 32 20 B0 20 55 45  |K.... EN.62 . UE|
00000A40: B2 31 32 38 20 89 20 31  32 30 30 00 62 12 16 08  |.128 . 1200.b...|
00000A50: 42 43 B2 4E 42 3A 8F 20  53 41 56 45 20 43 4F 55  |BC.NB:. SAVE COU|
00000A60: 4E 54 00 7B 12 20 08 8D  20 34 30 30 3A 8F 20 47  |NT.{. .. 400:. G|
00000A70: 45 54 20 44 45 53 54 2E  20 64 72 00 94 12 2A 08  |ET DEST. dr...*.|
00000A80: 99 20 43 4C 24 3B 22 57  52 49 54 49 4E 47 20 22  |. CL$;"WRITING "|
00000A90: 3B 4E 4D 24 00 AF 12 34  08 8D 20 37 30 30 3A 8F  |;NM$...4.. 700:.|
00000AA0: 20 57 52 49 54 45 20 54  48 45 20 46 49 4C 45 00  | WRITE THE FILE.|
00000AB0: C1 12 3E 08 8B 20 45 4E  B2 30 20 89 20 33 30 30  |..>.. EN.0 . 300|
00000AC0: 30 00 DA 12 48 08 8D 20  35 30 30 3A 8F 20 47 45  |0...H.. 500:. GE|
00000AD0: 54 20 4E 45 57 20 46 49  4C 45 00 EF 12 52 08 8B  |T NEW FILE...R..|
00000AE0: 20 4E 4D 24 B3 B1 22 22  20 89 20 32 30 39 30 00  | NM$.."" . 2090.|
00000AF0: 0A 13 5C 08 99 43 4C 24  3B 22 46 49 4C 45 20 4E  |..\..CL$;"FILE N|
00000B00: 4F 54 20 43 4F 50 49 45  44 22 00 15 13 66 08 89  |OT COPIED"...f..|
00000B10: 20 33 31 30 30 00 1B 13  B8 0B 8F 00 3B 13 C2 0B  | 3100.......;...|
00000B20: 8F 20 44 49 53 50 4C 41  59 20 43 4F 4D 50 4C 45  |. DISPLAY COMPLE|
00000B30: 54 49 4F 4E 20 53 54 41  54 55 53 00 41 13 CC 0B  |TION STATUS.A...|
00000B40: 8F 00 4B 13 D6 0B 99 43  4C 24 3B 00 5E 13 E0 0B  |..K....CL$;.^...|
00000B50: 8B 20 4E 42 B3 B1 42 43  20 89 33 30 36 30 00 81  |. NB..BC .3060..|
00000B60: 13 EA 0B 99 20 22 43 4F  50 59 20 53 55 43 43 45  |.... "COPY SUCCE|
00000B70: 53 53 46 55 4C 2E 20 20  22 3B 3A 89 20 33 30 37  |SSFUL.  ";:. 307|
00000B80: 30 00 A2 13 F4 0B 99 20  22 45 52 52 4F 52 2E 20  |0...... "ERROR. |
00000B90: 4F 4E 4C 59 20 22 3B 4E  42 3B 22 20 4F 55 54 20  |ONLY ";NB;" OUT |
00000BA0: 22 3B 00 BB 13 FE 0B 99  20 42 43 3B 22 42 59 54  |";...... BC;"BYT|
00000BB0: 45 53 20 43 4F 50 49 45  44 2E 22 00 D1 13 1C 0C  |ES COPIED.".....|
00000BC0: 99 20 22 50 52 45 53 53  20 22 3B C7 28 31 38 29  |. "PRESS ";.(18)|
00000BD0: 3B 00 E8 13 26 0C 99 20  22 52 45 54 55 52 4E 22  |;...&.. "RETURN"|
00000BE0: 3B C7 28 31 34 36 29 3B  00 06 14 30 0C 99 20 22  |;.(146);...0.. "|
00000BF0: 20 54 4F 20 43 4F 50 59  20 41 4E 4F 54 48 45 52  | TO COPY ANOTHER|
00000C00: 20 46 49 4C 45 22 00 20  14 3A 0C A1 20 44 4D 24  | FILE". .:.. DM$|
00000C10: 3A 8B 20 44 4D 24 B2 22  22 20 89 20 33 31 33 30  |:. DM$."" . 3130|
00000C20: 00 37 14 44 0C 8B 20 44  4D 24 B2 C7 28 31 33 29  |.7.D.. DM$..(13)|
00000C30: 20 89 20 31 30 30 30 00  3D 14 4E 0C 80 00 43 14  | . 1000.=.N...C.|
00000C40: A0 0F 8F 00 61 14 AA 0F  8F 20 4E 4F 20 46 49 4C  |....a.... NO FIL|
00000C50: 45 53 20 45 52 52 4F 52  20 48 41 4E 44 4C 49 4E  |ES ERROR HANDLIN|
00000C60: 47 00 67 14 B4 0F 8F 00  78 14 BE 0F 99 20 C8 28  |G.g.....x.... .(|
00000C70: 50 4C 24 2C 32 31 29 3B  00 97 14 C8 0F 99 20 22  |PL$,21);...... "|
00000C80: 4E 4F 20 46 49 4C 45 53  20 4F 4E 20 54 48 49 53  |NO FILES ON THIS|
00000C90: 20 44 49 53 4B 2E 22 00  B5 14 D2 0F 99 20 22 50  | DISK."...... "P|
00000CA0: 52 45 53 53 20 52 45 54  55 52 4E 20 54 4F 20 54  |RESS RETURN TO T|
00000CB0: 52 59 20 22 3B 00 CC 14  DC 0F 99 20 22 41 4E 4F  |RY ";...... "ANO|
00000CC0: 54 48 45 52 20 44 49 53  4B 2E 22 3B 00 E6 14 E6  |THER DISK.";....|
00000CD0: 0F A1 20 44 4D 24 3A 8B  20 44 4D 24 B2 22 22 20  |.. DM$:. DM$."" |
00000CE0: 89 20 34 30 37 30 00 FC  14 F0 0F 8B 20 44 4D 24  |. 4070...... DM$|
00000CF0: B2 C7 28 31 33 29 89 20  31 30 30 30 00 02 15 FA  |..(13). 1000....|
00000D00: 0F 80 00 20 15 10 27 83  37 36 2C 31 35 2C 33 31  |... ..'.76,15,31|
00000D10: 2C 37 36 2C 38 38 2C 33  31 2C 37 36 2C 31 35 34  |,76,88,31,76,154|
00000D20: 00 3B 15 1A 27 83 33 31  2C 31 30 38 2C 33 2C 30  |.;..'.31,108,3,0|
00000D30: 2C 31 30 38 2C 35 2C 30  2C 33 32 00 5C 15 24 27  |,108,5,0,32.\.$'|
00000D40: 83 39 2C 33 31 2C 31 35  32 2C 31 37 30 2C 33 32  |.9,31,152,170,32|
00000D50: 2C 31 39 38 2C 32 35 35  2C 31 36 38 00 7D 15 2E  |,198,255,168.}..|
00000D60: 27 83 31 37 36 2C 35 37  2C 31 36 39 2C 30 2C 31  |'.176,57,169,0,1|
00000D70: 33 33 2C 32 35 31 2C 31  36 39 2C 33 32 00 9F 15  |33,251,169,32...|
00000D80: 38 27 83 31 33 33 2C 32  35 32 2C 31 36 30 2C 30  |8'.133,252,160,0|
00000D90: 2C 33 32 2C 32 30 37 2C  32 35 35 2C 31 34 35 00  |,32,207,255,145.|
00000DA0: C2 15 42 27 83 32 35 31  2C 32 33 30 2C 32 35 31  |..B'.251,230,251|
00000DB0: 2C 32 30 38 2C 32 2C 32  33 30 2C 32 35 32 2C 31  |,208,2,230,252,1|
00000DC0: 36 35 00 E6 15 4C 27 83  31 34 34 2C 32 30 38 2C  |65...L'.144,208,|
00000DD0: 31 33 2C 31 36 35 2C 32  35 32 2C 32 30 31 2C 31  |13,165,252,201,1|
00000DE0: 36 30 2C 31 34 34 00 07  16 56 27 83 32 33 35 2C  |60,144...V'.235,|
00000DF0: 33 32 2C 32 30 34 2C 32  35 35 2C 31 36 30 2C 30  |32,204,255,160,0|
00000E00: 2C 32 34 30 2C 31 39 00  2A 16 60 27 83 31 36 34  |,240,19.*.`'.164|
00000E10: 2C 31 34 34 2C 33 32 2C  32 30 34 2C 32 35 35 2C  |,144,32,204,255,|
00000E20: 31 39 32 2C 36 34 2C 32  30 38 00 4C 16 6A 27 83  |192,64,208.L.j'.|
00000E30: 31 30 2C 31 36 34 2C 32  35 31 2C 31 36 35 2C 32  |10,164,251,165,2|
00000E40: 35 32 2C 35 36 2C 32 33  33 2C 33 32 00 6B 16 74  |52,56,233,32.k.t|
00000E50: 27 83 37 36 2C 31 32 2C  33 31 2C 31 36 39 2C 32  |'.76,12,31,169,2|
00000E60: 34 30 2C 37 36 2C 31 32  2C 33 31 00 8B 16 7E 27  |40,76,12,31...~'|
00000E70: 83 33 32 2C 39 2C 33 31  2C 31 35 32 2C 31 37 30  |.32,9,31,152,170|
00000E80: 2C 33 32 2C 32 30 31 2C  32 35 35 00 AF 16 88 27  |,32,201,255....'|
00000E90: 83 31 36 38 2C 31 37 36  2C 32 34 30 2C 31 36 35  |.168,176,240,165|
00000EA0: 2C 32 35 31 2C 31 34 31  2C 31 37 34 2C 33 31 00  |,251,141,174,31.|
00000EB0: D1 16 92 27 83 31 36 35  2C 32 35 32 2C 31 34 31  |...'.165,252,141|
00000EC0: 2C 31 37 35 2C 33 31 2C  31 36 39 2C 30 2C 31 33  |,175,31,169,0,13|
00000ED0: 33 00 F3 16 9C 27 83 32  35 31 2C 31 36 39 2C 33  |3....'.251,169,3|
00000EE0: 32 2C 31 33 33 2C 32 35  32 2C 31 36 30 2C 30 2C  |2,133,252,160,0,|
00000EF0: 31 37 37 00 16 17 A6 27  83 32 35 31 2C 33 32 2C  |177....'.251,32,|
00000F00: 32 31 30 2C 32 35 35 2C  31 36 34 2C 31 34 34 2C  |210,255,164,144,|
00000F10: 32 30 38 2C 32 30 00 39  17 B0 27 83 32 33 30 2C  |208,20.9..'.230,|
00000F20: 32 35 31 2C 32 30 38 2C  32 2C 32 33 30 2C 32 35  |251,208,2,230,25|
00000F30: 32 2C 31 36 35 2C 32 35  32 00 5D 17 BA 27 83 32  |2,165,252.]..'.2|
00000F40: 30 35 2C 31 37 35 2C 33  31 2C 31 34 34 2C 32 33  |05,175,31,144,23|
00000F50: 34 2C 31 36 35 2C 32 35  31 2C 32 30 35 00 7F 17  |4,165,251,205...|
00000F60: C4 27 83 31 37 34 2C 33  31 2C 31 34 34 2C 32 32  |.'.174,31,144,22|
00000F70: 37 2C 33 32 2C 32 30 34  2C 32 35 35 2C 37 36 00  |7,32,204,255,76.|
00000F80: 9D 17 CE 27 83 37 33 2C  33 31 2C 33 32 2C 39 2C  |...'.73,31,32,9,|
00000F90: 33 31 2C 31 33 32 2C 32  35 31 2C 32 34 00 BF 17  |31,132,251,24...|
00000FA0: D8 27 83 31 30 35 2C 33  32 2C 31 33 33 2C 32 35  |.'.105,32,133,25|
00000FB0: 32 2C 31 36 30 2C 30 2C  31 37 37 2C 32 35 31 00  |2,160,0,177,251.|
00000FC0: D7 17 E2 27 83 31 36 38  2C 31 36 39 2C 30 2C 37  |...'.168,169,0,7|
00000FD0: 36 2C 31 32 2C 33 31 00  00 00                    |6,12,31...      |

.......53280,0:.53281,0.4.... SINGLE DRI
VE FILE COPY.:.....N.(..52,31:.56,31:..\
.-.. I.0.173.P.2.. D:.7936.I,D:....7..78
5,0:.786,31...<.PL$.G(19)...A.. I.1 . 24
:PL$.PL$.G(17):..L.F..I.1 . 39:CL$.CL$."
 ":....K.CL$.CL$.G(13).CL$.G(13)...P.CL$
.H(PL$,21).CL$.G(145).G(145).,.U.. 15,8,
15:. OPEN ERROR CHAN.7.Z.. 1000.=.D...V.
N.. READ THE DIRECTORY.\.X...~....785,0:
. SELECT READ FUNCTION......15,"I":. 2,8
,2,"$".....NB..(2):. LOAD DIR INTO MEM.R
. .  2:. 800:. CHECK ERROR.X.......H....
.R.. DISPLAY DISK NAME............785,6:
. SELECT FETCH CHAR.1.... H(PL$,3);G(18)
;.A.... K.142.169.Q....G(.(K));:..]....G
(146).C.....I.,.....6.. PRINT DIRECTORY 
ENTRY DE...@.....J..785,6:. SELECT FETCH
 CHAR.P.T.IX.(DE.1).32.254..((DE.1).8).2
...Y.. .(IX).128 . ....^.TY..(IX).128:. 
TY.0 . TY.3 . ....H.. K.IX.3 . IX.18.*.R
..G(.(K));.;.|..:..16);",";.P....J("SPU"
,TY,1):..V.....Q.... GET DESTINATION DIS
K.W..........CL$;...... "INSERT DESTINAT
ION DISK. ".B.B.. "PRESS ";G(18);"RETURN
";...L.. G(146);" WHEN READY. "...V.. DM
$:. DM$."" . 470...... DM$..G(13) . 470.
.....15,"I":..#.....:.... GET A FILE TO 
DW.@.....X....CL$;:. EN.63 . 580.|.... U
E.128 . . NM$;" TOO LARGE.";...&.. EN.62
 . . NM$;" NOT FOUND.  ";.J.0.. "ENTER F
ILE,TYPE":NM$."":EN.0:UE.0.Z.:.. NM$,TY$
:....D..NM$;" EXISTS. ENTER NEW NAME"...
N.EN.0:NM$."":. NM$:....X.../.B.. READ T
HE FILE.5.L...W.V..785,0:. SELECT READ F
UNCTION.S....2,8,2,NM$.",".TY$.",R".....
. 900:. EN..0 .   2:......NB..(2):. READ
 THE FILE.D...  2:. 800:. D| RESULTS.J..
...P.......F.. WRITE THE FILE...P.....Z.
.785,3:. SELECT WRITE FUNCTION.*....2,8,
2,NM$.",".TY$.",W".B....900:. EN..0.   2
:..`...NB..(2):. WRITE THE BYTES.Z...  2
:.800:. D| RESULTS......... .....*.. CHE
CK USR() RETURN VALUE...4...B.>.NB.NB.(N
B.0).65536.Z.H.. NB.61440 . UE.0:....R..
 NB.61440 . UE.128:....\..CL$;...F..B(78
5).0 . . "READ";.4.P.. B(785).3 . . "WRI
TE";.P.Z.. " ERROR #";NB.61440:..V.....O
.... READ ERROR CHANNEL.U..........15,EN
,EM$,ET,ES...... EN.0 . EN.62 . EN.63 . 
......  15:.CL$;.P.J.. "DISK ERROR #";EN
...T.. H(PL$,22);EM$:............. MAIN 
ROUTINE.......!....G(147);:. CLEAR SCREE
N.G.... "       SINGLE DRIVE FILE COPY".
C....:. "READING DIRECTORY"...$.. 100:. 
READ THE DIRECTORY...... 200:. DISPLAY T
ITLE...8.NS..((NB.1).254).N.B.. NS.1 . 4
000:. NO FILES.W.L.DS.1...V.. NS..DS . D
S.1:. START OVER...`..H(PL$,4);.".J.BE.(
DS.1).8.1:LE.BE.15.:.T.. DS.1.NS . LE.BE
.8.K.~.. DE.BE . LE.B.... 300:.:. D} FIL
ES.|.... I.B(214).20:. CLEAR...... "    
                "............500:. GET F
ILE NAME.U.... NM$."" . DS.DS.2:.1110...
P.....Z.. COPY THE FILE............ CL$;
...... "READING ";NM$./.... 600:. READ T
HE FILE.K.... EN.62 . UE.128 . 1200.B...
BC.NB:. SAVE COUNT.{. .. 400:. GET DEST.
 DR...*.. CL$;"WRITING ";NM$...4.. 700:.
 WRITE THE FILE.A.>.. EN.0 . 3000.Z.H.. 
500:. GET NEW FILE...R.. NM$.."" . 2090.
..\..CL$;"FILE NOT COPIED"...F.. 3100...
....;.B.. DISPLAY COMPLETION STATUS.A.L.
..K.V..CL$;.^.... NB..BC .3060...... "CO
PY SUCCESSFUL.  ";:. 3070...... "ERROR. 
ONLY ";NB;" OUT ";...... BC;"BYTES COPIE
D.".Q.... "PRESS ";G(18);...&.. "RETURN"
;G(146);...0.. " TO COPY ANOTHER FILE". 
.:.. DM$:. DM$."" . 3130.7.D.. DM$.G(13)
 . 1000.=.N...C. ...A.... NO FILES ERROR
 HANDLING.G.....X.... H(PL$,21);...H.. "
NO FILES ON THIS DISK."...R.. "PRESS RET
URN TO TRY ";.L.... "ANOTHER DISK.";....
.. DM$:. DM$."" . 4070...... DM$.G(13). 
1000....... ..'.76,15,31,76,88,31,76,154
.;..'.31,108,3,0,108,5,0,32.\.$'.9,31,15
2,170,32,198,255,168.}..'.176,57,169,0,1
33,251,169,32...8'.133,252,160,0,32,207,
255,145.B.B'.251,230,251,208,2,230,252,1
65...L'.144,208,13,165,252,201,160,144..
.V'.235,32,204,255,160,0,240,19.*.`'.164
,144,32,204,255,192,64,208.L.J'.10,164,2
51,165,252,56,233,32.K.T'.76,12,31,169,2
40,76,12,31...~'.32,9,31,152,170,32,201,
255....'.168,176,240,165,251,141,174,31.
Q..'.165,252,141,175,31,169,0,133....'.2
51,169,32,133,252,160,0,177....'.251,32,
210,255,164,144,208,20.9..'.230,251,208,
2,230,252,165,252.]..'.205,175,31,144,23
4,165,251,205..D'.174,31,144,227,32,204
,255,76...N'.73,31,32,9,31,132,251,24...
X'.105,32,133,252,160,0,177,251.W..'.168
,169,0,76,12,31...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL