2-COPY
FILE INFORMATION
FILENAME(S): 2-COPY
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 20:09:34
APPEARS ON: 1 disk(s)
FILE HASH
a111dd911a7feb55dc2b44835a6f0488e7066f3ce10d99b0c75d1d357819e9d2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 43 SIDE B | 2-COPY | PRG | Curtcool, Klaus & Jan | 19 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 01 00 8F 20 2A 2A 2A 2A 44 4F 55 42 |..(.... ****DOUB|
00000010: 4C 45 20 44 52 49 56 45 20 46 49 4C 45 20 43 4F |LE DRIVE FILE CO|
00000020: 50 49 45 52 2A 2A 2A 2A 00 3C 08 28 00 97 35 32 |PIER****.<.(..52|
00000030: 2C 33 31 3A 97 35 36 2C 33 31 3A 9C 00 49 08 2D |,31:.56,31:..I.-|
00000040: 00 81 49 B2 30 A4 31 37 33 00 5C 08 32 00 87 44 |..I.0.173.\.2..D|
00000050: 3A 97 37 39 33 36 AA 49 2C 44 3A 82 00 6F 08 37 |:.7936.I,D:..o.7|
00000060: 00 97 37 38 35 2C 30 3A 97 37 38 36 2C 33 31 00 |..785,0:.786,31.|
00000070: 7D 08 3C 00 50 4C 24 B2 C7 28 31 39 29 00 99 08 |}.<.PL$..(19)...|
00000080: 41 00 81 49 B2 31 A4 32 34 3A 50 4C 24 B2 50 4C |A..I.1.24:PL$.PL|
00000090: 24 AA C7 28 31 37 29 3A 82 00 B3 08 46 00 81 49 |$..(17):....F..I|
000000A0: B2 31 A4 33 39 3A 43 4C 24 B2 43 4C 24 AA 22 20 |.1.39:CL$.CL$." |
000000B0: 22 3A 82 00 CF 08 4B 00 43 4C 24 B2 43 4C 24 AA |":....K.CL$.CL$.|
000000C0: C7 28 31 33 29 AA 43 4C 24 AA C7 28 31 33 29 00 |.(13).CL$..(13).|
000000D0: F3 08 50 00 43 4C 24 B2 C8 28 50 4C 24 2C 32 31 |..P.CL$..(PL$,21|
000000E0: 29 AA 43 4C 24 AA C7 28 31 34 35 29 AA C7 28 31 |).CL$..(145)..(1|
000000F0: 34 35 29 00 15 09 55 00 9F 31 35 2C 38 2C 31 35 |45)...U..15,8,15|
00000100: 3A 8F 20 4F 50 45 4E 20 45 52 52 4F 52 20 43 48 |:. OPEN ERROR CH|
00000110: 41 4E 4E 45 4C 00 1F 09 5A 00 89 31 30 30 30 00 |ANNEL...Z..1000.|
00000120: 38 09 64 00 8F 20 52 45 41 44 20 54 48 45 20 44 |8.d.. READ THE D|
00000130: 49 52 45 43 54 4F 52 59 00 5A 09 82 00 97 37 38 |IRECTORY.Z....78|
00000140: 35 2C 30 3A 8F 20 53 45 4C 45 43 54 20 52 45 41 |5,0:. SELECT REA|
00000150: 44 20 46 55 4E 43 54 49 4F 4E 00 71 09 8C 00 98 |D FUNCTION.q....|
00000160: 31 35 2C 22 49 22 3A 9F 32 2C 38 2C 32 2C 22 24 |15,"I":.2,8,2,"$|
00000170: 22 00 91 09 96 00 4E 42 B2 B7 28 32 29 3A 8F 20 |".....NB..(2):. |
00000180: 4C 4F 41 44 20 44 49 52 20 49 4E 54 4F 20 4D 45 |LOAD DIR INTO ME|
00000190: 4D 00 AB 09 A0 00 A0 32 3A 8D 38 30 30 3A 8F 20 |M......2:.800:. |
000001A0: 43 48 45 43 4B 20 45 52 52 4F 52 00 B1 09 AA 00 |CHECK ERROR.....|
000001B0: 8E 00 D6 09 C8 00 8F 20 44 49 53 50 4C 41 59 20 |....... DISPLAY |
000001C0: 44 49 53 4B 20 4E 41 4D 45 52 45 41 44 20 46 55 |DISK NAMEREAD FU|
000001D0: 4E 43 54 49 4F 4E 00 F5 09 E6 00 97 37 38 35 2C |NCTION......785,|
000001E0: 36 3A 8F 20 53 45 4C 45 43 54 20 46 45 54 43 48 |6:. SELECT FETCH|
000001F0: 20 43 48 41 52 00 0A 0A F0 00 99 C8 28 50 4C 24 | CHAR.......(PL$|
00000200: 2C 33 29 3B C7 28 31 38 29 3B 00 19 0A FA 00 81 |,3);.(18);......|
00000210: 4B B2 31 34 32 A4 31 36 39 00 29 0A 04 01 99 C7 |K.142.169.).....|
00000220: 28 B7 28 4B 29 29 3B 3A 82 00 35 0A 0E 01 99 C7 |(.(K));:..5.....|
00000230: 28 31 34 36 29 00 3B 0A 18 01 8E 00 5A 0A 2C 01 |(146).;.....Z.,.|
00000240: 8F 20 50 52 49 4E 54 20 44 49 52 45 43 54 4F 52 |. PRINT DIRECTOR|
00000250: 59 20 45 4E 54 52 59 20 44 45 00 79 0A 4A 01 97 |Y ENTRY DE.y.J..|
00000260: 37 38 35 2C 36 3A 8F 20 53 45 4C 45 43 54 20 46 |785,6:. SELECT F|
00000270: 45 54 43 48 20 43 48 41 52 00 9C 0A 54 01 49 58 |ETCH CHAR...T.IX|
00000280: B2 28 44 45 AB 31 29 AC 33 32 AA 32 35 34 AB B5 |.(DE.1).32.254..|
00000290: 28 28 44 45 AB 31 29 AD 38 29 AC 32 00 AD 0A 59 |((DE.1).8).2...Y|
000002A0: 01 8B B7 28 49 58 29 B3 31 32 38 A7 8E 00 CC 0A |...(IX).128.....|
000002B0: 5E 01 54 59 B2 B7 28 49 58 29 AB 31 32 38 3A 8B |^.TY..(IX).128:.|
000002C0: 54 59 B2 30 B0 54 59 B1 33 A7 20 8E 00 DE 0A 68 |TY.0.TY.3. ....h|
000002D0: 01 81 4B B2 49 58 AA 33 A4 49 58 AA 31 38 00 EC |..K.IX.3.IX.18..|
000002E0: 0A 72 01 99 C7 28 B7 28 4B 29 29 3B 00 FD 0A 7C |.r...(.(K));...||
000002F0: 01 82 3A 99 A3 31 36 29 3B 22 2C 22 3B 00 12 0B |..:..16);",";...|
00000300: 86 01 99 CA 28 22 53 50 55 22 2C 54 59 2C 31 29 |....("SPU",TY,1)|
00000310: 3A 8E 00 2D 0B 90 01 8F 20 47 45 54 20 44 45 53 |:..-.... GET DES|
00000320: 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 00 37 0B |TINATION DISK.7.|
00000330: AE 01 99 43 4C 24 3B 00 55 0B B8 01 99 22 43 48 |...CL$;.U...."CH|
00000340: 45 43 4B 20 44 49 53 4B 20 4F 4E 20 44 52 49 56 |ECK DISK ON DRIV|
00000350: 45 20 39 2E 22 00 73 0B C2 01 99 22 50 52 45 53 |E 9.".s...."PRES|
00000360: 53 20 22 3B C7 28 31 38 29 3B 22 52 45 54 55 52 |S ";.(18);"RETUR|
00000370: 4E 22 3B 00 8E 0B CC 01 99 C7 28 31 34 36 29 3B |N";.......(146);|
00000380: 22 20 57 48 45 4E 20 52 45 41 44 59 2E 22 00 A3 |" WHEN READY."..|
00000390: 0B D6 01 A1 44 4D 24 3A 8B 44 4D 24 B2 22 22 A7 |....DM$:.DM$."".|
000003A0: 34 37 30 00 B7 0B E0 01 8B 44 4D 24 B3 B1 C7 28 |470......DM$...(|
000003B0: 31 33 29 A7 34 37 30 00 C5 0B EA 01 98 31 35 2C |13).470......15,|
000003C0: 22 49 22 3A 8E 00 DE 0B F4 01 8F 20 47 45 54 20 |"I":....... GET |
000003D0: 41 20 46 49 4C 45 20 54 4F 20 43 4F 50 59 00 F3 |A FILE TO COPY..|
000003E0: 0B 12 02 99 43 4C 24 3B 3A 8B 45 4E B2 36 33 A7 |....CL$;:.EN.63.|
000003F0: 35 38 30 00 13 0C 1C 02 8B 55 45 B2 31 32 38 A7 |580......UE.128.|
00000400: 99 4E 4D 24 3B 22 20 54 4F 4F 20 4C 41 52 47 45 |.NM$;" TOO LARGE|
00000410: 2E 22 3B 00 32 0C 26 02 8B 45 4E B2 36 32 A7 99 |.";.2.&..EN.62..|
00000420: 4E 4D 24 3B 22 20 4E 4F 54 20 46 4F 55 4E 44 2E |NM$;" NOT FOUND.|
00000430: 22 3B 00 5A 0C 30 02 99 22 45 4E 54 45 52 20 46 |";.Z.0.."ENTER F|
00000440: 49 4C 45 2C 54 59 50 45 22 3A 4E 4D 24 B2 22 22 |ILE,TYPE":NM$.""|
00000450: 3A 45 4E B2 30 3A 55 45 B2 30 00 69 0C 3A 02 85 |:EN.0:UE.0.i.:..|
00000460: 4E 4D 24 2C 54 59 24 3A 8E 00 8C 0C 44 02 99 4E |NM$,TY$:....D..N|
00000470: 4D 24 3B 22 20 45 58 49 53 54 53 2E 20 45 4E 54 |M$;" EXISTS. ENT|
00000480: 45 52 20 4E 45 57 20 4E 41 4D 45 22 00 A3 0C 4E |ER NEW NAME"...N|
00000490: 02 45 4E B2 30 3A 4E 4D 24 B2 22 22 3A 85 4E 4D |.EN.0:NM$."":.NM|
000004A0: 24 3A 8E 00 B7 0C 58 02 8F 20 52 45 41 44 20 54 |$:....X.. READ T|
000004B0: 48 45 20 46 49 4C 45 00 D9 0C 76 02 97 37 38 35 |HE FILE...v..785|
000004C0: 2C 30 3A 8F 20 53 45 4C 45 43 54 20 52 45 41 44 |,0:. SELECT READ|
000004D0: 20 46 55 4E 43 54 49 4F 4E 00 F5 0C 80 02 9F 32 | FUNCTION......2|
000004E0: 2C 38 2C 32 2C 4E 4D 24 AA 22 2C 22 AA 54 59 24 |,8,2,NM$.",".TY$|
000004F0: AA 22 2C 52 22 00 0A 0D 8A 02 8D 39 30 30 3A 8B |.",R"......900:.|
00000500: 45 4E B3 B1 30 A7 A0 32 3A 8E 00 26 0D 94 02 4E |EN..0..2:..&...N|
00000510: 42 B2 B7 28 32 29 3A 8F 20 52 45 41 44 20 54 48 |B..(2):. READ TH|
00000520: 45 20 46 49 4C 45 00 42 0D 9E 02 A0 32 3A 8D 38 |E FILE.B....2:.8|
00000530: 30 30 3A 8F 20 43 48 45 43 4B 20 52 45 53 55 4C |00:. CHECK RESUL|
00000540: 54 53 00 48 0D A8 02 8E 00 5D 0D BC 02 8F 20 57 |TS.H.....].... W|
00000550: 52 49 54 45 20 54 48 45 20 46 49 4C 45 00 80 0D |RITE THE FILE...|
00000560: DA 02 97 37 38 35 2C 33 3A 8F 20 53 45 4C 45 43 |...785,3:. SELEC|
00000570: 54 20 57 52 49 54 45 20 46 55 4E 43 54 49 4F 4E |T WRITE FUNCTION|
00000580: 00 9C 0D E4 02 9F 32 2C 39 2C 32 2C 4E 4D 24 AA |......2,9,2,NM$.|
00000590: 22 2C 22 AA 54 59 24 AA 22 2C 57 22 00 B1 0D EE |",".TY$.",W"....|
000005A0: 02 8D 39 30 30 3A 8B 45 4E B3 B1 30 A7 A0 32 3A |..900:.EN..0..2:|
000005B0: 8E 00 CF 0D F8 02 4E 42 B2 B7 28 32 29 3A 8F 20 |......NB..(2):. |
000005C0: 57 52 49 54 45 20 54 48 45 20 42 59 54 45 53 00 |WRITE THE BYTES.|
000005D0: EB 0D 02 03 A0 32 3A 8D 38 30 30 3A 8F 20 43 48 |.....2:.800:. CH|
000005E0: 45 43 4B 20 52 45 53 55 4C 54 53 00 F1 0D 0C 03 |ECK RESULTS.....|
000005F0: 8E 00 10 0E 20 03 8F 20 43 48 45 43 4B 20 55 53 |.... .. CHECK US|
00000600: 52 28 29 20 52 45 54 55 52 4E 20 56 41 4C 55 45 |R() RETURN VALUE|
00000610: 00 27 0E 3E 03 4E 42 B2 4E 42 AB 28 4E 42 B3 30 |.'.>.NB.NB.(NB.0|
00000620: 29 AC 36 35 35 33 36 00 3C 0E 48 03 8B 4E 42 B3 |).65536.<.H..NB.|
00000630: 36 31 34 34 30 A7 55 45 B2 30 3A 8E 00 53 0E 52 |61440.UE.0:..S.R|
00000640: 03 8B 4E 42 B2 36 31 34 34 30 A7 55 45 B2 31 32 |..NB.61440.UE.12|
00000650: 38 3A 8E 00 5D 0E 5C 03 99 43 4C 24 3B 00 74 0E |8:..].\..CL$;.t.|
00000660: 66 03 8B C2 28 37 38 35 29 B2 30 A7 99 22 52 45 |f...(785).0.."RE|
00000670: 41 44 22 3B 00 8C 0E 70 03 8B C2 28 37 38 35 29 |AD";...p...(785)|
00000680: B2 33 A7 99 22 57 52 49 54 45 22 3B 00 A7 0E 7A |.3.."WRITE";...z|
00000690: 03 99 22 20 45 52 52 4F 52 20 23 22 3B 4E 42 B2 |.." ERROR #";NB.|
000006A0: 36 31 34 34 30 3A 80 00 C0 0E 84 03 8F 20 52 45 |61440:....... RE|
000006B0: 41 44 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C |AD ERROR CHANNEL|
000006C0: 00 D5 0E AC 03 84 31 35 2C 45 4E 2C 45 4D 24 2C |......15,EN,EM$,|
000006D0: 45 54 2C 45 53 00 ED 0E B6 03 8B 45 4E B2 30 B0 |ET,ES......EN.0.|
000006E0: 45 4E B2 36 32 B0 45 4E B2 36 33 A7 8E 00 FB 0E |EN.62.EN.63.....|
000006F0: C0 03 A0 31 35 3A 99 43 4C 24 3B 00 12 0F CA 03 |...15:.CL$;.....|
00000700: 99 22 44 49 53 4B 20 45 52 52 4F 52 20 23 22 3B |."DISK ERROR #";|
00000710: 45 4E 00 27 0F D4 03 99 C8 28 50 4C 24 2C 32 32 |EN.'.....(PL$,22|
00000720: 29 3B 45 4D 24 3A 80 00 37 0F E8 03 8F 20 4D 41 |);EM$:..7.... MA|
00000730: 49 4E 20 4C 4F 4F 50 00 53 0F 06 04 99 C7 28 31 |IN LOOP.S.....(1|
00000740: 34 37 29 3B 3A 8F 20 43 4C 45 41 52 20 53 43 52 |47);:. CLEAR SCR|
00000750: 45 45 4E 00 7A 0F 10 04 99 22 20 20 20 20 20 20 |EEN.z...." |
00000760: 20 44 4F 55 42 4C 45 20 44 52 49 56 45 20 46 49 | DOUBLE DRIVE FI|
00000770: 4C 45 20 43 4F 50 49 45 52 22 00 95 0F 1A 04 99 |LE COPIER"......|
00000780: 3A 99 22 52 45 41 44 49 4E 47 20 44 49 52 45 43 |:."READING DIREC|
00000790: 54 4F 52 59 22 00 B3 0F 24 04 8D 31 30 30 3A 8F |TORY"...$..100:.|
000007A0: 20 52 45 41 44 20 54 48 45 20 44 49 52 45 43 54 | READ THE DIRECT|
000007B0: 4F 52 59 00 D0 0F 2E 04 8D 32 30 30 3A 8F 20 44 |ORY......200:. D|
000007C0: 49 53 50 4C 41 59 20 54 48 45 20 54 49 54 4C 45 |ISPLAY THE TITLE|
000007D0: 00 E5 0F 38 04 4E 53 B2 B5 28 28 4E 42 AA 31 29 |...8.NS..((NB.1)|
000007E0: AD 32 35 34 29 00 FF 0F 42 04 8B 4E 53 B2 31 A7 |.254)...B..NS.1.|
000007F0: 34 30 30 30 3A 8F 20 4E 4F 20 46 49 4C 45 53 00 |4000:. NO FILES.|
00000800: 08 10 4C 04 44 53 B2 31 00 26 10 56 04 8B 4E 53 |..L.DS.1.&.V..NS|
00000810: B3 B2 44 53 A7 44 53 B2 31 3A 8F 20 53 54 41 52 |..DS.DS.1:. STAR|
00000820: 54 20 4F 56 45 52 00 35 10 60 04 99 C8 28 50 4C |T OVER.5.`...(PL|
00000830: 24 2C 34 29 3B 00 50 10 6A 04 42 45 B2 28 44 53 |$,4);.P.j.BE.(DS|
00000840: AB 31 29 AC 38 AA 31 3A 4C 45 B2 42 45 AA 31 35 |.1).8.1:LE.BE.15|
00000850: 00 65 10 74 04 8B 44 53 AA 31 B2 4E 53 A7 4C 45 |.e.t..DS.1.NS.LE|
00000860: B2 42 45 AA 38 00 73 10 7E 04 81 44 45 B2 42 45 |.BE.8.s.~..DE.BE|
00000870: A4 4C 45 00 8E 10 88 04 8D 33 30 30 3A 82 3A 8F |.LE......300:.:.|
00000880: 20 44 49 53 50 4C 41 59 20 46 49 4C 45 53 00 A7 | DISPLAY FILES..|
00000890: 10 92 04 81 49 B2 C2 28 32 31 34 29 A4 32 30 3A |....I..(214).20:|
000008A0: 8F 20 43 4C 45 41 52 00 C3 10 9C 04 99 22 20 20 |. CLEAR......" |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008C0: 20 20 22 00 C9 10 A6 04 82 00 E2 10 B0 04 8D 35 | "............5|
000008D0: 30 30 3A 8F 20 47 45 54 20 46 49 4C 45 20 4E 41 |00:. GET FILE NA|
000008E0: 4D 45 00 FC 10 BA 04 8B 4E 4D 24 B2 22 22 A7 44 |ME......NM$."".D|
000008F0: 53 B2 44 53 AA 32 3A 89 31 31 31 30 00 10 11 DA |S.DS.2:.1110....|
00000900: 07 8F 20 43 4F 50 59 20 54 48 45 20 46 49 4C 45 |.. COPY THE FILE|
00000910: 00 1A 11 EE 07 99 43 4C 24 3B 00 2E 11 F8 07 99 |......CL$;......|
00000920: 22 52 45 41 44 49 4E 47 20 22 3B 4E 4D 24 00 47 |"READING ";NM$.G|
00000930: 11 02 08 8D 36 30 30 3A 8F 20 52 45 41 44 20 54 |....600:. READ T|
00000940: 48 45 20 46 49 4C 45 00 5E 11 0C 08 8B 45 4E B2 |HE FILE.^....EN.|
00000950: 36 32 B0 55 45 B2 31 32 38 A7 31 32 30 30 00 75 |62.UE.128.1200.u|
00000960: 11 16 08 42 43 B2 4E 42 3A 8F 20 53 41 56 45 20 |...BC.NB:. SAVE |
00000970: 43 4F 55 4E 54 00 8F 11 20 08 8D 34 30 30 3A 8F |COUNT... ..400:.|
00000980: 20 47 45 54 20 44 45 53 54 2E 20 44 49 53 4B 00 | GET DEST. DISK.|
00000990: A7 11 2A 08 99 43 4C 24 3B 22 57 52 49 54 49 4E |..*..CL$;"WRITIN|
000009A0: 47 20 22 3B 4E 4D 24 00 C1 11 34 08 8D 37 30 30 |G ";NM$...4..700|
000009B0: 3A 8F 20 57 52 49 54 45 20 54 48 45 20 46 49 4C |:. WRITE THE FIL|
000009C0: 45 00 D0 11 3E 08 8B 45 4E B2 30 A7 33 30 30 30 |E...>..EN.0.3000|
000009D0: 00 E8 11 48 08 8D 35 30 30 3A 8F 20 47 45 54 20 |...H..500:. GET |
000009E0: 4E 45 57 20 46 49 4C 45 00 FA 11 52 08 8B 4E 4D |NEW FILE...R..NM|
000009F0: 24 B3 B1 22 22 A7 32 30 39 30 00 15 12 5C 08 99 |$.."".2090...\..|
00000A00: 43 4C 24 3B 22 46 49 4C 45 20 4E 4F 54 20 43 4F |CL$;"FILE NOT CO|
00000A10: 50 49 45 44 22 00 1F 12 66 08 89 33 31 30 30 00 |PIED"...f..3100.|
00000A20: 3F 12 B8 0B 8F 20 44 49 53 50 4C 41 59 20 43 4F |?.... DISPLAY CO|
00000A30: 4D 50 4C 45 54 49 4F 4E 20 53 54 41 54 55 53 00 |MPLETION STATUS.|
00000A40: 49 12 D6 0B 99 43 4C 24 3B 00 5A 12 E0 0B 8B 4E |I....CL$;.Z....N|
00000A50: 42 B3 B1 42 43 A7 33 30 36 30 00 7B 12 EA 0B 99 |B..BC.3060.{....|
00000A60: 22 43 4F 50 59 20 53 55 43 43 45 53 53 46 55 4C |"COPY SUCCESSFUL|
00000A70: 2E 20 20 22 3B 3A 89 33 30 37 30 00 9B 12 F4 0B |. ";:.3070.....|
00000A80: 99 22 45 52 52 4F 52 2E 20 4F 4E 4C 59 20 22 3B |."ERROR. ONLY ";|
00000A90: 4E 42 3B 22 20 4F 55 54 20 22 3B 00 B3 12 FE 0B |NB;" OUT ";.....|
00000AA0: 99 42 43 3B 22 42 59 54 45 53 20 43 4F 50 49 45 |.BC;"BYTES COPIE|
00000AB0: 44 2E 22 00 C8 12 1C 0C 99 22 50 52 45 53 53 20 |D."......"PRESS |
00000AC0: 22 3B C7 28 31 38 29 3B 00 DE 12 26 0C 99 22 52 |";.(18);...&.."R|
00000AD0: 45 54 55 52 4E 22 3B C7 28 31 34 36 29 3B 00 FB |ETURN";.(146);..|
00000AE0: 12 30 0C 99 22 20 54 4F 20 43 4F 50 59 20 41 4E |.0.." TO COPY AN|
00000AF0: 4F 54 48 45 52 20 46 49 4C 45 22 00 11 13 3A 0C |OTHER FILE"...:.|
00000B00: A1 44 4D 24 3A 8B 44 4D 24 B2 22 22 A7 33 31 33 |.DM$:.DM$."".313|
00000B10: 30 00 25 13 44 0C 8B 44 4D 24 B2 C7 28 31 33 29 |0.%.D..DM$..(13)|
00000B20: A7 31 30 30 30 00 2B 13 4E 0C 80 00 49 13 A0 0F |.1000.+.N...I...|
00000B30: 8F 20 4E 4F 20 46 49 4C 45 53 20 45 52 52 4F 52 |. NO FILES ERROR|
00000B40: 20 48 41 4E 44 4C 49 4E 47 00 59 13 BE 0F 99 C8 | HANDLING.Y.....|
00000B50: 28 50 4C 24 2C 32 31 29 3B 00 77 13 C8 0F 99 22 |(PL$,21);.w...."|
00000B60: 4E 4F 20 46 49 4C 45 53 20 4F 4E 20 54 48 49 53 |NO FILES ON THIS|
00000B70: 20 44 49 53 4B 2E 22 00 94 13 D2 0F 99 22 50 52 | DISK."......"PR|
00000B80: 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 54 52 |ESS RETURN TO TR|
00000B90: 59 20 22 3B 00 AA 13 DC 0F 99 22 41 4E 4F 54 48 |Y ";......"ANOTH|
00000BA0: 45 52 20 44 49 53 4B 2E 22 3B 00 C0 13 E6 0F A1 |ER DISK.";......|
00000BB0: 44 4D 24 3A 8B 44 4D 24 B2 22 22 A7 34 30 37 30 |DM$:.DM$."".4070|
00000BC0: 00 D4 13 F0 0F 8B 44 4D 24 B2 C7 28 31 33 29 A7 |......DM$..(13).|
00000BD0: 31 30 30 30 00 DA 13 FA 0F 80 00 F8 13 10 27 83 |1000..........'.|
00000BE0: 37 36 2C 31 35 2C 33 31 2C 37 36 2C 38 38 2C 33 |76,15,31,76,88,3|
00000BF0: 31 2C 37 36 2C 31 35 34 00 13 14 1A 27 83 33 31 |1,76,154....'.31|
00000C00: 2C 31 30 38 2C 33 2C 30 2C 31 30 38 2C 35 2C 30 |,108,3,0,108,5,0|
00000C10: 2C 33 32 00 34 14 24 27 83 39 2C 33 31 2C 31 35 |,32.4.$'.9,31,15|
00000C20: 32 2C 31 37 30 2C 33 32 2C 31 39 38 2C 32 35 35 |2,170,32,198,255|
00000C30: 2C 31 36 38 00 55 14 2E 27 83 31 37 36 2C 35 37 |,168.U..'.176,57|
00000C40: 2C 31 36 39 2C 30 2C 31 33 33 2C 32 35 31 2C 31 |,169,0,133,251,1|
00000C50: 36 39 2C 33 32 00 77 14 38 27 83 31 33 33 2C 32 |69,32.w.8'.133,2|
00000C60: 35 32 2C 31 36 30 2C 30 2C 33 32 2C 32 30 37 2C |52,160,0,32,207,|
00000C70: 32 35 35 2C 31 34 35 00 9A 14 42 27 83 32 35 31 |255,145...B'.251|
00000C80: 2C 32 33 30 2C 32 35 31 2C 32 30 38 2C 32 2C 32 |,230,251,208,2,2|
00000C90: 33 30 2C 32 35 32 2C 31 36 35 00 BE 14 4C 27 83 |30,252,165...L'.|
00000CA0: 31 34 34 2C 32 30 38 2C 31 33 2C 31 36 35 2C 32 |144,208,13,165,2|
00000CB0: 35 32 2C 32 30 31 2C 31 36 30 2C 31 34 34 00 DF |52,201,160,144..|
00000CC0: 14 56 27 83 32 33 35 2C 33 32 2C 32 30 34 2C 32 |.V'.235,32,204,2|
00000CD0: 35 35 2C 31 36 30 2C 30 2C 32 34 30 2C 31 39 00 |55,160,0,240,19.|
00000CE0: 02 15 60 27 83 31 36 34 2C 31 34 34 2C 33 32 2C |..`'.164,144,32,|
00000CF0: 32 30 34 2C 32 35 35 2C 31 39 32 2C 36 34 2C 32 |204,255,192,64,2|
00000D00: 30 38 00 24 15 6A 27 83 31 30 2C 31 36 34 2C 32 |08.$.j'.10,164,2|
00000D10: 35 31 2C 31 36 35 2C 32 35 32 2C 35 36 2C 32 33 |51,165,252,56,23|
00000D20: 33 2C 33 32 00 43 15 74 27 83 37 36 2C 31 32 2C |3,32.C.t'.76,12,|
00000D30: 33 31 2C 31 36 39 2C 32 34 30 2C 37 36 2C 31 32 |31,169,240,76,12|
00000D40: 2C 33 31 00 63 15 7E 27 83 33 32 2C 39 2C 33 31 |,31.c.~'.32,9,31|
00000D50: 2C 31 35 32 2C 31 37 30 2C 33 32 2C 32 30 31 2C |,152,170,32,201,|
00000D60: 32 35 35 00 87 15 88 27 83 31 36 38 2C 31 37 36 |255....'.168,176|
00000D70: 2C 32 34 30 2C 31 36 35 2C 32 35 31 2C 31 34 31 |,240,165,251,141|
00000D80: 2C 31 37 34 2C 33 31 00 A9 15 92 27 83 31 36 35 |,174,31....'.165|
00000D90: 2C 32 35 32 2C 31 34 31 2C 31 37 35 2C 33 31 2C |,252,141,175,31,|
00000DA0: 31 36 39 2C 30 2C 31 33 33 00 CB 15 9C 27 83 32 |169,0,133....'.2|
00000DB0: 35 31 2C 31 36 39 2C 33 32 2C 31 33 33 2C 32 35 |51,169,32,133,25|
00000DC0: 32 2C 31 36 30 2C 30 2C 31 37 37 00 EE 15 A6 27 |2,160,0,177....'|
00000DD0: 83 32 35 31 2C 33 32 2C 32 31 30 2C 32 35 35 2C |.251,32,210,255,|
00000DE0: 31 36 34 2C 31 34 34 2C 32 30 38 2C 32 30 00 11 |164,144,208,20..|
00000DF0: 16 B0 27 83 32 33 30 2C 32 35 31 2C 32 30 38 2C |..'.230,251,208,|
00000E00: 32 2C 32 33 30 2C 32 35 32 2C 31 36 35 2C 32 35 |2,230,252,165,25|
00000E10: 32 00 35 16 BA 27 83 32 30 35 2C 31 37 35 2C 33 |2.5..'.205,175,3|
00000E20: 31 2C 31 34 34 2C 32 33 34 2C 31 36 35 2C 32 35 |1,144,234,165,25|
00000E30: 31 2C 32 30 35 00 57 16 C4 27 83 31 37 34 2C 33 |1,205.W..'.174,3|
00000E40: 31 2C 31 34 34 2C 32 32 37 2C 33 32 2C 32 30 34 |1,144,227,32,204|
00000E50: 2C 32 35 35 2C 37 36 00 75 16 CE 27 83 37 33 2C |,255,76.u..'.73,|
00000E60: 33 31 2C 33 32 2C 39 2C 33 31 2C 31 33 32 2C 32 |31,32,9,31,132,2|
00000E70: 35 31 2C 32 34 00 97 16 D8 27 83 31 30 35 2C 33 |51,24....'.105,3|
00000E80: 32 2C 31 33 33 2C 32 35 32 2C 31 36 30 2C 30 2C |2,133,252,160,0,|
00000E90: 31 37 37 2C 32 35 31 00 AF 16 E2 27 83 31 36 38 |177,251....'.168|
00000EA0: 2C 31 36 39 2C 30 2C 37 36 2C 31 32 2C 33 31 00 |,169,0,76,12,31.|
00000EB0: 00 24 00 |.$. |
..(.... ****DOUBLE DRIVE FILE COPIER****
.<.(..52,31:.56,31:..I.-..I.0.173.\.2..D
:.7936.I,D:..O.7..785,0:.786,31.}.<.PL$.
G(19)...A..I.1.24:PL$.PL$.G(17):....F..I
.1.39:CL$.CL$." ":..O.K.CL$.CL$.G(13).CL
$.G(13)...P.CL$.H(PL$,21).CL$.G(145).G(1
45)...U..15,8,15:. OPEN ERROR CHANNEL...
Z..1000.8.D.. READ THE DIRECTORY.Z....78
5,0:. SELECT READ FUNCTION.Q....15,"I":.
2,8,2,"$".....NB..(2):. LOAD DIR INTO ME
M... . 2:.800:. CHECK ERROR.......V.H..
DISPLAY DISK NAMEREAD FUNCTION......785,
6:. SELECT FETCH CHAR......H(PL$,3);G(18
);......K.142.169.)....G(.(K));:..5....G
(146).;.....Z.,.. PRINT DIRECTORY ENTRY
DE.Y.J..785,6:. SELECT FETCH CHAR...T.IX
.(DE.1).32.254..((DE.1).8).2...Y...(IX).
128...L.^.TY..(IX).128:.TY.0.TY.3. ....H
..K.IX.3.IX.18...R..G(.(K));...|..:..16)
;",";......J("SPU",TY,1):..-.... GET DES
TINATION DISK.7....CL$;.U...."CHECK DISK
ON DRIVE 9.".S.B.."PRESS ";G(18);"RETUR
N";...L..G(146);" WHEN READY."...V..DM$:
.DM$."".470......DM$..G(13).470.E....15,
"I":....... GET A FILE TO COPY......CL$;
:.EN.63.580......UE.128..NM$;" TOO LARGE
.";.2.&..EN.62..NM$;" NOT FOUND.";.Z.0..
"ENTER FILE,TYPE":NM$."":EN.0:UE.0.I.:..
NM$,TY$:....D..NM$;" EXISTS. ENTER NEW N
AME"...N.EN.0:NM$."":.NM$:....X.. READ T
HE FILE.Y.V..785,0:. SELECT READ FUNCTIO
N......2,8,2,NM$.",".TY$.",R"......900:.
EN..0. 2:..&...NB..(2):. READ THE FILE.B
... 2:.800:. CHECK RESULTS.H.....].... W
RITE THE FILE...Z..785,3:. SELECT WRITE
FUNCTION......2,9,2,NM$.",".TY$.",W"....
..900:.EN..0. 2:..O...NB..(2):. WRITE TH
E BYTES..... 2:.800:. CHECK RESULTS.....
.... .. CHECK USR() RETURN VALUE.'.>.NB.
NB.(NB.0).65536.<.H..NB.61440.UE.0:..S.R
..NB.61440.UE.128:..].\..CL$;.T.F..B(785
).0.."READ";...P..B(785).3.."WRITE";...Z
.." ERROR #";NB.61440:....... READ ERROR
CHANNEL.U....15,EN,EM$,ET,ES......EN.0.
EN.62.EN.63....... 15:.CL$;...J.."DISK E
RROR #";EN.'.T..H(PL$,22);EM$:..7.... MA
IN LOOP.S....G(147);:. CLEAR SCREEN.Z...
." DOUBLE DRIVE FILE COPIER"......
:."READING DIRECTORY"...$..100:. READ TH
E DIRECTORY.P....200:. DISPLAY THE TITLE
...8.NS..((NB.1).254)...B..NS.1.4000:. N
O FILES...L.DS.1.&.V..NS..DS.DS.1:. STAR
T OVER.5.`..H(PL$,4);.P.J.BE.(DS.1).8.1:
LE.BE.15.E.T..DS.1.NS.LE.BE.8.S.~..DE.BE
.LE......300:.:. DISPLAY FILES......I.B(
214).20:. CLEAR.C...."
".I..........500:. GET FILE NAME......
NM$."".DS.DS.2:.1110...Z.. COPY THE FILE
......CL$;......"READING ";NM$.G....600:
. READ THE FILE.^....EN.62.UE.128.1200.U
...BC.NB:. SAVE COUNT... ..400:. GET DES
T. DISK...*..CL$;"WRITING ";NM$.A.4..700
:. WRITE THE FILE.P.>..EN.0.3000...H..50
0:. GET NEW FILE...R..NM$.."".2090...\..
CL$;"FILE NOT COPIED"...F..3100.?.... DI
SPLAY COMPLETION STATUS.I.V..CL$;.Z....N
B..BC.3060.{...."COPY SUCCESSFUL. ";:.3
070......"ERROR. ONLY ";NB;" OUT ";.....
.BC;"BYTES COPIED.".H...."PRESS ";G(18);
...&.."RETURN";G(146);...0.." TO COPY AN
OTHER FILE"...:..DM$:.DM$."".3130.%.D..D
M$.G(13).1000.+.N...I. .. NO FILES ERROR
HANDLING.Y....H(PL$,21);.W.H.."NO FILES
ON THIS DISK."...R.."PRESS RETURN TO TR
Y ";......"ANOTHER DISK.";......DM$:.DM$
."".4070.T....DM$.G(13).1000.Z........'.
76,15,31,76,88,31,76,154....'.31,108,3,0
,108,5,0,32.4.$'.9,31,152,170,32,198,255
,168.U..'.176,57,169,0,133,251,169,32.W.
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,144...V'.235,32,204,2
55,160,0,240,19...`'.164,144,32,204,255,
192,64,208.$.J'.10,164,251,165,252,56,23
3,32.C.T'.76,12,31,169,240,76,12,31.C.~'
.32,9,31,152,170,32,201,255....'.168,176
,240,165,251,141,174,31....'.165,252,141
,175,31,169,0,133.K..'.251,169,32,133,25
2,160,0,177....'.251,32,210,255,164,144,
208,20....'.230,251,208,2,230,252,165,25
2.5..'.205,175,31,144,234,165,251,205.W.
D'.174,31,144,227,32,204,255,76.U.N'.73,
31,32,9,31,132,251,24...X'.105,32,133,25
2,160,0,177,251....'.168,169,0,76,12,31.
.$.
> CLICK IMAGE PREVIEW FOR FULL MODAL