COPY 64
FILE INFORMATION
FILENAME(S): COPY 64
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 21:11:56
APPEARS ON: 1 disk(s)
FILE HASH
d74e6a8fc1ea2016984819aa0e46f98864890e76da0c3ea0ef81c9d1f559c51f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TOOLKITS | COPY 64 | PRG | DuncanTwain | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 14 00 8F 20 53 49 4E 47 4C 45 20 44 |....... SINGLE D|
00000010: 52 49 56 45 20 46 49 4C 45 20 43 4F 50 59 00 32 |RIVE FILE COPY.2|
00000020: 08 28 00 97 35 32 2C 33 31 3A 97 35 36 2C 33 31 |.(..52,31:.56,31|
00000030: 3A 9C 00 3F 08 2D 00 81 49 B2 30 A4 31 37 33 00 |:..?.-..I.0.173.|
00000040: 52 08 32 00 87 44 3A 97 37 39 33 36 AA 49 2C 44 |R.2..D:.7936.I,D|
00000050: 3A 82 00 65 08 37 00 97 37 38 35 2C 30 3A 97 37 |:..e.7..785,0:.7|
00000060: 38 36 2C 33 31 00 73 08 3C 00 50 4C 24 B2 C7 28 |86,31.s.<.PL$..(|
00000070: 31 39 29 00 8F 08 41 00 81 49 B2 31 A4 32 34 3A |19)...A..I.1.24:|
00000080: 50 4C 24 B2 50 4C 24 AA C7 28 31 37 29 3A 82 00 |PL$.PL$..(17):..|
00000090: A9 08 46 00 81 49 B2 31 A4 33 39 3A 43 4C 24 B2 |..F..I.1.39:CL$.|
000000A0: 43 4C 24 AA 22 20 22 3A 82 00 C5 08 4B 00 43 4C |CL$." ":....K.CL|
000000B0: 24 B2 43 4C 24 AA C7 28 31 33 29 AA 43 4C 24 AA |$.CL$..(13).CL$.|
000000C0: C7 28 31 33 29 00 E9 08 50 00 43 4C 24 B2 C8 28 |.(13)...P.CL$..(|
000000D0: 50 4C 24 2C 32 31 29 AA 43 4C 24 AA C7 28 31 34 |PL$,21).CL$..(14|
000000E0: 35 29 AA C7 28 31 34 35 29 00 08 09 55 00 9F 31 |5)..(145)...U..1|
000000F0: 35 2C 38 2C 31 35 3A 8F 20 4F 50 45 4E 20 45 52 |5,8,15:. OPEN ER|
00000100: 52 4F 52 20 43 48 41 4E 00 12 09 5A 00 89 31 30 |ROR CHAN...Z..10|
00000110: 31 30 00 27 09 6E 00 8F 20 52 45 41 44 20 44 49 |10.'.n.. READ DI|
00000120: 52 45 43 54 4F 52 59 00 49 09 82 00 97 37 38 35 |RECTORY.I....785|
00000130: 2C 30 3A 8F 20 53 45 4C 45 43 54 20 52 45 41 44 |,0:. SELECT READ|
00000140: 20 46 55 4E 43 54 49 4F 4E 00 60 09 8C 00 98 31 | FUNCTION.`....1|
00000150: 35 2C 22 49 22 3A 9F 32 2C 38 2C 32 2C 22 24 22 |5,"I":.2,8,2,"$"|
00000160: 00 80 09 96 00 4E 42 B2 B7 28 32 29 3A 8F 20 4C |.....NB..(2):. L|
00000170: 4F 41 44 20 44 49 52 20 49 4E 54 4F 20 4D 45 4D |OAD DIR INTO MEM|
00000180: 00 9B 09 A0 00 A0 32 3A 8D 38 31 30 3A 8F 20 43 |......2:.810:. C|
00000190: 48 45 43 4B 20 45 52 52 4F 52 59 00 A1 09 AA 00 |HECK ERRORY.....|
000001A0: 8E 00 B9 09 D2 00 8F 20 44 49 53 50 4C 41 59 20 |....... DISPLAY |
000001B0: 44 49 53 4B 20 4E 41 4D 45 00 D8 09 E6 00 97 37 |DISK NAME......7|
000001C0: 38 35 2C 36 3A 8F 20 53 45 4C 45 43 54 20 46 45 |85,6:. SELECT FE|
000001D0: 54 43 48 20 43 48 41 52 00 ED 09 F0 00 99 C8 28 |TCH CHAR.......(|
000001E0: 50 4C 24 2C 33 29 3B C7 28 31 38 29 3B 00 FC 09 |PL$,3);.(18);...|
000001F0: FA 00 81 4B B2 31 34 32 A4 31 36 39 00 0C 0A 04 |...K.142.169....|
00000200: 01 99 C7 28 B7 28 4B 29 29 3B 3A 82 00 18 0A 0E |...(.(K));:.....|
00000210: 01 99 C7 28 31 34 36 29 00 1E 0A 18 01 8E 00 3D |...(146).......=|
00000220: 0A 36 01 8F 20 50 52 49 4E 54 20 44 49 52 45 43 |.6.. PRINT DIREC|
00000230: 54 4F 52 59 20 45 4E 54 52 59 20 44 45 00 5C 0A |TORY ENTRY DE.\.|
00000240: 4A 01 97 37 38 35 2C 36 3A 8F 20 53 45 4C 45 43 |J..785,6:. SELEC|
00000250: 54 20 46 45 54 43 48 20 43 48 41 52 00 7F 0A 54 |T FETCH CHAR...T|
00000260: 01 49 58 B2 28 44 45 AB 31 29 AC 33 32 AA 32 35 |.IX.(DE.1).32.25|
00000270: 34 AB B5 28 28 44 45 AB 31 29 AD 38 29 AC 32 00 |4..((DE.1).8).2.|
00000280: 91 0A 59 01 8B B7 28 49 58 29 B3 31 32 38 A7 20 |..Y...(IX).128. |
00000290: 8E 00 B0 0A 5E 01 54 59 B2 B7 28 49 58 29 AB 31 |....^.TY..(IX).1|
000002A0: 32 38 3A 8B 54 59 B2 30 B0 54 59 B1 33 A7 20 8E |28:.TY.0.TY.3. .|
000002B0: 00 C2 0A 68 01 81 4B B2 49 58 AA 33 A4 49 58 AA |...h..K.IX.3.IX.|
000002C0: 31 38 00 D0 0A 72 01 99 C7 28 B7 28 4B 29 29 3B |18...r...(.(K));|
000002D0: 00 E1 0A 7C 01 82 3A 99 A3 31 36 29 3B 22 2C 22 |...|..:..16);","|
000002E0: 3B 00 F6 0A 86 01 99 CA 28 22 53 50 55 22 2C 54 |;.......("SPU",T|
000002F0: 59 2C 31 29 3A 8E 00 11 0B 9A 01 8F 20 47 45 54 |Y,1):....... GET|
00000300: 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 | DESTINATION DIS|
00000310: 4B 00 1B 0B AE 01 99 43 4C 24 3B 00 3B 0B B8 01 |K......CL$;.;...|
00000320: 99 22 49 4E 53 45 52 54 20 44 45 53 54 49 4E 41 |."INSERT DESTINA|
00000330: 54 49 4F 4E 20 44 49 53 4B 2E 22 00 58 0B C2 01 |TION DISK.".X...|
00000340: 99 22 50 52 45 53 53 22 3B C7 28 31 38 29 3B 22 |."PRESS";.(18);"|
00000350: 52 45 54 55 52 4E 22 3B 00 72 0B CC 01 99 C7 28 |RETURN";.r.....(|
00000360: 31 34 36 29 3B 22 57 48 45 4E 20 52 45 41 44 59 |146);"WHEN READY|
00000370: 2E 22 00 87 0B D6 01 A1 44 4D 24 3A 8B 44 4D 24 |."......DM$:.DM$|
00000380: B2 22 22 89 34 37 30 00 9B 0B E0 01 8B 44 4D 24 |."".470......DM$|
00000390: B3 B1 C7 28 31 33 29 89 34 37 30 00 A9 0B EA 01 |...(13).470.....|
000003A0: 98 31 35 2C 22 49 22 3A 8E 00 C2 0B FE 01 8F 20 |.15,"I":....... |
000003B0: 47 45 54 20 41 20 46 49 4C 45 20 54 4F 20 43 4F |GET A FILE TO CO|
000003C0: 50 59 00 D6 0B 12 02 99 43 4C 24 3A 8B 45 4E B2 |PY......CL$:.EN.|
000003D0: 36 33 89 35 38 30 00 F5 0B 1C 02 8B 55 45 B2 31 |63.580......UE.1|
000003E0: 32 38 A7 99 4E 4D 24 3B 22 54 4F 4F 20 4C 41 52 |28..NM$;"TOO LAR|
000003F0: 47 45 2E 22 3B 00 13 0C 26 02 8B 45 4E B2 36 32 |GE.";...&..EN.62|
00000400: A7 99 4E 4D 24 3B 22 4E 4F 54 20 46 4F 55 4E 44 |..NM$;"NOT FOUND|
00000410: 2E 22 3B 00 3B 0C 30 02 99 22 45 4E 54 45 52 20 |.";.;.0.."ENTER |
00000420: 46 49 4C 45 2C 54 59 50 45 22 3A 4E 4D 24 B2 22 |FILE,TYPE":NM$."|
00000430: 22 3A 45 4E B2 30 3A 55 45 B2 30 00 4A 0C 3A 02 |":EN.0:UE.0.J.:.|
00000440: 85 4E 4D 24 2C 54 59 24 3A 8E 00 6B 0C 44 02 99 |.NM$,TY$:..k.D..|
00000450: 4E 4D 24 3B 22 45 58 49 53 54 53 2E 45 4E 54 45 |NM$;"EXISTS.ENTE|
00000460: 52 20 4E 45 57 20 4E 41 4D 45 22 00 82 0C 4E 02 |R NEW NAME"...N.|
00000470: 45 4E B2 30 3A 4E 4D 24 B2 22 22 3A 85 4E 4D 24 |EN.0:NM$."":.NM$|
00000480: 3A 8E 00 96 0C 62 02 8F 20 52 45 41 44 20 54 48 |:....b.. READ TH|
00000490: 45 20 46 49 4C 45 00 B8 0C 76 02 97 37 38 35 2C |E FILE...v..785,|
000004A0: 30 3A 8F 20 53 45 4C 45 43 54 20 52 45 41 44 20 |0:. SELECT READ |
000004B0: 46 55 4E 43 54 49 4F 4E 00 D4 0C 80 02 9F 32 2C |FUNCTION......2,|
000004C0: 38 2C 32 2C 4E 4D 24 AA 22 2C 22 AA 54 59 24 AA |8,2,NM$.",".TY$.|
000004D0: 22 2C 52 22 00 E9 0C 8A 02 8D 39 31 30 3A 8B 45 |",R"......910:.E|
000004E0: 4E B3 B1 30 A7 A0 32 3A 8E 00 05 0D 94 02 4E 42 |N..0..2:......NB|
000004F0: B2 B7 28 32 29 3A 8F 20 52 45 41 44 20 54 48 45 |..(2):. READ THE|
00000500: 20 46 49 4C 45 00 21 0D 9E 02 A0 32 3A 8D 38 31 | FILE.!....2:.81|
00000510: 30 3A 8F 20 43 48 45 43 4B 20 52 45 53 55 4C 54 |0:. CHECK RESULT|
00000520: 53 00 27 0D A8 02 8E 00 3C 0D C6 02 8F 20 57 52 |S.'.....<.... WR|
00000530: 49 54 45 20 54 48 45 20 46 49 4C 45 00 5F 0D DA |ITE THE FILE._..|
00000540: 02 97 37 38 35 2C 33 3A 8F 20 53 45 4C 45 43 54 |..785,3:. SELECT|
00000550: 20 57 52 49 54 45 20 46 55 4E 43 54 49 4F 4E 00 | WRITE FUNCTION.|
00000560: 7B 0D E4 02 9F 32 2C 38 2C 32 2C 4E 4D 24 AA 22 |{....2,8,2,NM$."|
00000570: 2C 22 AA 54 59 24 AA 22 2C 57 22 00 90 0D EE 02 |,".TY$.",W".....|
00000580: 8D 39 31 30 3A 8B 45 4E B3 B1 30 A7 A0 32 3A 8E |.910:.EN..0..2:.|
00000590: 00 AE 0D F8 02 4E 42 B2 B7 28 32 29 3A 8F 20 57 |.....NB..(2):. W|
000005A0: 52 49 54 45 20 54 48 45 20 42 59 54 45 53 00 CA |RITE THE BYTES..|
000005B0: 0D 02 03 A0 32 3A 8D 38 31 30 3A 8F 20 43 48 45 |....2:.810:. CHE|
000005C0: 43 4B 20 52 45 53 55 4C 54 53 00 D0 0D 0C 03 8E |CK RESULTS......|
000005D0: 00 EE 0D 2A 03 8F 20 43 48 45 43 4B 20 55 53 52 |...*.. CHECK USR|
000005E0: 28 29 52 45 54 55 52 4E 20 56 41 4C 55 45 00 05 |()RETURN VALUE..|
000005F0: 0E 3E 03 4E 42 B2 4E 42 AB 28 4E 42 B3 30 29 AC |.>.NB.NB.(NB.0).|
00000600: 36 35 35 33 36 00 1A 0E 48 03 8B 4E 42 B3 36 31 |65536...H..NB.61|
00000610: 34 34 30 A7 55 45 B2 30 3A 8E 00 31 0E 52 03 8B |440.UE.0:..1.R..|
00000620: 4E 42 B2 36 31 34 34 30 A7 55 45 B2 31 32 38 3A |NB.61440.UE.128:|
00000630: 8E 00 3B 0E 5C 03 99 43 4C 24 3B 00 52 0E 66 03 |..;.\..CL$;.R.f.|
00000640: 8B C2 28 37 38 35 29 B2 30 A7 99 22 52 45 41 44 |..(785).0.."READ|
00000650: 22 3B 00 6A 0E 70 03 8B C2 28 37 38 35 29 B2 33 |";.j.p...(785).3|
00000660: A7 99 22 57 52 49 54 45 22 3B 00 83 0E 7A 03 99 |.."WRITE";...z..|
00000670: 22 45 52 52 4F 52 23 22 3B 4E 42 AB 36 31 34 34 |"ERROR#";NB.6144|
00000680: 30 3A 80 00 9C 0E 8E 03 8F 20 52 45 41 44 20 45 |0:....... READ E|
00000690: 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 B1 0E AC |RROR CHANNEL....|
000006A0: 03 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 |..15,EN,EM$,ET,E|
000006B0: 53 00 C9 0E B6 03 8B 45 4E B2 30 B0 45 4E B2 36 |S......EN.0.EN.6|
000006C0: 32 B0 45 4E B2 36 33 A7 8E 00 D7 0E C0 03 A0 31 |2.EN.63........1|
000006D0: 35 3A 99 43 4C 24 3B 00 ED 0E CA 03 99 22 44 49 |5:.CL$;......"DI|
000006E0: 53 4B 20 45 52 52 4F 52 23 22 3B 45 4E 00 02 0F |SK ERROR#";EN...|
000006F0: D4 03 99 C8 28 50 4C 24 2C 32 32 29 3B 45 4D 24 |....(PL$,22);EM$|
00000700: 3A 80 00 15 0F F2 03 8F 20 4D 41 49 4E 20 52 4F |:....... MAIN RO|
00000710: 55 54 49 4E 45 00 31 0F 06 04 99 C7 28 31 34 37 |UTINE.1.....(147|
00000720: 29 3B 3A 8F 20 43 4C 45 41 52 20 53 43 52 45 45 |);:. CLEAR SCREE|
00000730: 4E 00 5B 0F 10 04 99 22 20 20 20 20 20 20 20 53 |N.[...." S|
00000740: 49 4E 47 4C 45 20 44 49 53 4B 20 44 52 49 56 45 |INGLE DISK DRIVE|
00000750: 20 46 49 4C 45 20 43 4F 50 59 22 00 76 0F 1A 04 | FILE COPY".v...|
00000760: 99 3A 99 22 52 45 41 44 49 4E 47 20 44 49 52 45 |.:."READING DIRE|
00000770: 43 54 4F 52 59 22 00 94 0F 24 04 8D 31 31 30 3A |CTORY"...$..110:|
00000780: 8F 20 52 45 41 44 20 54 48 45 20 44 49 52 45 43 |. READ THE DIREC|
00000790: 54 4F 52 59 00 AD 0F 2E 04 8D 32 31 30 3A 8F 20 |TORY......210:. |
000007A0: 44 49 53 50 4C 41 59 20 54 49 54 4C 45 00 C2 0F |DISPLAY TITLE...|
000007B0: 38 04 4E 53 B2 B5 28 28 4E 42 AA 31 29 AD 32 35 |8.NS..((NB.1).25|
000007C0: 34 29 00 DC 0F 42 04 8B 4E 53 B2 31 89 34 30 31 |4)...B..NS.1.401|
000007D0: 30 3A 8F 20 4E 4F 20 46 49 4C 45 53 00 E5 0F 4C |0:. NO FILES...L|
000007E0: 04 44 53 B2 31 00 03 10 56 04 8B 4E 53 B3 B2 44 |.DS.1...V..NS..D|
000007F0: 53 A7 44 53 B2 31 3A 8F 20 53 54 41 52 54 20 4F |S.DS.1:. START O|
00000800: 56 45 52 00 12 10 60 04 99 C8 28 50 4C 24 2C 34 |VER...`...(PL$,4|
00000810: 29 3B 00 2D 10 6A 04 42 45 B2 28 44 53 AB 31 29 |);.-.j.BE.(DS.1)|
00000820: AC 38 AA 31 3A 4C 45 B2 42 45 AA 31 35 00 42 10 |.8.1:LE.BE.15.B.|
00000830: 74 04 8B 44 53 AA 31 B2 4E 53 A7 4C 45 B2 42 45 |t..DS.1.NS.LE.BE|
00000840: AA 38 00 50 10 7E 04 81 44 45 B2 42 45 A4 4C 45 |.8.P.~..DE.BE.LE|
00000850: 00 6B 10 88 04 8D 33 31 30 3A 82 3A 8F 20 44 49 |.k....310:.:. DI|
00000860: 53 50 4C 41 59 20 46 49 4C 45 53 00 84 10 92 04 |SPLAY FILES.....|
00000870: 81 49 B2 C2 28 32 31 34 29 A4 32 30 3A 8F 20 43 |.I..(214).20:. C|
00000880: 4C 45 41 52 00 A0 10 9C 04 99 22 20 20 20 20 20 |LEAR......" |
00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000008A0: 00 A6 10 A6 04 82 00 BF 10 B0 04 8D 35 31 30 3A |............510:|
000008B0: 8F 20 47 45 54 20 46 49 4C 45 20 4E 41 4D 45 00 |. GET FILE NAME.|
000008C0: D9 10 BA 04 8B 4E 4D 24 B2 22 22 A7 44 53 B2 44 |.....NM$."".DS.D|
000008D0: 53 AA 32 3A 89 31 31 31 30 00 ED 10 DA 07 8F 20 |S.2:.1110...... |
000008E0: 43 4F 50 59 20 54 48 45 20 46 49 4C 45 00 F7 10 |COPY THE FILE...|
000008F0: EE 07 99 43 4C 24 3B 00 0B 11 F8 07 99 22 52 45 |...CL$;......"RE|
00000900: 41 44 49 4E 47 20 22 3B 4E 4D 24 00 24 11 02 08 |ADING ";NM$.$...|
00000910: 8D 36 31 30 3A 8F 20 52 45 41 44 20 54 48 45 20 |.610:. READ THE |
00000920: 46 49 4C 45 00 3B 11 0C 08 8B 45 4E B2 36 32 B0 |FILE.;....EN.62.|
00000930: 55 45 B2 31 32 38 89 31 32 30 30 00 52 11 16 08 |UE.128.1200.R...|
00000940: 42 43 B2 4E 42 3A 8F 20 53 41 56 45 20 43 4F 55 |BC.NB:. SAVE COU|
00000950: 4E 54 00 6B 11 20 08 8D 34 31 30 3A 8F 20 47 45 |NT.k. ..410:. GE|
00000960: 54 20 44 49 53 54 2E 44 49 53 4B 00 83 11 2A 08 |T DIST.DISK...*.|
00000970: 99 43 4C 24 3B 22 57 52 49 54 49 4E 47 20 22 3B |.CL$;"WRITING ";|
00000980: 4E 4D 24 00 9D 11 34 08 8D 37 31 30 3A 8F 20 57 |NM$...4..710:. W|
00000990: 52 49 54 45 20 54 48 45 20 46 49 4C 45 00 AC 11 |RITE THE FILE...|
000009A0: 3E 08 8B 45 4E B2 30 89 33 30 31 30 00 C4 11 48 |>..EN.0.3010...H|
000009B0: 08 8D 35 31 30 3A 8F 20 47 45 54 20 4E 45 57 20 |..510:. GET NEW |
000009C0: 46 49 4C 45 00 D6 11 52 08 8B 4E 4D 24 B3 B1 22 |FILE...R..NM$.."|
000009D0: 22 89 32 30 39 30 00 F1 11 5C 08 99 43 4C 24 3B |".2090...\..CL$;|
000009E0: 22 46 49 4C 45 20 4E 4F 54 20 43 4F 50 49 45 44 |"FILE NOT COPIED|
000009F0: 22 00 FB 11 66 08 89 33 31 30 30 00 1B 12 C2 0B |"...f..3100.....|
00000A00: 8F 20 44 49 53 50 4C 41 59 20 43 4F 4D 50 4C 45 |. DISPLAY COMPLE|
00000A10: 54 49 4F 4E 20 53 54 41 54 55 53 00 25 12 D6 0B |TION STATUS.%...|
00000A20: 99 43 4C 24 3B 00 36 12 E0 0B 8B 4E 42 B3 B1 42 |.CL$;.6....NB..B|
00000A30: 43 89 33 30 36 30 00 56 12 EA 0B 99 22 43 4F 50 |C.3060.V...."COP|
00000A40: 59 20 53 55 43 43 45 53 46 55 4C 2E 20 20 22 3B |Y SUCCESFUL. ";|
00000A50: 3A 89 33 30 37 30 00 76 12 F4 0B 99 22 45 52 52 |:.3070.v...."ERR|
00000A60: 4F 52 2E 20 4F 4E 4C 59 20 22 3B 4E 42 3B 22 20 |OR. ONLY ";NB;" |
00000A70: 4F 55 54 20 22 3B 00 8E 12 FE 0B 99 42 43 3B 22 |OUT ";......BC;"|
00000A80: 42 59 54 45 53 20 43 4F 50 49 45 44 2E 22 00 A3 |BYTES COPIED."..|
00000A90: 12 1C 0C 99 22 50 52 45 53 53 20 22 3B C7 28 31 |...."PRESS ";.(1|
00000AA0: 38 29 3B 00 B9 12 26 0C 99 22 52 45 54 55 52 4E |8);...&.."RETURN|
00000AB0: 22 3B C7 28 31 34 36 29 3B 00 D5 12 30 0C 99 22 |";.(146);...0.."|
00000AC0: 54 4F 20 43 4F 50 59 20 41 4E 4F 54 48 45 52 20 |TO COPY ANOTHER |
00000AD0: 46 49 4C 45 22 00 EC 12 3A 0C A1 20 44 4D 24 3A |FILE"...:.. DM$:|
00000AE0: 8B 44 4D 24 B2 22 22 89 33 31 33 30 00 00 13 44 |.DM$."".3130...D|
00000AF0: 0C 8B 44 4D 24 B2 C7 28 31 33 29 89 31 30 31 30 |..DM$..(13).1010|
00000B00: 00 06 13 4E 0C 80 00 24 13 AA 0F 8F 20 4E 4F 20 |...N...$.... NO |
00000B10: 46 49 4C 45 53 20 45 52 52 4F 52 20 48 41 4E 44 |FILES ERROR HAND|
00000B20: 4C 49 4E 47 00 34 13 BE 0F 99 C8 28 50 4C 24 2C |LING.4.....(PL$,|
00000B30: 32 31 29 3B 00 52 13 C8 0F 99 22 4E 4F 20 46 49 |21);.R...."NO FI|
00000B40: 4C 45 53 20 4F 4E 20 54 48 49 53 20 44 49 53 4B |LES ON THIS DISK|
00000B50: 2E 22 00 6F 13 D2 0F 99 22 50 52 45 53 53 20 52 |.".o...."PRESS R|
00000B60: 45 54 55 52 4E 20 54 4F 20 54 52 59 20 22 3B 00 |ETURN TO TRY ";.|
00000B70: 85 13 DC 0F 99 22 41 4E 4F 54 48 45 52 20 44 49 |....."ANOTHER DI|
00000B80: 53 4B 2E 22 3B 00 9B 13 E6 0F A1 44 4D 24 3A 8B |SK.";......DM$:.|
00000B90: 44 4D 24 B2 22 22 89 34 30 37 30 00 AF 13 F0 0F |DM$."".4070.....|
00000BA0: 8B 44 4D 24 B2 C7 28 31 33 29 89 31 30 31 30 00 |.DM$..(13).1010.|
00000BB0: B5 13 FA 0F 80 00 D3 13 10 27 83 37 36 2C 31 35 |.........'.76,15|
00000BC0: 2C 33 31 2C 37 36 2C 38 38 2C 33 31 2C 37 36 2C |,31,76,88,31,76,|
00000BD0: 31 35 34 00 EE 13 1A 27 83 33 31 2C 31 30 38 2C |154....'.31,108,|
00000BE0: 33 2C 30 2C 31 30 38 2C 35 2C 30 2C 33 32 00 0F |3,0,108,5,0,32..|
00000BF0: 14 24 27 83 39 2C 33 31 2C 31 35 32 2C 31 37 30 |.$'.9,31,152,170|
00000C00: 2C 33 32 2C 31 39 38 2C 32 35 35 2C 31 36 38 00 |,32,198,255,168.|
00000C10: 30 14 2E 27 83 31 37 36 2C 35 37 2C 31 36 39 2C |0..'.176,57,169,|
00000C20: 30 2C 31 33 33 2C 32 35 31 2C 31 36 39 2C 33 32 |0,133,251,169,32|
00000C30: 00 52 14 38 27 83 31 33 33 2C 32 35 32 2C 31 36 |.R.8'.133,252,16|
00000C40: 30 2C 30 2C 33 32 2C 32 30 37 2C 32 35 35 2C 31 |0,0,32,207,255,1|
00000C50: 34 35 00 75 14 42 27 83 32 35 31 2C 32 33 30 2C |45.u.B'.251,230,|
00000C60: 32 35 31 2C 32 30 38 2C 32 2C 32 33 30 2C 32 35 |251,208,2,230,25|
00000C70: 32 2C 31 36 35 00 99 14 4C 27 83 31 34 34 2C 32 |2,165...L'.144,2|
00000C80: 30 38 2C 31 33 2C 31 36 35 2C 32 35 32 2C 32 30 |08,13,165,252,20|
00000C90: 31 2C 31 36 30 2C 31 34 34 00 BA 14 56 27 83 32 |1,160,144...V'.2|
00000CA0: 33 35 2C 33 32 2C 32 30 34 2C 32 35 35 2C 31 36 |35,32,204,255,16|
00000CB0: 30 2C 30 2C 32 34 30 2C 31 39 00 DD 14 60 27 83 |0,0,240,19...`'.|
00000CC0: 31 36 34 2C 31 34 34 2C 33 32 2C 32 30 34 2C 32 |164,144,32,204,2|
00000CD0: 35 35 2C 31 39 32 2C 36 34 2C 32 30 38 00 FF 14 |55,192,64,208...|
00000CE0: 6A 27 83 31 30 2C 31 36 34 2C 32 35 31 2C 31 36 |j'.10,164,251,16|
00000CF0: 35 2C 32 35 32 2C 35 36 2C 32 33 33 2C 33 32 00 |5,252,56,233,32.|
00000D00: 1E 15 74 27 83 37 36 2C 31 32 2C 33 31 2C 31 36 |..t'.76,12,31,16|
00000D10: 39 2C 32 34 30 2C 37 36 2C 31 32 2C 33 31 00 3E |9,240,76,12,31.>|
00000D20: 15 7E 27 83 33 32 2C 39 2C 33 31 2C 31 35 32 2C |.~'.32,9,31,152,|
00000D30: 31 37 30 2C 33 32 2C 32 30 31 2C 32 35 35 00 62 |170,32,201,255.b|
00000D40: 15 88 27 83 31 36 38 2C 31 37 36 2C 32 34 30 2C |..'.168,176,240,|
00000D50: 31 36 35 2C 32 35 31 2C 31 34 31 2C 31 37 34 2C |165,251,141,174,|
00000D60: 33 31 00 84 15 92 27 83 31 36 35 2C 32 35 32 2C |31....'.165,252,|
00000D70: 31 34 31 2C 31 37 35 2C 33 31 2C 31 36 39 2C 30 |141,175,31,169,0|
00000D80: 2C 31 33 33 00 A6 15 9C 27 83 32 35 31 2C 31 36 |,133....'.251,16|
00000D90: 39 2C 33 32 2C 31 33 33 2C 32 35 32 2C 31 36 30 |9,32,133,252,160|
00000DA0: 2C 30 2C 31 37 37 00 C9 15 A6 27 83 32 35 31 2C |,0,177....'.251,|
00000DB0: 33 32 2C 32 31 30 2C 32 35 35 2C 31 36 34 2C 31 |32,210,255,164,1|
00000DC0: 34 34 2C 32 30 38 2C 32 30 00 EC 15 B0 27 83 32 |44,208,20....'.2|
00000DD0: 33 30 2C 32 35 31 2C 32 30 38 2C 32 2C 32 33 30 |30,251,208,2,230|
00000DE0: 2C 32 35 32 2C 31 36 35 2C 32 35 32 00 10 16 BA |,252,165,252....|
00000DF0: 27 83 32 30 35 2C 31 37 35 2C 33 31 2C 31 34 34 |'.205,175,31,144|
00000E00: 2C 32 33 34 2C 31 36 35 2C 32 35 31 2C 32 30 35 |,234,165,251,205|
00000E10: 00 32 16 C4 27 83 31 37 34 2C 33 31 2C 31 34 34 |.2..'.174,31,144|
00000E20: 2C 32 32 37 2C 33 32 2C 32 30 34 2C 32 35 35 2C |,227,32,204,255,|
00000E30: 37 36 00 50 16 CE 27 83 37 33 2C 33 31 2C 33 32 |76.P..'.73,31,32|
00000E40: 2C 39 2C 33 31 2C 31 33 32 2C 32 35 31 2C 32 34 |,9,31,132,251,24|
00000E50: 00 72 16 D8 27 83 31 30 35 2C 33 32 2C 31 33 33 |.r..'.105,32,133|
00000E60: 2C 32 35 32 2C 31 36 30 2C 30 2C 31 37 37 2C 32 |,252,160,0,177,2|
00000E70: 35 31 00 8A 16 E2 27 83 31 36 38 2C 31 36 39 2C |51....'.168,169,|
00000E80: 30 2C 37 36 2C 31 32 2C 33 31 00 00 00 C2 |0,76,12,31.... |
....... SINGLE DRIVE FILE COPY.2.(..52,3
1:.56,31:..?.-..I.0.173.R.2..D:.7936.I,D
:..E.7..785,0:.786,31.S.<.PL$.G(19)...A.
.I.1.24:PL$.PL$.G(17):....F..I.1.39:CL$.
CL$." ":..E.K.CL$.CL$.G(13).CL$.G(13)...
P.CL$.H(PL$,21).CL$.G(145).G(145)...U..1
5,8,15:. OPEN ERROR CHAN...Z..1010.'.N..
READ DIRECTORY.I....785,0:. SELECT READ
FUNCTION.`....15,"I":.2,8,2,"$".....NB.
.(2):. LOAD DIR INTO MEM... . 2:.810:. C
HECK ERRORY.........R.. DISPLAY DISK NAM
E.X....785,6:. SELECT FETCH CHAR......H(
PL$,3);G(18);......K.142.169......G(.(K)
);:.......G(146).......=.6.. PRINT DIREC
TORY ENTRY DE.\.J..785,6:. SELECT FETCH
CHAR..T.IX.(DE.1).32.254..((DE.1).8).2.
..Y...(IX).128. ....^.TY..(IX).128:.TY.0
.TY.3. ..B.H..K.IX.3.IX.18.P.R..G(.(K));
...|..:..16);",";......J("SPU",TY,1):...
.... GET DESTINATION DISK......CL$;.;...
."INSERT DESTINATION DISK.".X.B.."PRESS"
;G(18);"RETURN";.R.L..G(146);"WHEN READY
."...V..DM$:.DM$."".470......DM$..G(13).
470......15,"I":..B.... GET A FILE TO CO
PY.V....CL$:.EN.63.580......UE.128..NM$;
"TOO LARGE.";...&..EN.62..NM$;"NOT FOUND
.";.;.0.."ENTER FILE,TYPE":NM$."":EN.0:U
E.0.J.:..NM$,TY$:..K.D..NM$;"EXISTS.ENTE
R NEW NAME"...N.EN.0:NM$."":.NM$:....B..
READ THE FILE...V..785,0:. SELECT READ
FUNCTION.T....2,8,2,NM$.",".TY$.",R"....
..910:.EN..0. 2:......NB..(2):. READ THE
FILE.!... 2:.810:. CHECK RESULTS.'.....
<.F.. WRITE THE FILE._.Z..785,3:. SELECT
WRITE FUNCTION.{....2,8,2,NM$.",".TY$."
,W"......910:.EN..0. 2:......NB..(2):. W
RITE THE BYTES.J... 2:.810:. CHECK RESUL
TS.P.......*.. CHECK USR()RETURN VALUE..
.>.NB.NB.(NB.0).65536...H..NB.61440.UE.0
:..1.R..NB.61440.UE.128:..;.\..CL$;.R.F.
.B(785).0.."READ";.J.P..B(785).3.."WRITE
";...Z.."ERROR#";NB.61440:....... READ E
RROR CHANNEL......15,EN,EM$,ET,ES.I....E
N.0.EN.62.EN.63...W... 15:.CL$;...J.."DI
SK ERROR#";EN...T..H(PL$,22);EM$:.......
MAIN ROUTINE.1....G(147);:. CLEAR SCREE
N.[...." SINGLE DISK DRIVE FILE CO
PY".V....:."READING DIRECTORY"...$..110:
. READ THE DIRECTORY......210:. DISPLAY
TITLE.B.8.NS..((NB.1).254)...B..NS.1.401
0:. NO FILES...L.DS.1...V..NS..DS.DS.1:.
START OVER...`..H(PL$,4);.-.J.BE.(DS.1)
.8.1:LE.BE.15.B.T..DS.1.NS.LE.BE.8.P.~..
DE.BE.LE.K....310:.:. DISPLAY FILES.....
.I.B(214).20:. CLEAR. ...."
"............510:. GET FILE NAME.
Y....NM$."".DS.DS.2:.1110...Z.. COPY THE
FILE......CL$;......"READING ";NM$.$...
.610:. READ THE FILE.;....EN.62.UE.128.1
200.R...BC.NB:. SAVE COUNT.K. ..410:. GE
T DIST.DISK...*..CL$;"WRITING ";NM$...4.
.710:. WRITE THE FILE...>..EN.0.3010.D.H
..510:. GET NEW FILE.V.R..NM$.."".2090..
.\..CL$;"FILE NOT COPIED"...F..3100...B.
. DISPLAY COMPLETION STATUS.%.V..CL$;.6.
...NB..BC.3060.V...."COPY SUCCESFUL. ";
:.3070.V...."ERROR. ONLY ";NB;" OUT ";..
....BC;"BYTES COPIED."......"PRESS ";G(1
8);...&.."RETURN";G(146);.U.0.."TO COPY
ANOTHER FILE"...:.. DM$:.DM$."".3130...D
..DM$.G(13).1010...N...$.... NO FILES ER
ROR HANDLING.4....H(PL$,21);.R.H.."NO FI
LES ON THIS DISK.".O.R.."PRESS RETURN TO
TRY ";......"ANOTHER DISK.";......DM$:.
DM$."".4070......DM$.G(13).1010.......S.
.'.76,15,31,76,88,31,76,154....'.31,108,
3,0,108,5,0,32...$'.9,31,152,170,32,198,
255,168.0..'.176,57,169,0,133,251,169,32
.R.8'.133,252,160,0,32,207,255,145.U.B'.
251,230,251,208,2,230,252,165...L'.144,2
08,13,165,252,201,160,144...V'.235,32,20
4,255,160,0,240,19...`'.164,144,32,204,2
55,192,64,208...J'.10,164,251,165,252,56
,233,32...T'.76,12,31,169,240,76,12,31.>
.~'.32,9,31,152,170,32,201,255.B..'.168,
176,240,165,251,141,174,31....'.165,252,
141,175,31,169,0,133....'.251,169,32,133
,252,160,0,177.I..'.251,32,210,255,164,1
44,208,20....'.230,251,208,2,230,252,165
,252....'.205,175,31,144,234,165,251,205
.2.D'.174,31,144,227,32,204,255,76.P.N'.
73,31,32,9,31,132,251,24.R.X'.105,32,133
,252,160,0,177,251....'.168,169,0,76,12,
31...B
> CLICK IMAGE PREVIEW FOR FULL MODAL