FILE COPY

00000000: 01 08 13 08 0A 00 97 35  33 32 38 31 2C 30 3A 99  |.......53281,0:.|
00000010: 22 05 22 00 30 08 14 00  8F 20 53 49 4E 47 4C 45  |".".0.... SINGLE|
00000020: 20 44 52 49 56 45 20 46  49 4C 45 20 43 4F 50 59  | DRIVE FILE COPY|
00000030: 00 44 08 28 00 97 35 32  2C 33 31 3A 97 35 36 2C  |.D.(..52,31:.56,|
00000040: 33 31 3A 9C 00 53 08 2D  00 81 20 49 B2 30 20 A4  |31:..S.-.. I.0 .|
00000050: 31 37 33 00 68 08 32 00  87 20 44 3A 97 20 37 39  |173.h.2.. D:. 79|
00000060: 33 36 AA 49 2C 44 3A 82  00 7D 08 37 00 97 20 37  |36.I,D:..}.7.. 7|
00000070: 38 35 2C 30 3A 97 20 37  38 36 2C 33 31 00 94 08  |85,0:. 786,31...|
00000080: 3C 00 50 4C 24 B2 C7 28  31 39 29 3A 97 35 33 32  |<.PL$..(19):.532|
00000090: 38 30 2C 30 00 B3 08 41  00 81 20 49 B2 31 20 A4  |80,0...A.. I.1 .|
000000A0: 20 32 34 3A 50 4C 24 B2  50 4C 24 AA C7 28 31 37  | 24:PL$.PL$..(17|
000000B0: 29 3A 82 00 D0 08 46 00  81 20 49 B2 31 20 A4 20  |):....F.. I.1 . |
000000C0: 33 39 3A 43 4C 24 B2 43  4C 24 AA 22 20 22 3A 82  |39:CL$.CL$." ":.|
000000D0: 00 EC 08 4B 00 43 4C 24  B2 43 4C 24 AA C7 28 31  |...K.CL$.CL$..(1|
000000E0: 33 29 AA 43 4C 24 AA C7  28 31 33 29 00 10 09 50  |3).CL$..(13)...P|
000000F0: 00 43 4C 24 B2 C8 28 50  4C 24 2C 32 31 29 AA 43  |.CL$..(PL$,21).C|
00000100: 4C 24 AA C7 28 31 34 35  29 AA C7 28 31 34 35 29  |L$..(145)..(145)|
00000110: 00 33 09 55 00 9F 20 31  35 2C 38 2C 31 35 3A 8F  |.3.U.. 15,8,15:.|
00000120: 20 4F 50 45 4E 20 45 52  52 4F 52 20 43 48 41 4E  | OPEN ERROR CHAN|
00000130: 4E 45 4C 00 3E 09 5A 00  89 20 31 30 31 30 00 57  |NEL.>.Z.. 1010.W|
00000140: 09 6E 00 8F 20 52 45 41  44 20 54 48 45 20 44 49  |.n.. READ THE DI|
00000150: 52 45 43 54 4F 52 59 00  79 09 82 00 97 20 37 38  |RECTORY.y.... 78|
00000160: 35 2C 30 3A 8F 20 53 45  4C 43 54 20 52 45 41 44  |5,0:. SELCT READ|
00000170: 20 46 55 4E 43 54 49 4F  4E 00 91 09 8C 00 98 31  | FUNCTION......1|
00000180: 35 2C 22 49 22 3A 9F 20  32 2C 38 2C 32 2C 22 24  |5,"I":. 2,8,2,"$|
00000190: 22 00 BA 09 96 00 4E 42  B2 B7 28 32 29 3A 8F 20  |".....NB..(2):. |
000001A0: 4C 4F 41 44 20 44 49 52  45 43 54 4F 52 59 20 49  |LOAD DIRECTORY I|
000001B0: 4E 54 4F 20 4D 45 4D 4F  52 59 00 D5 09 A0 00 A0  |NTO MEMORY......|
000001C0: 32 3A 8D 20 38 31 30 3A  8F 20 43 48 45 43 4B 20  |2:. 810:. CHECK |
000001D0: 45 52 52 4F 52 00 DB 09  AA 00 8E 00 F3 09 D2 00  |ERROR...........|
000001E0: 8F 20 44 49 53 50 4C 41  59 20 44 49 53 4B 20 4E  |. DISPLAY DISK N|
000001F0: 41 4D 45 00 17 0A E6 00  97 37 38 35 2C 36 3A 8F  |AME......785,6:.|
00000200: 20 53 45 4C 45 43 54 20  46 45 54 43 48 20 43 48  | SELECT FETCH CH|
00000210: 41 52 41 43 54 45 52 00  2D 0A F0 00 99 20 C8 28  |ARACTER.-.... .(|
00000220: 50 4C 24 2C 33 29 3B C7  28 31 38 29 3B 00 3F 0A  |PL$,3);.(18);.?.|
00000230: FA 00 81 20 4B B2 31 34  32 20 A4 20 31 36 39 00  |... K.142 . 169.|
00000240: 50 0A 04 01 99 20 C7 28  B7 28 4B 29 29 3B 3A 82  |P.... .(.(K));:.|
00000250: 00 5D 0A 0E 01 99 20 C7  28 31 34 36 29 00 63 0A  |.].... .(146).c.|
00000260: 18 01 8E 00 82 0A 36 01  8F 20 50 52 49 4E 54 20  |......6.. PRINT |
00000270: 44 49 52 45 43 54 4F 52  59 20 45 4E 54 52 59 20  |DIRECTORY ENTRY |
00000280: 44 45 00 A7 0A 4A 01 97  20 37 38 35 2C 36 3A 8F  |DE...J.. 785,6:.|
00000290: 20 53 45 4C 45 43 54 20  46 45 54 43 48 20 43 48  | SELECT FETCH CH|
000002A0: 41 52 41 43 54 45 52 00  CA 0A 54 01 49 58 B2 28  |ARACTER...T.IX.(|
000002B0: 44 45 AB 31 29 AC 33 32  AA 32 35 34 AB B5 28 28  |DE.1).32.254..((|
000002C0: 44 45 AB 31 29 AD 38 29  AC 32 00 DE 0A 59 01 8B  |DE.1).8).2...Y..|
000002D0: 20 B7 28 49 58 29 B3 31  32 38 20 A7 20 8E 00 01  | .(IX).128 . ...|
000002E0: 0B 5E 01 54 59 B2 B7 28  49 58 29 AB 31 32 38 3A  |.^.TY..(IX).128:|
000002F0: 8B 20 54 59 B2 30 20 B0  20 54 59 B1 33 20 A7 20  |. TY.0 . TY.3 . |
00000300: 8E 00 15 0B 68 01 81 4B  B2 49 58 AA 33 20 A4 20  |....h..K.IX.3 . |
00000310: 49 58 AA 31 38 00 24 0B  72 01 99 20 C7 28 B7 28  |IX.18.$.r.. .(.(|
00000320: 4B 29 29 3B 00 36 0B 7C  01 82 3A 99 20 A3 31 36  |K));.6.|..:. .16|
00000330: 29 3B 22 2C 22 3B 00 4C  0B 86 01 99 20 CA 28 22  |);",";.L.... .("|
00000340: 53 50 55 22 2C 54 59 2C  31 29 3A 8E 00 66 0B 9A  |SPU",TY,1):..f..|
00000350: 01 8F 20 47 45 54 20 44  45 53 54 49 4E 41 49 4F  |.. GET DESTINAIO|
00000360: 4E 20 44 49 53 4B 00 71  0B AE 01 99 20 43 4C 24  |N DISK.q.... CL$|
00000370: 3B 00 92 0B B8 01 99 20  22 49 4E 53 45 52 54 20  |;...... "INSERT |
00000380: 44 45 53 54 49 4E 41 54  49 4F 4E 20 44 49 53 4B  |DESTINATION DISK|
00000390: 2E 22 00 AF 0B C2 01 99  22 50 52 45 53 53 20 22  |."......"PRESS "|
000003A0: C7 28 31 38 29 3B 22 52  45 54 55 52 4E 22 3B 00  |.(18);"RETURN";.|
000003B0: CB 0B CC 01 99 20 C7 28  31 34 36 29 3B 22 20 57  |..... .(146);" W|
000003C0: 48 45 4E 20 52 45 41 44  59 2E 22 00 E4 0B D6 01  |HEN READY.".....|
000003D0: A1 20 44 4D 24 3A 8B 20  44 4D 24 B2 22 22 20 89  |. DM$:. DM$."" .|
000003E0: 20 34 37 30 00 FA 0B E0  01 8B 20 44 4D 24 B3 B1  | 470...... DM$..|
000003F0: C7 28 31 33 29 20 89 34  37 30 00 08 0C EA 01 98  |.(13) .470......|
00000400: 31 35 2C 22 49 22 3A 8E  00 21 0C FE 01 8F 20 47  |15,"I":..!.... G|
00000410: 45 54 20 41 20 46 49 4C  45 20 54 4F 20 43 4F 50  |ET A FILE TO COP|
00000420: 59 00 39 0C 12 02 99 20  43 4C 24 3B 3A 8B 20 45  |Y.9.... CL$;:. E|
00000430: 4E B2 36 33 20 89 35 38  30 00 5D 0C 1C 02 8B 20  |N.63 .580.].... |
00000440: 55 45 B2 31 32 38 20 A7  20 99 20 4E 4D 24 3B 22  |UE.128 . . NM$;"|
00000450: 20 54 4F 4F 20 4C 41 52  47 45 2E 22 3B 00 80 0C  | TOO LARGE.";...|
00000460: 26 02 8B 20 45 4E B2 36  32 20 A7 20 99 20 4E 4D  |&.. EN.62 . . NM|
00000470: 24 3B 22 20 4E 4F 54 20  46 4F 55 4E 44 2E 22 3B  |$;" NOT FOUND.";|
00000480: 00 A9 0C 30 02 99 22 45  4E 54 45 52 20 46 49 4C  |...0.."ENTER FIL|
00000490: 45 2C 20 54 59 50 45 22  3A 4E 4D 24 B2 22 22 3A  |E, TYPE":NM$."":|
000004A0: 45 4E B2 30 3A 55 45 B2  30 00 B9 0C 3A 02 85 20  |EN.0:UE.0...:.. |
000004B0: 4E 4D 24 2C 54 59 24 3A  8E 00 DD 0C 44 02 99 20  |NM$,TY$:....D.. |
000004C0: 4E 4D 24 3B 22 20 45 58  49 53 54 53 2E 20 45 4E  |NM$;" EXISTS. EN|
000004D0: 54 45 52 20 4E 45 57 20  4E 41 4D 45 22 00 F5 0C  |TER NEW NAME"...|
000004E0: 4E 02 45 4E B2 30 3A 4E  4D 24 B2 22 22 3A 85 20  |N.EN.0:NM$."":. |
000004F0: 4E 4D 24 3A 8E 00 09 0D  62 02 8F 20 52 45 41 44  |NM$:....b.. READ|
00000500: 20 54 48 45 20 46 49 4C  45 00 26 0D 76 02 97 20  | THE FILE.&.v.. |
00000510: 37 38 35 2C 30 3A 20 8F  20 52 45 41 44 20 46 55  |785,0: . READ FU|
00000520: 4E 43 54 49 4F 4E 00 43  0D 80 02 9F 20 32 2C 38  |NCTION.C.... 2,8|
00000530: 2C 32 2C 4E 4D 24 AA 22  2C 22 AA 54 59 24 AA 22  |,2,NM$.",".TY$."|
00000540: 2C 52 22 00 5D 0D 8A 02  8D 20 39 31 30 3A 8B 20  |,R".].... 910:. |
00000550: 45 4E B3 B1 30 20 A7 20  A0 20 32 3A 8E 00 79 0D  |EN..0 . . 2:..y.|
00000560: 94 02 4E 42 B2 B7 28 32  29 3A 8F 20 52 45 41 44  |..NB..(2):. READ|
00000570: 20 54 48 45 20 46 49 4C  45 00 97 0D 9E 02 A0 20  | THE FILE...... |
00000580: 32 3A 8D 20 38 31 30 3A  8F 20 43 48 45 43 4B 20  |2:. 810:. CHECK |
00000590: 52 45 53 55 4C 54 53 00  9D 0D A8 02 8E 00 B2 0D  |RESULTS.........|
000005A0: C6 02 8F 20 57 52 49 54  45 20 54 48 45 20 46 49  |... WRITE THE FI|
000005B0: 4C 45 00 D6 0D DA 02 97  20 37 38 35 2C 33 3A 8F  |LE...... 785,3:.|
000005C0: 20 53 45 4C 45 43 54 20  57 52 49 54 45 20 46 55  | SELECT WRITE FU|
000005D0: 4E 43 54 49 4F 4E 00 F3  0D E4 02 9F 20 32 2C 38  |NCTION...... 2,8|
000005E0: 2C 32 2C 4E 4D 24 AA 22  2C 22 AA 54 59 24 AA 22  |,2,NM$.",".TY$."|
000005F0: 2C 57 22 00 0D 0E EE 02  8D 20 39 31 30 3A 8B 20  |,W"...... 910:. |
00000600: 45 4E B3 B1 30 20 A7 20  A0 20 32 3A 8E 00 2B 0E  |EN..0 . . 2:..+.|
00000610: F8 02 4E 42 B2 B7 28 32  29 3A 8F 20 57 52 49 54  |..NB..(2):. WRIT|
00000620: 45 20 54 48 45 20 42 59  54 45 53 00 49 0E 02 03  |E THE BYTES.I...|
00000630: A0 20 32 3A 8D 20 38 31  30 3A 8F 20 43 48 45 43  |. 2:. 810:. CHEC|
00000640: 4B 20 52 45 53 55 4C 54  53 00 4F 0E 0C 03 8E 00  |K RESULTS.O.....|
00000650: 6E 0E 2A 03 8F 20 43 48  45 43 4B 20 55 53 52 28  |n.*.. CHECK USR(|
00000660: 29 20 52 45 54 55 52 4E  20 56 41 4C 55 45 00 85  |) RETURN VALUE..|
00000670: 0E 3E 03 4E 42 B2 4E 42  AB 28 4E 42 B3 30 29 AC  |.>.NB.NB.(NB.0).|
00000680: 36 35 35 33 36 00 9D 0E  48 03 8B 20 4E 42 B3 36  |65536...H.. NB.6|
00000690: 31 34 34 30 20 A7 20 55  45 B2 30 3A 8E 00 B7 0E  |1440 . UE.0:....|
000006A0: 52 03 8B 20 4E 42 B2 36  31 34 34 30 20 A7 20 55  |R.. NB.61440 . U|
000006B0: 45 B2 31 32 38 3A 8E 00  C2 0E 5C 03 99 20 43 4C  |E.128:....\.. CL|
000006C0: 24 3B 00 DD 0E 66 03 8B  20 C2 28 37 38 35 29 B2  |$;...f.. .(785).|
000006D0: 30 20 A7 20 99 20 22 52  45 41 44 22 3B 00 F9 0E  |0 . . "READ";...|
000006E0: 70 03 8B 20 C2 28 37 38  35 29 B2 33 20 A7 20 99  |p.. .(785).3 . .|
000006F0: 20 22 57 52 49 54 45 22  3B 00 14 0F 7A 03 99 22  | "WRITE";...z.."|
00000700: 20 45 52 52 4F 52 20 23  22 3B 4E 42 AB 36 31 34  | ERROR #";NB.614|
00000710: 34 30 3A 80 00 2D 0F 8E  03 8F 20 52 45 41 44 20  |40:..-.... READ |
00000720: 45 52 52 4F 52 20 43 48  41 4E 4E 45 4C 00 42 0F  |ERROR CHANNEL.B.|
00000730: AC 03 84 31 35 2C 45 4E  2C 45 4D 24 2C 45 54 2C  |...15,EN,EM$,ET,|
00000740: 45 53 00 61 0F B6 03 8B  20 45 4E B2 30 20 B0 20  |ES.a.... EN.0 . |
00000750: 45 4E B2 36 32 20 B0 20  45 4E B2 36 33 20 A7 20  |EN.62 . EN.63 . |
00000760: 8E 00 71 0F C0 03 A0 20  31 35 3A 99 20 43 4C 24  |..q.... 15:. CL$|
00000770: 3B 00 89 0F CA 03 99 20  22 44 49 53 4B 20 45 52  |;...... "DISK ER|
00000780: 52 4F 52 20 23 22 3B 45  4E 00 9F 0F D4 03 99 20  |ROR #";EN...... |
00000790: C8 28 50 4C 24 2C 32 32  29 3B 45 4D 24 3A 80 00  |.(PL$,22);EM$:..|
000007A0: B2 0F F2 03 8F 20 4D 41  49 4E 20 52 4F 55 54 49  |..... MAIN ROUTI|
000007B0: 4E 45 00 CF 0F 06 04 99  20 C7 28 31 34 37 29 3B  |NE...... .(147);|
000007C0: 3A 8F 20 43 4C 45 41 52  20 53 43 52 45 45 4E 00  |:. CLEAR SCREEN.|
000007D0: F5 0F 10 04 99 20 22 20  20 20 20 20 20 20 53 49  |..... "       SI|
000007E0: 4E 47 4C 45 20 44 52 49  56 45 20 46 49 4C 45 20  |NGLE DRIVE FILE |
000007F0: 43 4F 50 59 22 00 11 10  1A 04 99 3A 99 20 22 52  |COPY"......:. "R|
00000800: 45 41 44 49 4E 47 20 44  49 52 45 43 54 4F 52 59  |EADING DIRECTORY|
00000810: 22 00 30 10 24 04 8D 20  31 31 30 3A 8F 20 52 45  |".0.$.. 110:. RE|
00000820: 41 44 20 54 48 45 20 44  49 52 45 43 54 4F 52 59  |AD THE DIRECTORY|
00000830: 00 4A 10 2E 04 8D 20 32  31 30 3A 8F 20 44 49 53  |.J.... 210:. DIS|
00000840: 50 4C 41 59 20 54 49 54  4C 45 00 5F 10 38 04 4E  |PLAY TITLE._.8.N|
00000850: 53 B2 B5 28 28 4E 42 AA  31 29 AD 32 35 34 29 00  |S..((NB.1).254).|
00000860: 7C 10 42 04 8B 20 4E 53  B2 31 20 89 20 35 30 30  ||.B.. NS.1 . 500|
00000870: 30 3A 8F 20 4E 4F 20 46  49 4C 45 53 00 85 10 4C  |0:. NO FILES...L|
00000880: 04 44 53 B2 31 00 A6 10  56 04 8B 20 4E 53 B3 B2  |.DS.1...V.. NS..|
00000890: 44 53 20 A7 20 44 53 B2  31 3A 8F 20 53 54 41 52  |DS . DS.1:. STAR|
000008A0: 54 20 4F 56 45 52 00 B6  10 60 04 99 20 C8 28 50  |T OVER...`.. .(P|
000008B0: 4C 24 2C 34 29 3B 00 D1  10 6A 04 42 45 B2 28 44  |L$,4);...j.BE.(D|
000008C0: 53 AB 31 29 AC 38 AA 31  3A 4C 45 B2 42 45 AA 31  |S.1).8.1:LE.BE.1|
000008D0: 35 00 E9 10 74 04 8B 20  44 53 AA 31 B2 4E 53 20  |5...t.. DS.1.NS |
000008E0: A7 20 4C 45 B2 42 45 AA  38 00 FA 10 7E 04 81 20  |. LE.BE.8...~.. |
000008F0: 44 45 B2 42 45 20 A4 20  4C 45 00 16 11 88 04 8D  |DE.BE . LE......|
00000900: 20 33 31 30 3A 82 3A 8F  20 44 49 53 50 4C 41 59  | 310:.:. DISPLAY|
00000910: 20 46 49 4C 45 53 00 32  11 92 04 81 20 49 B2 C2  | FILES.2.... I..|
00000920: 28 32 31 34 29 20 A4 20  32 30 3A 8F 20 43 4C 45  |(214) . 20:. CLE|
00000930: 41 52 00 4E 11 9C 04 99  22 20 20 20 20 20 20 20  |AR.N...."       |
00000940: 20 20 20 20 20 20 20 20  20 20 20 20 20 22 00 54  |             ".T|
00000950: 11 A6 04 82 00 6E 11 B0  04 8D 20 35 31 30 3A 8F  |.....n.... 510:.|
00000960: 20 47 45 54 20 46 49 4C  45 20 4E 41 4D 45 00 8C  | GET FILE NAME..|
00000970: 11 BA 04 8B 20 4E 4D 24  B2 22 22 20 A7 20 44 53  |.... NM$."" . DS|
00000980: B2 44 53 AA 32 3A 89 20  31 31 31 30 00 A0 11 DA  |.DS.2:. 1110....|
00000990: 07 8F 20 43 4F 50 59 20  54 48 45 20 46 49 4C 45  |.. COPY THE FILE|
000009A0: 00 AB 11 EE 07 99 20 43  4C 24 3B 00 BF 11 F8 07  |...... CL$;.....|
000009B0: 99 22 52 45 41 44 49 4E  47 20 22 3B 4E 4D 24 00  |."READING ";NM$.|
000009C0: D9 11 02 08 8D 20 36 31  30 3A 8F 20 52 45 41 44  |..... 610:. READ|
000009D0: 20 54 48 45 20 46 49 4C  45 00 F5 11 0C 08 8B 20  | THE FILE...... |
000009E0: 45 4E B2 36 32 20 B0 20  55 45 B2 31 32 38 20 89  |EN.62 . UE.128 .|
000009F0: 20 31 32 30 30 00 0C 12  16 08 42 43 B2 4E 42 3A  | 1200.....BC.NB:|
00000A00: 8F 20 53 41 56 45 20 43  4F 55 4E 54 00 2D 12 20  |. SAVE COUNT.-. |
00000A10: 08 8D 20 34 31 30 3A 8F  20 47 45 54 20 44 45 53  |.. 410:. GET DES|
00000A20: 54 49 4E 41 54 49 4F 4E  20 44 49 53 4B 00 45 12  |TINATION DISK.E.|
00000A30: 2A 08 99 20 43 4C 24 3B  22 57 52 49 54 4E 47 A0  |*.. CL$;"WRITNG.|
00000A40: 22 3B 4E 4D 24 00 61 12  34 08 8D 20 37 31 30 3A  |";NM$.a.4.. 710:|
00000A50: 20 8F 20 57 52 49 54 45  20 54 48 45 20 46 49 4C  | . WRITE THE FIL|
00000A60: 45 00 73 12 3E 08 8B 20  45 4E B2 30 20 89 20 33  |E.s.>.. EN.0 . 3|
00000A70: 30 31 30 00 8C 12 48 08  8D 20 35 31 30 3A 8F 20  |010...H.. 510:. |
00000A80: 47 45 54 20 4E 45 57 20  46 49 4C 45 00 A1 12 52  |GET NEW FILE...R|
00000A90: 08 8B 20 4E 4D 24 B3 B1  22 22 20 89 20 32 30 39  |.. NM$.."" . 209|
00000AA0: 30 00 BD 12 5C 08 99 20  43 4C 24 3B 22 46 49 4C  |0...\.. CL$;"FIL|
00000AB0: 45 20 4E 4F 54 20 43 4F  50 49 45 44 22 00 C8 12  |E NOT COPIED"...|
00000AC0: 66 08 89 20 33 31 30 30  00 E8 12 C2 0B 8F 20 44  |f.. 3100...... D|
00000AD0: 49 53 50 4C 41 59 20 43  4F 4D 50 4C 45 54 49 4F  |ISPLAY COMPLETIO|
00000AE0: 4E 20 53 54 41 54 55 53  00 F3 12 D6 0B 99 20 43  |N STATUS...... C|
00000AF0: 4C 24 3B 00 06 13 E0 0B  8B 20 4E 42 B3 B1 42 43  |L$;...... NB..BC|
00000B00: 20 89 33 30 36 30 00 28  13 EA 0B 99 20 22 43 4F  | .3060.(.... "CO|
00000B10: 50 59 20 53 55 43 43 45  53 53 46 55 4C 2E 20 20  |PY SUCCESSFUL.  |
00000B20: 22 3B 3A 89 33 30 37 30  00 49 13 F4 0B 99 20 22  |";:.3070.I.... "|
00000B30: 45 52 52 4F 52 2E 20 4F  4E 4C 59 20 22 3B 4E 42  |ERROR. ONLY ";NB|
00000B40: 3B 22 20 4F 55 54 20 22  3B 00 62 13 FE 0B 99 20  |;" OUT ";.b.... |
00000B50: 42 43 3B 22 42 59 54 45  53 20 43 4F 50 49 45 44  |BC;"BYTES COPIED|
00000B60: 2E 22 00 78 13 1C 0C 99  20 22 50 52 45 53 53 20  |.".x.... "PRESS |
00000B70: 22 3B C7 28 31 38 29 3B  00 8F 13 26 0C 99 20 22  |";.(18);...&.. "|
00000B80: 52 45 54 55 52 4E 22 3B  C7 28 31 34 36 29 3B 00  |RETURN";.(146);.|
00000B90: AD 13 30 0C 99 20 22 20  54 4F 20 43 4F 50 59 20  |..0.. " TO COPY |
00000BA0: 41 4E 4F 54 48 45 52 20  46 49 4C 45 22 00 C7 13  |ANOTHER FILE"...|
00000BB0: 3A 0C A1 20 44 4D 24 3A  8B 20 44 4D 24 B2 22 22  |:.. DM$:. DM$.""|
00000BC0: 20 89 20 33 31 33 30 00  DD 13 44 0C 8B 20 44 4D  | . 3130...D.. DM|
00000BD0: 24 B2 C7 28 31 33 29 20  89 31 30 31 30 00 E3 13  |$..(13) .1010...|
00000BE0: 4E 0C 80 00 01 14 AA 0F  8F 20 4E 4F 20 46 49 4C  |N........ NO FIL|
00000BF0: 45 53 20 45 52 52 4F 52  20 48 41 4E 44 4C 49 4E  |ES ERROR HANDLIN|
00000C00: 47 00 12 14 BE 0F 99 20  C8 29 50 4C 24 2C 32 31  |G...... .)PL$,21|
00000C10: 29 3B 00 31 14 C8 0F 99  20 22 4E 4F 20 46 49 4C  |);.1.... "NO FIL|
00000C20: 45 53 20 4F 4E 20 54 48  49 53 20 44 49 53 4B 2E  |ES ON THIS DISK.|
00000C30: 22 00 4F 14 D2 0F 99 20  22 50 52 45 53 53 20 52  |".O.... "PRESS R|
00000C40: 45 54 55 52 4E 20 54 4F  20 54 52 59 20 22 3B 00  |ETURN TO TRY ";.|
00000C50: 66 14 DC 0F 99 20 22 41  4E 4F 54 48 45 52 20 44  |f.... "ANOTHER D|
00000C60: 49 53 4B 2E 22 3B 00 80  14 E6 0F A1 20 44 4D 24  |ISK.";...... DM$|
00000C70: 3A 8B 20 44 4D 24 B2 22  22 20 89 20 34 30 37 30  |:. DM$."" . 4070|
00000C80: 00 96 14 F0 0F 8B 20 44  4D 24 B2 C7 28 31 33 29  |...... DM$..(13)|
00000C90: 20 89 31 30 31 30 00 9C  14 FA 0F 80 00 BB 14 10  | .1010..........|
00000CA0: 27 83 20 37 36 2C 31 35  2C 33 31 2C 37 36 2C 38  |'. 76,15,31,76,8|
00000CB0: 38 2C 33 31 2C 37 36 2C  31 35 34 00 D7 14 1A 27  |8,31,76,154....'|
00000CC0: 83 20 33 31 2C 31 30 38  2C 33 2C 30 2C 31 30 38  |. 31,108,3,0,108|
00000CD0: 2C 35 2C 30 2C 33 32 00  F9 14 24 27 83 20 39 2C  |,5,0,32...$'. 9,|
00000CE0: 33 31 2C 31 35 32 2C 31  37 30 2C 33 32 2C 31 39  |31,152,170,32,19|
00000CF0: 38 2C 32 35 35 2C 31 36  38 00 1B 15 2E 27 83 20  |8,255,168....'. |
00000D00: 31 37 36 2C 35 37 2C 31  36 39 2C 30 2C 31 33 33  |176,57,169,0,133|
00000D10: 2C 32 35 31 2C 31 36 39  2C 33 32 00 3E 15 38 27  |,251,169,32.>.8'|
00000D20: 83 20 31 33 33 2C 32 35  32 2C 31 36 30 2C 30 2C  |. 133,252,160,0,|
00000D30: 33 32 2C 32 30 37 2C 32  35 35 2C 31 34 35 00 62  |32,207,255,145.b|
00000D40: 15 42 27 83 20 32 35 31  2C 32 33 30 2C 32 35 31  |.B'. 251,230,251|
00000D50: 2C 32 30 38 2C 32 2C 32  33 30 2C 32 35 32 2C 31  |,208,2,230,252,1|
00000D60: 36 35 00 87 15 4C 27 83  20 31 34 34 2C 32 30 38  |65...L'. 144,208|
00000D70: 2C 31 33 2C 31 36 35 2C  32 35 32 2C 32 30 31 2C  |,13,165,252,201,|
00000D80: 31 36 30 2C 31 34 34 00  A9 15 56 27 83 20 32 33  |160,144...V'. 23|
00000D90: 35 2C 33 32 2C 32 30 34  2C 32 35 35 2C 31 36 30  |5,32,204,255,160|
00000DA0: 2C 30 2C 32 34 30 2C 31  39 00 CD 15 60 27 83 20  |,0,240,19...`'. |
00000DB0: 31 36 34 2C 31 34 34 2C  33 32 2C 32 30 34 2C 32  |164,144,32,204,2|
00000DC0: 35 35 2C 31 39 32 2C 36  34 2C 32 30 38 00 F0 15  |55,192,64,208...|
00000DD0: 6A 27 83 20 31 30 2C 31  36 34 2C 32 35 31 2C 31  |j'. 10,164,251,1|
00000DE0: 36 35 2C 32 35 32 2C 35  36 2C 32 33 33 2C 33 32  |65,252,56,233,32|
00000DF0: 00 10 16 74 27 83 20 37  36 2C 31 32 2C 33 31 2C  |...t'. 76,12,31,|
00000E00: 31 36 39 2C 32 34 30 2C  37 36 2C 31 32 2C 33 31  |169,240,76,12,31|
00000E10: 00 31 16 7E 27 83 20 33  32 2C 39 2C 33 31 2C 31  |.1.~'. 32,9,31,1|
00000E20: 35 32 2C 31 37 30 2C 33  32 2C 32 30 31 2C 32 35  |52,170,32,201,25|
00000E30: 35 00 56 16 88 27 83 20  31 36 38 2C 31 37 36 2C  |5.V..'. 168,176,|
00000E40: 32 34 30 2C 31 36 35 2C  32 35 31 2C 31 34 31 2C  |240,165,251,141,|
00000E50: 31 37 34 2C 33 31 00 79  16 92 27 83 20 31 36 35  |174,31.y..'. 165|
00000E60: 2C 32 35 32 2C 31 34 31  2C 31 37 35 2C 33 31 2C  |,252,141,175,31,|
00000E70: 31 36 39 2C 30 2C 31 33  33 00 9C 16 9C 27 83 20  |169,0,133....'. |
00000E80: 32 35 31 2C 31 36 39 2C  33 32 2C 31 33 33 2C 32  |251,169,32,133,2|
00000E90: 35 32 2C 31 36 30 2C 30  2C 31 37 37 00 C0 16 A6  |52,160,0,177....|
00000EA0: 27 83 20 32 35 31 2C 33  32 2C 32 31 30 2C 32 35  |'. 251,32,210,25|
00000EB0: 35 2C 31 36 34 2C 31 34  34 2C 32 30 38 2C 32 30  |5,164,144,208,20|
00000EC0: 00 E4 16 B0 27 83 20 32  33 30 2C 32 35 31 2C 32  |....'. 230,251,2|
00000ED0: 30 38 2C 32 2C 32 33 30  2C 32 35 32 2C 31 36 35  |08,2,230,252,165|
00000EE0: 2C 32 35 32 00 09 17 BA  27 83 20 32 30 35 2C 31  |,252....'. 205,1|
00000EF0: 37 35 2C 33 31 2C 31 34  34 2C 32 33 34 2C 31 36  |75,31,144,234,16|
00000F00: 35 2C 32 35 31 2C 32 30  35 00 2C 17 C4 27 83 20  |5,251,205.,..'. |
00000F10: 31 37 34 2C 33 31 2C 31  34 34 2C 32 32 37 2C 33  |174,31,144,227,3|
00000F20: 32 2C 32 30 34 2C 32 35  35 2C 37 36 00 4B 17 CE  |2,204,255,76.K..|
00000F30: 27 83 20 37 33 2C 33 31  2C 33 32 2C 39 2C 33 31  |'. 73,31,32,9,31|
00000F40: 2C 31 33 32 2C 32 35 31  2C 32 34 00 6E 17 D8 27  |,132,251,24.n..'|
00000F50: 83 20 31 30 35 2C 33 32  2C 31 33 33 2C 32 35 32  |. 105,32,133,252|
00000F60: 2C 31 36 30 2C 30 2C 31  37 37 2C 32 35 31 00 87  |,160,0,177,251..|
00000F70: 17 E2 27 83 20 31 36 38  2C 31 36 39 2C 30 2C 37  |..'. 168,169,0,7|
00000F80: 36 2C 31 32 2C 33 31 00  00 00 85 00              |6,12,31.....    |

.......53281,0:.".".0.... SINGLE DRIVE F
ILE COPY.D.(..52,31:.56,31:..S.-.. I.0 .
173.H.2.. D:. 7936.I,D:..}.7.. 785,0:. 7
86,31...<.PL$.G(19):.53280,0...A.. I.1 .
 24:PL$.PL$.G(17):..P.F.. I.1 . 39:CL$.C
L$." ":....K.CL$.CL$.G(13).CL$.G(13)...P
.CL$.H(PL$,21).CL$.G(145).G(145).3.U.. 1
5,8,15:. OPEN ERROR CHANNEL.>.Z.. 1010.W
.N.. READ THE DIRECTORY.Y.... 785,0:. SE
LCT READ FUNCTION......15,"I":. 2,8,2,"$
".....NB..(2):. LOAD DIRECTORY INTO MEMO
RY.U. . 2:. 810:. CHECK ERROR.........R.
. DISPLAY DISK NAME......785,6:. SELECT 
FETCH CHARACTER.-.... H(PL$,3);G(18);.?.
... K.142 . 169.P.... G(.(K));:..].... G
(146).C.......6.. PRINT DIRECTORY ENTRY 
DE...J.. 785,6:. SELECT FETCH CHARACTER.
J.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));.6.|..:. .16);",";.L.... J("SPU",TY,
1):..F.... GET DESTINAION DISK.Q.... CL$
;...... "INSERT DESTINATION DISK."...B..
"PRESS "G(18);"RETURN";.K.L.. G(146);" W
HEN READY."...V.. DM$:. DM$."" . 470....
.. DM$..G(13) .470......15,"I":..!.... G
ET A FILE TO COPY.9.... CL$;:. EN.63 .58
0.].... UE.128 . . NM$;" TOO LARGE.";...
&.. EN.62 . . NM$;" NOT FOUND.";...0.."E
NTER FILE, TYPE":NM$."":EN.0:UE.0...:.. 
NM$,TY$:....D.. NM$;" EXISTS. ENTER NEW 
NAME"...N.EN.0:NM$."":. NM$:....B.. READ
 THE FILE.&.V.. 785,0: . READ FUNCTION.C
.... 2,8,2,NM$.",".TY$.",R".].... 910:. 
EN..0 .   2:..Y...NB..(2):. READ THE FIL
E.....  2:. 810:. CHECK RESULTS.........
F.. WRITE THE FILE.V.Z.. 785,3:. SELECT 
WRITE FUNCTION...... 2,8,2,NM$.",".TY$."
,W"...... 910:. EN..0 .   2:..+...NB..(2
):. WRITE THE BYTES.I...  2:. 810:. CHEC
K RESULTS.O.....N.*.. CHECK USR() RETURN
 VALUE...>.NB.NB.(NB.0).65536...H.. NB.6
1440 . UE.0:....R.. NB.61440 . UE.128:..
B.\.. CL$;...F.. B(785).0 . . "READ";...
P.. B(785).3 . . "WRITE";...Z.." ERROR #
";NB.61440:..-.... READ ERROR CHANNEL.B.
...15,EN,EM$,ET,ES.A.... EN.0 . EN.62 . 
EN.63 . ..Q...  15:. CL$;...J.. "DISK ER
ROR #";EN...T.. H(PL$,22);EM$:....... MA
IN ROUTINE.O.... G(147);:. CLEAR SCREEN.
..... "       SINGLE DRIVE FILE COPY"...
...:. "READING DIRECTORY".0.$.. 110:. RE
AD THE DIRECTORY.J.... 210:. DISPLAY TIT
LE._.8.NS..((NB.1).254).|.B.. NS.1 . 500
0:. NO FILES...L.DS.1...V.. NS..DS . DS.
1:. START OVER...`.. H(PL$,4);.Q.J.BE.(D
S.1).8.1:LE.BE.15...T.. DS.1.NS . LE.BE.
8...~.. DE.BE . LE...... 310:.:. DISPLAY
 FILES.2.... I.B(214) . 20:. CLEAR.N....
"                    ".T.....N.... 510:.
 GET FILE NAME...... NM$."" . DS.DS.2:. 
1110. .Z.. COPY THE FILE...... CL$;.....
."READING ";NM$.Y.... 610:. READ THE FIL
E...... EN.62 . UE.128 . 1200.....BC.NB:
. SAVE COUNT.-. .. 410:. GET DESTINATION
 DISK.E.*.. CL$;"WRITNG ";NM$.A.4.. 710:
 . WRITE THE FILE.S.>.. EN.0 . 3010...H.
. 510:. GET NEW FILE...R.. NM$.."" . 209
0...\.. CL$;"FILE NOT COPIED".H.F.. 3100
...B.. DISPLAY COMPLETION STATUS...V.. C
L$;...... NB..BC .3060.(.... "COPY SUCCE
SSFUL.  ";:.3070.I.... "ERROR. ONLY ";NB
;" OUT ";.B.... BC;"BYTES COPIED.".X....
 "PRESS ";G(18);...&.. "RETURN";G(146);.
..0.. " TO COPY ANOTHER FILE".G.:.. DM$:
. DM$."" . 3130...D.. DM$.G(13) .1010...
N........ NO FILES ERROR HANDLING...... 
H)PL$,21);.1.H.. "NO FILES ON THIS DISK.
".O.R.. "PRESS RETURN TO TRY ";.F.... "A
NOTHER DISK.";...... DM$:. DM$."" . 4070
...... DM$.G(13) .1010..........'. 76,15
,31,76,88,31,76,154.W..'. 31,108,3,0,108
,5,0,32...$'. 9,31,152,170,32,198,255,16
8....'. 176,57,169,0,133,251,169,32.>.8'
. 133,252,160,0,32,207,255,145.B.B'. 251
,230,251,208,2,230,252,165...L'. 144,208
,13,165,252,201,160,144...V'. 235,32,204
,255,160,0,240,19.M.`'. 164,144,32,204,2
55,192,64,208...J'. 10,164,251,165,252,5
6,233,32...T'. 76,12,31,169,240,76,12,31
.1.~'. 32,9,31,152,170,32,201,255.V..'. 
168,176,240,165,251,141,174,31.Y..'. 165
,252,141,175,31,169,0,133....'. 251,169,
32,133,252,160,0,177....'. 251,32,210,25
5,164,144,208,20....'. 230,251,208,2,230
,252,165,252....'. 205,175,31,144,234,16
5,251,205.,.D'. 174,31,144,227,32,204,25
5,76.K.N'. 73,31,32,9,31,132,251,24.N.X'
. 105,32,133,252,160,0,177,251....'. 168
,169,0,76,12,31.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL