SINGLE COPY III
FILE INFORMATION
FILENAME(S): SINGLE COPY III
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 21:06:24
APPEARS ON: 1 disk(s)
FILE HASH
5172bae255b84fcbbf06e018185d49b3899b3e8230da0d71a6219eedaad33e95
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BLACKSOFT 029 A | SINGLE COPY III | PRG | DuncanTwain | 14 | 12 | 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 2B 09 6E 00 8F 20 52 45 41 44 20 54 48 |10.+.n.. READ TH|
00000120: 45 20 44 49 52 45 43 54 4F 52 59 00 4D 09 82 00 |E DIRECTORY.M...|
00000130: 97 37 38 35 2C 30 3A 8F 20 53 45 4C 45 43 54 20 |.785,0:. SELECT |
00000140: 52 45 41 44 20 46 55 4E 43 54 49 4F 4E 00 64 09 |READ FUNCTION.d.|
00000150: 8C 00 98 31 35 2C 22 49 22 3A 9F 32 2C 38 2C 32 |...15,"I":.2,8,2|
00000160: 2C 22 24 22 00 84 09 96 00 4E 42 B2 B7 28 32 29 |,"$".....NB..(2)|
00000170: 3A 8F 20 4C 4F 41 44 20 44 49 52 20 49 4E 54 4F |:. LOAD DIR INTO|
00000180: 20 4D 45 4D 00 9E 09 A0 00 A0 32 3A 8D 39 31 30 | MEM......2:.910|
00000190: 3A 8F 20 43 48 45 43 4B 20 45 52 52 4F 52 00 A4 |:. CHECK ERROR..|
000001A0: 09 AA 00 8E 00 BC 09 D2 00 8F 20 44 49 53 50 4C |.......... DISPL|
000001B0: 41 59 20 44 49 53 4B 20 4E 41 4D 45 00 DB 09 E6 |AY DISK NAME....|
000001C0: 00 97 37 38 35 2C 36 3A 8F 20 53 45 4C 45 43 54 |..785,6:. SELECT|
000001D0: 20 46 45 54 43 48 20 43 48 41 52 00 F0 09 F0 00 | FETCH CHAR.....|
000001E0: 99 C8 28 50 4C 24 2C 33 29 3B C7 28 31 38 29 3B |..(PL$,3);.(18);|
000001F0: 00 FF 09 FA 00 81 4B B2 31 34 32 A4 31 36 39 00 |......K.142.169.|
00000200: 0F 0A 04 01 99 C7 28 B7 28 4B 29 29 3B 3A 82 00 |......(.(K));:..|
00000210: 1B 0A 0E 01 99 C7 28 31 34 36 29 00 21 0A 18 01 |......(146).!...|
00000220: 8E 00 40 0A 36 01 8F 20 50 52 49 4E 54 20 44 49 |..@.6.. PRINT DI|
00000230: 52 45 43 54 4F 52 59 20 45 4E 54 52 59 20 44 45 |RECTORY ENTRY DE|
00000240: 00 5F 0A 4A 01 97 37 38 35 2C 36 3A 8F 20 53 45 |._.J..785,6:. SE|
00000250: 4C 45 43 54 20 46 45 54 43 48 20 43 48 41 52 00 |LECT FETCH CHAR.|
00000260: 82 0A 54 01 49 58 B2 28 44 45 AB 31 29 AC 33 32 |..T.IX.(DE.1).32|
00000270: AA 32 35 34 AB B5 28 28 44 45 AB 31 29 AD 38 29 |.254..((DE.1).8)|
00000280: AC 32 00 93 0A 59 01 8B B7 28 49 58 29 B3 31 32 |.2...Y...(IX).12|
00000290: 38 A7 8E 00 B2 0A 5E 01 54 59 B2 B7 28 49 58 29 |8.....^.TY..(IX)|
000002A0: AB 31 32 38 3A 8B 54 59 B2 30 B0 54 59 B2 B1 33 |.128:.TY.0.TY..3|
000002B0: A7 8E 00 C4 0A 68 01 81 4B B2 49 58 AA 33 A4 49 |.....h..K.IX.3.I|
000002C0: 58 AA 31 38 00 D2 0A 72 01 99 C7 28 B7 28 4B 29 |X.18...r...(.(K)|
000002D0: 29 3B 00 E3 0A 7C 01 82 3A 99 A3 31 36 29 3B 22 |);...|..:..16);"|
000002E0: 2C 22 3B 00 F8 0A 86 01 99 CA 28 22 53 50 55 22 |,";.......("SPU"|
000002F0: 2C 54 59 2C 31 29 3A 8E 00 13 0B 9A 01 8F 20 47 |,TY,1):....... G|
00000300: 45 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 |ET DESTINATION D|
00000310: 49 53 4B 00 1D 0B AE 01 99 43 4C 24 3B 00 3D 0B |ISK......CL$;.=.|
00000320: B8 01 99 22 49 4E 53 45 52 54 20 44 45 53 54 49 |..."INSERT DESTI|
00000330: 4E 41 54 49 4F 4E 20 44 49 53 4B 2E 22 00 5B 0B |NATION DISK.".[.|
00000340: C2 01 99 22 50 52 45 53 53 20 22 3B C7 28 31 38 |..."PRESS ";.(18|
00000350: 29 3B 22 52 45 54 55 52 4E 22 3B 00 76 0B CC 01 |);"RETURN";.v...|
00000360: 99 C7 28 31 34 36 29 3B 22 20 57 48 45 4E 20 52 |..(146);" WHEN R|
00000370: 45 41 44 59 2E 22 00 8B 0B D6 01 A1 44 4D 24 3A |EADY."......DM$:|
00000380: 8B 44 4D 24 B2 22 22 89 34 37 30 00 9F 0B E0 01 |.DM$."".470.....|
00000390: 8B 44 4D 24 B3 B1 C7 28 31 33 29 89 34 37 30 00 |.DM$...(13).470.|
000003A0: AD 0B EA 01 98 31 35 2C 22 49 22 3A 8E 00 C6 0B |.....15,"I":....|
000003B0: FE 01 8F 20 47 45 54 20 41 20 46 49 4C 45 20 54 |... GET A FILE T|
000003C0: 4F 20 43 4F 50 59 00 DB 0B 12 02 99 43 4C 24 3B |O COPY......CL$;|
000003D0: 3A 8B 45 4E B2 36 33 89 35 38 30 00 FB 0B 1C 02 |:.EN.63.580.....|
000003E0: 8B 55 45 B2 31 32 38 A7 99 4E 4D 24 3B 22 20 54 |.UE.128..NM$;" T|
000003F0: 4F 4F 20 4C 41 52 47 45 2E 22 3B 00 1A 0C 26 02 |OO LARGE.";...&.|
00000400: 8B 45 4E B2 36 32 A7 99 4E 4D 24 3B 22 20 4E 4F |.EN.62..NM$;" NO|
00000410: 54 20 46 4F 55 4E 44 2E 22 3B 00 43 0C 30 02 99 |T FOUND.";.C.0..|
00000420: 20 22 45 4E 54 45 52 20 46 49 4C 45 2C 54 59 50 | "ENTER FILE,TYP|
00000430: 45 22 3A 4E 4D 24 B2 22 22 3A 45 4E B2 30 3A 55 |E":NM$."":EN.0:U|
00000440: 45 B2 30 00 52 0C 3A 02 85 4E 4D 24 2C 54 59 24 |E.0.R.:..NM$,TY$|
00000450: 3A 8E 00 74 0C 44 02 99 4E 4D 24 3B 22 20 45 58 |:..t.D..NM$;" EX|
00000460: 49 53 54 2E 20 45 4E 54 45 52 20 4E 45 57 20 4E |IST. ENTER NEW N|
00000470: 41 4D 45 22 00 8B 0C 4E 02 45 4E B2 30 3A 4E 4D |AME"...N.EN.0:NM|
00000480: 24 B2 22 22 3A 85 4E 4D 24 3A 8E 00 9F 0C 62 02 |$."":.NM$:....b.|
00000490: 8F 20 52 45 41 44 20 54 48 45 20 46 49 4C 45 00 |. READ THE FILE.|
000004A0: C1 0C 76 02 97 37 38 35 2C 30 3A 8F 20 53 45 4C |..v..785,0:. SEL|
000004B0: 45 43 54 20 52 45 41 44 20 46 55 4E 43 54 49 4F |ECT READ FUNCTIO|
000004C0: 4E 00 DD 0C 80 02 9F 32 2C 38 2C 32 2C 4E 4D 24 |N......2,8,2,NM$|
000004D0: AA 22 2C 22 AA 54 59 24 AA 22 2C 52 22 00 F2 0C |.",".TY$.",R"...|
000004E0: 8A 02 8D 39 31 30 3A 8B 45 4E B3 B1 30 A7 A0 32 |...910:.EN..0..2|
000004F0: 3A 8E 00 0E 0D 94 02 4E 42 B2 B7 28 32 29 3A 8F |:......NB..(2):.|
00000500: 20 52 45 41 44 20 54 48 45 20 46 49 4C 45 00 2A | READ THE FILE.*|
00000510: 0D 9E 02 A0 32 3A 8D 38 31 30 3A 8F 20 43 48 45 |....2:.810:. CHE|
00000520: 43 4B 20 52 45 53 55 4C 54 53 00 30 0D A8 02 8E |CK RESULTS.0....|
00000530: 00 45 0D C6 02 8F 20 57 52 49 54 45 20 54 48 45 |.E.... WRITE THE|
00000540: 20 46 49 4C 45 00 69 0D DA 02 97 37 38 35 2C 33 | FILE.i....785,3|
00000550: 3A 3A 8F 20 53 45 4C 45 43 54 20 57 52 49 54 45 |::. SELECT WRITE|
00000560: 20 46 55 4E 43 54 49 4F 4E 00 85 0D E4 02 9F 32 | FUNCTION......2|
00000570: 2C 38 2C 32 2C 4E 4D 24 AA 22 2C 22 AA 54 59 24 |,8,2,NM$.",".TY$|
00000580: AA 22 2C 57 22 00 9A 0D EE 02 8D 39 31 30 3A 8B |.",W"......910:.|
00000590: 45 4E B3 B1 30 A7 A0 32 3A 8E 00 B8 0D F8 02 4E |EN..0..2:......N|
000005A0: 42 B2 B7 28 32 29 3A 8F 20 57 52 49 54 45 20 54 |B..(2):. WRITE T|
000005B0: 48 45 20 42 59 54 45 53 00 D4 0D 02 03 A0 32 3A |HE BYTES......2:|
000005C0: 8D 38 31 30 3A 8F 20 43 48 45 43 4B 20 52 45 53 |.810:. CHECK RES|
000005D0: 55 4C 54 53 00 DA 0D 0C 03 8E 00 F9 0D 2A 03 8F |ULTS.........*..|
000005E0: 20 43 48 45 43 4B 20 55 53 52 28 29 20 52 45 54 | CHECK USR() RET|
000005F0: 55 52 4E 20 56 41 4C 55 45 00 10 0E 3E 03 4E 42 |URN VALUE...>.NB|
00000600: B2 4E 42 AB 28 4E 42 B3 30 29 AC 36 35 35 33 36 |.NB.(NB.0).65536|
00000610: 00 25 0E 48 03 8B 4E 42 B3 36 31 34 34 30 A7 55 |.%.H..NB.61440.U|
00000620: 45 B2 30 3A 8E 00 3C 0E 52 03 8B 4E 42 B2 36 31 |E.0:..<.R..NB.61|
00000630: 34 34 30 A7 55 45 B2 31 32 38 3A 8E 00 46 0E 5C |440.UE.128:..F.\|
00000640: 03 99 43 4C 24 3B 00 5D 0E 66 03 8B C2 28 37 38 |..CL$;.].f...(78|
00000650: 35 29 B2 30 A7 99 22 52 45 41 44 22 3B 00 75 0E |5).0.."READ";.u.|
00000660: 70 03 8B C2 28 37 38 35 29 B2 33 A7 99 22 57 52 |p...(785).3.."WR|
00000670: 49 54 45 22 3B 00 90 0E 7A 03 99 22 20 45 52 52 |ITE";...z.." ERR|
00000680: 4F 52 20 23 22 3B 4E 42 AB 36 31 34 34 30 3A 80 |OR #";NB.61440:.|
00000690: 00 A9 0E 8E 03 8F 20 52 45 41 44 20 45 52 52 4F |...... READ ERRO|
000006A0: 52 20 43 48 41 4E 4E 45 4C 00 BE 0E AC 03 84 31 |R CHANNEL......1|
000006B0: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 D6 |5,EN,EM$,ET,ES..|
000006C0: 0E B6 03 8B 45 4E B2 30 B0 45 4E B2 36 32 B0 45 |....EN.0.EN.62.E|
000006D0: 4E B2 36 33 A7 8E 00 E4 0E C0 03 A0 31 35 3A 99 |N.63........15:.|
000006E0: 43 4C 24 3B 00 FB 0E CA 03 99 22 44 49 53 4B 20 |CL$;......"DISK |
000006F0: 45 52 52 4F 52 20 23 22 3B 45 4E 00 10 0F D4 03 |ERROR #";EN.....|
00000700: 99 C8 28 50 4C 24 2C 32 32 29 3B 45 4D 24 3A 80 |..(PL$,22);EM$:.|
00000710: 00 23 0F F2 03 8F 20 4D 41 49 4E 20 52 4F 55 54 |.#.... MAIN ROUT|
00000720: 49 4E 45 00 3F 0F 06 04 99 C7 28 31 34 37 29 3B |INE.?.....(147);|
00000730: 3A 8F 20 43 4C 45 41 52 20 53 43 52 45 45 4E 00 |:. CLEAR SCREEN.|
00000740: 64 0F 10 04 99 22 A0 A0 A0 A0 A0 A0 A0 53 49 4E |d....".......SIN|
00000750: 47 4C 45 20 44 52 49 56 45 20 46 49 4C 45 20 43 |GLE DRIVE FILE C|
00000760: 4F 50 59 22 00 7F 0F 1A 04 99 3A 99 22 52 45 41 |OPY"......:."REA|
00000770: 44 49 4E 47 20 44 49 52 45 43 54 4F 52 59 22 00 |DING DIRECTORY".|
00000780: 9D 0F 24 04 8D 31 31 30 3A 8F 20 52 45 41 44 20 |..$..110:. READ |
00000790: 54 48 45 20 44 49 52 45 43 54 4F 52 59 00 B6 0F |THE DIRECTORY...|
000007A0: 2E 04 8D 32 31 30 3A 8F 20 44 49 53 50 4C 41 59 |...210:. DISPLAY|
000007B0: 20 54 49 54 4C 45 00 CB 0F 38 04 4E 53 B2 B5 28 | TITLE...8.NS..(|
000007C0: 28 4E 42 AA 31 29 AD 32 35 34 29 00 E5 0F 42 04 |(NB.1).254)...B.|
000007D0: 8B 4E 53 B2 31 89 34 30 31 30 3A 8F 20 4E 4F 20 |.NS.1.4010:. NO |
000007E0: 46 49 4C 45 53 00 EE 0F 4C 04 44 53 B2 31 00 0C |FILES...L.DS.1..|
000007F0: 10 56 04 8B 4E 53 B3 B2 44 53 A7 44 53 B2 31 3A |.V..NS..DS.DS.1:|
00000800: 8F 20 53 54 41 52 54 20 4F 56 45 52 00 1B 10 60 |. START OVER...`|
00000810: 04 99 C8 28 50 4C 24 2C 34 29 3B 00 36 10 6A 04 |...(PL$,4);.6.j.|
00000820: 42 45 B2 28 44 53 AB 31 29 AC 38 AA 31 3A 4C 45 |BE.(DS.1).8.1:LE|
00000830: B2 42 45 AA 31 35 00 4B 10 74 04 8B 44 53 AA 31 |.BE.15.K.t..DS.1|
00000840: B2 4E 53 A7 4C 45 B2 42 45 AA 38 00 59 10 7E 04 |.NS.LE.BE.8.Y.~.|
00000850: 81 44 45 B2 42 45 A4 4C 45 00 74 10 88 04 8D 33 |.DE.BE.LE.t....3|
00000860: 31 30 3A 82 3A 8F 20 44 49 53 50 4C 41 59 20 46 |10:.:. DISPLAY F|
00000870: 49 4C 45 53 00 8D 10 92 04 81 49 B2 C2 28 32 31 |ILES......I..(21|
00000880: 34 29 A4 32 30 3A 8F 20 43 4C 45 41 52 00 A9 10 |4).20:. CLEAR...|
00000890: 9C 04 99 22 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |..."............|
000008A0: A0 A0 A0 A0 A0 A0 A0 A0 22 00 AF 10 A6 04 82 00 |........".......|
000008B0: C8 10 B0 04 8D 35 31 30 3A 8F 20 47 45 54 20 46 |.....510:. GET F|
000008C0: 49 4C 45 20 4E 41 4D 45 00 E2 10 BA 04 8B 4E 4D |ILE NAME......NM|
000008D0: 24 B2 22 22 A7 44 53 B2 44 53 AA 32 3A 89 31 31 |$."".DS.DS.2:.11|
000008E0: 31 30 00 F6 10 DA 07 8F 20 43 4F 50 59 20 54 48 |10...... COPY TH|
000008F0: 45 20 46 49 4C 45 00 00 11 EE 07 99 43 4C 24 3B |E FILE......CL$;|
00000900: 00 14 11 F8 07 99 22 52 45 41 44 49 4E 47 20 22 |......"READING "|
00000910: 3B 4E 4D 24 00 2D 11 02 08 8D 36 31 30 3A 8F 20 |;NM$.-....610:. |
00000920: 52 45 41 44 20 54 48 45 20 46 49 4C 45 00 44 11 |READ THE FILE.D.|
00000930: 0C 08 8B 45 4E B2 36 32 B0 55 45 B2 31 32 38 89 |...EN.62.UE.128.|
00000940: 31 32 30 30 00 5B 11 16 08 42 43 B2 4E 42 3A 8F |1200.[...BC.NB:.|
00000950: 20 53 41 56 45 20 43 4F 55 4E 54 00 75 11 20 08 | SAVE COUNT.u. .|
00000960: 8D 34 31 30 3A 8F 20 47 45 54 20 44 45 53 54 2E |.410:. GET DEST.|
00000970: 20 44 49 53 4B 00 8D 11 2A 08 99 43 4C 24 3B 22 | DISK...*..CL$;"|
00000980: 57 52 49 54 49 4E 47 20 22 3B 4E 4D 24 00 A7 11 |WRITING ";NM$...|
00000990: 34 08 8D 37 31 30 3A 8F 20 57 52 49 54 45 20 54 |4..710:. WRITE T|
000009A0: 48 45 20 46 49 4C 45 00 B6 11 3E 08 8B 45 4E B2 |HE FILE...>..EN.|
000009B0: 30 89 33 30 31 30 00 CE 11 48 08 8D 35 31 30 3A |0.3010...H..510:|
000009C0: 8F 20 47 45 54 20 4E 45 57 20 46 49 4C 45 00 E0 |. GET NEW FILE..|
000009D0: 11 52 08 8B 4E 4D 24 B3 B1 22 22 89 32 30 39 30 |.R..NM$.."".2090|
000009E0: 00 FB 11 5C 08 99 43 4C 24 3B 22 46 49 4C 45 20 |...\..CL$;"FILE |
000009F0: 4E 4F 54 20 43 4F 50 49 45 44 22 00 05 12 66 08 |NOT COPIED"...f.|
00000A00: 89 33 31 30 30 00 25 12 C2 0B 8F 20 44 49 53 50 |.3100.%.... DISP|
00000A10: 4C 41 59 20 43 4F 4D 50 4C 45 54 49 4F 4E 20 53 |LAY COMPLETION S|
00000A20: 54 41 54 55 53 00 2F 12 D6 0B 99 43 4C 24 3B 00 |TATUS./....CL$;.|
00000A30: 40 12 E0 0B 8B 4E 42 B3 B1 42 43 89 33 30 36 30 |@....NB..BC.3060|
00000A40: 00 60 12 EA 0B 99 22 43 4F 50 59 20 53 55 43 43 |.`...."COPY SUCC|
00000A50: 45 53 46 55 4C 2E A0 A0 22 3B 3A 89 33 30 37 30 |ESFUL...";:.3070|
00000A60: 00 80 12 F4 0B 99 22 45 52 52 4F 52 2E 20 4F 4E |......"ERROR. ON|
00000A70: 4C 59 20 22 3B 4E 42 3B 22 20 4F 55 54 20 22 3B |LY ";NB;" OUT ";|
00000A80: 00 98 12 FE 0B 99 42 43 3B 22 42 59 54 45 53 20 |......BC;"BYTES |
00000A90: 43 4F 50 49 45 44 2E 22 00 AD 12 1C 0C 99 22 50 |COPIED."......"P|
00000AA0: 52 45 53 53 20 22 3B C7 28 31 38 29 3B 00 C3 12 |RESS ";.(18);...|
00000AB0: 26 0C 99 22 52 45 54 55 52 4E 22 3B C7 28 31 34 |&.."RETURN";.(14|
00000AC0: 36 29 3B 00 E0 12 30 0C 99 22 20 54 4F 20 43 4F |6);...0.." TO CO|
00000AD0: 50 59 20 41 4E 4F 54 48 45 52 20 46 49 4C 45 22 |PY ANOTHER FILE"|
00000AE0: 00 F6 12 3A 0C A1 44 4D 24 3A 8B 44 4D 24 B2 22 |...:..DM$:.DM$."|
00000AF0: 22 89 33 31 33 30 00 0A 13 44 0C 8B 44 4D 24 B2 |".3130...D..DM$.|
00000B00: C7 28 31 33 29 89 31 30 31 30 00 10 13 4E 0C 80 |.(13).1010...N..|
00000B10: 00 2E 13 AA 0F 8F 20 4E 4F 20 46 49 4C 45 53 20 |...... NO FILES |
00000B20: 45 52 52 4F 52 20 48 41 4E 44 4C 49 4E 47 00 3E |ERROR HANDLING.>|
00000B30: 13 BE 0F 99 C8 28 50 4C 24 2C 32 31 29 3B 00 5B |.....(PL$,21);.[|
00000B40: 13 C8 0F 99 22 4E 4F 20 46 49 4C 45 53 20 4F 4E |...."NO FILES ON|
00000B50: 20 54 48 45 20 44 49 53 4B 2E 22 00 78 13 D2 0F | THE DISK.".x...|
00000B60: 99 22 50 52 45 53 53 20 52 45 54 55 52 4E 20 54 |."PRESS RETURN T|
00000B70: 4F 20 54 52 59 20 22 3B 00 8E 13 DC 0F 99 22 41 |O TRY ";......"A|
00000B80: 4E 4F 54 48 45 52 20 44 49 53 4B 2E 22 3B 00 A4 |NOTHER DISK.";..|
00000B90: 13 E6 0F A1 44 4D 24 3A 8B 44 4D 24 B2 22 22 89 |....DM$:.DM$."".|
00000BA0: 34 30 37 30 00 B8 13 F0 0F 8B 44 4D 24 B2 C7 28 |4070......DM$..(|
00000BB0: 31 33 29 89 31 30 31 30 00 BE 13 FA 0F 80 00 DD |13).1010........|
00000BC0: 13 10 27 83 20 37 36 2C 31 35 2C 33 31 2C 37 36 |..'. 76,15,31,76|
00000BD0: 2C 38 38 2C 33 31 2C 37 36 2C 31 35 34 00 F9 13 |,88,31,76,154...|
00000BE0: 1A 27 83 20 33 31 2C 31 30 38 2C 33 2C 30 2C 31 |.'. 31,108,3,0,1|
00000BF0: 30 38 2C 35 2C 30 2C 33 32 00 1B 14 24 27 83 20 |08,5,0,32...$'. |
00000C00: 39 2C 33 31 2C 31 35 32 2C 31 37 30 2C 33 32 2C |9,31,152,170,32,|
00000C10: 31 39 38 2C 32 35 35 2C 31 36 38 00 3D 14 2E 27 |198,255,168.=..'|
00000C20: 83 20 31 37 36 2C 35 37 2C 31 36 39 2C 30 2C 31 |. 176,57,169,0,1|
00000C30: 33 33 2C 32 35 31 2C 31 36 39 2C 33 32 00 60 14 |33,251,169,32.`.|
00000C40: 38 27 83 20 31 33 33 2C 32 35 32 2C 31 36 30 2C |8'. 133,252,160,|
00000C50: 30 2C 33 32 2C 32 30 37 2C 32 35 35 2C 31 34 35 |0,32,207,255,145|
00000C60: 00 84 14 42 27 83 20 32 35 31 2C 32 33 30 2C 32 |...B'. 251,230,2|
00000C70: 35 31 2C 32 30 38 2C 32 2C 32 33 30 2C 32 35 32 |51,208,2,230,252|
00000C80: 2C 31 36 35 00 A9 14 4C 27 83 20 31 34 34 2C 32 |,165...L'. 144,2|
00000C90: 30 38 2C 31 33 2C 31 36 35 2C 32 35 32 2C 32 30 |08,13,165,252,20|
00000CA0: 31 2C 31 36 30 2C 31 34 34 00 CB 14 56 27 83 20 |1,160,144...V'. |
00000CB0: 32 33 35 2C 33 32 2C 32 30 34 2C 32 35 35 2C 31 |235,32,204,255,1|
00000CC0: 36 30 2C 30 2C 32 34 30 2C 31 39 00 EF 14 60 27 |60,0,240,19...`'|
00000CD0: 83 20 31 36 34 2C 31 34 34 2C 33 32 2C 32 30 34 |. 164,144,32,204|
00000CE0: 2C 32 35 35 2C 31 39 32 2C 36 34 2C 32 30 38 00 |,255,192,64,208.|
00000CF0: 12 15 6A 27 83 20 31 30 2C 31 36 34 2C 32 35 31 |..j'. 10,164,251|
00000D00: 2C 31 36 35 2C 32 35 32 2C 35 36 2C 32 33 33 2C |,165,252,56,233,|
00000D10: 33 32 00 32 15 74 27 83 20 37 36 2C 31 32 2C 33 |32.2.t'. 76,12,3|
00000D20: 31 2C 31 36 39 2C 32 34 30 2C 37 36 2C 31 32 2C |1,169,240,76,12,|
00000D30: 33 31 00 53 15 7E 27 83 20 33 32 2C 39 2C 33 31 |31.S.~'. 32,9,31|
00000D40: 2C 31 35 32 2C 31 37 30 2C 33 32 2C 32 30 31 2C |,152,170,32,201,|
00000D50: 32 35 35 00 78 15 88 27 83 20 31 36 38 2C 31 37 |255.x..'. 168,17|
00000D60: 36 2C 32 34 30 2C 31 36 35 2C 32 35 31 2C 31 34 |6,240,165,251,14|
00000D70: 31 2C 31 37 34 2C 33 31 00 9B 15 92 27 83 20 31 |1,174,31....'. 1|
00000D80: 36 35 2C 32 35 32 2C 31 34 31 2C 31 37 35 2C 33 |65,252,141,175,3|
00000D90: 31 2C 31 36 39 2C 30 2C 31 33 33 00 BE 15 9C 27 |1,169,0,133....'|
00000DA0: 83 20 32 35 31 2C 31 36 39 2C 33 32 2C 31 33 33 |. 251,169,32,133|
00000DB0: 2C 32 35 32 2C 31 36 30 2C 30 2C 31 37 37 00 E2 |,252,160,0,177..|
00000DC0: 15 A6 27 83 20 32 35 31 2C 33 32 2C 32 31 30 2C |..'. 251,32,210,|
00000DD0: 32 35 35 2C 31 36 34 2C 31 34 34 2C 32 30 38 2C |255,164,144,208,|
00000DE0: 32 30 00 06 16 B0 27 83 20 32 33 30 2C 32 35 31 |20....'. 230,251|
00000DF0: 2C 32 30 38 2C 32 2C 32 33 30 2C 32 35 32 2C 31 |,208,2,230,252,1|
00000E00: 36 35 2C 32 35 32 00 2B 16 BA 27 83 20 32 30 35 |65,252.+..'. 205|
00000E10: 2C 31 37 35 2C 33 31 2C 31 34 34 2C 32 33 34 2C |,175,31,144,234,|
00000E20: 31 36 35 2C 32 35 31 2C 32 30 35 00 4E 16 C4 27 |165,251,205.N..'|
00000E30: 83 20 31 37 34 2C 33 31 2C 31 34 34 2C 32 32 37 |. 174,31,144,227|
00000E40: 2C 33 32 2C 32 30 34 2C 32 35 35 2C 37 36 00 6D |,32,204,255,76.m|
00000E50: 16 CE 27 83 20 37 33 2C 33 31 2C 33 32 2C 39 2C |..'. 73,31,32,9,|
00000E60: 33 31 2C 31 33 32 2C 32 35 31 2C 32 34 00 90 16 |31,132,251,24...|
00000E70: D8 27 83 20 31 30 35 2C 33 32 2C 31 33 33 2C 32 |.'. 105,32,133,2|
00000E80: 35 32 2C 31 36 30 2C 30 2C 31 37 37 2C 32 35 31 |52,160,0,177,251|
00000E90: 00 A9 16 E2 27 83 20 31 36 38 2C 31 36 39 2C 30 |....'. 168,169,0|
00000EA0: 2C 37 36 2C 31 32 2C 33 31 00 00 00 00 |,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 THE DIRECTORY.M....785,0:. SELECT
READ FUNCTION.D....15,"I":.2,8,2,"$"....
.NB..(2):. LOAD DIR INTO MEM... . 2:.910
:. CHECK ERROR.........R.. DISPLAY DISK
NAME......785,6:. SELECT FETCH CHAR.....
.H(PL$,3);G(18);......K.142.169......G(.
(K));:.......G(146).!.....@.6.. PRINT DI
RECTORY ENTRY DE._.J..785,6:. SELECT FET
CH CHAR...T.IX.(DE.1).32.254..((DE.1).8)
.2...Y...(IX).128.....^.TY..(IX).128:.TY
.0.TY..3...D.H..K.IX.3.IX.18.R.R..G(.(K)
);...|..:..16);",";......J("SPU",TY,1):.
...... GET DESTINATION DISK......CL$;.=.
..."INSERT DESTINATION DISK.".[.B.."PRES
S ";G(18);"RETURN";.V.L..G(146);" WHEN R
EADY."...V..DM$:.DM$."".470......DM$..G(
13).470......15,"I":..F.... GET A FILE T
O COPY......CL$;:.EN.63.580......UE.128.
.NM$;" TOO LARGE.";...&..EN.62..NM$;" NO
T FOUND.";.C.0.. "ENTER FILE,TYPE":NM$."
":EN.0:UE.0.R.:..NM$,TY$:..T.D..NM$;" EX
IST. ENTER NEW NAME"...N.EN.0:NM$."":.NM
$:....B.. READ THE FILE.A.V..785,0:. SEL
ECT READ FUNCTION......2,8,2,NM$.",".TY$
.",R"......910:.EN..0. 2:......NB..(2):.
READ THE FILE.*... 2:.810:. CHECK RESUL
TS.0.....E.F.. WRITE THE FILE.I.Z..785,3
::. SELECT WRITE FUNCTION......2,8,2,NM$
.",".TY$.",W"......910:.EN..0. 2:......N
B..(2):. WRITE THE BYTES.T... 2:.810:. C
HECK RESULTS.Z.......*.. CHECK USR() RET
URN VALUE...>.NB.NB.(NB.0).65536.%.H..NB
.61440.UE.0:..<.R..NB.61440.UE.128:..F.\
..CL$;.].F..B(785).0.."READ";.U.P..B(785
).3.."WRITE";...Z.." ERROR #";NB.61440:.
...... READ ERROR CHANNEL......15,EN,EM$
,ET,ES.V....EN.0.EN.62.EN.63....... 15:.
CL$;...J.."DISK ERROR #";EN...T..H(PL$,2
2);EM$:..#.... MAIN ROUTINE.?....G(147);
:. CLEAR SCREEN.D...." SINGLE DRIV
E FILE COPY".....:."READING DIRECTORY".
..$..110:. READ THE DIRECTORY......210:.
DISPLAY TITLE.K.8.NS..((NB.1).254)...B.
.NS.1.4010:. NO FILES...L.DS.1...V..NS..
DS.DS.1:. START OVER...`..H(PL$,4);.6.J.
BE.(DS.1).8.1:LE.BE.15.K.T..DS.1.NS.LE.B
E.8.Y.~..DE.BE.LE.T....310:.:. DISPLAY F
ILES......I.B(214).20:. CLEAR......"
".......H....510:. GET F
ILE NAME......NM$."".DS.DS.2:.1110...Z..
COPY THE FILE......CL$;......"READING "
;NM$.-....610:. READ THE FILE.D....EN.62
.UE.128.1200.[...BC.NB:. SAVE COUNT.U. .
.410:. GET DEST. DISK...*..CL$;"WRITING
";NM$...4..710:. WRITE THE FILE...>..EN.
0.3010.N.H..510:. GET NEW FILE...R..NM$.
."".2090...\..CL$;"FILE NOT COPIED"...F.
.3100.%.B.. DISPLAY COMPLETION STATUS./.
V..CL$;.@....NB..BC.3060.`...."COPY SUCC
ESFUL. ";:.3070......"ERROR. ONLY ";NB;
" OUT ";......BC;"BYTES COPIED."......"P
RESS ";G(18);.C.&.."RETURN";G(146);...0.
." TO COPY ANOTHER FILE"...:..DM$:.DM$."
".3130...D..DM$.G(13).1010...N........ N
O FILES ERROR HANDLING.>....H(PL$,21);.[
.H.."NO FILES ON THE DISK.".X.R.."PRESS
RETURN TO TRY ";......"ANOTHER DISK.";..
....DM$:.DM$."".4070......DM$.G(13).1010
..........'. 76,15,31,76,88,31,76,154...
.'. 31,108,3,0,108,5,0,32...$'. 9,31,152
,170,32,198,255,168.=..'. 176,57,169,0,1
33,251,169,32.`.8'. 133,252,160,0,32,207
,255,145...B'. 251,230,251,208,2,230,252
,165...L'. 144,208,13,165,252,201,160,14
4.K.V'. 235,32,204,255,160,0,240,19...`'
. 164,144,32,204,255,192,64,208...J'. 10
,164,251,165,252,56,233,32.2.T'. 76,12,3
1,169,240,76,12,31.S.~'. 32,9,31,152,170
,32,201,255.X..'. 168,176,240,165,251,14
1,174,31....'. 165,252,141,175,31,169,0,
133....'. 251,169,32,133,252,160,0,177..
..'. 251,32,210,255,164,144,208,20....'.
230,251,208,2,230,252,165,252.+..'. 205
,175,31,144,234,165,251,205.N.D'. 174,31
,144,227,32,204,255,76.M.N'. 73,31,32,9,
31,132,251,24...X'. 105,32,133,252,160,0
,177,251....'. 168,169,0,76,12,31....
> CLICK IMAGE PREVIEW FOR FULL MODAL