CLONE1
FILE INFORMATION
FILENAME(S): CLONE1
FILE TYPE(S): PRG
FILE SIZE: 6.6K
FIRST SEEN: 2025-11-02 16:42:40
APPEARS ON: 3 disk(s)
FILE HASH
c2ac7675d4e97f018ae8632e27b9c7d172f9729e0e8811ea969b871eedeb1ac8
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FUCHS ANWENDER | CLONE1 | PRG | Treasure Chest - ralf | 14 | 12 | DOWNLOAD FILE |
| SUPERCLONE | CLONE1 | PRG | High Voltage Complete C64 Collection | 16 | 10 | DOWNLOAD FILE |
| C64 HULP 7 2 | CLONE1 | PRG | DuncanTwain | 19 | 10 | 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 1E 0F 96 0F 46 |.QV . 3030.....F|
00000700: B2 31 3A 8D 20 38 34 30 30 3A 48 46 B2 30 3A 8D |.1:. 8400:HF.0:.|
00000710: 20 36 32 30 30 3A 5A B2 30 3A 5A 32 B2 30 00 2F | 6200:Z.0:Z2.0./|
00000720: 0F 9F 0F 97 20 35 33 32 36 30 2C 50 56 3A 8E 00 |.... 53260,PV:..|
00000730: 43 0F A0 0F 8B 20 44 4F B3 B1 44 49 20 89 20 34 |C.... DO..DI . 4|
00000740: 30 31 30 00 5F 0F A5 0F 8B 20 C2 28 35 33 32 36 |010._.... .(5326|
00000750: 30 29 B3 B1 50 56 20 A7 20 8D 20 33 30 30 30 00 |0)..PV . . 3000.|
00000760: 9A 0F AA 0F 99 22 93 11 11 22 3B 54 54 24 3A 99 |....."...";TT$:.|
00000770: 3A 99 3A 99 22 43 4F 50 59 20 43 4F 4D 50 4C 45 |:.:."COPY COMPLE|
00000780: 54 45 44 20 4F 4E 20 44 52 49 56 45 22 3B 44 4F |TED ON DRIVE";DO|
00000790: 3B 22 2E 22 3A 8D 35 31 30 30 00 C5 0F B4 0F 99 |;".":.5100......|
000007A0: 3A 99 20 45 33 24 3A 97 20 31 39 38 2C 30 3A 92 |:. E3$:. 198,0:.|
000007B0: 20 31 39 38 2C 31 3A 97 20 31 39 38 2C 30 3A 89 | 198,1:. 198,0:.|
000007C0: 20 39 30 30 30 00 E8 0F EC 13 53 53 B2 35 34 32 | 9000.....SS.542|
000007D0: 37 32 3A 81 20 4C B2 30 20 A4 20 32 34 3A 97 20 |72:. L.0 . 24:. |
000007E0: 53 53 AA 4C 2C 30 3A 82 00 21 10 0A 14 97 20 53 |SS.L,0:..!.... S|
000007F0: 53 AA 30 31 2C 39 35 3A 97 20 53 53 AA 35 2C 31 |S.01,95:. SS.5,1|
00000800: 35 3A 97 20 53 53 AA 31 35 2C 33 30 3A 97 20 53 |5:. SS.15,30:. S|
00000810: 53 AA 32 34 2C 31 35 3A 97 20 53 53 AA 34 2C 32 |S.24,15:. SS.4,2|
00000820: 31 00 3F 10 3C 14 81 20 54 54 B2 31 20 A4 20 32 |1.?.<.. TT.1 . 2|
00000830: 30 30 20 3A 82 3A 97 20 53 53 AA 34 2C 32 30 00 |00 :.:. SS.4,20.|
00000840: 5B 10 4B 14 81 20 4C B2 32 34 A4 20 30 20 3A 97 |[.K.. L.24. 0 :.|
00000850: 20 53 53 AA 4C 2C 30 3A 82 3A 8E 00 61 10 38 18 | SS.L,0:.:..a.8.|
00000860: 8F 00 81 10 3D 18 97 20 35 33 32 38 30 2C 31 3A |....=.. 53280,1:|
00000870: 97 20 35 33 32 38 31 2C 31 3A 97 20 36 34 36 2C |. 53281,1:. 646,|
00000880: 30 00 8B 10 42 18 99 22 93 22 3B 00 B9 10 44 18 |0...B..".";...D.|
00000890: 8B 20 44 49 B2 44 4F 20 AF 20 48 46 B2 30 20 A7 |. DI.DO . HF.0 .|
000008A0: 20 99 22 11 22 3B A6 31 34 29 3B 22 4E 4F 57 20 | .".";.14);"NOW |
000008B0: 52 45 41 44 49 4E 47 3A 22 00 E7 10 45 18 8B 20 |READING:"...E.. |
000008C0: 44 49 B2 44 4F 20 AF 20 48 46 B2 31 20 A7 20 99 |DI.DO . HF.1 . .|
000008D0: 22 11 22 3B A6 31 34 29 3B 22 4E 4F 57 20 57 52 |".";.14);"NOW WR|
000008E0: 49 54 49 4E 47 3A 22 00 0F 11 47 18 8B 20 44 49 |ITING:"...G.. DI|
000008F0: B3 B1 44 4F 20 A7 20 99 22 11 22 3B A6 31 34 29 |..DO . .".";.14)|
00000900: 3B 22 4E 4F 57 20 43 4C 4F 4E 49 4E 47 3A 22 00 |;"NOW CLONING:".|
00000910: 23 11 48 18 99 20 22 13 22 3B C8 28 59 59 24 2C |#.H.. ".";.(YY$,|
00000920: 33 29 3B 00 36 11 4C 18 99 20 A6 31 36 29 3B 22 |3);.6.L.. .16);"|
00000930: 54 52 41 43 4B 22 00 49 11 51 18 99 20 A6 31 36 |TRACK".I.Q.. .16|
00000940: 29 3B 22 42 4C 4F 43 4B 22 00 6D 11 56 18 99 22 |);"BLOCK".m.V.."|
00000950: 49 2D 4E 2D 50 2D 55 2D 54 22 3B A6 32 30 29 3B |I-N-P-U-T";.20);|
00000960: 22 4F 2D 55 2D 54 2D 50 2D 55 2D 54 22 00 92 11 |"O-U-T-P-U-T"...|
00000970: 5B 18 99 22 20 44 49 53 4B 20 22 3B 44 49 3B A6 |[.." DISK ";DI;.|
00000980: 32 32 29 3B 22 44 49 53 4B 20 22 3B 44 4F 3A 99 |22);"DISK ";DO:.|
00000990: 3A 99 00 9E 11 6A 18 97 20 36 34 36 2C 36 00 CC |:....j.. 646,6..|
000009A0: 11 6B 18 50 59 24 B2 22 20 20 20 20 D1 D1 D1 D1 |.k.PY$." ....|
000009B0: D1 D1 D1 D1 D1 22 3A 99 20 C8 28 50 59 24 2C 35 |.....":. .(PY$,5|
000009C0: 29 3A 99 20 C8 28 50 59 24 2C 35 29 00 F7 11 6C |):. .(PY$,5)...l|
000009D0: 18 99 20 CA 28 50 59 24 2C 32 2C 36 29 3A 99 20 |.. .(PY$,2,6):. |
000009E0: CA 28 50 59 24 2C 33 2C 37 29 3A 99 20 CA 28 50 |.(PY$,3,7):. .(P|
000009F0: 59 24 2C 34 2C 38 29 00 15 12 6D 18 99 20 CA 28 |Y$,4,8)...m.. .(|
00000A00: 50 59 24 2C 35 2C 39 29 3A 99 20 CA 28 50 59 24 |PY$,5,9):. .(PY$|
00000A10: 2C 35 2C 39 29 00 2B 12 72 18 8B 20 45 54 B3 B1 |,5,9).+.r.. ET..|
00000A20: 33 35 20 A7 20 8D 20 36 36 30 30 00 37 12 73 18 |35 . . 6600.7.s.|
00000A30: 97 20 36 34 36 2C 30 00 61 12 74 18 99 3A 99 3A |. 646,0.a.t..:.:|
00000A40: 99 22 20 20 20 20 20 20 42 4C 4F 43 4B 53 20 4F |." BLOCKS O|
00000A50: 4E 20 43 55 52 52 45 4E 54 20 54 52 41 43 4B 3A |N CURRENT TRACK:|
00000A60: 22 00 99 12 7E 18 8B 20 44 49 B2 44 4F 20 A7 20 |"...~.. DI.DO . |
00000A70: 99 3A 99 3A 99 22 20 20 4F 4E 45 20 48 55 4E 44 |.:.:." ONE HUND|
00000A80: 52 45 44 20 54 57 45 4E 54 59 20 42 4C 4F 43 4B |RED TWENTY BLOCK|
00000A90: 20 42 55 46 46 45 52 3A 22 00 AD 12 83 18 8B 20 | BUFFER:"...... |
00000AA0: 44 49 B3 B1 44 4F 20 89 20 36 32 38 30 00 CA 12 |DI..DO . 6280...|
00000AB0: 84 18 97 20 36 34 36 2C 35 3A 8B 20 48 46 B2 30 |... 646,5:. HF.0|
00000AC0: 20 A7 20 97 20 36 34 36 2C 36 00 E9 12 86 18 81 | . . 646,6......|
00000AD0: 20 49 B2 30 20 A4 20 33 39 3A 99 22 23 22 3B 3A | I.0 . 39:."#";:|
00000AE0: 82 3A 97 20 36 34 36 2C 43 00 F4 12 88 18 54 58 |.:. 646,C.....TX|
00000AF0: B2 54 AB 31 00 06 13 8A 18 8B 20 54 58 B2 30 20 |.T.1...... TX.0 |
00000B00: 89 20 36 32 39 39 00 15 13 8B 18 81 20 49 B2 31 |. 6299...... I.1|
00000B10: 20 A4 20 54 58 00 44 13 8C 18 99 22 13 22 3B C8 | . TX.D....".";.|
00000B20: 28 59 59 24 2C 49 59 28 49 29 29 3B C8 28 58 58 |(YY$,IY(I));.(XX|
00000B30: 24 2C 49 58 28 49 29 29 3B 22 A0 22 3A 97 20 36 |$,IX(I));".":. 6|
00000B40: 34 36 2C 36 00 75 13 8E 18 8B 20 49 B3 B2 54 57 |46,6.u.... I..TW|
00000B50: 20 A7 20 99 22 13 22 3B C8 28 59 59 24 2C 4F 59 | . .".";.(YY$,OY|
00000B60: 28 49 29 29 3B C8 28 58 58 24 2C 4F 58 28 49 29 |(I));.(XX$,OX(I)|
00000B70: 29 3B 22 D7 22 00 7B 13 90 18 82 00 96 13 92 18 |);".".{.........|
00000B80: 8B 20 42 B2 30 20 A7 20 97 20 36 34 36 2C 30 3A |. B.0 . . 646,0:|
00000B90: 89 20 36 32 39 39 00 A2 13 93 18 97 20 36 34 36 |. 6299...... 646|
00000BA0: 2C 35 00 DB 13 94 18 99 22 13 22 3B C8 28 59 59 |,5......".";.(YY|
00000BB0: 24 2C 32 30 29 3B 22 20 20 20 20 20 20 20 20 22 |$,20);" "|
00000BC0: 3B 3A 81 20 49 B2 30 20 A4 20 42 3A 99 22 D8 22 |;:. I.0 . B:."."|
00000BD0: 3B 3A 82 3A 97 20 36 34 36 2C 30 00 E1 13 9B 18 |;:.:. 646,0.....|
00000BE0: 8E 00 F8 13 9C 18 54 52 B2 54 3A 42 52 B2 42 3A |......TR.T:BR.B:|
00000BF0: 8D 20 36 35 30 30 3A 8E 00 11 14 00 19 54 52 B2 |. 6500:......TR.|
00000C00: 54 31 3A 42 52 B2 42 31 3A 8D 20 36 35 30 30 3A |T1:BR.B1:. 6500:|
00000C10: 8E 00 26 14 64 19 43 B2 C2 28 36 34 36 29 3A 97 |..&.d.C..(646):.|
00000C20: 20 36 34 36 2C 35 00 49 14 69 19 99 22 13 22 3B | 646,5.I.i..".";|
00000C30: C8 28 59 59 24 2C 32 30 29 3B C8 28 58 58 24 2C |.(YY$,20);.(XX$,|
00000C40: 42 52 AA 37 29 3B 22 D8 22 00 71 14 6B 19 97 20 |BR.7);".".q.k.. |
00000C50: 36 34 36 2C 31 30 3A 99 22 13 22 3B C8 28 59 59 |646,10:.".";.(YY|
00000C60: 24 2C 33 29 3B C8 28 58 58 24 2C 32 31 29 3B 54 |$,3);.(XX$,21);T|
00000C70: 52 00 90 14 6C 19 99 22 13 22 3B C8 28 59 59 24 |R...l..".";.(YY$|
00000C80: 2C 34 29 3B C8 28 58 58 24 2C 32 31 29 3B 42 52 |,4);.(XX$,21);BR|
00000C90: 00 A5 14 6E 19 8B 20 54 52 B2 54 58 20 A7 20 89 |...n.. TR.TX . .|
00000CA0: 20 36 35 39 39 00 AF 14 78 19 54 58 B2 54 52 00 | 6599...x.TX.TR.|
00000CB0: D1 14 7A 19 99 22 13 22 3B C8 28 59 59 24 2C 34 |..z..".";.(YY$,4|
00000CC0: 29 3B C8 28 58 58 24 2C 32 31 29 3B 22 20 30 20 |);.(XX$,21);" 0 |
00000CD0: 22 00 E7 14 7D 19 8B 20 54 52 AB 31 20 B2 20 30 |"...}.. TR.1 . 0|
00000CE0: 20 89 20 36 35 33 38 00 1C 15 82 19 99 22 13 22 | . 6538......"."|
00000CF0: 3B C8 28 59 59 24 2C 49 59 28 54 52 AB 31 29 29 |;.(YY$,IY(TR.1))|
00000D00: 3B C8 28 58 58 24 2C 49 58 28 54 52 AB 31 29 29 |;.(XX$,IX(TR.1))|
00000D10: 3B 22 A0 22 3A 97 20 36 34 36 2C 36 00 36 15 86 |;".":. 646,6.6..|
00000D20: 19 8B 20 44 49 B2 44 4F 20 AF 20 48 46 B2 30 20 |.. DI.DO . HF.0 |
00000D30: 89 20 36 35 33 38 00 63 15 87 19 99 22 13 22 3B |. 6538.c....".";|
00000D40: C8 28 59 59 24 2C 4F 59 28 54 52 AB 31 29 29 3B |.(YY$,OY(TR.1));|
00000D50: C8 28 58 58 24 2C 4F 58 28 54 52 AB 31 29 29 3B |.(XX$,OX(TR.1));|
00000D60: 22 D7 22 00 7D 15 8A 19 8B 20 44 49 B2 44 4F 20 |".".}.... DI.DO |
00000D70: AF 20 48 46 B2 31 20 89 20 36 35 36 30 00 AE 15 |. HF.1 . 6560...|
00000D80: 8C 19 97 20 36 34 36 2C 35 3A 99 22 13 22 3B C8 |... 646,5:.".";.|
00000D90: 28 59 59 24 2C 49 59 28 54 52 29 29 3B C8 28 58 |(YY$,IY(TR));.(X|
00000DA0: 58 24 2C 49 58 28 54 52 29 29 3B 22 D7 22 00 BA |X$,IX(TR));"."..|
00000DB0: 15 A0 19 97 20 36 34 36 2C 35 00 F4 15 A2 19 99 |.... 646,5......|
00000DC0: 22 13 22 3B C8 28 59 59 24 2C 32 30 29 3B 22 20 |".";.(YY$,20);" |
00000DD0: 20 20 20 20 20 20 D8 22 3B 3A 97 36 34 36 2C 36 | .";:.646,6|
00000DE0: 3A 81 20 49 B2 31 A4 53 28 54 52 29 3A 99 22 D8 |:. I.1.S(TR):.".|
00000DF0: 22 3B 3A 82 00 03 16 A5 19 99 22 20 20 20 20 20 |";:......." |
00000E00: 20 22 3B 00 11 16 C7 19 97 20 36 34 36 2C 43 3A | ";...... 646,C:|
00000E10: 8E 00 47 16 C8 19 81 49 B2 45 54 AA 31 A4 33 35 |..G....I.ET.1.35|
00000E20: 3A 99 22 13 22 3B C8 28 59 59 24 2C 49 59 28 49 |:.".";.(YY$,IY(I|
00000E30: 29 29 3B C8 28 58 58 24 2C 49 58 28 49 29 29 3B |));.(XX$,IX(I));|
00000E40: 22 20 22 3A 82 3A 8E 00 68 16 58 1B 99 22 93 11 |" ":.:..h.X.."..|
00000E50: 22 3B 54 54 24 3A 99 3A 99 3A 44 53 B2 30 3A 44 |";TT$:.:.:DS.0:D|
00000E60: 49 B2 30 3A 44 4F B2 30 00 91 16 62 1B 99 22 20 |I.0:DO.0...b.." |
00000E70: 20 20 20 20 20 20 44 49 53 4B 20 44 52 49 56 45 | DISK DRIVE|
00000E80: 20 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 22 3A | CONFIGURATION":|
00000E90: 99 00 BE 16 6C 1B 99 22 20 20 20 46 49 4C 4C 20 |....l.." FILL |
00000EA0: 49 4E 20 54 48 45 20 42 4C 41 4E 4B 53 20 57 49 |IN THE BLANKS WI|
00000EB0: 54 48 20 44 49 53 4B 20 44 52 49 56 45 22 00 E6 |TH DISK DRIVE"..|
00000EC0: 16 71 1B 99 22 20 20 20 20 20 20 20 4E 55 4D 42 |.q.." NUMB|
00000ED0: 45 52 53 20 49 4E 20 54 48 45 20 52 41 4E 47 45 |ERS IN THE RANGE|
00000EE0: 20 38 2D 31 31 22 00 1E 17 76 1B 99 3A 99 22 11 | 8-11"...v..:.".|
00000EF0: 11 53 49 4E 47 4C 45 20 44 52 49 56 45 20 43 4F |.SINGLE DRIVE CO|
00000F00: 50 59 3A 22 3A 99 3A 99 22 20 20 20 20 20 20 20 |PY:":.:." |
00000F10: 44 52 49 56 45 20 4E 55 4D 42 45 52 3A 22 00 53 |DRIVE NUMBER:".S|
00000F20: 17 80 1B 99 3A 99 22 11 11 54 57 4F 20 44 52 49 |....:."..TWO DRI|
00000F30: 56 45 20 43 4F 50 59 3A 22 3A 99 3A 99 22 20 20 |VE COPY:":.:." |
00000F40: 20 20 20 20 20 49 4E 50 55 54 20 20 44 52 49 56 | INPUT DRIV|
00000F50: 45 3A 22 00 71 17 8A 1B 99 3A 99 22 20 20 20 20 |E:".q....:." |
00000F60: 20 20 20 4F 55 54 50 55 54 20 44 52 49 56 45 3A | OUTPUT DRIVE:|
00000F70: 22 00 9A 17 94 1B 99 22 13 22 3B C8 28 59 59 24 |"......".";.(YY$|
00000F80: 2C 31 33 29 3B C8 28 58 58 24 2C 32 31 29 3B C7 |,13);.(XX$,21);.|
00000F90: 28 31 38 29 3B 22 20 20 22 3B 00 B3 17 96 1B 99 |(18);" ";......|
00000FA0: 22 9D 9D 22 3B C8 28 59 59 24 2C 36 29 3B 22 20 |"..";.(YY$,6);" |
00000FB0: 20 22 3B 00 D3 17 98 1B 99 22 9D 9D 22 3B C8 28 | ";......"..";.(|
00000FC0: 59 59 24 2C 32 29 3B 22 20 20 22 3B C7 28 31 34 |YY$,2);" ";.(14|
00000FD0: 36 29 3B 00 FA 17 9E 1B 59 59 25 B2 31 33 3A 8D |6);.....YY%.13:.|
00000FE0: 20 38 38 30 30 3A 44 53 B2 41 41 3A 8B 20 44 53 | 8800:DS.AA:. DS|
00000FF0: B3 B1 30 20 89 20 37 30 38 32 00 12 18 A0 1B 59 |..0 . 7082.....Y|
00001000: 59 25 B2 31 39 3A 8D 20 38 38 30 30 3A 44 49 B2 |Y%.19:. 8800:DI.|
00001010: 41 41 00 2A 18 A2 1B 59 59 25 B2 32 31 3A 8D 20 |AA.*...YY%.21:. |
00001020: 38 38 30 30 3A 44 4F B2 41 41 00 45 18 A8 1B 8B |8800:DO.AA.E....|
00001030: 20 44 53 B2 30 20 AF 20 44 49 B3 B1 44 4F 20 89 | DS.0 . DI..DO .|
00001040: 20 37 30 39 39 00 74 18 AA 1B 8B 20 44 53 B3 B1 | 7099.t.... DS..|
00001050: 30 20 AF 20 44 49 B2 30 20 AF 20 44 4F B2 30 20 |0 . DI.0 . DO.0 |
00001060: A7 20 44 49 B2 44 53 3A 44 4F B2 44 53 3A 89 20 |. DI.DS:DO.DS:. |
00001070: 37 30 39 39 00 7F 18 AC 1B 89 20 37 30 30 30 00 |7099...... 7000.|
00001080: 85 18 BB 1B 8E 00 A4 18 BC 1B 99 22 93 11 11 22 |..........."..."|
00001090: 3B 54 54 24 3A 8B 20 44 4F B3 B1 44 49 20 89 20 |;TT$:. DO..DI . |
000010A0: 37 31 35 30 00 C8 18 D0 1B 8D 20 37 39 30 30 3A |7150...... 7900:|
000010B0: 99 22 41 20 44 49 53 4B 45 54 54 45 20 55 53 49 |."A DISKETTE USI|
000010C0: 4E 47 20 4F 4E 4C 59 22 00 F1 18 DA 1B 99 22 54 |NG ONLY"......"T|
000010D0: 48 45 20 44 49 53 4B 45 54 54 45 20 44 52 49 56 |HE DISKETTE DRIV|
000010E0: 45 20 22 3B 44 49 3B 22 2E 22 3A 89 20 37 31 37 |E ";DI;".":. 717|
000010F0: 30 00 1B 19 EE 1B 8D 20 37 39 30 30 3A 99 22 46 |0...... 7900:."F|
00001100: 52 4F 4D 20 41 20 44 49 53 4B 45 54 54 45 20 4F |ROM A DISKETTE O|
00001110: 4E 20 44 52 49 56 45 22 3B 44 49 00 41 19 F8 1B |N DRIVE";DI.A...|
00001120: 99 22 54 4F 20 41 20 44 49 53 4B 45 54 54 45 20 |."TO A DISKETTE |
00001130: 4F 4E 20 44 52 49 56 45 20 22 3B 44 4F 3B 22 2E |ON DRIVE ";DO;".|
00001140: 22 00 67 19 02 1C 99 3A 99 22 49 53 20 54 48 41 |".g....:."IS THA|
00001150: 54 20 57 48 41 54 20 59 4F 55 20 57 41 4E 54 20 |T WHAT YOU WANT |
00001160: 28 59 2F 4E 29 3F 22 00 92 19 0C 1C 9E 20 35 31 |(Y/N)?"...... 51|
00001170: 30 32 34 2C 32 39 2C 38 3A 41 41 B2 C2 28 32 35 |024,29,8:AA..(25|
00001180: 35 29 3A 8B 20 41 41 B3 B1 38 39 20 89 20 31 30 |5):. AA..89 . 10|
00001190: 30 30 00 9D 19 16 1C 8D 20 37 34 30 30 00 A3 19 |00...... 7400...|
000011A0: 1F 1C 8E 00 BD 19 20 1C 8D 20 38 35 30 37 3A 8B |...... .. 8507:.|
000011B0: 20 45 58 B3 B1 30 20 89 20 37 32 31 30 00 DD 19 | EX..0 . 7210...|
000011C0: 25 1C 9E 20 34 39 39 32 30 3A 8B 20 C2 28 35 30 |%.. 49920:. .(50|
000011D0: 31 31 33 29 B2 30 20 89 20 32 30 35 35 00 ED 19 |113).0 . 2055...|
000011E0: 2A 1C 45 58 B2 30 3A 89 20 37 33 32 30 00 07 1A |*.EX.0:. 7320...|
000011F0: 84 1C 8D 20 38 35 30 37 3A 8B 20 45 58 B3 B1 30 |... 8507:. EX..0|
00001200: 20 89 20 37 33 31 30 00 28 1A 89 1C 9E 20 35 30 | . 7310.(.... 50|
00001210: 34 33 32 3A 8B 20 C2 28 35 30 31 31 33 29 B3 B1 |432:. .(50113)..|
00001220: 30 20 89 20 37 33 31 30 00 3D 1A 8C 1C 91 20 52 |0 . 7310.=.... R|
00001230: 46 20 89 20 32 30 35 36 2C 33 30 35 30 00 47 1A |F . 2056,3050.G.|
00001240: 8E 1C 45 58 B2 32 39 00 63 1A 98 1C 8D 20 37 37 |..EX.29.c.... 77|
00001250: 30 30 3A 99 20 C7 28 31 34 36 29 3B 3A 89 20 39 |00:. .(146);:. 9|
00001260: 30 30 30 00 76 1A E8 1C 99 22 93 11 11 22 3B 54 |000.v...."...";T|
00001270: 54 24 3A 99 3A 99 00 99 1A F2 1C 99 22 44 4F 20 |T$:.:......."DO |
00001280: 22 3B 3A 8D 20 37 34 39 30 3A 8B 20 41 41 B3 B1 |";:. 7490:. AA..|
00001290: 38 39 20 89 20 37 34 38 39 00 A4 1A FC 1C 8D 20 |89 . 7489...... |
000012A0: 38 35 30 30 00 B7 1A 1A 1D 99 22 93 11 11 22 3B |8500......"...";|
000012B0: 54 54 24 3A 99 3A 99 00 E4 1A 24 1D 99 22 41 52 |TT$:.:....$.."AR|
000012C0: 45 20 59 4F 55 20 53 55 52 45 20 22 3B 3A 8D 20 |E YOU SURE ";:. |
000012D0: 37 34 39 30 3A 8B 20 41 41 B3 B1 38 39 20 89 20 |7490:. AA..89 . |
000012E0: 37 34 38 39 00 0A 1B 2E 1D 9F 20 31 35 2C 44 4F |7489...... 15,DO|
000012F0: 2C 31 35 3A 98 31 35 2C 22 4E 30 3A 43 4C 4F 4E |,15:.15,"N0:CLON|
00001300: 45 2C 43 43 22 3A A0 20 31 35 00 3F 1B 33 1D 9F |E,CC":. 15.?.3..|
00001310: 20 31 35 2C 44 4F 2C 31 35 3A 84 31 35 2C 41 24 | 15,DO,15:.15,A$|
00001320: 2C 42 24 2C 43 24 2C 44 24 3A A0 20 31 35 3A 8B |,B$,C$,D$:. 15:.|
00001330: 20 C5 28 41 24 29 B2 30 20 89 20 37 34 38 39 00 | .(A$).0 . 7489.|
00001340: 60 1B 38 1D 99 22 93 22 3B 3A 8D 20 37 37 30 30 |`.8..".";:. 7700|
00001350: 3A 99 20 C7 28 31 34 36 29 3A 89 20 31 30 30 30 |:. .(146):. 1000|
00001360: 00 66 1B 41 1D 8E 00 84 1B 42 1D 99 22 59 4F 55 |.f.A.....B.."YOU|
00001370: 20 57 41 4E 54 20 54 4F 20 49 4E 49 54 49 41 4C | WANT TO INITIAL|
00001380: 49 5A 45 22 00 A6 1B 44 1D 99 22 54 48 45 20 4F |IZE"...D.."THE O|
00001390: 55 54 50 55 54 20 44 49 53 4B 45 54 54 45 A0 28 |UTPUT DISKETTE.(|
000013A0: 59 2F 4E 29 3F 22 00 E1 1B 46 1D 97 20 31 39 38 |Y/N)?"...F.. 198|
000013B0: 2C 30 3A 9E 20 35 31 30 32 34 2C 32 36 2C 36 3A |,0:. 51024,26,6:|
000013C0: 41 41 B2 C2 28 32 35 35 29 3A 8B 20 41 41 B2 39 |AA..(255):. AA.9|
000013D0: 32 20 B0 20 41 41 B2 31 36 39 20 89 20 31 30 30 |2 . AA.169 . 100|
000013E0: 30 00 E7 1B 4B 1D 8E 00 FA 1B 14 1E 52 52 B2 31 |0...K.......RR.1|
000013F0: 38 3A 97 20 36 34 36 2C 31 30 00 33 1C 1E 1E 99 |8:. 646,10.3....|
00001400: 20 22 13 22 3B C7 28 52 52 29 3B C8 28 59 59 24 | ".";.(RR);.(YY$|
00001410: 2C 38 29 3B A6 45 58 29 3B 22 45 2D 52 2D 52 2D |,8);.EX);"E-R-R-|
00001420: 4F 2D 52 22 3B 3A 8B 52 52 B2 31 38 A7 8D 20 35 |O-R";:.RR.18.. 5|
00001430: 31 30 30 00 54 1C 28 1E 52 52 B2 28 52 52 B2 31 |100.T.(.RR.(RR.1|
00001440: 38 29 AC AB 31 34 36 AA 28 52 52 B3 B1 31 38 29 |8)..146.(RR..18)|
00001450: AC AB 31 38 00 88 1C 32 1E 42 24 B2 22 22 3A 81 |..18...2.B$."":.|
00001460: 20 49 B2 31 20 A4 20 36 30 3A A1 20 41 24 3A 42 | I.1 . 60:. A$:B|
00001470: 24 B2 42 24 AA 41 24 3A 82 3A 8B 20 42 24 B2 22 |$.B$.A$:.:. B$."|
00001480: 22 20 89 20 37 37 31 30 00 96 1C 77 1E 97 20 36 |" . 7710...w.. 6|
00001490: 34 36 2C 43 3A 8E 00 B8 1C DC 1E 99 3A 99 22 54 |46,C:.......:."T|
000014A0: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL|
000014B0: 20 43 4F 50 59 22 3A 8E 00 EE 1C A4 1F 44 31 B2 | COPY":......D1.|
000014C0: B5 28 49 49 AD 31 30 29 3A 44 32 B2 49 49 AB 44 |.(II.10):D2.II.D|
000014D0: 31 AC 31 30 3A 97 20 4C 4C 2C 44 31 AA 34 38 3A |1.10:. LL,D1.48:|
000014E0: 97 20 4C 4C AA 31 2C 44 32 AA 34 38 3A 8E 00 16 |. LL.1,D2.48:...|
000014F0: 1D 08 20 58 58 25 B2 32 31 3A 8D 20 38 33 30 30 |.. XX%.21:. 8300|
00001500: 3A 8B 20 41 41 B2 33 32 20 A7 20 44 31 B2 30 3A |:. AA.32 . D1.0:|
00001510: 89 20 38 32 33 30 00 31 1D 12 20 8B 20 41 41 B3 |. 8230.1.. . AA.|
00001520: 34 38 20 B0 20 41 41 B1 35 37 20 89 20 38 32 30 |48 . AA.57 . 820|
00001530: 30 00 3E 1D 1C 20 44 31 B2 41 41 AB 34 38 00 67 |0.>.. D1.AA.48.g|
00001540: 1D 26 20 58 58 25 B2 32 32 3A 8D 20 38 33 30 30 |.& XX%.22:. 8300|
00001550: 3A 8B 20 41 41 B2 33 32 20 A7 20 41 41 B2 44 31 |:. AA.32 . AA.D1|
00001560: 3A 89 20 38 32 36 30 00 82 1D 30 20 8B 20 41 41 |:. 8260...0 . AA|
00001570: B3 34 38 20 B0 20 41 41 B1 35 37 20 89 20 38 32 |.48 . AA.57 . 82|
00001580: 33 30 00 97 1D 3A 20 41 41 B2 31 30 AC 44 31 AA |30...: AA.10.D1.|
00001590: 28 41 41 AB 34 38 29 00 C3 1D 44 20 99 22 13 22 |(AA.48)...D ."."|
000015A0: 3B C8 28 59 59 24 2C 59 59 25 29 3B C8 28 58 58 |;.(YY$,YY%);.(XX|
000015B0: 24 2C 58 58 25 AB 31 29 3B 22 20 20 9D 9D 22 3B |$,XX%.1);" ..";|
000015C0: 41 41 3B 00 C9 1D 6B 20 8E 00 07 1E 6C 20 97 20 |AA;...k ....l . |
000015D0: 31 39 38 2C 30 3A 9E 20 35 31 30 32 34 2C 58 58 |198,0:. 51024,XX|
000015E0: 25 2C 59 59 25 3A 41 41 B2 C2 28 32 35 35 29 3A |%,YY%:AA..(255):|
000015F0: 8B 20 41 41 B2 39 32 20 B0 20 41 41 B2 31 36 39 |. AA.92 . AA.169|
00001600: 20 89 20 31 30 30 30 00 0D 1E 76 20 8E 00 3C 1E | . 1000...v ..<.|
00001610: D0 20 99 22 93 11 11 22 3B 54 54 24 3A 99 3A 99 |. ."...";TT$:.:.|
00001620: 22 49 4E 53 45 52 54 20 44 49 53 4B 45 54 54 45 |"INSERT DISKETTE|
00001630: 20 43 4F 4E 54 41 49 4E 49 4E 47 22 00 75 1E D2 | CONTAINING".u..|
00001640: 20 99 22 4F 52 49 47 49 4E 41 4C 20 46 49 4C 45 | ."ORIGINAL FILE|
00001650: 53 20 4F 4E 20 44 49 53 4B 20 44 52 49 56 45 20 |S ON DISK DRIVE |
00001660: 22 3B 44 49 3B 22 2E 22 3A 44 46 B2 44 49 3A 89 |";DI;".":DF.DI:.|
00001670: 20 38 35 30 34 00 A4 1E 34 21 99 22 93 11 11 22 | 8504...4!."..."|
00001680: 3B 54 54 24 3A 99 3A 99 22 49 4E 53 45 52 54 20 |;TT$:.:."INSERT |
00001690: 44 49 53 4B 45 54 54 45 20 54 4F 20 43 4F 4E 54 |DISKETTE TO CONT|
000016A0: 41 49 4E 22 00 D5 1E 36 21 99 22 43 4F 50 59 20 |AIN"...6!."COPY |
000016B0: 4F 46 20 46 49 4C 45 53 20 4F 4E 20 44 49 53 4B |OF FILES ON DISK|
000016C0: 20 44 52 49 56 45 20 22 3B 44 4F 3B 22 2E 22 3A | DRIVE ";DO;".":|
000016D0: 44 46 B2 44 4F 00 FC 1E 38 21 8D 20 35 31 30 30 |DF.DO...8!. 5100|
000016E0: 3A 99 3A 99 20 45 33 24 3A 58 58 25 B2 31 39 3A |:.:. E3$:XX%.19:|
000016F0: 59 59 25 B2 37 3A 8D 20 38 33 30 30 00 26 1F 3B |YY%.7:. 8300.&.;|
00001700: 21 45 58 B2 30 3A 97 20 35 30 31 31 32 2C 44 46 |!EX.0:. 50112,DF|
00001710: 3A 97 20 35 30 31 31 33 2C 30 3A 97 20 35 30 31 |:. 50113,0:. 501|
00001720: 31 34 2C 31 31 31 00 60 1F 3C 21 4C B2 35 30 31 |14,111.`.<!L.501|
00001730: 37 36 3A 97 20 4C 2C 31 36 32 3A 97 20 4C AA 31 |76:. L,162:. L.1|
00001740: 2C 32 33 37 3A 97 20 4C AA 32 2C 33 32 3A 97 20 |,237:. L.2,32:. |
00001750: 4C AA 33 2C 38 31 3A 97 20 4C AA 34 2C 31 39 35 |L.3,81:. L.4,195|
00001760: 00 8C 1F 3D 21 97 20 4C AA 35 2C 39 36 3A 9E 20 |...=!. L.5,96:. |
00001770: 35 30 31 37 36 3A 8B 20 C2 28 35 30 31 31 33 29 |50176:. .(50113)|
00001780: B3 B1 30 20 A7 20 45 58 B2 32 35 35 00 92 1F 47 |..0 . EX.255...G|
00001790: 21 8E 00 BE 1F 98 21 99 22 93 11 11 22 3B 54 54 |!.....!."...";TT|
000017A0: 24 3A 99 3A 99 22 44 4F 20 59 4F 55 20 57 41 4E |$:.:."DO YOU WAN|
000017B0: 54 20 54 4F 20 53 54 41 52 54 20 41 54 22 00 E5 |T TO START AT"..|
000017C0: 1F 9A 21 99 22 41 20 50 41 52 54 49 43 55 4C 41 |..!."A PARTICULA|
000017D0: 52 20 54 52 41 43 4B 2F 42 4C 4F 43 4B 20 28 59 |R TRACK/BLOCK (Y|
000017E0: 2F 4E 29 3F 22 00 F7 1F 9D 21 54 B2 31 3A 42 B2 |/N)?"....!T.1:B.|
000017F0: 30 3A 45 54 B2 33 35 00 17 20 A2 21 97 20 31 39 |0:ET.35.. .!. 19|
00001800: 38 2C 30 3A 58 58 25 B2 33 32 3A 59 59 25 B2 35 |8,0:XX%.32:YY%.5|
00001810: 3A 8D 20 38 33 30 30 00 2D 20 AC 21 8B 20 41 41 |:. 8300.- .!. AA|
00001820: B3 B1 38 39 20 A7 20 89 20 38 36 39 39 00 55 20 |..89 . . 8699.U |
00001830: B6 21 99 22 13 22 3B C8 28 59 59 24 2C 37 29 3B |.!.".";.(YY$,7);|
00001840: 45 31 24 3B 45 32 24 3B 3A 59 59 25 B2 37 3A 8D |E1$;E2$;:YY%.7:.|
00001850: 20 38 32 30 30 00 6F 20 BB 21 8B 20 41 41 B3 31 | 8200.o .!. AA.1|
00001860: 20 B0 20 41 41 B1 33 35 20 89 20 38 36 33 30 00 | . AA.35 . 8630.|
00001870: 78 20 BF 21 54 B2 41 41 00 AA 20 C0 21 99 22 13 |x .!T.AA.. .!.".|
00001880: 22 3B C8 28 59 59 24 2C 39 29 3B 45 31 24 3B 22 |";.(YY$,9);E1$;"|
00001890: 42 4C 4F 43 4B 3A 20 20 20 20 20 22 3B 3A 59 59 |BLOCK: ";:YY|
000018A0: 25 B2 39 3A 8D 20 38 32 30 30 00 C6 20 C5 21 8B |%.9:. 8200.. .!.|
000018B0: 20 41 41 B3 30 20 B0 20 41 41 B1 53 28 54 29 20 | AA.0 . AA.S(T) |
000018C0: 89 20 38 36 34 30 00 CF 20 C9 21 42 B2 41 41 00 |. 8640.. .!B.AA.|
000018D0: DA 20 CA 21 59 59 25 B2 31 31 00 0A 21 CC 21 99 |. .!YY%.11..!.!.|
000018E0: 22 13 22 3B C8 28 59 59 24 2C 59 59 25 29 3B 22 |".";.(YY$,YY%);"|
000018F0: 45 4E 54 45 52 20 45 4E 44 49 4E 47 20 22 3B 45 |ENTER ENDING ";E|
00001900: 32 24 3B 3A 8D 20 38 32 30 30 00 26 21 CF 21 8B |2$;:. 8200.&!.!.|
00001910: 20 41 41 B3 54 20 B0 20 41 41 B1 33 35 20 20 20 | AA.T . AA.35 |
00001920: 89 20 38 36 35 30 00 30 21 D4 21 45 54 B2 41 41 |. 8650.0!.!ET.AA|
00001930: 00 36 21 FB 21 8E 00 56 21 60 22 58 58 25 B2 32 |.6!.!..V!`"XX%.2|
00001940: 31 3A 8D 20 38 39 30 30 3A 8B 20 41 41 B2 30 20 |1:. 8900:. AA.0 |
00001950: 89 20 38 38 39 39 00 7A 21 74 22 8B 20 41 41 B2 |. 8899.z!t". AA.|
00001960: 31 20 A7 20 58 58 25 B2 32 32 3A 8D 20 38 39 30 |1 . XX%.22:. 890|
00001970: 30 3A 41 41 B2 31 30 AA 41 41 00 94 21 7E 22 8B |0:AA.10.AA..!~".|
00001980: 20 41 41 B3 38 20 B0 20 41 41 B1 31 31 20 89 20 | AA.8 . AA.11 . |
00001990: 38 38 30 30 00 BE 21 C3 22 99 22 13 22 3B C8 28 |8800..!.".".";.(|
000019A0: 59 59 24 2C 59 59 25 29 3B C8 28 58 58 24 2C 32 |YY$,YY%);.(XX$,2|
000019B0: 31 29 3B 41 41 3B 22 20 20 20 22 3B 3A 8E 00 F4 |1);AA;" ";:...|
000019C0: 21 C4 22 9E 20 35 31 30 32 34 2C 58 58 25 2C 59 |!.". 51024,XX%,Y|
000019D0: 59 25 3A 41 41 B2 C2 28 32 35 35 29 3A 8B 20 41 |Y%:AA..(255):. A|
000019E0: 41 B2 39 32 20 B0 20 41 41 B2 31 36 39 20 89 20 |A.92 . AA.169 . |
000019F0: 39 30 30 30 00 16 22 CE 22 41 41 B2 41 41 AB 34 |9000.."."AA.AA.4|
00001A00: 38 3A 8B 20 41 41 B3 30 20 B0 20 41 41 B1 39 20 |8:. AA.0 . AA.9 |
00001A10: A7 20 41 41 B2 30 00 1C 22 D8 22 8E 00 31 22 28 |. AA.0.."."..1"(|
00001A20: 23 97 20 31 38 36 2C 52 36 3A 9E 20 35 31 37 31 |#. 186,R6:. 5171|
00001A30: 32 00 58 22 0E 27 9F 20 31 35 2C 38 2C 31 35 2C |2.X".'. 15,8,15,|
00001A40: 22 49 30 22 3A A0 20 31 35 3A 94 22 40 30 3A 43 |"I0":. 15:."@0:C|
00001A50: 4C 4F 4E 45 31 22 2C 38 00 00 00 |LONE1",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.....F.1:. 840
0:HF.0:. 6200:Z.0:Z2.0./.... 53260,PV:..
C. .. DO..DI . 4010._.... B(53260)..PV .
. 3000......"...";TT$:.:.:."COPY COMPLE
TED ON DRIVE";DO;".":.5100.E....:. E3$:.
198,0:. 198,1:. 198,0:. 9000.....SS.542
72:. L.0 . 24:. SS.L,0:..!.... SS.01,95:
. SS.5,15:. SS.15,30:. SS.24,15:. SS.4,2
1.?.<.. TT.1 . 200 :.:. SS.4,20.[.K.. L.
24. 0 :. SS.L,0:.:..A.8.....=.. 53280,1:
. 53281,1:. 646,0...B..".";...D.. DI.DO
. HF.0 . .".";.14);"NOW READING:"...E..
DI.DO . HF.1 . .".";.14);"NOW WRITING:".
..G.. DI..DO . .".";.14);"NOW CLONING:".
#.H.. ".";H(YY$,3);.6.L.. .16);"TRACK".I
.Q.. .16);"BLOCK".M.V.."I-N-P-U-T";.20);
"O-U-T-P-U-T"...[.." DISK ";DI;.22);"DIS
K ";DO:.:....J.. 646,6.L.K.PY$." QQQQ
QQQQQ":. 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.. ET..35 . . 6
600.7.S.. 646,0.A.T..:.:." BLOCKS O
N CURRENT TRACK:"...~.. DI.DO . .:.:."
ONE HUNDRED TWENTY BLOCK BUFFER:"......
DI..DO . 6280.J.... 646,5:. HF.0 . . 646
,6...... I.0 . 39:."#";:.:. 646,C.....TX
.T.1...... TX.0 . 6299...... I.1 . TX.D.
...".";H(YY$,IY(I));H(XX$,IX(I));" ":. 6
46,6.U.... I..TW . .".";H(YY$,OY(I));H(X
X$,OX(I));"W".{.......... B.0 . . 646,0:
. 6299...... 646,5......".";H(YY$,20);"
";:. I.0 . B:."X";:.:. 646,0.....
......TR.T:BR.B:. 6500:......TR.T1:BR.B1
:. 6500:..&.D.C.B(646):. 646,5.I.I..".";
H(YY$,20);H(XX$,BR.7);"X".Q.K.. 646,10:.
".";H(YY$,3);H(XX$,21);TR...L..".";H(YY$
,4);H(XX$,21);BR...N.. TR.TX . . 6599...
X.TX.TR.Q.Z..".";H(YY$,4);H(XX$,21);" 0
"...}.. TR.1 . 0 . 6538......".";H(YY$,I
Y(TR.1));H(XX$,IX(TR.1));" ":. 646,6.6..
.. DI.DO . HF.0 . 6538.C....".";H(YY$,OY
(TR.1));H(XX$,OX(TR.1));"W".}.... DI.DO
. HF.1 . 6560...... 646,5:.".";H(YY$,IY(
TR));H(XX$,IX(TR));"W"... .. 646,5......
".";H(YY$,20);" X";:.646,6:. I.1.S
(TR):."X";:......." ";...G.. 646,C:
..G.H..I.ET.1.35:.".";H(YY$,IY(I));H(XX$
,IX(I));" ":.:..H.X.."..";TT$:.:.:DS.0:D
I.0:DO.0...B.." DISK DRIVE CONFIGU
RATION":....L.." FILL IN THE BLANKS WI
TH DISK DRIVE"...Q.." NUMBERS IN T
HE RANGE 8-11"...V..:."..SINGLE DRIVE CO
PY:":.:." DRIVE NUMBER:".S....:.".
.TWO DRIVE COPY:":.:." INPUT DRIV
E:".Q....:." OUTPUT DRIVE:"......"
.";H(YY$,13);H(XX$,21);G(18);" ";......
"..";H(YY$,6);" ";.S...."..";H(YY$,2);"
";G(146);.....YY%.13:. 8800:DS.AA:. DS
..0 . 7082... .YY%.19:. 8800:DI.AA.*...Y
Y%.21:. 8800:DO.AA.E.... DS.0 . DI..DO .
7099.T.... DS..0 . DI.0 . DO.0 . DI.DS:
DO.DS:. 7099..... 7000............"..."
;TT$:. DO..DI . 7150.H.P.. 7900:."A DISK
ETTE USING ONLY"...Z.."THE DISKETTE DRIV
E ";DI;".":. 7170...... 7900:."FROM A DI
SKETTE ON DRIVE";DI.A...."TO A DISKETTE
ON DRIVE ";DO;".".G....:."IS THAT WHAT Y
OU WANT (Y/N)?"...... 51024,29,8:AA.B(25
5):. AA..89 . 1000...... 7400......... .
. 8507:. EX..0 . 7210...%.. 49920:. B(50
113).0 . 2055...*.EX.0:. 7320...... 8507
:. EX..0 . 7310.(.... 50432:. B(50113)..
0 . 7310.=.... RF . 2056,3050.G...EX.29.
C.... 7700:. G(146);:. 9000.V...."...";T
T$:.:......."DO ";:. 7490:. AA..89 . 748
9...... 8500......"...";TT$:.:....$.."AR
E YOU SURE ";:. 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
.F.A.....B.."YOU WANT TO INITIALIZE"...D
.."THE OUTPUT DISKETTE (Y/N)?"...F.. 198
,0:. 51024,26,6:AA.B(255):. AA.92 . AA.1
69 . 1000...K.......RR.18:. 646,10.3....
".";G(RR);H(YY$,8);.EX);"E-R-R-O-R";:.R
R.18.. 5100.T.(.RR.(RR.18)..146.(RR..18)
..18...2.B$."":. I.1 . 60:. A$:B$.B$.A$:
.:. B$."" . 7710...W.. 646,C:.......:."T
HIS PROGRAM WILL COPY":......D1..(II.10)
:D2.II.D1.10:. LL,D1.48:. LL.1,D2.48:...
.. XX%.21:. 8300:. AA.32 . D1.0:. 8230.1
.. . AA.48 . AA.57 . 8200.>.. D1.AA.48.G
.& XX%.22:. 8300:. AA.32 . AA.D1:. 8260.
..0 . AA.48 . AA.57 . 8230...: AA.10.D1.
(AA.48).C.D .".";H(YY$,YY%);H(XX$,XX%.1)
;" ..";AA;.I.K ....L . 198,0:. 51024,XX
%,YY%:AA.B(255):. AA.92 . AA.169 . 1000.
..V ..<.P ."...";TT$:.:."INSERT DISKETTE
CONTAINING".U.R ."ORIGINAL FILES ON DIS
K DRIVE ";DI;".":DF.DI:. 8504...4!."..."
;TT$:.:."INSERT DISKETTE TO CONTAIN".U.6
!."COPY OF FILES ON DISK DRIVE ";DO;".":
DF.DO...8!. 5100:.:. E3$:XX%.19:YY%.7:.
8300.&.;!EX.0:. 50112,DF:. 50113,0:. 501
14,111.`.<!L.50176:. L,162:. L.1,237:. L
.2,32:. L.3,81:. L.4,195...=!. L.5,96:.
50176:. B(50113)..0 . EX.255...G!.....!.
"...";TT$:.:."DO YOU WANT TO START AT"..
..!."A PARTICULAR TRACK/BLOCK (Y/N)?"...
.!T.1:B.0:ET.35.. .!. 198,0:XX%.32:YY%.5
:. 8300.- .!. AA..89 . . 8699.U .!.".";H
(YY$,7);E1$;E2$;:YY%.7:. 8200.O .!. AA.1
. AA.35 . 8630.X .!T.AA.. .!.".";H(YY$,
9);E1$;"BLOCK: ";:YY%.9:. 8200.F E!.
AA.0 . AA.S(T) . 8640.O I!B.AA.Z J!YY%.
11..!L!.".";H(YY$,YY%);"ENTER ENDING ";E
2$;:. 8200.&!O!. AA.T . AA.35 . 8650.0
!T!ET.AA.6!.!..V!`"XX%.21:. 8900:. AA.0
. 8899.Z!T". AA.1 . XX%.22:. 8900:AA.10.
AA..!~". AA.8 . AA.11 . 8800..!C".".";H(
YY$,YY%);H(XX$,21);AA;" ";:...!D". 510
24,XX%,YY%:AA.B(255):. AA.92 . AA.169 .
9000.."N"AA.AA.48:. AA.0 . AA.9 . AA.0..
"X"..1"(#. 186,R6:. 51712.X".'. 15,8,15,
"I0": 15:."@0:CLONE1",8...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL