CLONE1
FILE INFORMATION
FILENAME(S): CLONE1
FILE TYPE(S): PRG
FILE SIZE: 6.5K
FIRST SEEN: 2025-11-02 16:54:36
APPEARS ON: 1 disk(s)
FILE HASH
796c1234f25b8ee6a9ed0b1bfd02b225f58cd4fac13a7bb0a4e9150818abc98f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPYING PROGRAMS | CLONE1 | PRG | Treasure Chest - Reamigation | 17 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 E8 03 8F 20 43 4C 4F 4E 45 31 00 43 |....... CLONE1.C| 00000010: 08 E9 03 97 20 35 31 2C 30 3A 97 20 35 32 2C 34 |.... 51,0:. 52,4| 00000020: 30 3A 97 20 35 35 2C 30 3A 97 20 35 36 2C 34 30 |0:. 55,0:. 56,40| 00000030: 3A 97 20 36 34 33 2C 30 3A 97 20 36 34 34 2C 34 |:. 643,0:. 644,4| 00000040: 30 3A 9C 00 4F 08 EA 03 86 20 53 28 33 35 29 00 |0:..O.... S(35).| 00000050: 71 08 EB 03 86 20 49 58 28 33 35 29 2C 49 59 28 |q.... IX(35),IY(| 00000060: 33 35 29 2C 4F 58 28 33 35 29 2C 4F 59 28 33 35 |35),OX(35),OY(35| 00000070: 29 00 7F 08 EC 03 52 36 B2 C2 28 31 38 36 29 00 |).....R6..(186).| 00000080: 9F 08 ED 03 97 20 35 33 32 38 30 2C 30 3A 97 20 |..... 53280,0:. | 00000090: 35 33 32 38 31 2C 30 3A 97 20 36 34 36 2C 31 00 |53281,0:. 646,1.| 000000A0: CB 08 F2 03 54 54 24 B2 22 43 4C 4F 4E 45 20 20 |....TT$."CLONE | 000000B0: 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 56 49 43 |COMMODORE 64 VIC| 000000C0: 20 31 35 34 31 20 43 4F 50 59 22 00 F4 08 F4 03 | 1541 COPY".....| 000000D0: 58 58 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |XX$.".........."| 000000E0: 3A 58 58 24 B2 58 58 24 AA 58 58 24 AA 58 58 24 |:XX$.XX$.XX$.XX$| 000000F0: AA 58 58 24 00 19 09 F6 03 59 59 24 B2 22 11 11 |.XX$.....YY$."..| 00000100: 11 11 11 11 11 11 11 11 22 3A 59 59 24 B2 59 59 |........":YY$.YY| 00000110: 24 AA 59 59 24 AA 59 59 24 00 4A 09 FC 03 97 20 |$.YY$.YY$.J.... | 00000120: 35 30 31 33 37 2C 34 38 3A 97 20 35 30 31 33 38 |50137,48:. 50138| 00000130: 2C 34 38 3A 97 20 35 30 31 33 39 2C 34 38 3A 97 |,48:. 50139,48:.| 00000140: 20 35 30 31 31 35 2C 32 35 35 00 90 09 06 04 45 | 50115,255.....E| 00000150: 31 24 B2 22 45 4E 54 45 52 20 53 54 41 52 54 49 |1$."ENTER STARTI| 00000160: 4E 47 20 22 3A 45 32 24 B2 22 54 52 41 43 4B 3A |NG ":E2$."TRACK:| 00000170: 20 20 20 20 20 22 3A 45 33 24 B2 22 41 4E 59 20 | ":E3$."ANY | 00000180: 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 2E 22 |KEY WHEN READY."| 00000190: 00 A2 09 41 04 8D 20 37 30 30 30 3A 8D 20 37 31 |...A.. 7000:. 71| 000001A0: 30 30 00 BC 09 B0 04 81 20 54 B2 31 20 20 A4 20 |00...... T.1 . | 000001B0: 31 37 3A 53 28 54 29 B2 32 30 3A 82 00 D6 09 BA |17:S(T).20:.....| 000001C0: 04 81 20 54 B2 31 38 20 A4 20 32 34 3A 53 28 54 |.. T.18 . 24:S(T| 000001D0: 29 B2 31 38 3A 82 00 F0 09 C4 04 81 20 54 B2 32 |).18:....... T.2| 000001E0: 35 20 A4 20 33 30 3A 53 28 54 29 B2 31 37 3A 82 |5 . 30:S(T).17:.| 000001F0: 00 0A 0A CE 04 81 20 54 B2 33 31 20 A4 20 33 35 |...... T.31 . 35| 00000200: 3A 53 28 54 29 B2 31 36 3A 82 00 56 0A 78 05 83 |:S(T).16:..V.x..| 00000210: 20 34 2C 34 2C 33 2C 34 2C 35 2C 32 2C 33 2C 34 | 4,4,3,4,5,2,3,4| 00000220: 2C 35 2C 36 2C 31 2C 32 2C 33 2C 34 2C 35 2C 36 |,5,6,1,2,3,4,5,6| 00000230: 2C 37 2C 30 2C 31 2C 32 2C 33 2C 34 2C 35 2C 36 |,7,0,1,2,3,4,5,6| 00000240: 2C 37 2C 38 2C 30 2C 31 2C 32 2C 33 2C 34 2C 35 |,7,8,0,1,2,3,4,5| 00000250: 2C 36 2C 37 2C 38 00 6F 0A 7D 05 81 20 49 B2 31 |,6,7,8.o.}.. I.1| 00000260: 20 A4 20 33 35 3A 87 20 49 58 28 49 29 3A 82 00 | . 35:. IX(I):..| 00000270: A4 0A 82 05 49 59 28 31 29 B2 31 30 3A 49 59 28 |....IY(1).10:IY(| 00000280: 32 29 B2 49 59 28 31 29 AA 31 3A 81 20 49 B2 33 |2).IY(1).1:. I.3| 00000290: 20 A4 20 35 3A 49 59 28 49 29 B2 49 59 28 32 29 | . 5:IY(I).IY(2)| 000002A0: AA 31 3A 82 00 E0 0A 87 05 81 20 49 B2 36 20 A4 |.1:....... I.6 .| 000002B0: 20 31 30 3A 49 59 28 49 29 B2 49 59 28 35 29 AA | 10:IY(I).IY(5).| 000002C0: 31 3A 82 3A 81 20 49 B2 31 31 20 A4 20 31 37 3A |1:.:. I.11 . 17:| 000002D0: 49 59 28 49 29 B2 49 59 28 31 30 29 AA 31 3A 82 |IY(I).IY(10).1:.| 000002E0: 00 01 0B 89 05 81 20 49 B2 31 38 20 A4 20 32 36 |...... I.18 . 26| 000002F0: 3A 49 59 28 49 29 B2 49 59 28 31 37 29 AA 31 3A |:IY(I).IY(17).1:| 00000300: 82 00 22 0B 8A 05 81 20 49 B2 32 37 20 A4 20 33 |..".... I.27 . 3| 00000310: 35 3A 49 59 28 49 29 B2 49 59 28 32 36 29 AA 31 |5:IY(I).IY(26).1| 00000320: 3A 82 00 54 0B 8C 05 81 20 49 B2 31 20 A4 20 33 |:..T.... I.1 . 3| 00000330: 35 3A 4F 59 28 49 29 B2 49 59 28 33 36 AB 49 29 |5:OY(I).IY(36.I)| 00000340: 3A 4F 58 28 49 29 B2 49 58 28 33 36 AB 49 29 AA |:OX(I).IX(36.I).| 00000350: 33 30 3A 82 00 5A 0B D0 07 8F 00 95 0B DA 07 54 |30:..Z.........T| 00000360: 57 B2 30 3A 46 B2 30 3A 50 56 B2 34 30 3A 51 56 |W.0:F.0:PV.40:QV| 00000370: B2 31 36 30 3A 97 20 35 33 32 36 30 2C 34 30 3A |.160:. 53260,40:| 00000380: 8D 20 38 36 30 30 3A 8D 20 38 34 30 30 3A 58 B2 |. 8600:. 8400:X.| 00000390: 54 3A 59 B2 42 00 AB 0B DF 07 8B 20 44 4F B3 B1 |T:Y.B...... DO..| 000003A0: 44 49 20 A7 20 8D 20 38 35 30 30 00 C4 0B E1 07 |DI . . 8500.....| 000003B0: 5A B2 30 3A 5A 32 B2 30 3A 48 46 B2 30 3A 8D 20 |Z.0:Z2.0:HF.0:. | 000003C0: 36 32 30 30 00 D6 0B E4 07 8B 20 54 B1 45 54 20 |6200...... T.ET | 000003D0: 89 20 34 30 30 30 00 E1 0B E9 07 8D 20 36 33 30 |. 4000...... 630| 000003E0: 30 00 FA 0B EE 07 4C 4C B2 35 30 31 32 34 3A 49 |0.....LL.50124:I| 000003F0: 49 B2 54 3A 8D 20 38 31 30 30 00 13 0C F8 07 4C |I.T:. 8100.....L| 00000400: 4C B2 35 30 31 32 37 3A 49 49 B2 42 3A 8D 20 38 |L.50127:II.B:. 8| 00000410: 31 30 30 00 47 0C 02 08 97 20 35 30 31 31 32 2C |100.G.... 50112,| 00000420: 44 49 3A 9E 20 34 39 39 32 30 3A 8B 20 C2 28 35 |DI:. 49920:. .(5| 00000430: 30 31 31 33 29 B3 B1 30 20 A7 20 44 46 B2 44 49 |0113)..0 . DF.DI| 00000440: 3A 89 20 37 32 30 30 00 83 0C 07 08 8B 44 4F B3 |:. 7200......DO.| 00000450: B1 44 49 A7 97 35 30 31 31 32 2C 44 4F 3A 9E 35 |.DI..50112,DO:.5| 00000460: 30 34 33 32 3A 8B C2 28 35 30 31 31 33 29 B3 B1 |0432:..(50113)..| 00000470: 30 A7 44 46 B2 44 4F 3A 52 46 B2 31 3A 89 20 37 |0.DF.DO:RF.1:. 7| 00000480: 33 30 30 00 97 0C 08 08 8B 20 44 4F B3 B1 44 49 |300...... DO..DI| 00000490: 20 89 20 32 30 38 30 00 D2 0C 09 08 97 36 34 36 | . 2080......646| 000004A0: 2C 35 3A 5A B2 5A AA 31 3A 8B 20 5A B2 33 20 A7 |,5:Z.Z.1:. Z.3 .| 000004B0: 20 5A B2 30 3A 99 22 13 22 3B C8 28 59 59 24 2C | Z.0:.".";.(YY$,| 000004C0: 32 33 29 3B C8 28 58 58 24 2C 5A 32 29 3B 22 23 |23);.(XX$,Z2);"#| 000004D0: 22 3B 00 EE 0C 0A 08 97 20 36 34 36 2C 43 3A 8B |";...... 646,C:.| 000004E0: 20 5A B2 30 20 A7 20 5A 32 B2 5A 32 AA 31 00 0E | Z.0 . Z2.Z2.1..| 000004F0: 0D 0C 08 9E 20 35 31 32 30 30 3A 8B 20 46 B2 31 |.... 51200:. F.1| 00000500: 20 A7 20 58 B2 54 3A 59 B2 42 3A 46 B2 30 00 3C | . X.T:Y.B:F.0.<| 00000510: 0D 16 08 97 20 35 33 32 36 30 2C C2 28 35 33 32 |.... 53260,.(532| 00000520: 36 30 29 AA 31 3A 8B 20 C2 28 35 33 32 36 30 29 |60).1:. .(53260)| 00000530: B2 51 56 20 A7 20 8D 20 33 30 30 30 00 5B 0D 20 |.QV . . 3000.[. | 00000540: 08 42 B2 42 AA 31 3A 8B 20 42 B1 53 28 54 29 20 |.B.B.1:. B.S(T) | 00000550: A7 20 42 B2 30 3A 54 B2 54 AA 31 00 71 0D 25 08 |. B.0:T.T.1.q.%.| 00000560: 8B 20 44 49 B3 B1 44 4F 20 A7 20 54 57 B2 54 AB |. DI..DO . TW.T.| 00000570: 31 00 7C 0D 2A 08 89 20 32 30 32 30 00 9C 0D B8 |1.|.*.. 2020....| 00000580: 0B 8D 20 38 35 30 30 3A 48 46 B2 31 3A 8D 20 36 |.. 8500:HF.1:. 6| 00000590: 32 30 30 3A 5A B2 30 3A 5A 32 B2 30 00 B5 0D CC |200:Z.0:Z2.0....| 000005A0: 0B 97 20 35 33 32 36 30 2C 50 56 3A 54 31 B2 58 |.. 53260,PV:T1.X| 000005B0: 3A 42 31 B2 59 00 C8 0D D6 0B 9E 20 35 31 32 30 |:B1.Y...... 5120| 000005C0: 39 3A 8D 20 36 34 30 30 00 03 0E DA 0B 97 36 34 |9:. 6400......64| 000005D0: 36 2C 36 3A 5A B2 5A AA 31 3A 8B 20 5A B2 33 20 |6,6:Z.Z.1:. Z.3 | 000005E0: A7 20 5A B2 30 3A 99 22 13 22 3B C8 28 59 59 24 |. Z.0:.".";.(YY$| 000005F0: 2C 32 33 29 3B C8 28 58 58 24 2C 5A 32 29 3B 22 |,23);.(XX$,Z2);"| 00000600: 23 22 3B 00 1F 0E DB 0B 97 20 36 34 36 2C 43 3A |#";...... 646,C:| 00000610: 8B 20 5A B2 30 20 A7 20 5A 32 B2 5A 32 AA 31 00 |. Z.0 . Z2.Z2.1.| 00000620: 39 0E DC 0B 4C 4C B2 35 30 31 32 34 3A 49 49 B2 |9...LL.50124:II.| 00000630: 54 31 3A 8D 20 38 31 30 30 00 53 0E DD 0B 4C 4C |T1:. 8100.S...LL| 00000640: B2 35 30 31 32 37 3A 49 49 B2 42 31 3A 8D 20 38 |.50127:II.B1:. 8| 00000650: 31 30 30 00 8C 0E E0 0B 97 20 35 30 31 31 32 2C |100...... 50112,| 00000660: 44 49 3A 9E 20 35 30 34 33 32 3A 8B 20 C2 28 35 |DI:. 50432:. .(5| 00000670: 30 31 31 33 29 B3 B1 30 20 A7 20 44 46 B2 44 49 |0113)..0 . DF.DI| 00000680: 3A 52 46 B2 32 3A 89 20 37 33 30 30 00 CD 0E EA |:RF.2:. 7300....| 00000690: 0B 97 20 35 33 32 36 30 2C C2 28 35 33 32 36 30 |.. 53260,.(53260| 000006A0: 29 AA 31 3A 42 31 B2 42 31 AA 31 3A 8B 20 42 31 |).1:B1.B1.1:. B1| 000006B0: B1 53 28 54 31 29 20 A7 20 42 31 B2 30 3A 54 31 |.S(T1) . B1.0:T1| 000006C0: B2 54 31 AA 31 3A 54 57 B2 54 57 AA 31 00 E0 0E |.T1.1:TW.TW.1...| 000006D0: F4 0B 8B 20 54 31 B1 45 54 20 89 20 33 39 39 39 |... T1.ET . 3999| 000006E0: 00 FA 0E FE 0B 8B 20 C2 28 35 33 32 36 30 29 B3 |...... .(53260).| 000006F0: B1 51 56 20 89 20 33 30 33 30 00 09 0F 08 0C 97 |.QV . 3030......| 00000700: 20 35 33 32 36 30 2C 50 56 00 2D 0F 96 0F 46 B2 | 53260,PV.-...F.| 00000710: 31 3A 8D 20 38 34 30 30 3A 48 46 B2 30 3A 8D 20 |1:. 8400:HF.0:. | 00000720: 36 32 30 30 3A 5A B2 30 3A 5A 32 B2 30 00 33 0F |6200:Z.0:Z2.0.3.| 00000730: 9F 0F 8E 00 47 0F A0 0F 8B 20 44 4F B3 B1 44 49 |....G.... DO..DI| 00000740: 20 89 20 34 30 31 30 00 52 0F A5 0F 8D 20 33 30 | . 4010.R.... 30| 00000750: 30 30 00 8D 0F AA 0F 99 22 93 11 11 22 3B 54 54 |00......"...";TT| 00000760: 24 3A 99 3A 99 3A 99 22 43 4F 50 59 20 43 4F 4D |$:.:.:."COPY COM| 00000770: 50 4C 45 54 45 44 20 4F 4E 20 44 52 49 56 45 22 |PLETED ON DRIVE"| 00000780: 3B 44 4F 3B 22 2E 22 3A 8D 35 31 30 30 00 B8 0F |;DO;".":.5100...| 00000790: B4 0F 99 3A 99 20 45 33 24 3A 97 20 31 39 38 2C |...:. E3$:. 198,| 000007A0: 30 3A 92 20 31 39 38 2C 31 3A 97 20 31 39 38 2C |0:. 198,1:. 198,| 000007B0: 30 3A 89 20 39 30 30 30 00 DB 0F EC 13 53 53 B2 |0:. 9000.....SS.| 000007C0: 35 34 32 37 32 3A 81 20 4C B2 30 20 A4 20 32 34 |54272:. L.0 . 24| 000007D0: 3A 97 20 53 53 AA 4C 2C 30 3A 82 00 14 10 0A 14 |:. SS.L,0:......| 000007E0: 97 20 53 53 AA 30 31 2C 39 35 3A 97 20 53 53 AA |. SS.01,95:. SS.| 000007F0: 35 2C 31 35 3A 97 20 53 53 AA 31 35 2C 33 30 3A |5,15:. SS.15,30:| 00000800: 97 20 53 53 AA 32 34 2C 31 35 3A 97 20 53 53 AA |. SS.24,15:. SS.| 00000810: 34 2C 32 31 00 32 10 3C 14 81 20 54 54 B2 31 20 |4,21.2.<.. TT.1 | 00000820: A4 20 32 30 30 20 3A 82 3A 97 20 53 53 AA 34 2C |. 200 :.:. SS.4,| 00000830: 32 30 00 4E 10 4B 14 81 20 4C B2 32 34 A4 20 30 |20.N.K.. L.24. 0| 00000840: 20 3A 97 20 53 53 AA 4C 2C 30 3A 82 3A 8E 00 54 | :. SS.L,0:.:..T| 00000850: 10 38 18 8F 00 74 10 3D 18 97 20 35 33 32 38 30 |.8...t.=.. 53280| 00000860: 2C 31 3A 97 20 35 33 32 38 31 2C 31 3A 97 20 36 |,1:. 53281,1:. 6| 00000870: 34 36 2C 30 00 7E 10 42 18 99 22 93 22 3B 00 AC |46,0.~.B..".";..| 00000880: 10 44 18 8B 20 44 49 B2 44 4F 20 AF 20 48 46 B2 |.D.. DI.DO . HF.| 00000890: 30 20 A7 20 99 22 11 22 3B A6 31 34 29 3B 22 4E |0 . .".";.14);"N| 000008A0: 4F 57 20 52 45 41 44 49 4E 47 3A 22 00 DA 10 45 |OW READING:"...E| 000008B0: 18 8B 20 44 49 B2 44 4F 20 AF 20 48 46 B2 31 20 |.. DI.DO . HF.1 | 000008C0: A7 20 99 22 11 22 3B A6 31 34 29 3B 22 4E 4F 57 |. .".";.14);"NOW| 000008D0: 20 57 52 49 54 49 4E 47 3A 22 00 02 11 47 18 8B | WRITING:"...G..| 000008E0: 20 44 49 B3 B1 44 4F 20 A7 20 99 22 11 22 3B A6 | DI..DO . .".";.| 000008F0: 31 34 29 3B 22 4E 4F 57 20 43 4C 4F 4E 49 4E 47 |14);"NOW CLONING| 00000900: 3A 22 00 16 11 48 18 99 20 22 13 22 3B C8 28 59 |:"...H.. ".";.(Y| 00000910: 59 24 2C 33 29 3B 00 29 11 4C 18 99 20 A6 31 36 |Y$,3);.).L.. .16| 00000920: 29 3B 22 54 52 41 43 4B 22 00 3C 11 51 18 99 20 |);"TRACK".<.Q.. | 00000930: A6 31 36 29 3B 22 42 4C 4F 43 4B 22 00 60 11 56 |.16);"BLOCK".`.V| 00000940: 18 99 22 49 2D 4E 2D 50 2D 55 2D 54 22 3B A6 32 |.."I-N-P-U-T";.2| 00000950: 30 29 3B 22 4F 2D 55 2D 54 2D 50 2D 55 2D 54 22 |0);"O-U-T-P-U-T"| 00000960: 00 85 11 5B 18 99 22 20 44 49 53 4B 20 22 3B 44 |...[.." DISK ";D| 00000970: 49 3B A6 32 32 29 3B 22 44 49 53 4B 20 22 3B 44 |I;.22);"DISK ";D| 00000980: 4F 3A 99 3A 99 00 91 11 6A 18 97 20 36 34 36 2C |O:.:....j.. 646,| 00000990: 36 00 BF 11 6B 18 50 59 24 B2 22 20 20 20 20 D1 |6...k.PY$." .| 000009A0: D1 D1 D1 D1 D1 D1 D1 D1 22 3A 99 20 C8 28 50 59 |........":. .(PY| 000009B0: 24 2C 35 29 3A 99 20 C8 28 50 59 24 2C 35 29 00 |$,5):. .(PY$,5).| 000009C0: EA 11 6C 18 99 20 CA 28 50 59 24 2C 32 2C 36 29 |..l.. .(PY$,2,6)| 000009D0: 3A 99 20 CA 28 50 59 24 2C 33 2C 37 29 3A 99 20 |:. .(PY$,3,7):. | 000009E0: CA 28 50 59 24 2C 34 2C 38 29 00 08 12 6D 18 99 |.(PY$,4,8)...m..| 000009F0: 20 CA 28 50 59 24 2C 35 2C 39 29 3A 99 20 CA 28 | .(PY$,5,9):. .(| 00000A00: 50 59 24 2C 35 2C 39 29 00 14 12 72 18 97 20 36 |PY$,5,9)...r.. 6| 00000A10: 34 36 2C 30 00 3E 12 74 18 99 3A 99 3A 99 22 20 |46,0.>.t..:.:." | 00000A20: 20 20 20 20 20 42 4C 4F 43 4B 53 20 4F 4E 20 43 | BLOCKS ON C| 00000A30: 55 52 52 45 4E 54 20 54 52 41 43 4B 3A 22 00 76 |URRENT TRACK:".v| 00000A40: 12 7E 18 8B 20 44 49 B2 44 4F 20 A7 20 99 3A 99 |.~.. DI.DO . .:.| 00000A50: 3A 99 22 20 20 4F 4E 45 20 48 55 4E 44 52 45 44 |:." ONE HUNDRED| 00000A60: 20 54 57 45 4E 54 59 20 42 4C 4F 43 4B 20 42 55 | TWENTY BLOCK BU| 00000A70: 46 46 45 52 3A 22 00 8A 12 83 18 8B 20 44 49 B3 |FFER:"...... DI.| 00000A80: B1 44 4F 20 89 20 36 32 38 30 00 A7 12 84 18 97 |.DO . 6280......| 00000A90: 20 36 34 36 2C 35 3A 8B 20 48 46 B2 30 20 A7 20 | 646,5:. HF.0 . | 00000AA0: 97 20 36 34 36 2C 36 00 C6 12 86 18 81 20 49 B2 |. 646,6...... I.| 00000AB0: 30 20 A4 20 33 39 3A 99 22 23 22 3B 3A 82 3A 97 |0 . 39:."#";:.:.| 00000AC0: 20 36 34 36 2C 43 00 D1 12 88 18 54 58 B2 54 AB | 646,C.....TX.T.| 00000AD0: 31 00 E3 12 8A 18 8B 20 54 58 B2 30 20 89 20 36 |1...... TX.0 . 6| 00000AE0: 32 39 39 00 F2 12 8B 18 81 20 49 B2 31 20 A4 20 |299...... I.1 . | 00000AF0: 54 58 00 21 13 8C 18 99 22 13 22 3B C8 28 59 59 |TX.!....".";.(YY| 00000B00: 24 2C 49 59 28 49 29 29 3B C8 28 58 58 24 2C 49 |$,IY(I));.(XX$,I| 00000B10: 58 28 49 29 29 3B 22 A0 22 3A 97 20 36 34 36 2C |X(I));".":. 646,| 00000B20: 36 00 52 13 8E 18 8B 20 49 B3 B2 54 57 20 A7 20 |6.R.... I..TW . | 00000B30: 99 22 13 22 3B C8 28 59 59 24 2C 4F 59 28 49 29 |.".";.(YY$,OY(I)| 00000B40: 29 3B C8 28 58 58 24 2C 4F 58 28 49 29 29 3B 22 |);.(XX$,OX(I));"| 00000B50: D7 22 00 58 13 90 18 82 00 73 13 92 18 8B 20 42 |.".X.....s.... B| 00000B60: B2 30 20 A7 20 97 20 36 34 36 2C 30 3A 89 20 36 |.0 . . 646,0:. 6| 00000B70: 32 39 39 00 7F 13 93 18 97 20 36 34 36 2C 35 00 |299...... 646,5.| 00000B80: B8 13 94 18 99 22 13 22 3B C8 28 59 59 24 2C 32 |.....".";.(YY$,2| 00000B90: 30 29 3B 22 20 20 20 20 20 20 20 20 22 3B 3A 81 |0);" ";:.| 00000BA0: 20 49 B2 30 20 A4 20 42 3A 99 22 D8 22 3B 3A 82 | I.0 . B:.".";:.| 00000BB0: 3A 97 20 36 34 36 2C 30 00 BE 13 9B 18 8E 00 D5 |:. 646,0........| 00000BC0: 13 9C 18 54 52 B2 54 3A 42 52 B2 42 3A 8D 20 36 |...TR.T:BR.B:. 6| 00000BD0: 35 30 30 3A 8E 00 EE 13 00 19 54 52 B2 54 31 3A |500:......TR.T1:| 00000BE0: 42 52 B2 42 31 3A 8D 20 36 35 30 30 3A 8E 00 03 |BR.B1:. 6500:...| 00000BF0: 14 64 19 43 B2 C2 28 36 34 36 29 3A 97 20 36 34 |.d.C..(646):. 64| 00000C00: 36 2C 35 00 26 14 69 19 99 22 13 22 3B C8 28 59 |6,5.&.i..".";.(Y| 00000C10: 59 24 2C 32 30 29 3B C8 28 58 58 24 2C 42 52 AA |Y$,20);.(XX$,BR.| 00000C20: 37 29 3B 22 D8 22 00 4E 14 6B 19 97 20 36 34 36 |7);".".N.k.. 646| 00000C30: 2C 31 30 3A 99 22 13 22 3B C8 28 59 59 24 2C 33 |,10:.".";.(YY$,3| 00000C40: 29 3B C8 28 58 58 24 2C 32 31 29 3B 54 52 00 6D |);.(XX$,21);TR.m| 00000C50: 14 6C 19 99 22 13 22 3B C8 28 59 59 24 2C 34 29 |.l..".";.(YY$,4)| 00000C60: 3B C8 28 58 58 24 2C 32 31 29 3B 42 52 00 82 14 |;.(XX$,21);BR...| 00000C70: 6E 19 8B 20 54 52 B2 54 58 20 A7 20 89 20 36 35 |n.. TR.TX . . 65| 00000C80: 39 39 00 8C 14 78 19 54 58 B2 54 52 00 AE 14 7A |99...x.TX.TR...z| 00000C90: 19 99 22 13 22 3B C8 28 59 59 24 2C 34 29 3B C8 |..".";.(YY$,4);.| 00000CA0: 28 58 58 24 2C 32 31 29 3B 22 20 30 20 22 00 C4 |(XX$,21);" 0 "..| 00000CB0: 14 7D 19 8B 20 54 52 AB 31 20 B2 20 30 20 89 20 |.}.. TR.1 . 0 . | 00000CC0: 36 35 33 38 00 F9 14 82 19 99 22 13 22 3B C8 28 |6538......".";.(| 00000CD0: 59 59 24 2C 49 59 28 54 52 AB 31 29 29 3B C8 28 |YY$,IY(TR.1));.(| 00000CE0: 58 58 24 2C 49 58 28 54 52 AB 31 29 29 3B 22 A0 |XX$,IX(TR.1));".| 00000CF0: 22 3A 97 20 36 34 36 2C 36 00 13 15 86 19 8B 20 |":. 646,6...... | 00000D00: 44 49 B2 44 4F 20 AF 20 48 46 B2 30 20 89 20 36 |DI.DO . HF.0 . 6| 00000D10: 35 33 38 00 40 15 87 19 99 22 13 22 3B C8 28 59 |538.@....".";.(Y| 00000D20: 59 24 2C 4F 59 28 54 52 AB 31 29 29 3B C8 28 58 |Y$,OY(TR.1));.(X| 00000D30: 58 24 2C 4F 58 28 54 52 AB 31 29 29 3B 22 D7 22 |X$,OX(TR.1));"."| 00000D40: 00 5A 15 8A 19 8B 20 44 49 B2 44 4F 20 AF 20 48 |.Z.... DI.DO . H| 00000D50: 46 B2 31 20 89 20 36 35 36 30 00 8B 15 8C 19 97 |F.1 . 6560......| 00000D60: 20 36 34 36 2C 35 3A 99 22 13 22 3B C8 28 59 59 | 646,5:.".";.(YY| 00000D70: 24 2C 49 59 28 54 52 29 29 3B C8 28 58 58 24 2C |$,IY(TR));.(XX$,| 00000D80: 49 58 28 54 52 29 29 3B 22 D7 22 00 97 15 A0 19 |IX(TR));".".....| 00000D90: 97 20 36 34 36 2C 35 00 D1 15 A2 19 99 22 13 22 |. 646,5......"."| 00000DA0: 3B C8 28 59 59 24 2C 32 30 29 3B 22 20 20 20 20 |;.(YY$,20);" | 00000DB0: 20 20 20 D8 22 3B 3A 97 36 34 36 2C 36 3A 81 20 | .";:.646,6:. | 00000DC0: 49 B2 31 A4 53 28 54 52 29 3A 99 22 D8 22 3B 3A |I.1.S(TR):.".";:| 00000DD0: 82 00 E0 15 A5 19 99 22 20 20 20 20 20 20 22 3B |......." ";| 00000DE0: 00 EE 15 C7 19 97 20 36 34 36 2C 43 3A 8E 00 0F |...... 646,C:...| 00000DF0: 16 58 1B 99 22 93 11 22 3B 54 54 24 3A 99 3A 99 |.X.."..";TT$:.:.| 00000E00: 3A 44 53 B2 30 3A 44 49 B2 30 3A 44 4F B2 30 00 |:DS.0:DI.0:DO.0.| 00000E10: 38 16 62 1B 99 22 20 20 20 20 20 20 20 44 49 53 |8.b.." DIS| 00000E20: 4B 20 44 52 49 56 45 20 43 4F 4E 46 49 47 55 52 |K DRIVE CONFIGUR| 00000E30: 41 54 49 4F 4E 22 3A 99 00 65 16 6C 1B 99 22 20 |ATION":..e.l.." | 00000E40: 20 20 46 49 4C 4C 20 49 4E 20 54 48 45 20 42 4C | FILL IN THE BL| 00000E50: 41 4E 4B 53 20 57 49 54 48 20 44 49 53 4B 20 44 |ANKS WITH DISK D| 00000E60: 52 49 56 45 22 00 8D 16 71 1B 99 22 20 20 20 20 |RIVE"...q.." | 00000E70: 20 20 20 4E 55 4D 42 45 52 53 20 49 4E 20 54 48 | NUMBERS IN TH| 00000E80: 45 20 52 41 4E 47 45 20 38 2D 31 31 22 00 C5 16 |E RANGE 8-11"...| 00000E90: 76 1B 99 3A 99 22 11 11 53 49 4E 47 4C 45 20 44 |v..:."..SINGLE D| 00000EA0: 52 49 56 45 20 43 4F 50 59 3A 22 3A 99 3A 99 22 |RIVE COPY:":.:."| 00000EB0: 20 20 20 20 20 20 20 44 52 49 56 45 20 4E 55 4D | DRIVE NUM| 00000EC0: 42 45 52 3A 22 00 FA 16 80 1B 99 3A 99 22 11 11 |BER:"......:."..| 00000ED0: 54 57 4F 20 44 52 49 56 45 20 43 4F 50 59 3A 22 |TWO DRIVE COPY:"| 00000EE0: 3A 99 3A 99 22 20 20 20 20 20 20 20 49 4E 50 55 |:.:." INPU| 00000EF0: 54 20 20 44 52 49 56 45 3A 22 00 18 17 8A 1B 99 |T DRIVE:"......| 00000F00: 3A 99 22 20 20 20 20 20 20 20 4F 55 54 50 55 54 |:." OUTPUT| 00000F10: 20 44 52 49 56 45 3A 22 00 41 17 94 1B 99 22 13 | DRIVE:".A....".| 00000F20: 22 3B C8 28 59 59 24 2C 31 33 29 3B C8 28 58 58 |";.(YY$,13);.(XX| 00000F30: 24 2C 32 31 29 3B C7 28 31 38 29 3B 22 20 20 22 |$,21);.(18);" "| 00000F40: 3B 00 5A 17 96 1B 99 22 9D 9D 22 3B C8 28 59 59 |;.Z...."..";.(YY| 00000F50: 24 2C 36 29 3B 22 20 20 22 3B 00 7A 17 98 1B 99 |$,6);" ";.z....| 00000F60: 22 9D 9D 22 3B C8 28 59 59 24 2C 32 29 3B 22 20 |"..";.(YY$,2);" | 00000F70: 20 22 3B C7 28 31 34 36 29 3B 00 A1 17 9E 1B 59 | ";.(146);.....Y| 00000F80: 59 25 B2 31 33 3A 8D 20 38 38 30 30 3A 44 53 B2 |Y%.13:. 8800:DS.| 00000F90: 41 41 3A 8B 20 44 53 B3 B1 30 20 89 20 37 30 38 |AA:. DS..0 . 708| 00000FA0: 32 00 B9 17 A0 1B 59 59 25 B2 31 39 3A 8D 20 38 |2.....YY%.19:. 8| 00000FB0: 38 30 30 3A 44 49 B2 41 41 00 D1 17 A2 1B 59 59 |800:DI.AA.....YY| 00000FC0: 25 B2 32 31 3A 8D 20 38 38 30 30 3A 44 4F B2 41 |%.21:. 8800:DO.A| 00000FD0: 41 00 EC 17 A8 1B 8B 20 44 53 B2 30 20 AF 20 44 |A...... DS.0 . D| 00000FE0: 49 B3 B1 44 4F 20 89 20 37 30 39 39 00 1B 18 AA |I..DO . 7099....| 00000FF0: 1B 8B 20 44 53 B3 B1 30 20 AF 20 44 49 B2 30 20 |.. DS..0 . DI.0 | 00001000: AF 20 44 4F B2 30 20 A7 20 44 49 B2 44 53 3A 44 |. DO.0 . DI.DS:D| 00001010: 4F B2 44 53 3A 89 20 37 30 39 39 00 26 18 AC 1B |O.DS:. 7099.&...| 00001020: 89 20 37 30 30 30 00 2C 18 BB 1B 8E 00 4B 18 BC |. 7000.,.....K..| 00001030: 1B 99 22 93 11 11 22 3B 54 54 24 3A 8B 20 44 4F |.."...";TT$:. DO| 00001040: B3 B1 44 49 20 89 20 37 31 35 30 00 6F 18 D0 1B |..DI . 7150.o...| 00001050: 8D 20 37 39 30 30 3A 99 22 41 20 44 49 53 4B 45 |. 7900:."A DISKE| 00001060: 54 54 45 20 55 53 49 4E 47 20 4F 4E 4C 59 22 00 |TTE USING ONLY".| 00001070: 98 18 DA 1B 99 22 54 48 45 20 44 49 53 4B 45 54 |....."THE DISKET| 00001080: 54 45 20 44 52 49 56 45 20 22 3B 44 49 3B 22 2E |TE DRIVE ";DI;".| 00001090: 22 3A 89 20 37 31 37 30 00 C2 18 EE 1B 8D 20 37 |":. 7170...... 7| 000010A0: 39 30 30 3A 99 22 46 52 4F 4D 20 41 20 44 49 53 |900:."FROM A DIS| 000010B0: 4B 45 54 54 45 20 4F 4E 20 44 52 49 56 45 22 3B |KETTE ON DRIVE";| 000010C0: 44 49 00 E8 18 F8 1B 99 22 54 4F 20 41 20 44 49 |DI......"TO A DI| 000010D0: 53 4B 45 54 54 45 20 4F 4E 20 44 52 49 56 45 20 |SKETTE ON DRIVE | 000010E0: 22 3B 44 4F 3B 22 2E 22 00 0E 19 02 1C 99 3A 99 |";DO;"."......:.| 000010F0: 22 49 53 20 54 48 41 54 20 57 48 41 54 20 59 4F |"IS THAT WHAT YO| 00001100: 55 20 57 41 4E 54 20 28 59 2F 4E 29 3F 22 00 39 |U WANT (Y/N)?".9| 00001110: 19 0C 1C 9E 20 35 31 30 32 34 2C 32 39 2C 38 3A |.... 51024,29,8:| 00001120: 41 41 B2 C2 28 32 35 35 29 3A 8B 20 41 41 B3 B1 |AA..(255):. AA..| 00001130: 38 39 20 89 20 31 30 30 30 00 44 19 16 1C 8D 20 |89 . 1000.D.... | 00001140: 37 34 30 30 00 4A 19 1F 1C 8E 00 64 19 20 1C 8D |7400.J.....d. ..| 00001150: 20 38 35 30 37 3A 8B 20 45 58 B3 B1 30 20 89 20 | 8507:. EX..0 . | 00001160: 37 32 31 30 00 84 19 25 1C 9E 20 34 39 39 32 30 |7210...%.. 49920| 00001170: 3A 8B 20 C2 28 35 30 31 31 33 29 B2 30 20 89 20 |:. .(50113).0 . | 00001180: 32 30 35 35 00 94 19 2A 1C 45 58 B2 30 3A 89 20 |2055...*.EX.0:. | 00001190: 37 33 32 30 00 AE 19 84 1C 8D 20 38 35 30 37 3A |7320...... 8507:| 000011A0: 8B 20 45 58 B3 B1 30 20 89 20 37 33 31 30 00 CF |. EX..0 . 7310..| 000011B0: 19 89 1C 9E 20 35 30 34 33 32 3A 8B 20 C2 28 35 |.... 50432:. .(5| 000011C0: 30 31 31 33 29 B3 B1 30 20 89 20 37 33 31 30 00 |0113)..0 . 7310.| 000011D0: E4 19 8C 1C 91 20 52 46 20 89 20 32 30 35 36 2C |..... RF . 2056,| 000011E0: 33 30 35 30 00 EE 19 8E 1C 45 58 B2 32 39 00 0A |3050.....EX.29..| 000011F0: 1A 98 1C 8D 20 37 37 30 30 3A 99 20 C7 28 31 34 |.... 7700:. .(14| 00001200: 36 29 3B 3A 89 20 39 30 30 30 00 1D 1A E8 1C 99 |6);:. 9000......| 00001210: 22 93 11 11 22 3B 54 54 24 3A 99 3A 99 00 40 1A |"...";TT$:.:..@.| 00001220: F2 1C 99 22 44 4F 20 22 3B 3A 8D 20 37 34 39 30 |..."DO ";:. 7490| 00001230: 3A 8B 20 41 41 B3 B1 38 39 20 89 20 37 34 38 39 |:. AA..89 . 7489| 00001240: 00 4B 1A FC 1C 8D 20 38 35 30 30 00 5E 1A 1A 1D |.K.... 8500.^...| 00001250: 99 22 93 11 11 22 3B 54 54 24 3A 99 3A 99 00 8B |."...";TT$:.:...| 00001260: 1A 24 1D 99 22 41 52 45 20 59 4F 55 20 53 55 52 |.$.."ARE YOU SUR| 00001270: 45 20 22 3B 3A 8D 20 37 34 39 30 3A 8B 20 41 41 |E ";:. 7490:. AA| 00001280: B3 B1 38 39 20 89 20 37 34 38 39 00 B1 1A 2E 1D |..89 . 7489.....| 00001290: 9F 20 31 35 2C 44 4F 2C 31 35 3A 98 31 35 2C 22 |. 15,DO,15:.15,"| 000012A0: 4E 30 3A 43 4C 4F 4E 45 2C 43 43 22 3A A0 20 31 |N0:CLONE,CC":. 1| 000012B0: 35 00 E6 1A 33 1D 9F 20 31 35 2C 44 4F 2C 31 35 |5...3.. 15,DO,15| 000012C0: 3A 84 31 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 |:.15,A$,B$,C$,D$| 000012D0: 3A A0 20 31 35 3A 8B 20 C5 28 41 24 29 B2 30 20 |:. 15:. .(A$).0 | 000012E0: 89 20 37 34 38 39 00 07 1B 38 1D 99 22 93 22 3B |. 7489...8..".";| 000012F0: 3A 8D 20 37 37 30 30 3A 99 20 C7 28 31 34 36 29 |:. 7700:. .(146)| 00001300: 3A 89 20 31 30 30 30 00 0D 1B 41 1D 8E 00 2B 1B |:. 1000...A...+.| 00001310: 42 1D 99 22 59 4F 55 20 57 41 4E 54 20 54 4F 20 |B.."YOU WANT TO | 00001320: 49 4E 49 54 49 41 4C 49 5A 45 22 00 4D 1B 44 1D |INITIALIZE".M.D.| 00001330: 99 22 54 48 45 20 4F 55 54 50 55 54 20 44 49 53 |."THE OUTPUT DIS| 00001340: 4B 45 54 54 45 A0 28 59 2F 4E 29 3F 22 00 88 1B |KETTE.(Y/N)?"...| 00001350: 46 1D 97 20 31 39 38 2C 30 3A 9E 20 35 31 30 32 |F.. 198,0:. 5102| 00001360: 34 2C 32 36 2C 36 3A 41 41 B2 C2 28 32 35 35 29 |4,26,6:AA..(255)| 00001370: 3A 8B 20 41 41 B2 39 32 20 B0 20 41 41 B2 31 36 |:. AA.92 . AA.16| 00001380: 39 20 89 20 31 30 30 30 00 8E 1B 4B 1D 8E 00 A1 |9 . 1000...K....| 00001390: 1B 14 1E 52 52 B2 31 38 3A 97 20 36 34 36 2C 31 |...RR.18:. 646,1| 000013A0: 30 00 DA 1B 1E 1E 99 20 22 13 22 3B C7 28 52 52 |0...... ".";.(RR| 000013B0: 29 3B C8 28 59 59 24 2C 38 29 3B A6 45 58 29 3B |);.(YY$,8);.EX);| 000013C0: 22 45 2D 52 2D 52 2D 4F 2D 52 22 3B 3A 8B 52 52 |"E-R-R-O-R";:.RR| 000013D0: B2 31 38 A7 8D 20 35 31 30 30 00 FB 1B 28 1E 52 |.18.. 5100...(.R| 000013E0: 52 B2 28 52 52 B2 31 38 29 AC AB 31 34 36 AA 28 |R.(RR.18)..146.(| 000013F0: 52 52 B3 B1 31 38 29 AC AB 31 38 00 2F 1C 32 1E |RR..18)..18./.2.| 00001400: 42 24 B2 22 22 3A 81 20 49 B2 31 20 A4 20 36 30 |B$."":. I.1 . 60| 00001410: 3A A1 20 41 24 3A 42 24 B2 42 24 AA 41 24 3A 82 |:. A$:B$.B$.A$:.| 00001420: 3A 8B 20 42 24 B2 22 22 20 89 20 37 37 31 30 00 |:. B$."" . 7710.| 00001430: 3D 1C 77 1E 97 20 36 34 36 2C 43 3A 8E 00 5F 1C |=.w.. 646,C:.._.| 00001440: DC 1E 99 3A 99 22 54 48 49 53 20 50 52 4F 47 52 |...:."THIS PROGR| 00001450: 41 4D 20 57 49 4C 4C 20 43 4F 50 59 22 3A 8E 00 |AM WILL COPY":..| 00001460: 95 1C A4 1F 44 31 B2 B5 28 49 49 AD 31 30 29 3A |....D1..(II.10):| 00001470: 44 32 B2 49 49 AB 44 31 AC 31 30 3A 97 20 4C 4C |D2.II.D1.10:. LL| 00001480: 2C 44 31 AA 34 38 3A 97 20 4C 4C AA 31 2C 44 32 |,D1.48:. LL.1,D2| 00001490: AA 34 38 3A 8E 00 BD 1C 08 20 58 58 25 B2 32 31 |.48:..... XX%.21| 000014A0: 3A 8D 20 38 33 30 30 3A 8B 20 41 41 B2 33 32 20 |:. 8300:. AA.32 | 000014B0: A7 20 44 31 B2 30 3A 89 20 38 32 33 30 00 D8 1C |. D1.0:. 8230...| 000014C0: 12 20 8B 20 41 41 B3 34 38 20 B0 20 41 41 B1 35 |. . AA.48 . AA.5| 000014D0: 37 20 89 20 38 32 30 30 00 E5 1C 1C 20 44 31 B2 |7 . 8200.... D1.| 000014E0: 41 41 AB 34 38 00 0E 1D 26 20 58 58 25 B2 32 32 |AA.48...& XX%.22| 000014F0: 3A 8D 20 38 33 30 30 3A 8B 20 41 41 B2 33 32 20 |:. 8300:. AA.32 | 00001500: A7 20 41 41 B2 44 31 3A 89 20 38 32 36 30 00 29 |. AA.D1:. 8260.)| 00001510: 1D 30 20 8B 20 41 41 B3 34 38 20 B0 20 41 41 B1 |.0 . AA.48 . AA.| 00001520: 35 37 20 89 20 38 32 33 30 00 3E 1D 3A 20 41 41 |57 . 8230.>.: AA| 00001530: B2 31 30 AC 44 31 AA 28 41 41 AB 34 38 29 00 6A |.10.D1.(AA.48).j| 00001540: 1D 44 20 99 22 13 22 3B C8 28 59 59 24 2C 59 59 |.D .".";.(YY$,YY| 00001550: 25 29 3B C8 28 58 58 24 2C 58 58 25 AB 31 29 3B |%);.(XX$,XX%.1);| 00001560: 22 20 20 9D 9D 22 3B 41 41 3B 00 70 1D 6B 20 8E |" ..";AA;.p.k .| 00001570: 00 AE 1D 6C 20 97 20 31 39 38 2C 30 3A 9E 20 35 |...l . 198,0:. 5| 00001580: 31 30 32 34 2C 58 58 25 2C 59 59 25 3A 41 41 B2 |1024,XX%,YY%:AA.| 00001590: C2 28 32 35 35 29 3A 8B 20 41 41 B2 39 32 20 B0 |.(255):. AA.92 .| 000015A0: 20 41 41 B2 31 36 39 20 89 20 31 30 30 30 00 B4 | AA.169 . 1000..| 000015B0: 1D 76 20 8E 00 E3 1D D0 20 99 22 93 11 11 22 3B |.v ..... ."...";| 000015C0: 54 54 24 3A 99 3A 99 22 49 4E 53 45 52 54 20 44 |TT$:.:."INSERT D| 000015D0: 49 53 4B 45 54 54 45 20 43 4F 4E 54 41 49 4E 49 |ISKETTE CONTAINI| 000015E0: 4E 47 22 00 1C 1E D2 20 99 22 4F 52 49 47 49 4E |NG".... ."ORIGIN| 000015F0: 41 4C 20 46 49 4C 45 53 20 4F 4E 20 44 49 53 4B |AL FILES ON DISK| 00001600: 20 44 52 49 56 45 20 22 3B 44 49 3B 22 2E 22 3A | DRIVE ";DI;".":| 00001610: 44 46 B2 44 49 3A 89 20 38 35 30 34 00 4B 1E 34 |DF.DI:. 8504.K.4| 00001620: 21 99 22 93 11 11 22 3B 54 54 24 3A 99 3A 99 22 |!."...";TT$:.:."| 00001630: 49 4E 53 45 52 54 20 44 49 53 4B 45 54 54 45 20 |INSERT DISKETTE | 00001640: 54 4F 20 43 4F 4E 54 41 49 4E 22 00 7C 1E 36 21 |TO CONTAIN".|.6!| 00001650: 99 22 43 4F 50 59 20 4F 46 20 46 49 4C 45 53 20 |."COPY OF FILES | 00001660: 4F 4E 20 44 49 53 4B 20 44 52 49 56 45 20 22 3B |ON DISK DRIVE ";| 00001670: 44 4F 3B 22 2E 22 3A 44 46 B2 44 4F 00 A3 1E 38 |DO;".":DF.DO...8| 00001680: 21 8D 20 35 31 30 30 3A 99 3A 99 20 45 33 24 3A |!. 5100:.:. E3$:| 00001690: 58 58 25 B2 31 39 3A 59 59 25 B2 37 3A 8D 20 38 |XX%.19:YY%.7:. 8| 000016A0: 33 30 30 00 CD 1E 3B 21 45 58 B2 30 3A 97 20 35 |300...;!EX.0:. 5| 000016B0: 30 31 31 32 2C 44 46 3A 97 20 35 30 31 31 33 2C |0112,DF:. 50113,| 000016C0: 30 3A 97 20 35 30 31 31 34 2C 31 31 31 00 07 1F |0:. 50114,111...| 000016D0: 3C 21 4C B2 35 30 31 37 36 3A 97 20 4C 2C 31 36 |<!L.50176:. L,16| 000016E0: 32 3A 97 20 4C AA 31 2C 32 33 37 3A 97 20 4C AA |2:. L.1,237:. L.| 000016F0: 32 2C 33 32 3A 97 20 4C AA 33 2C 38 31 3A 97 20 |2,32:. L.3,81:. | 00001700: 4C AA 34 2C 31 39 35 00 33 1F 3D 21 97 20 4C AA |L.4,195.3.=!. L.| 00001710: 35 2C 39 36 3A 9E 20 35 30 31 37 36 3A 8B 20 C2 |5,96:. 50176:. .| 00001720: 28 35 30 31 31 33 29 B3 B1 30 20 A7 20 45 58 B2 |(50113)..0 . EX.| 00001730: 32 35 35 00 39 1F 47 21 8E 00 65 1F 98 21 99 22 |255.9.G!..e..!."| 00001740: 93 11 11 22 3B 54 54 24 3A 99 3A 99 22 44 4F 20 |...";TT$:.:."DO | 00001750: 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 54 41 52 |YOU WANT TO STAR| 00001760: 54 20 41 54 22 00 8C 1F 9A 21 99 22 41 20 50 41 |T AT"....!."A PA| 00001770: 52 54 49 43 55 4C 41 52 20 54 52 41 43 4B 2F 42 |RTICULAR TRACK/B| 00001780: 4C 4F 43 4B 20 28 59 2F 4E 29 3F 22 00 9E 1F 9D |LOCK (Y/N)?"....| 00001790: 21 54 B2 31 3A 42 B2 30 3A 45 54 B2 33 35 00 BE |!T.1:B.0:ET.35..| 000017A0: 1F A2 21 97 20 31 39 38 2C 30 3A 58 58 25 B2 33 |..!. 198,0:XX%.3| 000017B0: 32 3A 59 59 25 B2 35 3A 8D 20 38 33 30 30 00 D4 |2:YY%.5:. 8300..| 000017C0: 1F AC 21 8B 20 41 41 B3 B1 38 39 20 A7 20 89 20 |..!. AA..89 . . | 000017D0: 38 36 39 39 00 FC 1F B6 21 99 22 13 22 3B C8 28 |8699....!.".";.(| 000017E0: 59 59 24 2C 37 29 3B 45 31 24 3B 45 32 24 3B 3A |YY$,7);E1$;E2$;:| 000017F0: 59 59 25 B2 37 3A 8D 20 38 32 30 30 00 16 20 BB |YY%.7:. 8200.. .| 00001800: 21 8B 20 41 41 B3 31 20 B0 20 41 41 B1 33 35 20 |!. AA.1 . AA.35 | 00001810: 89 20 38 36 33 30 00 1F 20 BF 21 54 B2 41 41 00 |. 8630.. .!T.AA.| 00001820: 51 20 C0 21 99 22 13 22 3B C8 28 59 59 24 2C 39 |Q .!.".";.(YY$,9| 00001830: 29 3B 45 31 24 3B 22 42 4C 4F 43 4B 3A 20 20 20 |);E1$;"BLOCK: | 00001840: 20 20 22 3B 3A 59 59 25 B2 39 3A 8D 20 38 32 30 | ";:YY%.9:. 820| 00001850: 30 00 6D 20 C5 21 8B 20 41 41 B3 30 20 B0 20 41 |0.m .!. AA.0 . A| 00001860: 41 B1 53 28 54 29 20 89 20 38 36 34 30 00 76 20 |A.S(T) . 8640.v | 00001870: C9 21 42 B2 41 41 00 81 20 CA 21 59 59 25 B2 31 |.!B.AA.. .!YY%.1| 00001880: 31 00 B1 20 CC 21 99 22 13 22 3B C8 28 59 59 24 |1.. .!.".";.(YY$| 00001890: 2C 59 59 25 29 3B 22 45 4E 54 45 52 20 45 4E 44 |,YY%);"ENTER END| 000018A0: 49 4E 47 20 22 3B 45 32 24 3B 3A 8D 20 38 32 30 |ING ";E2$;:. 820| 000018B0: 30 00 CD 20 CF 21 8B 20 41 41 B3 54 20 B0 20 41 |0.. .!. AA.T . A| 000018C0: 41 B1 33 35 20 20 20 89 20 38 36 35 30 00 D7 20 |A.35 . 8650.. | 000018D0: D4 21 45 54 B2 41 41 00 DD 20 FB 21 8E 00 FD 20 |.!ET.AA.. .!... | 000018E0: 60 22 58 58 25 B2 32 31 3A 8D 20 38 39 30 30 3A |`"XX%.21:. 8900:| 000018F0: 8B 20 41 41 B2 30 20 89 20 38 38 39 39 00 21 21 |. AA.0 . 8899.!!| 00001900: 74 22 8B 20 41 41 B2 31 20 A7 20 58 58 25 B2 32 |t". AA.1 . XX%.2| 00001910: 32 3A 8D 20 38 39 30 30 3A 41 41 B2 31 30 AA 41 |2:. 8900:AA.10.A| 00001920: 41 00 3B 21 7E 22 8B 20 41 41 B3 38 20 B0 20 41 |A.;!~". AA.8 . A| 00001930: 41 B1 31 31 20 89 20 38 38 30 30 00 65 21 C3 22 |A.11 . 8800.e!."| 00001940: 99 22 13 22 3B C8 28 59 59 24 2C 59 59 25 29 3B |.".";.(YY$,YY%);| 00001950: C8 28 58 58 24 2C 32 31 29 3B 41 41 3B 22 20 20 |.(XX$,21);AA;" | 00001960: 20 22 3B 3A 8E 00 9B 21 C4 22 9E 20 35 31 30 32 | ";:...!.". 5102| 00001970: 34 2C 58 58 25 2C 59 59 25 3A 41 41 B2 C2 28 32 |4,XX%,YY%:AA..(2| 00001980: 35 35 29 3A 8B 20 41 41 B2 39 32 20 B0 20 41 41 |55):. AA.92 . AA| 00001990: B2 31 36 39 20 89 20 39 30 30 30 00 BD 21 CE 22 |.169 . 9000..!."| 000019A0: 41 41 B2 41 41 AB 34 38 3A 8B 20 41 41 B3 30 20 |AA.AA.48:. AA.0 | 000019B0: B0 20 41 41 B1 39 20 A7 20 41 41 B2 30 00 C3 21 |. AA.9 . AA.0..!| 000019C0: D8 22 8E 00 D8 21 28 23 97 20 31 38 36 2C 52 36 |."...!(#. 186,R6| 000019D0: 3A 9E 20 35 31 37 31 32 00 EB 21 0E 27 94 22 40 |:. 51712..!.'."@| 000019E0: 30 3A 43 4C 4F 4E 45 31 22 2C 38 00 00 00 |0:CLONE1",8... |
....... CLONE1.C.... 51,0:. 52,40:. 55,0
:. 56,40:. 643,0:. 644,40:..O.... S(35).
Q.... IX(35),IY(35),OX(35),OY(35)....R6
.B(186)...... 53280,0:. 53281,0:. 646,1.
K...TT$."CLONE COMMODORE 64 VIC 1541 CO
PY".....XX$."..........":XX$.XX$.XX$.XX$
.XX$.....YY$."..........":YY$.YY$.YY$.YY
$.J.... 50137,48:. 50138,48:. 50139,48:.
50115,255.....E1$."ENTER STARTING ":E2$
."TRACK: ":E3$."ANY KEY WHEN READY."
...A.. 7000:. 7100...... T.1 . 17:S(T).
20:..V.... T.18 . 24:S(T).18:....D.. T.2
5 . 30:S(T).17:....N.. T.31 . 35:S(T).16
:..V.X.. 4,4,3,4,5,2,3,4,5,6,1,2,3,4,5,6
,7,0,1,2,3,4,5,6,7,8,0,1,2,3,4,5,6,7,8.O
.}.. I.1 . 35:. IX(I):......IY(1).10:IY(
2).IY(1).1:. I.3 . 5:IY(I).IY(2).1:.....
.. I.6 . 10:IY(I).IY(5).1:.:. I.11 . 17:
IY(I).IY(10).1:....... I.18 . 26:IY(I).I
Y(17).1:..".... I.27 . 35:IY(I).IY(26).1
:..T.... I.1 . 35:OY(I).IY(36.I):OX(I).I
X(36.I).30:..Z.P.....Z.TW.0:F.0:PV.40:QV
.160:. 53260,40:. 8600:. 8400:X.T:Y.B...
... DO..DI . . 8500.D...Z.0:Z2.0:HF.0:.
6200.V.... T.ET . 4000...... 6300.....LL
.50124:II.T:. 8100.....LL.50127:II.B:. 8
100.G.... 50112,DI:. 49920:. B(50113)..0
. DF.DI:. 7200......DO..DI..50112,DO:.5
0432:.B(50113)..0.DF.DO:RF.1:. 7300.....
. DO..DI . 2080.R....646,5:Z.Z.1:. Z.3 .
Z.0:.".";H(YY$,23);H(XX$,Z2);"#";......
646,C:. Z.0 . Z2.Z2.1...... 51200:. F.1
. X.T:Y.B:F.0.<.... 53260,B(53260).1:.
B(53260).QV . . 3000.[. .B.B.1:. B.S(T)
. B.0:T.T.1.Q.%.. DI..DO . TW.T.1.|.*..
2020...... 8500:HF.1:. 6200:Z.0:Z2.0...L
.. 53260,PV:T1.X:B1.Y.H.V.. 51209:. 6400
...Z..646,6:Z.Z.1:. Z.3 . Z.0:.".";H(YY$
,23);H(XX$,Z2);"#";...... 646,C:. Z.0 .
Z2.Z2.1.9...LL.50124:II.T1:. 8100.S...LL
.50127:II.B1:. 8100...... 50112,DI:. 504
32:. B(50113)..0 . DF.DI:RF.2:. 7300.M..
.. 53260,B(53260).1:B1.B1.1:. B1.S(T1) .
B1.0:T1.T1.1:TW.TW.1...... T1.ET . 3999
...... B(53260)..QV . 3030...... 53260,P
V.-...F.1:. 8400:HF.0:. 6200:Z.0:Z2.0.3.
....G. .. DO..DI . 4010.R.... 3000......
"...";TT$:.:.:."COPY COMPLETED ON DRIVE"
;DO;".":.5100......:. E3$:. 198,0:. 198,
1:. 198,0:. 9000.....SS.54272:. L.0 . 24
:. SS.L,0:....... SS.01,95:. SS.5,15:. S
S.15,30:. SS.24,15:. SS.4,21.2.<.. TT.1
. 200 :.:. SS.4,20.N.K.. L.24. 0 :. SS.L
,0:.:..T.8...T.=.. 53280,1:. 53281,1:. 6
46,0.~.B..".";...D.. DI.DO . HF.0 . ."."
;.14);"NOW READING:".Z.E.. DI.DO . HF.1
. .".";.14);"NOW WRITING:"...G.. DI..DO
. .".";.14);"NOW CLONING:"...H.. ".";H(Y
Y$,3);.).L.. .16);"TRACK".<.Q.. .16);"BL
OCK".`.V.."I-N-P-U-T";.20);"O-U-T-P-U-T"
...[.." DISK ";DI;.22);"DISK ";DO:.:....
J.. 646,6...K.PY$." QQQQQQQQQ":. H(PY
$,5):. H(PY$,5)...L.. J(PY$,2,6):. J(PY$
,3,7):. J(PY$,4,8)...M.. J(PY$,5,9):. J(
PY$,5,9)...R.. 646,0.>.T..:.:." BLO
CKS ON CURRENT TRACK:".V.~.. DI.DO . .:.
:." ONE HUNDRED TWENTY BLOCK BUFFER:"..
.... DI..DO . 6280...... 646,5:. HF.0 .
. 646,6.F.... I.0 . 39:."#";:.:. 646,C.Q
...TX.T.1...... TX.0 . 6299...... I.1 .
TX.!....".";H(YY$,IY(I));H(XX$,IX(I));"
":. 646,6.R.... I..TW . .".";H(YY$,OY(I)
);H(XX$,OX(I));"W".X.....S.... B.0 . . 6
46,0:. 6299..... 646,5......".";H(YY$,2
0);" ";:. I.0 . B:."X";:.:. 646,0
.......U...TR.T:BR.B:. 6500:......TR.T1:
BR.B1:. 6500:....D.C.B(646):. 646,5.&.I.
.".";H(YY$,20);H(XX$,BR.7);"X".N.K.. 646
,10:.".";H(YY$,3);H(XX$,21);TR.M.L..".";
H(YY$,4);H(XX$,21);BR...N.. TR.TX . . 65
99...X.TX.TR...Z..".";H(YY$,4);H(XX$,21)
;" 0 ".D.}.. TR.1 . 0 . 6538......".";H(
YY$,IY(TR.1));H(XX$,IX(TR.1));" ":. 646,
6...... DI.DO . HF.0 . 6538.@....".";H(Y
Y$,OY(TR.1));H(XX$,OX(TR.1));"W".Z.... D
I.DO . HF.1 . 6560...... 646,5:.".";H(YY
$,IY(TR));H(XX$,IX(TR));"W"... .. 646,5.
Q....".";H(YY$,20);" X";:.646,6:.
I.1.S(TR):."X";:......." ";...G.. 6
46,C:....X.."..";TT$:.:.:DS.0:DI.0:DO.0.
8.B.." DISK DRIVE CONFIGURATION":.
.E.L.." FILL IN THE BLANKS WITH DISK D
RIVE"...Q.." NUMBERS IN THE RANGE
8-11".E.V..:."..SINGLE DRIVE COPY:":.:."
DRIVE NUMBER:"......:."..TWO DRIV
E COPY:":.:." INPUT DRIVE:"......
:." OUTPUT DRIVE:".A....".";H(YY$,
13);H(XX$,21);G(18);" ";.Z...."..";H(YY
$,6);" ";.Z...."..";H(YY$,2);" ";G(146
);.....YY%.13:. 8800:DS.AA:. DS..0 . 708
2... .YY%.19:. 8800:DI.AA.Q...YY%.21:. 8
800:DO.AA...... DS.0 . DI..DO . 7099....
.. DS..0 . DI.0 . DO.0 . DI.DS:DO.DS:. 7
099.&.... 7000.,.....K...."...";TT$:. DO
..DI . 7150.O.P.. 7900:."A DISKETTE USIN
G ONLY"...Z.."THE DISKETTE DRIVE ";DI;".
":. 7170.B.... 7900:."FROM A DISKETTE ON
DRIVE";DI......"TO A DISKETTE ON DRIVE
";DO;"."......:."IS THAT WHAT YOU WANT (
Y/N)?".9.... 51024,29,8:AA.B(255):. AA..
89 . 1000.D.... 7400.J.....D. .. 8507:.
EX..0 . 7210...%.. 49920:. B(50113).0 .
2055...*.EX.0:. 7320...... 8507:. EX..0
. 7310.O.... 50432:. B(50113)..0 . 7310.
..... RF . 2056,3050.....EX.29...... 770
0:. G(146);:. 9000......"...";TT$:.:..@.
..."DO ";:. 7490:. AA..89 . 7489.K.... 8
500.^...."...";TT$:.:....$.."ARE YOU SUR
E ";:. 7490:. AA..89 . 7489...... 15,DO,
15:.15,"N0:CLONE,CC": 15...3.. 15,DO,15
:.15,A$,B$,C$,D$: 15:. E(A$).0 . 7489..
.8..".";:. 7700:. G(146):. 1000...A...+.
B.."YOU WANT TO INITIALIZE".M.D.."THE OU
TPUT DISKETTE (Y/N)?"...F.. 198,0:. 5102
4,26,6:AA.B(255):. AA.92 . AA.169 . 1000
...K.......RR.18:. 646,10.Z.... ".";G(RR
);H(YY$,8);.EX);"E-R-R-O-R";:.RR.18.. 51
00...(.RR.(RR.18)..146.(RR..18)..18./.2.
B$."":. I.1 . 60:. A$:B$.B$.A$:.:. B$.""
. 7710.=.W.. 646,C:.._....:."THIS PROGR
AM WILL COPY":......D1..(II.10):D2.II.D1
.10:. LL,D1.48:. LL.1,D2.48:..... XX%.21
:. 8300:. AA.32 . D1.0:. 8230.X.. . AA.4
8 . AA.57 . 8200.... D1.AA.48...& XX%.22
:. 8300:. AA.32 . AA.D1:. 8260.).0 . AA.
48 . AA.57 . 8230.>.: AA.10.D1.(AA.48).J
.D .".";H(YY$,YY%);H(XX$,XX%.1);" ..";A
A;.P.K ....L . 198,0:. 51024,XX%,YY%:AA.
B(255):. AA.92 . AA.169 . 1000...V ....P
."...";TT$:.:."INSERT DISKETTE CONTAINI
NG"...R ."ORIGINAL FILES ON DISK DRIVE "
;DI;".":DF.DI:. 8504.K.4!."...";TT$:.:."
INSERT DISKETTE TO CONTAIN".|.6!."COPY O
F FILES ON DISK DRIVE ";DO;".":DF.DO...8
!. 5100:.:. E3$:XX%.19:YY%.7:. 8300.M.;!
EX.0:. 50112,DF:. 50113,0:. 50114,111...
<!L.50176:. L,162:. L.1,237:. L.2,32:. L
.3,81:. L.4,195.3.=!. L.5,96:. 50176:. B
(50113)..0 . EX.255.9.G!..E..!."...";TT$
:.:."DO YOU WANT TO START AT"....!."A PA
RTICULAR TRACK/BLOCK (Y/N)?"....!T.1:B.0
:ET.35....!. 198,0:XX%.32:YY%.5:. 8300.T
..!. AA..89 . . 8699....!.".";H(YY$,7);E
1$;E2$;:YY%.7:. 8200.. .!. AA.1 . AA.35
. 8630.. .!T.AA.Q .!.".";H(YY$,9);E1$;"B
LOCK: ";:YY%.9:. 8200.M E!. AA.0 . A
A.S(T) . 8640.V I!B.AA.. J!YY%.11.. L!."
.";H(YY$,YY%);"ENTER ENDING ";E2$;:. 820
0.M O!. AA.T . AA.35 . 8650.W T!ET.AA.
. .!... `"XX%.21:. 8900:. AA.0 . 8899.!!
T". AA.1 . XX%.22:. 8900:AA.10.AA.;!~".
AA.8 . AA.11 . 8800.E!C".".";H(YY$,YY%);
H(XX$,21);AA;" ";:...!D". 51024,XX%,YY
%:AA.B(255):. AA.92 . AA.169 . 9000..!N"
AA.AA.48:. AA.0 . AA.9 . AA.0.C!X"..X!(#
. 186,R6:. 51712..!.'."@0:CLONE1",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL