DI-BACKUP
FILE INFORMATION
FILENAME(S): DI-BACKUP
FILE TYPE(S): PRG
FILE SIZE: 11.4K
FIRST SEEN: 2025-10-20 00:39:48
APPEARS ON: 1 disk(s)
FILE HASH
c0b195e3b746ddd616c8c6f095ac82207d7e4813876c2e9eb14bf9a49512c4be
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LECK MICH AM A | DI-BACKUP | PRG | Treasure Chest - Jochen Steinbach | 4 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 01 00 89 31 30 30 30 00 25 08 02 00 |.......1000.%...|
00000010: 94 22 40 30 3A 44 49 2D 42 41 43 4B 55 50 22 2C |."@0:DI-BACKUP",|
00000020: 38 2C 31 3A 80 00 2F 08 03 00 89 31 31 30 30 00 |8,1:../....1100.|
00000030: 50 08 04 00 A0 31 35 2C 38 2C 31 35 3A 9F 31 35 |P....15,8,15:.15|
00000040: 2C 38 2C 31 35 3A A0 31 35 2C 38 2C 31 35 3A 80 |,8,15:.15,8,15:.|
00000050: 00 92 08 64 00 83 35 2C 38 2C 39 2C 31 34 2C 31 |...d..5,8,9,14,1|
00000060: 37 2C 31 38 2C 31 39 2C 32 30 2C 32 38 2C 32 39 |7,18,19,20,28,29|
00000070: 2C 33 30 2C 33 31 2C 31 32 39 2C 31 34 32 2C 31 |,30,31,129,142,1|
00000080: 34 34 2C 31 34 35 2C 31 34 36 2C 31 34 37 2C 31 |44,145,146,147,1|
00000090: 34 38 00 C3 08 6E 00 83 31 34 39 2C 31 35 30 2C |48...n..149,150,|
000000A0: 31 35 31 2C 31 35 32 2C 31 35 33 2C 31 35 34 2C |151,152,153,154,|
000000B0: 31 35 35 2C 31 35 36 2C 31 35 37 2C 31 35 38 2C |155,156,157,158,|
000000C0: 31 35 39 00 DD 08 C8 00 41 24 B2 22 22 3A A1 41 |159.....A$."":.A|
000000D0: 24 3A 8B 41 24 B3 B1 22 22 A7 32 30 30 00 F2 08 |$:.A$.."".200...|
000000E0: CB 00 41 31 B2 30 3A 54 4C B2 30 3A 41 31 24 B2 |..A1.0:TL.0:A1$.|
000000F0: 22 22 00 FA 08 CD 00 A1 41 24 00 12 09 CF 00 54 |""......A$.....T|
00000100: 4C B2 54 4C AA 31 3A 8B 54 4C B2 32 35 A7 8D 32 |L.TL.1:.TL.25..2|
00000110: 35 30 00 21 09 D2 00 8B 41 24 B2 22 22 A7 32 30 |50.!....A$."".20|
00000120: 35 00 55 09 D7 00 8B 41 24 B2 43 24 28 38 29 AF |5.U....A$.C$(8).|
00000130: 41 31 B1 30 A7 41 31 24 B2 C8 28 41 31 24 2C C3 |A1.0.A1$..(A1$,.|
00000140: 28 41 31 24 29 AB 31 29 3A 8D 32 37 30 3A 41 31 |(A1$).1):.270:A1|
00000150: B2 41 31 AB 31 00 74 09 DC 00 8B 41 24 B2 C7 28 |.A1.1.t....A$..(|
00000160: 31 33 29 A7 46 31 B2 31 3A 41 24 B2 41 31 24 3A |13).F1.1:A$.A1$:|
00000170: 89 32 35 30 00 A8 09 E6 00 8B 41 24 B1 C7 28 33 |.250......A$..(3|
00000180: 31 29 AF 41 24 B3 C7 28 39 31 29 AF 41 31 B3 41 |1).A$..(91).A1.A|
00000190: A7 41 31 24 B2 41 31 24 AA 41 24 3A 99 41 24 3B |.A1$.A1$.A$:.A$;|
000001A0: 3A 41 31 B2 41 31 AA 31 00 B1 09 F0 00 89 32 30 |:A1.A1.1......20|
000001B0: 35 00 DF 09 FA 00 8B 46 31 B2 30 A7 99 43 24 28 |5......F1.0..C$(|
000001C0: 36 29 3B 22 20 22 3B 43 24 28 31 37 29 3B 43 24 |6);" ";C$(17);C$|
000001D0: 28 32 38 29 3B 3A 46 31 B2 31 3A 89 32 36 30 00 |(28);:F1.1:.260.|
000001E0: FB 09 FF 00 8B 46 31 B2 31 A7 99 22 20 22 3B 43 |.....F1.1.." ";C|
000001F0: 24 28 32 38 29 3B 3A 46 31 B2 30 00 06 0A 04 01 |$(28);:F1.0.....|
00000200: 54 4C B2 30 3A 8E 00 0C 0A 09 01 3A 00 2E 0A 0E |TL.0:......:....|
00000210: 01 99 43 24 28 32 38 29 3B 22 20 20 22 3B 43 24 |..C$(28);" ";C$|
00000220: 28 32 38 29 3B 43 24 28 32 38 29 3B 3A 8E 00 3B |(28);C$(28);:..;|
00000230: 0A E8 03 99 C7 28 31 34 37 29 3B 00 55 0A F2 03 |.....(147);.U...|
00000240: 8B 41 B2 30 A7 41 B2 31 3A 93 20 22 44 49 2D 34 |.A.0.A.1:. "DI-4|
00000250: 22 2C 38 2C 31 00 68 0A F7 03 41 B2 31 34 34 39 |",8,1.h...A.1449|
00000260: 32 3A 8D 35 31 36 30 30 00 74 0A 4C 04 8D 20 35 |2:.51600.t.L.. 5|
00000270: 31 37 30 30 00 80 0A 4F 04 8D 20 35 37 30 30 30 |1700...O.. 57000|
00000280: 00 8C 0A 51 04 8D 20 35 36 30 30 30 00 97 0A 56 |...Q.. 56000...V|
00000290: 04 8D 35 30 30 30 30 00 AC 0A 60 04 8B 46 31 B2 |..50000...`..F1.|
000002A0: 31 A7 46 31 B2 30 3A 89 31 31 30 35 00 D1 0A 6A |1.F1.0:.1105...j|
000002B0: 04 41 24 B2 22 46 55 4C 4C 20 43 4F 50 59 20 4F |.A$."FULL COPY O|
000002C0: 52 20 42 41 4D 20 43 4F 50 59 20 28 46 2F 42 29 |R BAM COPY (F/B)|
000002D0: 22 00 E0 0A 74 04 41 B2 31 3A 8D 35 31 38 30 30 |"...t.A.1:.51800|
000002E0: 00 FA 0A 7E 04 8B 41 24 B3 B1 22 46 22 AF 41 24 |...~..A$.."F".A$|
000002F0: B3 B1 22 42 22 A7 31 31 33 30 00 05 0B 88 04 43 |.."B".1130.....C|
00000300: 4D 24 B2 41 24 00 10 0B B0 04 8D 35 35 30 30 30 |M$.A$......55000|
00000310: 00 1B 0B 72 10 8D 35 30 34 30 30 00 2A 0B 7C 10 |...r..50400.*.|.|
00000320: 54 4E B2 31 38 3A 53 4E B2 30 00 35 0B 86 10 42 |TN.18:SN.0.5...B|
00000330: 50 B2 31 39 32 00 48 0B 90 10 97 32 35 31 2C 30 |P.192.H....251,0|
00000340: 3A 97 32 35 32 2C 42 50 00 53 0B 9A 10 8D 35 31 |:.252,BP.S....51|
00000350: 31 30 30 00 5C 0B A4 10 9E 38 39 30 00 67 0B AE |100.\....890.g..|
00000360: 10 8D 35 31 32 30 30 00 7D 0B B8 10 8B 46 31 B2 |..51200.}....F1.|
00000370: 31 A7 46 31 B2 30 3A 8D 35 31 39 30 30 00 99 0B |1.F1.0:.51900...|
00000380: C2 10 8B 46 32 B2 31 A7 46 32 B2 30 3A 8D 35 30 |...F2.1.F2.0:.50|
00000390: 35 30 30 3A 89 31 31 30 35 00 AD 0B CC 10 8B 46 |500:.1105......F|
000003A0: 32 B2 32 B0 46 32 B2 33 A7 34 32 32 30 00 C5 0B |2.2.F2.3.4220...|
000003B0: D6 10 8B 46 32 B2 34 A7 8D 35 30 35 30 30 3A 89 |...F2.4..50500:.|
000003C0: 31 30 30 37 30 00 D0 0B E9 10 8D 35 30 35 30 30 |10070......50500|
000003D0: 00 D9 0B EC 13 54 4E B2 31 00 E2 0B F6 13 53 4E |.....TN.1.....SN|
000003E0: B2 30 00 EC 0B 00 14 4D 53 B2 32 30 00 FD 0B 10 |.0.....MS.20....|
000003F0: 27 99 43 24 28 37 29 3B 3A 46 33 B2 33 00 0F 0C |'.C$(7);:F3.3...|
00000400: 15 27 8B 46 33 B3 B1 33 A7 8D 35 35 30 30 30 00 |.'.F3..3..55000.|
00000410: 18 0C 16 27 46 33 B2 30 00 28 0C 17 27 42 54 B2 |...'F3.0.(..'BT.|
00000420: 54 4E 3A 42 53 B2 53 4E 00 34 0C 1A 27 8D 20 34 |TN:BS.SN.4..'. 4|
00000430: 30 30 30 30 00 44 0C 1F 27 8B 46 31 B2 31 A7 31 |0000.D..'.F1.1.1|
00000440: 30 30 36 30 00 50 0C 24 27 8D 20 34 31 30 30 30 |0060.P.$'. 41000|
00000450: 00 5C 0C 2E 27 8D 20 34 32 30 30 30 00 6C 0C 33 |.\..'. 42000.l.3|
00000460: 27 8B 46 31 B2 31 A7 31 30 30 37 30 00 7D 0C 38 |'.F1.1.10070.}.8|
00000470: 27 8B 54 4E B3 33 35 A7 31 30 30 30 35 00 88 0C |'.TN.35.10005...|
00000480: 4C 27 8D 35 38 30 30 30 00 93 0C 56 27 89 36 32 |L'.58000...V'.62|
00000490: 30 30 30 00 9F 0C 40 9C 8D 20 35 30 34 30 30 00 |000...@.. 50400.|
000004A0: B1 0C 42 9C 57 52 24 B2 22 52 45 41 44 49 4E 47 |..B.WR$."READING|
000004B0: 22 00 C1 0C 45 9C 81 20 42 50 B2 35 38 A4 31 35 |"...E.. BP.58.15|
000004C0: 39 00 D9 0C 47 9C 46 32 B2 30 3A 46 31 B2 30 3A |9...G.F2.0:F1.0:|
000004D0: 4F 41 B2 30 3A 46 33 B2 30 00 E5 0C 4A 9C 8D 20 |OA.0:F3.0...J.. |
000004E0: 35 31 30 30 30 00 04 0D 4B 9C 8B 46 31 B2 31 A7 |51000...K..F1.1.|
000004F0: 46 31 B2 30 3A 42 50 B2 31 35 39 3A 82 3A 89 34 |F1.0:BP.159:.:.4|
00000500: 32 30 39 32 00 10 0D 4C 9C 8D 20 35 30 36 30 30 |2092...L.. 50600|
00000510: 00 2B 0D 4F 9C 8B 43 4D 24 B2 22 42 22 A7 8D 35 |.+.O..CM$."B"..5|
00000520: 36 33 30 30 3A 89 34 30 30 31 37 00 34 0D 50 9C |6300:.40017.4.P.|
00000530: 46 33 B2 31 00 4D 0D 51 9C 8B 46 33 B2 30 A7 53 |F3.1.M.Q..F3.0.S|
00000540: 4E B2 53 4E AA 31 3A 89 34 30 30 31 30 00 59 0D |N.SN.1:.40010.Y.|
00000550: 54 9C 8D 20 35 31 31 30 30 00 6C 0D 5E 9C 97 32 |T.. 51100.l.^..2|
00000560: 35 31 2C 30 3A 97 32 35 32 2C 42 50 00 84 0D 63 |51,0:.252,BP...c|
00000570: 9C 97 35 36 33 33 34 2C C2 28 35 36 33 33 34 29 |..56334,.(56334)|
00000580: AF 32 35 34 00 8E 0D 65 9C 9E 20 38 39 30 00 A4 |.254...e.. 890..|
00000590: 0D 66 9C 97 35 36 33 33 34 2C C2 28 35 36 33 33 |.f..56334,.(5633|
000005A0: 34 29 B0 31 00 B0 0D 68 9C 8D 20 35 31 32 30 30 |4).1...h.. 51200|
000005B0: 00 C6 0D 72 9C 8B 46 31 B2 31 A7 46 31 B2 30 3A |...r..F1.1.F1.0:|
000005C0: 8D 35 31 39 30 30 00 DB 0D 7C 9C 8B 46 32 B2 32 |.51900...|..F2.2|
000005D0: B0 46 32 B2 33 A7 34 30 30 32 30 00 F9 0D 81 9C |.F2.3.40020.....|
000005E0: 8B 46 32 B2 31 A7 8B 42 50 B3 31 35 39 A7 53 4E |.F2.1..BP.159.SN|
000005F0: B2 53 4E AA 31 3A 82 42 50 00 15 0E 86 9C 8B 46 |.SN.1:.BP......F|
00000600: 32 B2 34 A7 42 50 B2 31 35 39 3A 82 42 50 3A 46 |2.4.BP.159:.BP:F|
00000610: 31 B2 31 3A 8E 00 21 0E 90 9C 53 4E B2 53 4E AA |1.1:..!...SN.SN.|
00000620: 31 00 2A 0E 9A 9C 82 20 42 50 00 36 0E 9C 9C 8D |1.*.... BP.6....|
00000630: 20 35 30 35 30 30 00 3C 0E 9F 9C 8E 00 69 0E 28 | 50500.<.....i.(|
00000640: A0 41 24 B2 22 4C 4F 41 44 20 44 45 53 54 49 4E |.A$."LOAD DESTIN|
00000650: 41 54 49 4F 4E 20 44 49 53 4B 2C 20 50 52 45 53 |ATION DISK, PRES|
00000660: 53 20 52 45 54 55 52 4E 22 00 75 0E 32 A0 8D 20 |S RETURN".u.2.. |
00000670: 34 36 30 30 30 00 7B 0E 3C A0 8E 00 A9 0E 10 A4 |46000.{.<.......|
00000680: 54 4E B2 42 54 3A 53 4E B2 42 53 3A 8F 2D 20 53 |TN.BT:SN.BS:.- S|
00000690: 54 41 52 54 49 4E 47 20 54 52 41 43 4B 20 41 4E |TARTING TRACK AN|
000006A0: 44 20 53 45 43 4F 54 4F 52 00 BB 0E 12 A4 57 52 |D SECOTOR.....WR|
000006B0: 24 B2 22 57 52 49 54 49 4E 47 22 00 C7 0E 13 A4 |$."WRITING".....|
000006C0: 8D 20 35 30 34 30 30 00 D2 0E 14 A4 8D 35 31 34 |. 50400......514|
000006D0: 30 30 00 E2 0E 15 A4 81 20 42 50 B2 35 38 A4 31 |00...... BP.58.1|
000006E0: 35 39 00 F5 0E 17 A4 46 32 B2 30 3A 46 31 B2 30 |59.....F2.0:F1.0|
000006F0: 3A 4F 41 B2 30 00 01 0F 1A A4 8D 20 35 31 30 30 |:OA.0...... 5100|
00000700: 30 00 20 0F 1B A4 8B 46 31 B2 31 A7 46 31 B2 30 |0. ....F1.1.F1.0|
00000710: 3A 42 50 B2 31 35 39 3A 82 3A 89 34 32 30 39 32 |:BP.159:.:.42092|
00000720: 00 2C 0F 1C A4 8D 20 35 30 36 30 30 00 47 0F 1F |.,.... 50600.G..|
00000730: A4 8B 43 4D 24 B2 22 42 22 A7 8D 35 36 33 30 30 |..CM$."B"..56300|
00000740: 3A 89 34 32 30 31 37 00 50 0F 20 A4 46 33 B2 31 |:.42017.P. .F3.1|
00000750: 00 69 0F 21 A4 8B 46 33 B2 30 A7 53 4E B2 53 4E |.i.!..F3.0.SN.SN|
00000760: AA 31 3A 89 34 32 30 31 30 00 7C 0F 2E A4 97 32 |.1:.42010.|....2|
00000770: 35 31 2C 30 3A 97 32 35 32 2C 42 50 00 87 0F 33 |51,0:.252,BP...3|
00000780: A4 8D 35 31 35 30 30 00 91 0F 35 A4 9E 20 38 39 |..51500...5.. 89|
00000790: 37 00 9C 0F 36 A4 8D 35 31 35 35 30 00 A8 0F 38 |7...6..51550...8|
000007A0: A4 8D 20 35 31 33 30 30 00 B4 0F 3D A4 8D 20 35 |.. 51300...=.. 5|
000007B0: 31 32 30 30 00 CA 0F 42 A4 8B 46 31 B2 31 A7 46 |1200...B..F1.1.F|
000007C0: 31 B2 30 3A 8D 35 31 39 30 30 00 DF 0F 4C A4 8B |1.0:.51900...L..|
000007D0: 46 32 B2 32 B0 46 32 B2 33 A7 34 32 30 31 37 00 |F2.2.F2.3.42017.|
000007E0: FD 0F 51 A4 8B 46 32 B2 31 A7 8B 42 50 B3 31 35 |..Q..F2.1..BP.15|
000007F0: 39 A7 53 4E B2 53 4E AA 31 3A 82 42 50 00 19 10 |9.SN.SN.1:.BP...|
00000800: 56 A4 8B 46 32 B2 34 A7 42 50 B2 31 35 39 3A 82 |V..F2.4.BP.159:.|
00000810: 42 50 3A 46 31 B2 31 3A 8E 00 25 10 60 A4 53 4E |BP:F1.1:..%.`.SN|
00000820: B2 53 4E AA 31 00 2E 10 6A A4 82 20 42 50 00 3A |.SN.1...j.. BP.:|
00000830: 10 6C A4 8D 20 35 30 35 30 30 00 40 10 6F A4 8E |.l.. 50500.@.o..|
00000840: 00 6D 10 B0 B3 99 43 24 28 37 29 3B 44 24 28 33 |.m....C$(7);D$(3|
00000850: 29 3B C8 28 43 24 28 33 31 29 2C 36 29 3B A3 32 |);.(C$(31),6);.2|
00000860: 30 AB C3 28 41 24 29 AD 32 29 3B 41 24 00 7A 10 |0..(A$).2);A$.z.|
00000870: B5 B3 81 58 B2 31 A4 31 30 30 00 83 10 BA B3 A1 |...X.1.100......|
00000880: 41 31 24 00 99 10 C4 B3 8B 41 31 24 B2 C7 28 31 |A1$......A1$..(1|
00000890: 33 29 A7 89 34 36 31 30 30 00 A0 10 CE B3 82 58 |3)..46100......X|
000008A0: 00 AB 10 D8 B3 8D 34 36 31 30 30 00 B7 10 DD B3 |......46100.....|
000008B0: 81 58 B2 31 A4 35 30 00 C1 10 E2 B3 A1 20 41 31 |.X.1.50...... A1|
000008C0: 24 00 D2 10 EC B3 8B 41 31 24 B2 C7 28 31 33 29 |$......A1$..(13)|
000008D0: A7 8E 00 D9 10 F6 B3 82 58 00 E5 10 00 B4 89 20 |........X...... |
000008E0: 34 36 30 30 30 00 19 11 14 B4 99 43 24 28 37 29 |46000......C$(7)|
000008F0: 3B C8 28 43 24 28 33 31 29 2C 36 29 3B A3 32 30 |;.(C$(31),6);.20|
00000900: AB C3 28 41 24 29 AD 32 29 3B C8 28 43 24 28 33 |..(A$).2);.(C$(3|
00000910: 32 29 2C C3 28 41 24 29 29 00 1F 11 1E B4 8E 00 |2),.(A$)).......|
00000920: 5A 11 98 B7 99 43 24 28 37 29 3B 44 24 28 33 29 |Z....C$(7);D$(3)|
00000930: 3B C8 28 43 24 28 33 31 29 2C 36 29 3B A3 32 30 |;.(C$(31),6);.20|
00000940: AB C3 28 41 24 29 AD 32 29 3B 41 24 3A 8F 2D 20 |..(A$).2);A$:.- |
00000950: 50 52 49 4E 54 20 4D 53 47 2E 00 60 11 A2 B7 8E |PRINT MSG..`....|
00000960: 00 94 11 FC B7 99 43 24 28 37 29 3B C8 28 43 24 |......C$(7);.(C$|
00000970: 28 33 31 29 2C 36 29 3B A3 32 30 AB C3 28 41 24 |(31),6);.20..(A$|
00000980: 29 AD 32 29 3B C8 28 43 24 28 33 32 29 2C C3 28 |).2);.(C$(32),.(|
00000990: 41 24 29 29 00 9A 11 06 B8 8E 00 C7 11 50 C3 41 |A$)).........P.A|
000009A0: 24 B2 22 4C 4F 41 44 20 44 45 53 54 49 4E 41 54 |$."LOAD DESTINAT|
000009B0: 49 4F 4E 20 44 49 53 4B 2C 20 50 52 45 53 53 20 |ION DISK, PRESS |
000009C0: 52 45 54 55 52 4E 22 00 D3 11 5A C3 8D 20 34 36 |RETURN"...Z.. 46|
000009D0: 30 30 30 00 1A 12 BE C3 41 24 B2 22 44 49 53 4B |000.....A$."DISK|
000009E0: 20 4E 41 4D 45 22 3A 41 B2 31 38 3A 8D 35 31 38 | NAME":A.18:.518|
000009F0: 30 30 3A 4E 41 24 B2 41 24 3A 8F 2D 20 49 4E 50 |00:NA$.A$:.- INP|
00000A00: 55 54 20 44 49 53 4B 20 4E 41 4D 45 20 20 20 20 |UT DISK NAME |
00000A10: 20 20 20 20 20 20 20 20 20 C8 00 45 12 C8 C3 41 | ..E...A|
00000A20: 24 B2 22 49 44 20 4E 55 4D 42 45 52 20 28 54 57 |$."ID NUMBER (TW|
00000A30: 4F 20 44 49 47 49 54 53 29 22 3A 41 B2 32 3A 8D |O DIGITS)":A.2:.|
00000A40: 35 31 38 30 30 00 61 12 D2 C3 49 44 24 B2 41 24 |51800.a...ID$.A$|
00000A50: 3A 8B C3 28 49 44 24 29 B3 B1 32 A7 35 30 31 32 |:..(ID$)..2.5012|
00000A60: 30 00 8C 12 E6 C3 41 24 B2 22 46 4F 52 4D 41 54 |0.....A$."FORMAT|
00000A70: 49 4E 47 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 |ING DESTINATION |
00000A80: 44 49 53 4B 22 3A 8D 34 37 30 30 30 00 99 12 F0 |DISK":.47000....|
00000A90: C3 9F 31 35 2C 38 2C 31 35 00 B5 12 F5 C3 45 58 |..15,8,15.....EX|
00000AA0: 24 B2 22 4E 45 57 30 3A 22 AA 4E 41 24 AA 22 2C |$."NEW0:".NA$.",|
00000AB0: 22 AA 49 44 24 00 C1 12 FA C3 98 31 35 2C 45 58 |".ID$......15,EX|
00000AC0: 24 00 D4 12 FF C3 84 31 35 2C 45 52 2C 45 52 24 |$......15,ER,ER$|
00000AD0: 2C 54 2C 53 00 DF 12 09 C4 8D 34 37 31 30 30 00 |,T,S......47100.|
00000AE0: EC 12 0B C4 A0 31 35 2C 38 2C 31 35 00 02 13 0E |.....15,8,15....|
00000AF0: C4 8B 45 52 24 B3 B1 22 4F 4B 22 A7 89 35 30 33 |..ER$.."OK"..503|
00000B00: 30 30 00 08 13 18 C4 8E 00 45 13 7C C4 99 22 13 |00.......E.|..".|
00000B10: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000B20: 11 41 4E 20 45 52 52 4F 52 20 48 41 53 20 4F 43 |.AN ERROR HAS OC|
00000B30: 43 55 52 45 44 20 44 55 52 52 49 4E 47 20 46 4F |CURED DURRING FO|
00000B40: 52 4D 41 54 22 00 6E 13 86 C4 99 22 27 4E 45 57 |RMAT".n...."'NEW|
00000B50: 27 20 4F 50 50 45 52 41 54 49 4F 4E 20 48 41 53 |' OPPERATION HAS|
00000B60: 20 42 45 45 4E 20 41 42 4F 52 54 45 44 22 00 84 | BEEN ABORTED"..|
00000B70: 13 90 C4 99 22 50 52 45 53 53 20 27 52 45 54 55 |...."PRESS 'RETU|
00000B80: 52 4E 27 22 00 8C 13 9A C4 A1 41 24 00 A1 13 A4 |RN'"......A$....|
00000B90: C4 8B 41 24 B3 B1 C7 28 31 33 29 A7 35 30 33 33 |..A$...(13).5033|
00000BA0: 30 00 AC 13 AE C4 46 31 B2 31 3A 8E 00 B7 13 E0 |0.....F1.1:.....|
00000BB0: C4 A0 35 3A A0 31 35 00 C4 13 E5 C4 9F 31 35 2C |..5:.15......15,|
00000BC0: 38 2C 31 35 00 D3 13 EA C4 9F 35 2C 38 2C 35 2C |8,15......5,8,5,|
00000BD0: 22 23 22 00 DE 13 EF C4 8D 35 31 30 34 30 00 E4 |"#"......51040..|
00000BE0: 13 F4 C4 8E 00 F1 13 44 C5 A0 35 3A A0 31 35 3A |.......D..5:.15:|
00000BF0: 8E 00 0A 14 A8 C5 99 43 24 28 37 29 3B C8 28 43 |.......C$(7);.(C|
00000C00: 24 28 33 31 29 2C 31 30 29 3B 00 37 14 BC C5 99 |$(31),10);.7....|
00000C10: A3 32 29 3B 44 24 28 31 29 3B 57 52 24 2C 54 4E |.2);D$(1);WR$,TN|
00000C20: 3B 22 9D 20 22 2C 53 4E 3B 22 9D 20 22 2C 42 50 |;". ",SN;". ",BP|
00000C30: 3B 22 9D 20 22 3A 8E 00 45 14 38 C7 8B 53 4E B3 |;". ":..E.8..SN.|
00000C40: B2 4D 53 A7 8E 00 56 14 42 C7 54 4E B2 54 4E AA |.MS...V.B.TN.TN.|
00000C50: 31 3A 53 4E B2 30 00 68 14 4C C7 8B 54 4E B1 33 |1:SN.0.h.L..TN.3|
00000C60: 35 A7 46 31 B2 31 3A 8E 00 8E 14 60 C7 4D 53 B2 |5.F1.1:....`.MS.|
00000C70: 32 30 AA 28 28 54 4E B1 31 37 29 AC 32 29 AA 28 |20.((TN.17).2).(|
00000C80: 54 4E B1 32 34 29 AA 28 54 4E B1 33 30 29 00 A6 |TN.24).(TN.30)..|
00000C90: 14 65 C7 8B 54 4E B2 31 38 AF 53 4E B2 30 A7 53 |.e..TN.18.SN.0.S|
00000CA0: 4E B2 53 4E AA 31 00 AC 14 6A C7 8E 00 C3 14 9C |N.SN.1...j......|
00000CB0: C7 98 31 35 2C 22 55 31 22 3B 35 3B 30 3B 54 4E |..15,"U1";5;0;TN|
00000CC0: 3B 53 4E 00 C9 14 A6 C7 8E 00 D8 14 00 C8 84 31 |;SN............1|
00000CD0: 35 2C 45 52 2C 45 52 24 00 EA 14 0A C8 8B 45 52 |5,ER,ER$......ER|
00000CE0: B1 31 39 A7 46 31 B2 31 3A 8E 00 FB 14 0D C8 8B |.19.F1.1:.......|
00000CF0: 46 32 B2 33 A7 8D 35 31 39 37 35 00 04 15 0F C8 |F2.3..51975.....|
00000D00: 46 32 B2 30 00 0A 15 14 C8 8E 00 1C 15 64 C8 98 |F2.0.........d..|
00000D10: 31 35 2C 22 42 2D 50 22 3B 35 3B 30 00 33 15 69 |15,"B-P";5;0.3.i|
00000D20: C8 98 31 35 2C 22 55 32 22 3B 35 3B 30 3B 54 4E |..15,"U2";5;0;TN|
00000D30: 3B 53 4E 00 39 15 6E C8 8E 00 46 15 C8 C8 8D 35 |;SN.9.n...F....5|
00000D40: 31 33 30 30 3A 8E 00 5E 15 2C C9 97 35 36 33 33 |1300:..^.,..5633|
00000D50: 34 2C C2 28 35 36 33 33 34 29 AF 32 35 34 00 64 |4,.(56334).254.d|
00000D60: 15 36 C9 8E 00 7A 15 5E C9 97 35 36 33 33 34 2C |.6...z.^..56334,|
00000D70: C2 28 35 36 33 33 34 29 B0 31 00 80 15 68 C9 8E |.(56334).1...h..|
00000D80: 00 90 15 90 C9 41 31 B2 B5 28 41 AD 32 35 36 29 |.....A1..(A.256)|
00000D90: 00 A5 15 9A C9 41 32 B2 B5 28 41 AB 28 32 35 36 |.....A2..(A.(256|
00000DA0: AC 41 31 29 29 00 B7 15 A4 C9 97 35 31 2C 41 32 |.A1))......51,A2|
00000DB0: 3A 97 35 32 2C 41 31 00 C9 15 AE C9 97 35 35 2C |:.52,A1......55,|
00000DC0: 41 32 3A 97 35 36 2C 41 31 00 CF 15 C2 C9 8E 00 |A2:.56,A1.......|
00000DD0: DB 15 F4 C9 86 43 24 28 33 32 29 00 E1 15 FE C9 |.....C$(32).....|
00000DE0: 8C 00 ED 15 08 CA 81 58 B2 31 A4 33 30 00 01 16 |.......X.1.30...|
00000DF0: 12 CA 87 41 3A 43 24 28 58 29 B2 C7 28 41 29 3A |...A:C$(X)..(A):|
00000E00: 82 00 0D 16 1C CA 81 58 B2 31 A4 32 34 00 25 16 |.......X.1.24.%.|
00000E10: 26 CA 43 24 28 33 31 29 B2 43 24 28 33 31 29 AA |&.C$(31).C$(31).|
00000E20: 43 24 28 35 29 00 2B 16 30 CA 82 00 61 16 3A CA |C$(5).+.0...a.:.|
00000E30: 43 24 28 33 32 29 B2 22 20 20 20 20 20 20 20 20 |C$(32)." |
00000E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E60: 22 00 67 16 44 CA 8E 00 96 16 58 CA 99 43 24 28 |".g.D.....X..C$(|
00000E70: 37 29 3B 44 24 28 33 29 3B C8 28 43 24 28 33 31 |7);D$(3);.(C$(31|
00000E80: 29 2C 31 34 29 3B A3 32 29 3B 41 24 3B 22 20 22 |),14);.2);A$;" "|
00000E90: 3B 3A 8D 32 30 30 00 D9 16 62 CA 99 43 24 28 37 |;:.200...b..C$(7|
00000EA0: 29 3B A3 32 29 3B C8 28 43 24 28 33 31 29 2C 31 |);.2);.(C$(31),1|
00000EB0: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" |
00000EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000ED0: 20 20 20 20 20 20 20 20 22 00 DF 16 6C CA 8E 00 | "...l...|
00000EE0: F2 16 BC CA 8D 35 30 35 30 30 3A 4F 41 B2 4F 41 |.....50500:OA.OA|
00000EF0: AA 31 00 03 17 BD CA 8B 46 32 B2 33 A7 89 35 31 |.1......F2.3..51|
00000F00: 39 35 30 00 22 17 BE CA 99 43 24 28 37 29 3B C8 |950."....C$(7);.|
00000F10: 28 43 24 28 33 31 29 2C 31 32 29 3B 44 24 28 31 |(C$(31),12);D$(1|
00000F20: 29 3B 00 51 17 C1 CA 99 A3 32 29 20 22 21 21 20 |);.Q.....2) "!! |
00000F30: 45 52 52 4F 52 20 4E 55 4D 42 45 52 22 3B 45 52 |ERROR NUMBER";ER|
00000F40: 3B 22 48 41 53 20 4F 43 43 55 52 45 44 20 21 21 |;"HAS OCCURED !!|
00000F50: 22 00 5E 17 C6 CA 99 A3 33 29 3B 45 52 24 00 68 |".^.....3);ER$.h|
00000F60: 17 D0 CA 99 3A 99 3A 99 00 A4 17 D5 CA 99 22 20 |....:.:......." |
00000F70: 20 53 3E 4B 49 50 22 3A 99 22 20 20 52 3E 45 54 | S>KIP":." R>ET|
00000F80: 52 59 22 3A 99 22 20 20 4E 3E 4F 4E 53 54 4F 50 |RY":." N>ONSTOP|
00000F90: 22 3A 99 22 20 20 41 3E 42 4F 52 54 20 42 41 43 |":." A>BORT BAC|
00000FA0: 4B 55 50 22 00 D3 17 D7 CA A1 41 24 3A 8B 41 24 |KUP"......A$:.A$|
00000FB0: B3 B1 22 53 22 AF 41 24 B3 B1 22 52 22 AF 41 24 |.."S".A$.."R".A$|
00000FC0: B3 B1 22 4E 22 AF 41 24 B3 B1 22 41 22 A7 35 31 |.."N".A$.."A".51|
00000FD0: 39 32 37 00 EB 17 DA CA 8B 41 24 B2 22 53 22 A7 |927......A$."S".|
00000FE0: 46 32 B2 31 3A 89 35 31 39 37 35 00 03 18 DF CA |F2.1:.51975.....|
00000FF0: 8B 41 24 B2 22 52 22 A7 46 32 B2 32 3A 89 35 31 |.A$."R".F2.2:.51|
00001000: 39 37 35 00 1B 18 E4 CA 8B 41 24 B2 22 4E 22 A7 |975......A$."N".|
00001010: 46 32 B2 33 3A 89 35 31 39 37 35 00 33 18 E9 CA |F2.3:.51975.3...|
00001020: 8B 41 24 B2 22 41 22 A7 46 32 B2 34 3A 89 35 31 |.A$."A".F2.4:.51|
00001030: 39 37 35 00 4E 18 EE CA 99 43 24 28 37 29 3B 3A |975.N....C$(7);:|
00001040: 8F 2D 20 48 4F 4D 45 20 43 55 52 53 4F 52 00 76 |.- HOME CURSOR.v|
00001050: 18 F8 CA 41 24 B2 22 4F 50 45 52 41 54 49 4F 4E |...A$."OPERATION|
00001060: 20 41 54 54 45 4D 50 54 20 4E 55 4D 42 45 52 22 | ATTEMPT NUMBER"|
00001070: AA C4 28 4F 41 29 00 8F 18 FA CA 99 C8 28 43 24 |..(OA).......(C$|
00001080: 28 33 31 29 2C 31 33 29 3B A3 32 29 3B 41 24 00 |(31),13);.2);A$.|
00001090: B2 18 FD CA A1 41 24 3A 8B 41 24 B2 22 58 22 A7 |.....A$:.A$."X".|
000010A0: 46 32 B2 30 3A 8D 35 31 39 37 35 3A 89 35 31 39 |F2.0:.51975:.519|
000010B0: 30 30 00 BE 18 00 CB 89 20 35 31 39 39 36 00 DD |00...... 51996..|
000010C0: 18 07 CB 99 43 24 28 37 29 3B C8 28 43 24 28 33 |....C$(7);.(C$(3|
000010D0: 31 29 2C 31 32 29 3B 44 24 28 31 29 3B 00 0D 19 |1),12);D$(1);...|
000010E0: 0C CB 99 A3 32 29 3B 22 20 20 20 20 20 20 20 20 |....2);" |
000010F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001100: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 3C 19 | ".<.|
00001110: 0E CB 99 A3 32 29 3B 22 20 20 20 20 20 20 20 20 |....2);" |
00001120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001130: 20 20 20 20 20 20 20 20 20 20 20 22 00 46 19 10 | ".F..|
00001140: CB 99 3A 99 3A 99 00 75 19 12 CB 99 A3 32 29 3B |..:.:..u.....2);|
00001150: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001170: 20 20 20 20 22 00 A4 19 14 CB 99 A3 32 29 3B 22 | ".......2);"|
00001180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011A0: 20 20 20 22 00 D3 19 18 CB 99 A3 32 29 3B 22 20 | ".......2);" |
000011B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011D0: 20 20 22 00 02 1A 19 CB 99 A3 32 29 3B 22 20 20 | ".......2);" |
000011E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001200: 20 22 00 0F 1A 1C CB 8D 35 30 34 30 30 3A 8E 00 | "......50400:..|
00001210: 3C 1A D8 D6 41 24 B2 22 49 4E 53 45 52 54 20 53 |<...A$."INSERT S|
00001220: 4F 55 52 43 45 20 44 49 53 4B 20 41 4E 44 20 50 |OURCE DISK AND P|
00001230: 52 45 53 53 20 52 45 54 55 52 4E 22 00 48 1A E2 |RESS RETURN".H..|
00001240: D6 8D 20 34 36 30 30 30 00 4E 1A EC D6 8E 00 61 |.. 46000.N.....a|
00001250: 1A C0 DA 99 43 24 28 31 38 29 3B 44 24 28 33 29 |....C$(18);D$(3)|
00001260: 3B 00 7A 1A C5 DA 97 20 35 33 32 38 31 2C 43 42 |;.z.... 53281,CB|
00001270: 3A 97 35 33 32 38 30 2C 43 54 00 A9 1A CA DA 99 |:.53280,CT......|
00001280: 22 20 D5 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |" ..............|
00001290: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000012A0: C4 C4 C4 C4 C4 C4 C4 C9 22 00 B5 1A D4 DA 81 58 |........"......X|
000012B0: B2 31 A4 31 34 00 C8 1A DE DA 99 22 20 C7 22 3B |.1.14......" .";|
000012C0: A3 33 38 29 3B 22 C8 22 00 CE 1A E8 DA 82 00 FD |.38);"."........|
000012D0: 1A F2 DA 99 22 20 CA C6 C6 C6 C6 C6 C6 C6 C6 C6 |...." ..........|
000012E0: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000012F0: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 CB 22 00 0F 1B |............"...|
00001300: FC DA 99 43 24 28 37 29 3B 43 24 28 35 29 3B 00 |...C$(7);C$(5);.|
00001310: 2A 1B 06 DB 99 A3 31 35 29 44 24 28 31 29 3B 22 |*.....15)D$(1);"|
00001320: 44 49 2D 42 41 43 4B 55 50 22 00 4A 1B 10 DB 99 |DI-BACKUP".J....|
00001330: A3 31 30 29 3B 22 42 59 20 42 52 55 43 45 20 51 |.10);"BY BRUCE Q|
00001340: 2E 20 48 41 4D 4D 4F 4E 44 22 00 55 1B 1A DB 81 |. HAMMOND".U....|
00001350: 58 B2 31 A4 33 00 89 1B 24 DB 99 A3 32 29 44 24 |X.1.3...$...2)D$|
00001360: 28 32 29 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |(2)"............|
00001370: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00001380: B7 B7 B7 B7 B7 B7 B7 B7 22 00 AB 1B 2E DB 99 C8 |........".......|
00001390: 28 43 24 28 33 31 29 2C 33 29 3B 20 20 20 20 20 |(C$(31),3); |
000013A0: 20 20 20 20 20 20 20 20 20 20 20 00 B1 1B 38 DB | ...8.|
000013B0: 82 00 E4 1B 3D DB 99 43 24 28 37 29 3B C8 28 43 |....=..C$(7);.(C|
000013C0: 24 28 33 31 29 2C 34 29 3B A3 39 29 3B 22 4F 50 |$(31),4);.9);"OP|
000013D0: 45 52 41 54 4F 52 20 49 4E 53 54 52 55 43 54 49 |ERATOR INSTRUCTI|
000013E0: 4F 4E 53 22 00 FC 1B 42 DB 99 43 24 28 37 29 3B |ONS"...B..C$(7);|
000013F0: C8 28 43 24 28 33 31 29 2C 38 29 3B 00 28 1C 4C |.(C$(31),8);.(.L|
00001400: DB 99 A3 32 29 3B 22 53 54 41 54 55 53 22 2C 22 |...2);"STATUS","|
00001410: 54 52 41 43 4B 22 2C 22 53 45 43 54 4F 52 22 2C |TRACK","SECTOR",|
00001420: 22 42 55 46 46 45 52 22 00 2E 1C E2 DB 8E 00 40 |"BUFFER".......@|
00001430: 1C EC DB 52 42 B2 54 4E AC 34 AA 34 39 31 35 33 |...RB.TN.4.49153|
00001440: 00 7F 1C F6 DB 8B 53 4E B1 37 A7 52 42 B2 52 42 |......SN.7.RB.RB|
00001450: AA 31 3A 8B 53 4E B1 31 35 A7 52 42 B2 52 42 AA |.1:.SN.15.RB.RB.|
00001460: 31 3A 8F 2D 20 53 45 4C 45 43 54 20 50 52 4F 50 |1:.- SELECT PROP|
00001470: 45 52 20 42 59 54 45 20 54 4F 20 52 45 41 44 00 |ER BYTE TO READ.|
00001480: 9E 1C 00 DC 4D 4F 44 B2 B5 28 53 4E AD 38 29 3A |....MOD..(SN.8):|
00001490: 4D 4F 44 B2 53 4E AB 28 38 AC 4D 4F 44 29 00 B6 |MOD.SN.(8.MOD)..|
000014A0: 1C 0A DC 8B C2 28 52 42 29 AF 32 AE 4D 4F 44 A7 |.....(RB).2.MOD.|
000014B0: 46 33 B2 30 3A 8E 00 C1 1C 14 DC 46 33 B2 31 3A |F3.0:......F3.1:|
000014C0: 8E 00 C7 1C AA DC 90 00 E0 1C A8 DE 9F 32 2C 38 |.............2,8|
000014D0: 2C 32 2C 22 30 40 3A 44 49 2D 35 2C 53 2C 52 22 |,2,"0@:DI-5,S,R"|
000014E0: 00 EB 1C B2 DE 81 58 B2 31 A4 33 00 F8 1C BC DE |......X.1.3.....|
000014F0: 84 32 2C 44 24 28 58 29 00 FF 1C C6 DE 82 58 00 |.2,D$(X)......X.|
00001500: 0C 1D D0 DE 84 32 2C 43 42 2C 43 54 00 17 1D DA |.....2,CB,CT....|
00001510: DE A0 32 2C 38 2C 32 00 1D 1D E4 DE 8E 00 28 1D |..2,8,2.......(.|
00001520: 90 E2 8D 35 30 34 30 30 00 37 1D 9A E2 54 4E B2 |...50400.7...TN.|
00001530: 31 38 3A 53 4E B2 30 00 42 1D A4 E2 42 50 B2 31 |18:SN.0.B...BP.1|
00001540: 39 32 00 55 1D AE E2 97 32 35 31 2C 30 3A 97 32 |92.U....251,0:.2|
00001550: 35 32 2C 42 50 00 65 1D F4 E2 81 58 B2 31 A4 C3 |52,BP.e....X.1..|
00001560: 28 4E 41 24 29 00 85 1D FE E2 97 42 50 AC 32 35 |(NA$)......BP.25|
00001570: 36 AA 58 AA 31 34 33 2C C6 28 CA 28 4E 41 24 2C |6.X.143,.(.(NA$,|
00001580: 58 2C 31 29 29 00 8C 1D 08 E3 82 58 00 A4 1D 12 |X,1))......X....|
00001590: E3 81 58 B2 C3 28 4E 41 24 29 A4 31 37 AB C3 28 |..X..(NA$).17..(|
000015A0: 4E 41 24 29 00 BA 1D 1C E3 97 42 50 AC 32 35 36 |NA$)......BP.256|
000015B0: AA 58 AA 31 34 34 2C 31 36 30 00 C1 1D 26 E3 82 |.X.144,160...&..|
000015C0: 58 00 DD 1D 3A E3 97 42 50 AC 32 35 36 AA 31 36 |X...:..BP.256.16|
000015D0: 32 2C C6 28 C8 28 49 44 24 2C 31 29 29 00 F9 1D |2,.(.(ID$,1))...|
000015E0: 44 E3 97 42 50 AC 32 35 36 AA 31 36 33 2C C6 28 |D..BP.256.163,.(|
000015F0: C9 28 49 44 24 2C 31 29 29 00 04 1E 4B E3 8D 35 |.(ID$,1))...K..5|
00001600: 31 34 30 30 00 0D 1E 4E E3 9E 38 39 37 00 18 1E |1400...N..897...|
00001610: 58 E3 8D 35 31 33 30 30 00 23 1E 62 E3 8D 35 31 |X..51300.#.b..51|
00001620: 32 30 30 00 39 1E 6C E3 8B 46 31 B2 31 A7 46 31 |200.9.l..F1.1.F1|
00001630: B2 30 3A 8D 35 31 39 30 30 00 4A 1E 76 E3 8B 46 |.0:.51900.J.v..F|
00001640: 32 B2 31 B0 46 32 B2 34 A7 8E 00 5F 1E 80 E3 8B |2.1.F2.4..._....|
00001650: 46 32 B2 32 B0 46 32 B2 33 A7 35 38 30 31 30 00 |F2.2.F2.3.58010.|
00001660: 65 1E 8A E3 8E 00 70 1E 30 F2 A0 35 3A A0 31 35 |e.....p.0..5:.15|
00001670: 00 83 1E 35 F2 41 B2 34 30 39 35 39 3A 8D 35 31 |...5.A.40959:.51|
00001680: 36 30 30 00 B5 1E 37 F2 41 24 B2 22 4C 4F 41 44 |600...7.A$."LOAD|
00001690: 20 44 49 2D 53 45 43 54 4F 52 20 44 49 53 4B 2C | DI-SECTOR DISK,|
000016A0: 20 50 52 45 53 53 20 52 45 54 55 52 4E 22 3A 8D | PRESS RETURN":.|
000016B0: 34 36 30 30 30 00 D0 1E 3A F2 97 31 39 38 2C 32 |46000...:..198,2|
000016C0: 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 |:.631,13:.632,13|
000016D0: 00 06 1F 44 F2 99 43 24 28 31 38 29 3B C8 28 43 |...D..C$(18);.(C|
000016E0: 24 28 33 31 29 2C 31 32 29 3B A3 31 30 29 3B 22 |$(31),12);.10);"|
000016F0: 4E 4F 57 20 4C 4F 41 44 49 4E 47 20 44 49 2D 53 |NOW LOADING DI-S|
00001700: 45 43 54 4F 52 22 00 19 1F 53 F2 97 20 36 34 36 |ECTOR"...S.. 646|
00001710: 2C C2 28 35 33 32 38 31 29 00 50 1F 58 F2 99 43 |,.(53281).P.X..C|
00001720: 24 28 37 29 3B C8 28 43 24 28 33 31 29 2C 32 29 |$(7);.(C$(31),2)|
00001730: 22 4C 4F 41 44 22 C7 28 33 34 29 22 44 49 2D 53 |"LOAD".(34)"DI-S|
00001740: 45 43 54 4F 52 22 C7 28 33 34 29 3B 22 2C 38 22 |ECTOR".(34);",8"|
00001750: 00 67 1F 5D F2 99 C8 28 43 24 28 33 31 29 2C 34 |.g.]...(C$(31),4|
00001760: 29 3B 22 52 55 4E 22 00 73 1F 62 F2 99 43 24 28 |);"RUN".s.b..C$(|
00001770: 37 29 3B 00 00 00 A7 8D 20 35 33 31 30 30 3A 99 |7);..... 53100:.|
00001780: 22 93 22 3B 3A 8F 2D 20 4F 48 20 4E 4F 21 21 20 |".";:.- OH NO!! |
00001790: 41 4E 20 45 52 52 4F 52 00 A0 1D CC 9C 8B 46 31 |AN ERROR......F1|
000017A0: A7 34 30 31 32 30 00 A9 1D D6 9C 46 31 B2 30 00 |.40120.....F1.0.|
000017B0: AF 1D E0 9C 3A 00 C6 1D EA 9C 8F 2D 20 44 49 53 |....:......- DIS|
000017C0: 50 4C 41 59 20 54 48 45 20 4D 41 50 00 CC 1D F4 |PLAY THE MAP....|
000017D0: 9C 3A 00 D6 1D FE 9C 99 22 93 22 3B 00 18 1E 08 |.:......".";....|
000017E0: 9D 99 22 20 31 32 33 34 35 36 37 38 39 12 30 31 |.." 123456789.01|
000017F0: 32 33 34 35 36 37 38 39 92 30 31 32 33 34 35 36 |23456789.0123456|
00001800: 37 38 39 12 30 31 32 33 34 35 22 3A 8F 2D 20 54 |789.012345":.- T|
00001810: 52 41 43 4B 20 49 4E 44 45 58 20 52 4F 57 00 1E |RACK INDEX ROW..|
00001820: 1E 12 9D 99 00 2B 1E 1C 9D 81 58 B2 30 A4 39 20 |.....+....X.0.9 |
00001830: 3A 00 3A 1E 26 9D 99 C9 28 C4 28 58 29 2C 31 29 |:.:.&...(.(X),1)|
00001840: 00 41 1E 3A 9D 82 58 00 5F 1E 44 9D 8F 2D 20 4D |.A.:..X._.D..- M|
00001850: 41 4B 45 20 53 45 43 54 4F 52 20 49 4E 44 45 58 |AKE SECTOR INDEX|
00001860: 20 43 4F 4C 2E 00 6A 1E 4E 9D 81 58 B2 30 A4 39 | COL..j.N..X.0.9|
00001870: 00 7D 1E 58 9D 99 22 12 22 3B C9 28 C4 28 58 29 |.}.X..".";.(.(X)|
00001880: 2C 31 29 00 84 1E 6C 9D 82 58 00 8E 1E 80 9D 99 |,1)...l..X......|
00001890: 22 30 22 3B 00 94 1E 8A 9D 3A 00 AA 1E 8F 9D 8F |"0";.....:......|
000018A0: 2D 20 4D 41 4B 45 20 42 49 54 20 54 41 42 4C 45 |- MAKE BIT TABLE|
000018B0: 00 B0 1E 90 9D 3A 00 C6 1E 94 9D 58 B2 34 39 31 |.....:.....X.491|
000018C0: 35 33 3A 54 4E B2 31 3A 53 4E B2 30 00 E1 1E 9E |53:TN.1:SN.0....|
000018D0: 9D 81 54 4E B2 31 A4 33 35 3A 8F 2D 20 54 52 41 |..TN.1.35:.- TRA|
000018E0: 43 4B 20 4C 4F 4F 50 00 0D 1F A8 9D 52 42 B2 54 |CK LOOP.....RB.T|
000018F0: 4E AC 34 AA 58 3A 8F 2D 20 4C 4F 43 01 0A 84 31 |N.4.X:.- LOC...1|
00001900: 35 2C 45 4E 24 2C 45 44 24 2C 45 54 2C 45 53 24 |5,EN$,ED$,ET,ES$|
00001910: 3A 8B 45 4E 24 B2 22 30 30 22 A7 34 35 30 00 2F |:.EN$."00".450./|
00001920: 13 BD 01 A0 31 35 3A 4F 50 24 B2 22 22 3A 8D 37 |....15:OP$."":.7|
00001930: 38 30 3A 8D 38 30 30 3A 4F 50 24 B2 22 22 3A 89 |80:.800:OP$."":.|
00001940: 34 30 35 00 65 13 C2 01 44 4E 24 B2 22 4E 30 3A |405.e...DN$."N0:|
00001950: 22 AA 44 4E 24 AA 22 2C 22 AA 44 49 24 3A 98 31 |".DN$.",".DI$:.1|
00001960: 35 2C 44 4E 24 3A 84 31 35 2C 45 4E 24 2C 45 44 |5,DN$:.15,EN$,ED|
00001970: 24 2C 45 54 24 2C 45 53 24 00 8F 13 C7 01 A0 31 |$,ET$,ES$......1|
00001980: 35 3A 8D 38 30 30 3A 8B 45 4E 24 B3 B1 22 30 30 |5:.800:.EN$.."00|
00001990: 22 A7 3A 4F 50 24 B2 22 22 3A 8D 37 38 30 3A 89 |".:OP$."":.780:.|
000019A0: 34 30 35 00 9F 13 CC 01 4F 50 24 B2 22 22 3A 8D |405.....OP$."":.|
000019B0: 37 38 30 00 CE 13 D1 01 42 43 24 B2 22 1C 49 4E |780.....BC$.".IN|
000019C0: 53 45 52 54 20 53 4F 55 52 43 45 20 44 49 53 4B |SERT SOURCE DISK|
000019D0: 20 49 4E 54 4F 20 44 52 49 56 45 1E 22 3A 8D 39 | INTO DRIVE.":.9|
000019E0: 36 35 00 FA 13 E0 01 4F 50 24 B2 22 52 45 41 44 |65.....OP$."READ|
000019F0: 49 4E 47 20 42 41 4D 20 46 52 4F 4D 01 0B B2 42 |ING BAM FROM...B|
00001A00: 50 AA 32 3A 48 49 B2 B5 28 42 50 AD 32 35 36 29 |P.2:HI..(BP.256)|
00001A10: 3A 4C 4F B2 42 50 AB 28 48 49 AC 32 35 36 29 3A |:LO.BP.(HI.256):|
00001A20: 97 38 33 39 2C 4C 4F 00 2C 1E 4D 03 97 38 34 30 |.839,LO.,.M..840|
00001A30: 2C 48 49 3A 8D 38 32 30 3A 9E 38 32 38 3A 8D 38 |,HI:.820:.828:.8|
00001A40: 32 30 3A 84 31 35 2C 45 4E 24 2C 45 44 24 2C 45 |20:.15,EN$,ED$,E|
00001A50: 54 24 2C 45 53 24 00 3F 1E 52 03 8B 45 4E 24 B3 |T$,ES$.?.R..EN$.|
00001A60: B1 22 30 30 22 A7 39 38 30 00 5A 1E 57 03 42 50 |."00".980.Z.W.BP|
00001A70: B2 42 50 AA 32 35 36 3A 8B 42 50 AA 32 35 36 B3 |.BP.256:.BP.256.|
00001A80: 45 42 A7 8E 00 91 1E 5C 03 A0 32 3A A0 31 35 3A |EB.....\..2:.15:|
00001A90: 4F 50 24 B2 22 22 3A 8D 37 38 30 3A 4F 50 24 B2 |OP$."":.780:OP$.|
00001AA0: 22 44 45 53 54 49 4E 41 54 49 4F 4E 3A 20 20 20 |"DESTINATION: |
00001AB0: 20 22 AA 44 4E 24 3A 8D 37 39 30 00 C5 1E 61 03 | ".DN$:.790...a.|
00001AC0: 42 43 24 B2 22 1C 49 4E 53 45 52 54 20 44 45 53 |BC$.".INSERT DES|
00001AD0: 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 49 4E |TINATION DISK IN|
00001AE0: 54 4F 20 44 52 49 56 45 1E 22 3A 8D 39 36 35 00 |TO DRIVE.":.965.|
00001AF0: F8 1E 66 03 8D 39 35 35 3A 8B 49 44 01 0C B2 37 |..f..955:.ID...7|
00001B00: 3A 52 54 B2 31 00 0C 11 7C 01 8D 37 33 30 3A 8B |:RT.1...|..730:.|
00001B10: 42 24 B2 22 22 A7 42 24 B2 22 42 22 00 3A 11 81 |B$."".B$."B".:..|
00001B20: 01 50 4F B2 C6 28 42 24 29 3A 8B 42 24 B2 22 44 |.PO..(B$):.B$."D|
00001B30: 22 A7 4F 50 24 B2 22 44 49 52 45 43 54 20 42 41 |".OP$."DIRECT BA|
00001B40: 43 4B 55 50 22 3A 89 34 30 30 00 4B 11 86 01 8B |CKUP":.400.K....|
00001B50: 42 24 B3 B1 22 42 22 A7 33 37 35 00 67 11 8B 01 |B$.."B".375.g...|
00001B60: 4F 50 24 B2 22 42 41 4D 20 53 45 4C 45 43 54 20 |OP$."BAM SELECT |
00001B70: 42 41 43 4B 55 50 22 00 92 11 90 01 8D 37 38 35 |BACKUP"......785|
00001B80: 3A 4F 50 24 B2 22 22 3A 8D 37 38 30 3A 4F 50 24 |:OP$."":.780:OP$|
00001B90: B2 22 45 4E 54 45 52 20 44 49 53 4B 20 4E 41 4D |."ENTER DISK NAM|
00001BA0: 45 22 00 CA 11 95 01 8D 37 39 35 3A 4F 50 24 B2 |E"......795:OP$.|
00001BB0: 22 44 45 53 54 49 4E 41 54 49 4F 4E 3A 22 3A 8D |"DESTINATION:":.|
00001BC0: 37 39 30 3A 4C 4E B2 31 36 3A 44 4E B2 31 34 3A |790:LN.16:DN.14:|
00001BD0: 52 54 B2 31 37 3A 8D 37 33 30 00 0C 12 9A 01 4C |RT.17:.730.....L|
00001BE0: 4E B2 32 3A 52 54 B2 33 35 3A 8B 42 24 B2 22 22 |N.2:RT.35:.B$.""|
00001BF0: A7 42 24 B2 22 43 42 4D 20 31 35 34 01 0D B3 22 |.B$."CBM 154..."|
00001C00: 20 22 B0 41 24 B1 22 5A 22 A7 82 3A 89 37 33 35 | ".A$."Z"..:.735|
00001C10: 00 11 1C 02 03 8B C3 28 42 24 29 B3 4C 4E A7 42 |.......(B$).LN.B|
00001C20: 24 B2 42 24 AA 41 24 3A 99 22 9D 22 41 24 22 1D |$.B$.A$:."."A$".|
00001C30: 22 3B 3A 89 37 33 35 00 1C 1C 07 03 82 3A 89 37 |";:.735......:.7|
00001C40: 33 35 00 41 1C 0C 03 99 22 13 11 11 11 11 11 11 |35.A....".......|
00001C50: 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 22 42 |.............."B|
00001C60: 4C 24 4F 50 24 3A 8E 00 59 1C 11 03 99 22 13 11 |L$OP$:..Y...."..|
00001C70: 11 11 11 11 11 1D 22 42 4C 24 4F 50 24 3A 8E 00 |......"BL$OP$:..|
00001C80: 78 1C 16 03 99 22 13 11 11 11 11 11 11 11 11 11 |x...."..........|
00001C90: 11 11 11 11 1D 22 42 4C 24 4F 50 24 3A 8E 00 A0 |....."BL$OP$:...|
00001CA0: 1C 1B 03 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
00001CB0: 11 11 11 11 11 11 11 11 11 11 11 11 1D 22 42 4C |............."BL|
00001CC0: 24 4F 50 24 3A 8E 00 CC 1C 20 03 A0 32 3A A0 31 |$OP$:.... ..2:.1|
00001CD0: 35 3A 4F 50 24 B2 45 4E 24 AA 22 2C 20 22 AA 45 |5:OP$.EN$.", ".E|
00001CE0: 44 24 AA 22 2C 22 AA 45 54 24 AA 22 2C 22 AA 45 |D$.",".ET$.",".E|
00001CF0: 53 24 00 EE 1C 25 03 99 22 13 11 11 01 0E C0 C0 |S$...%..".......|
00001D00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001D10: C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 3D 0F 4A 01 99 |.........".=.J..|
00001D20: 22 D5 C0 44 49 53 4B 20 53 54 41 54 55 53 C0 C0 |"..DISK STATUS..|
00001D30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001D40: C0 C0 C0 C0 C0 C0 C0 C9 22 00 6C 0F 4F 01 99 22 |........".l.O.."|
00001D50: DD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D70: 20 20 20 20 20 20 DD 22 00 9B 0F 54 01 99 22 CA | ."...T..".|
00001D80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001D90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001DA0: C0 C0 C0 C0 C0 CB 22 00 CA 0F 59 01 99 22 D5 C0 |......"...Y.."..|
00001DB0: 45 58 45 43 55 54 49 4E 47 C0 C0 C0 C0 C0 C0 C0 |EXECUTING.......|
00001DC0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001DD0: C0 C0 C0 C0 C9 22 00 F9 0F 5E 01 99 22 DD 20 20 |....."...^..". |
00001DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001DF0: 20 20 20 20 20 20 20 20 20 20 20 20 01 0F 3A 8B | ..:.|
00001E00: 49 44 24 B2 C9 28 44 4E 24 2C 32 29 A7 45 4E 24 |ID$..(DN$,2).EN$|
00001E10: B2 22 30 30 22 3A 45 44 24 B2 22 4F 4B 22 3A 89 |."00":ED$."OK":.|
00001E20: 37 31 35 00 40 1A C6 02 45 4E 24 B2 22 2A 31 22 |715.@...EN$."*1"|
00001E30: 3A 45 44 24 B2 22 53 4F 55 52 43 45 20 49 44 20 |:ED$."SOURCE ID |
00001E40: 46 4F 55 4E 44 22 3A 45 54 24 B2 22 30 30 22 3A |FOUND":ET$."00":|
00001E50: 45 53 24 B2 22 30 30 22 3A 8D 38 30 30 3A 89 37 |ES$."00":.800:.7|
00001E60: 30 30 00 72 1A CB 02 8D 38 30 30 3A 4F 50 24 B2 |00.r....800:OP$.|
00001E70: 22 57 52 49 54 49 4E 47 20 44 41 54 41 20 46 52 |"WRITING DATA FR|
00001E80: 4F 4D 20 42 55 46 46 45 52 22 3A 8D 37 38 30 3A |OM BUFFER":.780:|
00001E90: 8D 39 31 30 00 A7 1A D0 02 4F 50 24 B2 22 42 41 |.910.....OP$."BA|
00001EA0: 43 4B 55 50 20 46 49 4E 49 53 48 45 44 22 3A 8D |CKUP FINISHED":.|
00001EB0: 37 38 30 3A 4F 50 24 B2 22 22 3A 8D 38 31 30 3A |780:OP$."":.810:|
00001EC0: 8D 37 38 35 3A 8D 37 39 30 00 E0 1A D5 02 42 43 |.785:.790.....BC|
00001ED0: 24 B2 22 1C 52 45 4D 4F 56 45 20 44 45 53 54 49 |$.".REMOVE DESTI|
00001EE0: 4E 41 54 49 4F 4E 20 44 49 53 4B 20 46 52 4F 4D |NATION DISK FROM|
00001EF0: 20 44 52 49 56 45 1E 22 3A 8D 39 36 01 10 00 F8 | DRIVE.":.96....|
00001F00: 17 6C 02 42 59 B2 32 35 35 AB C6 28 42 4D 24 28 |.l.BY.255..(BM$(|
00001F10: 54 43 AA 32 29 29 00 0F 18 71 02 8B 42 59 AF 31 |TC.2))...q..BY.1|
00001F20: 32 38 A7 53 43 B2 31 35 3A 8D 38 33 35 00 25 18 |28.SC.15:.835.%.|
00001F30: 76 02 8B 42 59 AF 36 34 A7 53 43 B2 31 34 3A 8D |v..BY.64.SC.14:.|
00001F40: 38 33 35 00 3B 18 7B 02 8B 42 59 AF 33 32 A7 53 |835.;.{..BY.32.S|
00001F50: 43 B2 31 33 3A 8D 38 33 35 00 51 18 80 02 8B 42 |C.13:.835.Q....B|
00001F60: 59 AF 31 36 A7 53 43 B2 31 32 3A 8D 38 33 35 00 |Y.16.SC.12:.835.|
00001F70: 66 18 85 02 8B 42 59 AF 38 A7 53 43 B2 31 31 3A |f....BY.8.SC.11:|
00001F80: 8D 38 33 35 00 7B 18 8A 02 8B 42 59 AF 34 A7 53 |.835.{....BY.4.S|
00001F90: 43 B2 31 30 3A 8D 38 33 35 00 8F 18 8F 02 8B 42 |C.10:.835......B|
00001FA0: 59 AF 32 A7 53 43 B2 39 3A 8D 38 33 35 00 A3 18 |Y.2.SC.9:.835...|
00001FB0: 94 02 8B 42 59 AF 31 A7 53 43 B2 38 3A 8D 38 33 |...BY.1.SC.8:.83|
00001FC0: 35 00 BB 18 99 02 42 59 B2 32 35 35 AB C6 28 42 |5.....BY.255..(B|
00001FD0: 4D 24 28 54 43 AA 33 29 29 00 DE 18 9E 02 8B 28 |M$(TC.3))......(|
00001FE0: 42 59 AF 31 36 29 AF 43 28 54 52 AA 38 29 B1 32 |BY.16).C(TR.8).2|
00001FF0: 30 A7 53 43 B2 32 30 3A 8D 38 33 35 01 11 35 3A |0.SC.20:.835..5:|
00002000: 8B 49 44 24 B2 C9 28 53 4E 24 2C 32 29 A7 45 4E |.ID$..(SN$,2).EN|
00002010: 24 B2 22 30 30 22 3A 45 44 24 B2 22 4F 4B 22 3A |$."00":ED$."OK":|
00002020: 8D 38 30 30 3A 89 39 30 35 00 3F 20 84 03 45 4E |.800:.905.? ..EN|
00002030: 24 B2 22 2A 32 22 3A 45 44 24 B2 22 44 45 53 54 |$."*2":ED$."DEST|
00002040: 49 4E 41 54 49 4F 4E 20 49 44 20 46 4F 55 4E 44 |INATION ID FOUND|
00002050: 22 3A 45 54 24 B2 22 30 30 22 3A 45 53 24 B2 22 |":ET$."00":ES$."|
00002060: 30 30 22 3A 8D 38 30 30 3A 89 38 39 30 00 7F 20 |00":.800:.890.. |
00002070: 89 03 4F 50 24 B2 22 52 45 41 44 49 4E 47 20 44 |..OP$."READING D|
00002080: 41 54 41 20 49 4E 54 4F 20 42 55 46 46 45 52 22 |ATA INTO BUFFER"|
00002090: 3A 8D 37 38 30 3A 9F 31 35 2C 44 49 2C 31 35 3A |:.780:.15,DI,15:|
000020A0: 9F 32 2C 44 49 2C 32 2C 22 23 22 3A 8E 00 A4 20 |.2,DI,2,"#":... |
000020B0: 8E 03 42 50 B2 53 42 3A 9F 31 35 2C 44 49 2C 31 |..BP.SB:.15,DI,1|
000020C0: 35 3A 9F 32 2C 44 49 2C 32 2C 22 23 22 3A 42 52 |5:.2,DI,2,"#":BR|
000020D0: B2 31 00 D0 20 93 03 8B 28 C2 28 42 50 29 B2 30 |.1.. ...(.(BP).0|
000020E0: AF C2 28 42 50 AA 31 29 B2 30 29 B0 42 50 AA 32 |..(BP.1).0).BP.2|
000020F0: 35 36 B1 45 42 A7 A0 31 35 3A A0 32 01 12 22 1C |56.EB..15:.2..".|
00002100: 49 44 20 4E 55 4D 42 45 52 53 20 41 52 45 20 4E |ID NUMBERS ARE N|
00002110: 4F 54 20 55 4E 49 51 55 45 1E 22 3A 8D 39 36 35 |OT UNIQUE.":.965|
00002120: 3A 89 31 30 30 00 20 16 17 02 8D 37 39 30 3A 4F |:.100. ....790:O|
00002130: 50 24 B2 22 22 3A 8D 37 38 30 00 4F 16 1C 02 42 |P$."":.780.O...B|
00002140: 43 24 B2 22 1C 56 45 52 49 46 59 20 53 4F 55 52 |C$.".VERIFY SOUR|
00002150: 43 45 20 44 49 53 4B 20 46 4F 52 20 42 41 43 4B |CE DISK FOR BACK|
00002160: 55 50 1E 22 3A 8D 39 36 35 00 60 16 21 02 8B 41 |UP.":.965.`.!..A|
00002170: 24 B3 B1 22 4E 22 A7 35 35 35 00 7F 16 26 02 4F |$.."N".555...&.O|
00002180: 50 24 B2 22 22 3A 8D 37 38 30 3A 8D 37 39 30 3A |P$."":.780:.790:|
00002190: 8D 38 31 30 3A 89 34 36 35 00 A7 16 2B 02 4F 50 |.810:.465...+.OP|
000021A0: 24 B2 22 52 45 41 44 49 4E 47 20 44 41 54 41 20 |$."READING DATA |
000021B0: 49 4E 54 4F 20 42 55 46 46 45 52 22 3A 8D 37 38 |INTO BUFFER":.78|
000021C0: 30 00 C9 16 30 02 8B 50 4F B2 36 38 A7 81 41 B2 |0...0..PO.68..A.|
000021D0: 31 A4 31 34 30 3A 42 4D 24 28 41 29 B2 C7 28 30 |1.140:BM$(A)..(0|
000021E0: 29 3A 82 00 E3 16 35 02 9F 31 35 2C 44 49 2C 31 |):....5..15,DI,1|
000021F0: 35 3A 9F 32 2C 44 49 2C 32 2C 22 23 01 13 30 A4 |5:.2,DI,2,"#..0.|
00002200: 31 00 F7 21 B6 03 97 28 42 50 AA 31 36 34 AA 41 |1..!...(BP.164.A|
00002210: 29 2C C6 28 CA 28 44 4E 24 2C 31 38 AA 41 2C 31 |),.(.(DN$,18.A,1|
00002220: 29 29 3A 82 3A 89 39 32 35 00 33 22 BB 03 9F 31 |)):.:.925.3"...1|
00002230: 35 2C 44 49 2C 31 35 3A 9F 32 2C 44 49 2C 32 2C |5,DI,15:.2,DI,2,|
00002240: 22 23 22 3A 98 31 35 2C 22 55 31 22 3B 32 3B 30 |"#":.15,"U1";2;0|
00002250: 3B 31 38 3B 30 3A 98 31 35 2C 22 42 2D 50 3A 22 |;18;0:.15,"B-P:"|
00002260: 32 3B 31 36 32 00 58 22 C0 03 A1 23 32 2C 41 24 |2;162.X"...#2,A$|
00002270: 3A A1 23 32 2C 42 24 3A A0 32 3A A0 31 35 3A 49 |:.#2,B$:.2:.15:I|
00002280: 44 24 B2 41 24 AA 42 24 3A 8E 00 75 22 C5 03 4F |D$.A$.B$:..u"..O|
00002290: 50 24 B2 42 43 24 3A 8D 37 39 35 3A 81 41 B2 31 |P$.BC$:.795:.A.1|
000022A0: A4 37 35 3A A1 41 24 00 A8 22 CA 03 8B 41 24 B2 |.75:.A$.."...A$.|
000022B0: 22 22 A7 82 3A 4F 50 24 B2 22 22 3A 8D 37 39 35 |""..:OP$."":.795|
000022C0: 3A 81 41 B2 31 A4 37 35 3A A1 41 24 3A 8B 41 24 |:.A.1.75:.A$:.A$|
000022D0: B2 22 22 A7 82 3A 89 39 36 35 00 C3 22 CF 03 4F |.""..:.965.."..O|
000022E0: 50 24 B2 22 22 3A 8D 37 39 35 3A 8B 41 24 B3 B1 |P$."":.795:.A$..|
000022F0: 22 85 22 A7 8E 00 CC 22 D0 03 89 31 01 14 20 53 |"."...."...1.. S|
00002300: 4F 55 52 43 45 20 44 49 53 4B 22 3A 8D 37 38 30 |OURCE DISK":.780|
00002310: 00 34 14 E5 01 9F 31 35 2C 44 49 2C 31 35 3A 9F |.4....15,DI,15:.|
00002320: 32 2C 44 49 2C 32 2C 22 23 22 3A 98 31 35 2C 22 |2,DI,2,"#":.15,"|
00002330: 55 31 22 3B 32 3B 30 3B 31 38 3B 30 3A 98 31 35 |U1";2;0;18;0:.15|
00002340: 2C 22 42 2D 50 3A 22 32 3B 31 00 6C 14 EA 01 A1 |,"B-P:"2;1.l....|
00002350: 23 32 2C 41 24 3A A1 23 32 2C 41 24 3A A1 23 32 |#2,A$:.#2,A$:.#2|
00002360: 2C 41 24 3A 81 41 B2 31 A4 31 34 30 3A A1 23 32 |,A$:.A.1.140:.#2|
00002370: 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 |,A$:.A$."".A$..(|
00002380: 30 29 00 9D 14 EF 01 42 4D 24 28 41 29 B2 41 24 |0).....BM$(A).A$|
00002390: 3A 82 3A 84 31 35 2C 45 4E 24 2C 45 44 24 2C 45 |:.:.15,EN$,ED$,E|
000023A0: 54 24 2C 45 53 24 3A 8B 45 4E 24 B3 B1 22 30 30 |T$,ES$:.EN$.."00|
000023B0: 22 A7 90 00 D4 14 F4 01 98 31 35 2C 22 42 2D 50 |"........15,"B-P|
000023C0: 22 3B 32 3B 31 34 34 3A 53 4E 24 B2 22 22 3A 81 |";2;144:SN$."":.|
000023D0: 41 B2 31 A4 32 30 3A A1 23 32 2C 41 24 3A 53 4E |A.1.20:.#2,A$:SN|
000023E0: 24 B2 53 4E 24 AA 41 24 3A 82 00 FA 14 F9 01 A0 |$.SN$.A$:.......|
000023F0: 32 3A A0 31 35 3A 53 4E 24 B2 C8 28 01 07 24 B2 |2:.15:SN$..(..$.|
00002400: C9 28 44 4E 24 2C 32 29 A7 45 4E 24 B2 22 30 30 |.(DN$,2).EN$."00|
00002410: 22 3A 45 44 24 B2 22 4F 4B 22 3A 8D 38 30 30 3A |":ED$."OK":.800:|
00002420: 89 38 38 30 00 37 1F 6B 03 45 4E 24 B2 22 2A 31 |.880.7.k.EN$."*1|
00002430: 22 3A 45 44 24 B2 22 53 4F 55 52 43 45 20 49 44 |":ED$."SOURCE ID|
00002440: 20 46 4F 55 4E 44 22 3A 45 54 24 B2 22 30 30 22 | FOUND":ET$."00"|
00002450: 3A 45 53 24 B2 22 30 30 22 3A 8D 38 30 30 3A 89 |:ES$."00":.800:.|
00002460: 38 36 35 00 75 1F 70 03 4F 50 24 B2 22 57 52 49 |865.u.p.OP$."WRI|
00002470: 54 49 4E 47 20 44 41 54 41 20 46 52 4F 4D 20 42 |TING DATA FROM B|
00002480: 55 46 46 45 52 22 3A 8D 37 38 30 3A 8D 39 31 30 |UFFER":.780:.910|
00002490: 3A 8D 38 31 35 3A 4F 50 24 B2 22 22 3A 8D 37 38 |:.815:OP$."":.78|
000024A0: 30 00 99 1F 75 03 4F 50 24 B2 22 53 4F 55 52 43 |0...u.OP$."SOURC|
000024B0: 45 3A 20 20 20 20 20 20 20 20 20 22 AA 53 4E 24 |E: ".SN$|
000024C0: 3A 8D 37 39 30 00 C8 1F 7A 03 42 43 24 B2 22 1C |:.790...z.BC$.".|
000024D0: 49 4E 53 45 52 54 20 53 4F 55 52 43 45 20 44 49 |INSERT SOURCE DI|
000024E0: 53 4B 20 49 4E 54 4F 20 44 52 49 56 45 1E 22 3A |SK INTO DRIVE.":|
000024F0: 8D 39 36 35 00 FB 1F 7F 03 8D 39 35 01 00 31 20 |.965......95..1 |
00002500: 42 41 43 4B 55 50 22 3A 4F 50 24 B2 4F 50 24 AA |BACKUP":OP$.OP$.|
00002510: 22 20 20 20 20 22 AA 42 24 3A 8D 37 39 30 00 43 |" ".B$:.790.C|
00002520: 12 9F 01 44 4E 24 B2 42 24 3A 99 22 91 22 A6 33 |...DN$.B$:.".".3|
00002530: 34 29 22 2C 22 3A 4F 50 24 B2 22 45 4E 54 45 52 |4)",":OP$."ENTER|
00002540: 20 44 49 53 4B 20 49 44 20 4E 55 4D 42 45 52 22 | DISK ID NUMBER"|
00002550: 3A 8D 37 39 35 00 5B 12 A4 01 8D 37 33 30 3A 8B |:.795.[....730:.|
00002560: 42 24 B2 22 22 A7 42 24 B2 22 36 34 22 00 78 12 |B$."".B$."64".x.|
00002570: A9 01 99 22 91 22 A6 33 35 29 42 24 3A 44 49 24 |...".".35)B$:DI$|
00002580: B2 42 24 3A 97 31 39 38 2C 30 00 AC 12 AE 01 42 |.B$:.198,0.....B|
00002590: 43 24 B2 22 1C 49 4E 53 45 52 54 20 44 45 53 54 |C$.".INSERT DEST|
000025A0: 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 49 4E 54 |INATION DISK INT|
000025B0: 4F 20 44 52 49 56 45 1E 22 3A 8D 39 36 35 00 DB |O DRIVE.":.965..|
000025C0: 12 B3 01 8D 38 31 30 3A 4F 50 24 B2 22 46 4F 52 |....810:OP$."FOR|
000025D0: 4D 41 54 49 4E 47 20 44 45 53 54 49 4E 41 54 49 |MATING DESTINATI|
000025E0: 4F 4E 20 44 49 53 4B 22 3A 8D 37 38 30 00 0A 13 |ON DISK":.780...|
000025F0: B8 01 9F 31 35 2C 44 49 2C 31 35 3A 01 01 11 11 |...15,DI,15:....|
00002600: 11 11 11 11 11 11 11 11 11 11 11 11 1D 22 42 4C |............."BL|
00002610: 24 4F 50 24 3A 8E 00 0D 1D 2A 03 99 22 13 11 11 |$OP$:....*.."...|
00002620: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 22 |..............."|
00002630: 42 4C 24 3A 8E 00 34 1D 2F 03 81 41 B2 53 42 A4 |BL$:..4./..A.SB.|
00002640: 45 42 A9 32 35 38 3A 97 41 2C 30 3A 97 41 AA 31 |EB.258:.A,0:.A.1|
00002650: 2C 30 3A 82 3A 42 50 B2 53 42 3A 8E 00 5E 1D 34 |,0:.:BP.SB:..^.4|
00002660: 03 8B 42 52 B2 30 A7 50 54 B2 50 54 AA 31 3A 8B |..BR.0.PT.PT.1:.|
00002670: 50 54 B1 38 A7 50 54 B2 31 3A 53 50 B2 53 50 AA |PT.8.PT.1:SP.SP.|
00002680: 31 3A 89 38 33 30 00 83 1D 39 03 8B 42 52 B2 31 |1:.830...9..BR.1|
00002690: A7 50 54 B2 50 54 AB 31 3A 8B 50 54 B3 30 A7 50 |.PT.PT.1:.PT.0.P|
000026A0: 54 B2 37 3A 53 50 B2 53 50 AB 31 00 93 1D 3E 03 |T.7:SP.SP.1...>.|
000026B0: 97 53 50 2C 43 28 50 54 29 3A 8E 00 BD 1D 43 03 |.SP,C(PT):....C.|
000026C0: 42 52 B2 30 3A 98 31 35 2C 22 55 31 3A 22 32 3B |BR.0:.15,"U1:"2;|
000026D0: 30 3B 54 52 3B 53 43 3A 98 31 35 2C 22 42 2D 50 |0;TR;SC:.15,"B-P|
000026E0: 3A 22 32 3B 30 00 FD 1D 48 03 97 42 50 2C 54 52 |:"2;0...H..BP,TR|
000026F0: 3A 97 42 50 AA 31 2C 53 43 3A 42 50 01 02 20 20 |:.BP.1,SC:BP.. |
00002700: 20 20 20 20 20 DD 22 00 28 10 63 01 99 22 CA C0 | .".(.c.."..|
00002710: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002720: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002730: C0 C0 C0 C0 CB 22 00 57 10 68 01 99 22 D5 C0 4F |.....".W.h.."..O|
00002740: 50 45 52 41 54 4F 52 20 49 4E 54 45 52 56 45 4E |PERATOR INTERVEN|
00002750: 54 49 4F 4E C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |TION............|
00002760: C0 C0 C0 C9 22 00 86 10 6D 01 99 22 DD 20 20 20 |...."...m..". |
00002770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002790: 20 20 DD 22 00 B6 10 72 01 99 22 CA C0 C0 C0 C0 | ."...r..".....|
000027A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000027B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000027C0: C0 CB 13 22 00 F5 10 77 01 4F 50 24 B2 22 45 4E |..."...w.OP$."EN|
000027D0: 54 45 52 20 54 48 45 20 50 52 4F 47 52 41 4D 20 |TER THE PROGRAM |
000027E0: 4F 50 45 52 41 54 49 4F 4E 20 43 4F 44 45 22 3A |OPERATION CODE":|
000027F0: 8D 37 39 35 3A 4C 4E B2 31 3A 44 4E 01 03 35 3A |.795:LN.1:DN..5:|
00002800: 89 31 30 30 00 16 1B DA 02 42 24 B2 22 22 3A 99 |.100.....B$."":.|
00002810: C8 28 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |.(".............|
00002820: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 2C 44 |.............",D|
00002830: 4E 29 A6 52 54 29 22 20 22 3B 00 39 1B DF 02 99 |N).RT)" ";.9....|
00002840: 22 9D A8 22 3B 3A 81 41 B2 31 A4 35 35 3A A1 41 |"..";:.A.1.55:.A|
00002850: 24 3A 8B 41 24 B3 B1 22 22 A7 37 34 35 00 5C 1B |$:.A$.."".745.\.|
00002860: E4 02 82 3A 99 22 9D 20 22 3B 3A 81 41 B2 31 A4 |...:.". ";:.A.1.|
00002870: 35 35 3A 8B 41 24 B2 22 22 A7 82 3A 89 37 33 35 |55:.A$.""..:.735|
00002880: 00 72 1B E9 02 8B C6 28 41 24 29 B2 31 33 A7 99 |.r.....(A$).13..|
00002890: 22 9D 20 22 3A 8E 00 85 1B EA 02 8B C6 28 41 24 |". ":........(A$|
000028A0: 29 B2 31 33 33 A7 31 30 30 00 98 1B EE 02 8B C6 |).133.100.......|
000028B0: 28 41 24 29 B3 B1 32 30 A7 37 36 35 00 AC 1B F3 |(A$)..20.765....|
000028C0: 02 8B C3 28 42 24 29 B2 30 A7 82 3A 89 37 33 35 |...(B$).0..:.735|
000028D0: 00 D0 1B F8 02 42 24 B2 C8 28 42 24 2C C3 28 42 |.....B$..(B$,.(B|
000028E0: 24 29 AB 31 29 3A 99 22 9D 20 9D 9D 20 22 3B 3A |$).1):.". .. ";:|
000028F0: 89 37 33 35 00 EA 1B FD 02 8B 41 24 01 05 00 00 |.735......A$....|
00002900: 19 A3 02 8B 28 42 59 AF 38 29 AF 43 28 54 52 AA |....(BY.8).C(TR.|
00002910: 38 29 B1 31 39 A7 53 43 B2 31 39 3A 8D 38 33 35 |8).19.SC.19:.835|
00002920: 00 22 19 A8 02 8B 28 42 59 AF 34 29 AF 43 28 54 |."....(BY.4).C(T|
00002930: 52 AA 38 29 B1 31 38 A7 53 43 B2 31 38 3A 8D 38 |R.8).18.SC.18:.8|
00002940: 33 35 00 44 19 AD 02 8B 28 42 59 AF 32 29 AF 43 |35.D....(BY.2).C|
00002950: 28 54 52 AA 38 29 B1 31 37 A7 53 43 B2 31 37 3A |(TR.8).17.SC.17:|
00002960: 8D 38 33 35 00 66 19 B2 02 8B 28 42 59 AF 31 29 |.835.f....(BY.1)|
00002970: AF 43 28 54 52 AA 38 29 B1 31 36 A7 53 43 B2 31 |.C(TR.8).16.SC.1|
00002980: 36 3A 8D 38 33 35 00 9F 19 B7 02 82 3A A0 32 3A |6:.835......:.2:|
00002990: A0 31 35 3A 4F 50 24 B2 22 22 3A 8D 37 38 30 3A |.15:OP$."":.780:|
000029A0: 4F 50 24 B2 22 44 45 53 54 49 4E 41 54 49 4F 4E |OP$."DESTINATION|
000029B0: 3A 20 20 20 20 22 AA 44 4E 24 3A 8D 37 39 30 00 |: ".DN$:.790.|
000029C0: D3 19 BC 02 42 43 24 B2 22 1C 49 4E 53 45 52 54 |....BC$.".INSERT|
000029D0: 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 | DESTINATION DIS|
000029E0: 4B 20 49 4E 54 4F 20 44 52 49 56 45 1E 22 3A 8D |K INTO DRIVE.":.|
000029F0: 39 36 35 00 01 1A C1 02 8D 39 35 35 01 0C B2 37 |965......955...7|
00002A00: 3A 52 54 B2 31 00 0C 11 7C 01 8D 37 33 30 3A 8B |:RT.1...|..730:.|
00002A10: 42 24 B2 22 22 A7 42 24 B2 22 42 22 00 3A 11 81 |B$."".B$."B".:..|
00002A20: 01 50 4F B2 C6 28 42 24 29 3A 8B 42 24 B2 22 44 |.PO..(B$):.B$."D|
00002A30: 22 A7 4F 50 24 B2 22 44 49 52 45 43 54 20 42 41 |".OP$."DIRECT BA|
00002A40: 43 4B 55 50 22 3A 89 34 30 30 00 4B 11 86 01 8B |CKUP":.400.K....|
00002A50: 42 24 B3 B1 22 42 22 A7 33 37 35 00 67 11 8B 01 |B$.."B".375.g...|
00002A60: 4F 50 24 B2 22 42 41 4D 20 53 45 4C 45 43 54 20 |OP$."BAM SELECT |
00002A70: 42 41 43 4B 55 50 22 00 92 11 90 01 8D 37 38 35 |BACKUP"......785|
00002A80: 3A 4F 50 24 B2 22 22 3A 8D 37 38 30 3A 4F 50 24 |:OP$."":.780:OP$|
00002A90: B2 22 45 4E 54 45 52 20 44 49 53 4B 20 4E 41 4D |."ENTER DISK NAM|
00002AA0: 45 22 00 CA 11 95 01 8D 37 39 35 3A 4F 50 24 B2 |E"......795:OP$.|
00002AB0: 22 44 45 53 54 49 4E 41 54 49 4F 4E 3A 22 3A 8D |"DESTINATION:":.|
00002AC0: 37 39 30 3A 4C 4E B2 31 36 3A 44 4E B2 31 34 3A |790:LN.16:DN.14:|
00002AD0: 52 54 B2 31 37 3A 8D 37 33 30 00 0C 12 9A 01 4C |RT.17:.730.....L|
00002AE0: 4E B2 32 3A 52 54 B2 33 35 3A 8B 42 24 B2 22 22 |N.2:RT.35:.B$.""|
00002AF0: A7 42 24 B2 22 43 42 4D 20 31 35 34 01 0A 84 31 |.B$."CBM 154...1|
00002B00: 35 2C 45 4E 24 2C 45 44 24 2C 45 54 2C 45 53 24 |5,EN$,ED$,ET,ES$|
00002B10: 3A 8B 45 4E 24 B2 22 30 30 22 A7 34 35 30 00 2F |:.EN$."00".450./|
00002B20: 13 BD 01 A0 31 35 3A 4F 50 24 B2 22 22 3A 8D 37 |....15:OP$."":.7|
00002B30: 38 30 3A 8D 38 30 30 3A 4F 50 24 B2 22 22 3A 89 |80:.800:OP$."":.|
00002B40: 34 30 35 00 65 13 C2 01 44 4E 24 B2 22 4E 30 3A |405.e...DN$."N0:|
00002B50: 22 AA 44 4E 24 AA 22 2C 22 AA 44 49 24 3A 98 31 |".DN$.",".DI$:.1|
00002B60: 35 2C 44 4E 24 3A 84 31 35 2C 45 4E 24 2C 45 44 |5,DN$:.15,EN$,ED|
00002B70: 24 2C 45 54 24 2C 45 53 24 00 8F 13 C7 01 A0 31 |$,ET$,ES$......1|
00002B80: 35 3A 8D 38 30 30 3A 8B 45 4E 24 B3 B1 22 30 30 |5:.800:.EN$.."00|
00002B90: 22 A7 3A 4F 50 24 B2 22 22 3A 8D 37 38 30 3A 89 |".:OP$."":.780:.|
00002BA0: 34 30 35 00 9F 13 CC 01 4F 50 24 B2 22 22 3A 8D |405.....OP$."":.|
00002BB0: 37 38 30 00 CE 13 D1 01 42 43 24 B2 22 1C 49 4E |780.....BC$.".IN|
00002BC0: 53 45 52 54 20 53 4F 55 52 43 45 20 44 49 53 4B |SERT SOURCE DISK|
00002BD0: 20 49 4E 54 4F 20 44 52 49 56 45 1E 22 3A 8D 39 | INTO DRIVE.":.9|
00002BE0: 36 35 00 FA 13 E0 01 4F 50 24 B2 22 52 45 41 44 |65.....OP$."READ|
00002BF0: 49 4E 47 20 42 41 4D 20 46 52 4F 4D 01 0B B2 42 |ING BAM FROM...B|
00002C00: 50 AA 32 3A 48 49 B2 B5 28 42 50 AD 32 35 36 29 |P.2:HI..(BP.256)|
00002C10: 3A 4C 4F B2 42 50 AB 28 48 49 AC 32 35 36 29 3A |:LO.BP.(HI.256):|
00002C20: 97 38 33 39 2C 4C 4F 00 2C 1E 4D 03 97 38 34 30 |.839,LO.,.M..840|
00002C30: 2C 48 49 3A 8D 38 32 30 3A 9E 38 32 38 3A 8D 38 |,HI:.820:.828:.8|
00002C40: 32 30 3A 84 31 35 2C 45 4E 24 2C 45 44 24 2C 45 |20:.15,EN$,ED$,E|
00002C50: 54 24 2C 45 53 24 00 3F 1E 52 03 8B 45 4E 24 B3 |T$,ES$.?.R..EN$.|
00002C60: B1 22 30 30 22 A7 39 38 30 00 5A 1E 57 03 42 50 |."00".980.Z.W.BP|
00002C70: B2 42 50 AA 32 35 36 3A 8B 42 50 AA 32 35 36 B3 |.BP.256:.BP.256.|
00002C80: 45 42 A7 8E 00 91 1E 5C 03 A0 32 3A A0 31 35 3A |EB.....\..2:.15:|
00002C90: 4F 50 24 B2 22 22 3A 8D 37 38 30 3A 4F 50 24 B2 |OP$."":.780:OP$.|
00002CA0: 22 44 45 53 54 49 4E 41 54 49 4F 4E 3A 20 20 20 |"DESTINATION: |
00002CB0: 20 22 AA 44 4E 24 3A 8D 37 39 30 00 C5 1E 61 03 | ".DN$:.790...a.|
00002CC0: 42 43 24 B2 22 1C 49 4E 53 45 52 54 20 44 45 53 |BC$.".INSERT DES|
00002CD0: 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 49 4E |TINATION DISK IN|
00002CE0: 54 4F 20 44 52 49 56 45 1E 22 3A 8D 39 36 35 00 |TO DRIVE.":.965.|
00002CF0: F8 1E 66 03 8D 39 35 35 3A 8B 49 44 01 0C B2 37 |..f..955:.ID...7|
00002D00: 3A 52 54 B2 31 00 0C 11 7C 01 8D 37 33 30 3A 8B |:RT.1...|..730:.|
00002D10: 42 24 B2 22 22 A7 42 24 B2 22 42 22 00 3A 11 81 |B$."".B$."B".:..|
00002D20: 01 50 4F B2 C6 28 42 24 29 3A 8B 42 24 B2 22 44 |.PO..(B$):.B$."D|
00002D30: 22 A7 4F 50 24 B2 22 44 49 52 45 43 54 20 42 41 |".OP$."DIRECT BA|
00002D40: 43 4B 55 50 22 3A 89 34 30 30 00 4B 11 86 01 8B |CKUP":.400.K....|
00002D50: 42 24 B3 B1 22 42 22 A7 33 37 35 00 67 11 8B 01 |B$.."B".375.g...|
00002D60: 4F 50 24 B2 22 42 41 4D 20 53 45 4C 45 43 54 00 |OP$."BAM SELECT.|
00002D70: 10 7A |.z |
.......1000.%...."@0:DI-BACKUP",8,1:../.
...1100.P... 15,8,15:.15,8,15: 15,8,15:.
...D..5,8,9,14,17,18,19,20,28,29,30,31,1
29,142,144,145,146,147,148.C.N..149,150,
151,152,153,154,155,156,157,158,159...H.
A$."":.A$:.A$.."".200...K.A1.0:TL.0:A1$.
""...M..A$...O.TL.TL.1:.TL.25..250.!.R..
A$."".205.U.W..A$.C$(8).A1.0.A1$.H(A1$,C
(A1$).1):.270:A1.A1.1.T....A$.G(13).F1.1
:A$.A1$:.250......A$.G(31).A$.G(91).A1.A
.A1$.A1$.A$:.A$;:A1.A1.1......205......F
1.0..C$(6);" ";C$(17);C$(28);:F1.1:.260.
.....F1.1.." ";C$(28);:F1.0.....TL.0:...
...:......C$(28);" ";C$(28);C$(28);:..;
....G(147);.U....A.0.A.1:. "DI-4",8,1.H.
..A.14492:.51600.T.L.. 51700...O.. 57000
...Q.. 56000...V..50000...`..F1.1.F1.0:.
1105.Q.J.A$."FULL COPY OR BAM COPY (F/B)
"...T.A.1:.51800...~..A$.."F".A$.."B".11
30.....CM$.A$......55000...R..50400.*.|.
TN.18:SN.0.5...BP.192.H....251,0:.252,BP
.S....51100.\....890.G....51200.}....F1.
1.F1.0:.51900...B..F2.1.F2.0:.50500:.110
5...L..F2.2.F2.3.4220.E.V..F2.4..50500:.
10070.P....50500.Y...TN.1.....SN.0.....M
S.20....'.C$(7);:F3.3....'.F3..3..55000.
...'F3.0.(..'BT.TN:BS.SN.4..'. 40000.D..
'.F1.1.10060.P.$'. 41000.\..'. 42000.L.3
'.F1.1.10070.}.8'.TN.35.10005...L'.58000
...V'.62000...@.. 50400...B.WR$."READING
".A.E.. BP.58.159.Y.G.F2.0:F1.0:OA.0:F3.
0...J.. 51000...K..F1.1.F1.0:BP.159:.:.4
2092...L.. 50600.+.O..CM$."B"..56300:.40
017.4.P.F3.1.M.Q..F3.0.SN.SN.1:.40010.Y.
T.. 51100.L.^..251,0:.252,BP...C..56334,
B(56334).254...E.. 890...F..56334,B(5633
4).1...H.. 51200.F.R..F1.1.F1.0:.51900..
.|..F2.2.F2.3.40020......F2.1..BP.159.SN
.SN.1:.BP......F2.4.BP.159:.BP:F1.1:..!.
..SN.SN.1.*.... BP.6.... 50500.<.....I.(
A$."LOAD DESTINATION DISK, PRESS RETURN
".U.2 . 46000.{.< ......TN.BT:SN.BS:.- S
TARTING TRACK AND SECOTOR.....WR$."WRITI
NG".G.... 50400.R....51400...... BP.58.1
59.....F2.0:F1.0:OA.0...... 51000. ....F
1.1.F1.0:BP.159:.:.42092.,.... 50600.G..
..CM$."B"..56300:.42017.P. .F3.1.I.!..F3
.0.SN.SN.1:.42010.|....251,0:.252,BP...3
..51500...5.. 897...6..51550...8.. 51300
...=.. 51200.J.B..F1.1.F1.0:.51900...L..
F2.2.F2.3.42017...Q..F2.1..BP.159.SN.SN.
1:.BP...V..F2.4.BP.159:.BP:F1.1:..%.`.SN
.SN.1...J.. BP.:.L.. 50500.@.O...M....C$
(7);D$(3);H(C$(31),6);.20.C(A$).2);A$.Z.
...X.1.100......A1$...D..A1$.G(13)..4610
0. .N..X...X..46100......X.1.50.A.... A1
$.R....A1$.G(13)...Y....X...... 46000...
...C$(7);H(C$(31),6);.20.C(A$).2);H(C$(3
2),C(A$)).......Z....C$(7);D$(3);H(C$(31
),6);.20.C(A$).2);A$:.- PRINT MSG..`....
......C$(7);H(C$(31),6);.20.C(A$).2);H(C
$(32),C(A$)).......G.PCA$."LOAD DESTINAT
ION DISK, PRESS RETURN".S.ZC. 46000....C
A$."DISK NAME":A.18:.51800:NA$.A$:.- INP
UT DISK NAME H.E.HCA$."ID NU
MBER (TWO DIGITS)":A.2:.51800.A.RCID$.A$
:.C(ID$)..2.50120....CA$."FORMATING DEST
INATION DISK":.47000....C.15,8,15....CEX
$."NEW0:".NA$.",".ID$.A..C.15,EX$.T..C.1
5,ER,ER$,T,S....D.47100....D 15,8,15....
D.ER$.."OK"..50300....D..E.|D.".........
.........AN ERROR HAS OCCURED DURRING FO
RMAT".N..D."'NEW' OPPERATION HAS BEEN AB
ORTED"....D."PRESS 'RETURN'"....D.A$....
D.A$..G(13).50330....DF1.1:.....D 5: 15.
D..D.15,8,15.S..D.5,8,5,"#"....D.51040..
..D....DE 5: 15:.....E.C$(7);H(C$(31),10
);.7..E..2);D$(1);WR$,TN;". ",SN;". ",BP
;". ":..E.8G.SN..MS...V.BGTN.TN.1:SN.0.H
.LG.TN.35.F1.1:....`GMS.20.((TN.17).2).(
TN.24).(TN.30)...EG.TN.18.SN.0.SN.SN.1..
.JG..C..G.15,"U1";5;0;TN;SN.I..G..X..H.1
5,ER,ER$....H.ER.19.F1.1:.....H.F2.3..51
975....HF2.0....H....DH.15,"B-P";5;0.3.I
H.15,"U2";5;0;TN;SN.9.NH..F.HH.51300:..^
.,I.56334,B(56334).254.D.6I..Z.^I.56334,
B(56334).1...HI.....IA1..(A.256)....IA2.
.(A.(256.A1))....I.51,A2:.52,A1.I..I.55,
A2:.56,A1.O.BI.....I.C$(32)....I.....J.X
.1.30....J.A:C$(X).G(A):.....J.X.1.24.%.
&JC$(31).C$(31).C$(5).+.0J..A.:JC$(32)."
".G.DJ....XJ.C$(7);D$(3);H(C$(31),14);.2
);A$;" ";:.200.Y.BJ.C$(7);.2);H(C$(31),1
4);"
"...LJ.....J.50500:OA.OA.1....J.F2.3..51
950."..J.C$(7);H(C$(31),12);D$(1);.Q.AJ.
.2) "!! ERROR NUMBER";ER;"HAS OCCURED !!
".^.FJ..3);ER$.H.PJ.:.:....UJ." S>KIP":
." R>ETRY":." N>ONSTOP":." A>BORT BAC
KUP".S.WJ.A$:.A$.."S".A$.."R".A$.."N".A$
.."A".51927...ZJ.A$."S".F2.1:.51975....J
.A$."R".F2.2:.51975....J.A$."N".F2.3:.51
975.3..J.A$."A".F2.4:.51975.N..J.C$(7);:
.- HOME CURSOR.V..JA$."OPERATION ATTEMPT
NUMBER".D(OA)....J.H(C$(31),13);.2);A$.
...J.A$:.A$."X".F2.0:.51975:.51900....K.
51996....K.C$(7);H(C$(31),12);D$(1);...
.K..2);"
".<..K..2);"
".F..K.:.:..U..K..2);"
"....K..2);"
".S..
K..2);"
"....K..2);"
"....K.50400:..<.XVA$."INSERT S
OURCE DISK AND PRESS RETURN".H..V. 46000
.N..V..A..Z.C$(18);D$(3);.Z.EZ. 53281,CB
:.53280,CT...JZ." UDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDI"...TZ.X.1.14.H..Z." G";
.38);"H".N..Z.....Z." JFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFK"....Z.C$(7);C$(5);.
*.....15)D$(1);"DI-BACKUP".J.....10);"BY
BRUCE Q. HAMMOND".U....X.1.3...$...2)D$
(2)"....................................
"......H(C$(31),3); ...8.
....=..C$(7);H(C$(31),4);.9);"OPERATOR I
NSTRUCTIONS"...B..C$(7);H(C$(31),8);.(.L
...2);"STATUS","TRACK","SECTOR","BUFFER"
.......@...RB.TN.4.49153.....SN.7.RB.RB
.1:.SN.15.RB.RB.1:.- SELECT PROPER BYTE
TO READ.....MOD..(SN.8):MOD.SN.(8.MOD)..
....B(RB).2.MOD.F3.0:..A...F3.1:..G.....
.....2,8,2,"0@:DI-5,S,R"......X.1.3.....
.2,D$(X)...F..X...P..2,CB,CT...Z. 2,8,2.
......(....50400.7...TN.18:SN.0.B...BP.1
92.U....251,0:.252,BP.E....X.1.C(NA$)...
...BP.256.X.143,F(J(NA$,X,1))......X....
..X.C(NA$).17.C(NA$)......BP.256.X.144,1
60.A.&..X...:..BP.256.162,F(H(ID$,1))...
D..BP.256.163,F(I(ID$,1))...K..51400...N
..897...X..51300.#.B..51200.9.L..F1.1.F1
.0:.51900.J.V..F2.1.F2.4..._....F2.2.F2.
3.58010.E.....P.0. 5: 15...5.A.40959:.51
600...7.A$."LOAD DI-SECTOR DISK, PRESS R
ETURN":.46000.P.:..198,2:.631,13:.632,13
...D..C$(18);H(C$(31),12);.10);"NOW LOAD
ING DI-SECTOR"...S.. 646,B(53281).P.X..C
$(7);H(C$(31),2)"LOAD"G(34)"DI-SECTOR"G(
34);",8".G.]..H(C$(31),4);"RUN".S.B..C$(
7);..... 53100:.".";:.- OH NO!! AN ERROR
. .L..F1.40120...V.F1.0.....:.F....- DIS
PLAY THE MAP.L...:.V....".";......" 1234
56789.0123456789.0123456789.012345":.- T
RACK INDEX ROW.......+....X.0.9 :.:.&..I
(D(X),1).A.:..X._.D..- MAKE SECTOR INDEX
COL..J.N..X.0.9.}.X..".";I(D(X),1)...L.
.X......"0";.....:......- MAKE BIT TABLE
.....:.F...X.49153:TN.1:SN.0......TN.1.3
5:.- TRACK LOOP.....RB.TN.4.X:.- LOC...1
5,EN$,ED$,ET,ES$:.EN$."00".450./... 15:O
P$."":.780:.800:OP$."":.405.E.B.DN$."N0:
".DN$.",".DI$:.15,DN$:.15,EN$,ED$,ET$,ES
$...G. 15:.800:.EN$.."00".:OP$."":.780:.
405...L.OP$."":.780.N.Q.BC$.".INSERT SOU
RCE DISK INTO DRIVE.":.965.....OP$."READ
ING BAM FROM...BP.2:HI..(BP.256):LO.BP.(
HI.256):.839,LO.,.M..840,HI:.820:.828:.8
20:.15,EN$,ED$,ET$,ES$.?.R..EN$.."00".98
0.Z.W.BP.BP.256:.BP.256.EB.....\. 2: 15:
OP$."":.780:OP$."DESTINATION: ".DN$:.
790.E.A.BC$.".INSERT DESTINATION DISK IN
TO DRIVE.":.965...F..955:.ID...7:RT.1...
|..730:.B$."".B$."B".:...PO.F(B$):.B$."D
".OP$."DIRECT BACKUP":.400.K....B$.."B".
375.G...OP$."BAM SELECT BACKUP"......785
:OP$."":.780:OP$."ENTER DISK NAME".J....
795:OP$."DESTINATION:":.790:LN.16:DN.14:
RT.17:.730.....LN.2:RT.35:.B$."".B$."CBM
154..." ".A$."Z"..:.735......C(B$).LN.B
$.B$.A$:."."A$".";:.735......:.735.A....
"....................."BL$OP$:..Y...."..
......"BL$OP$:..X...."..............."BL
$OP$:.. ...."........................"BL
$OP$:..L. . 2: 15:OP$.EN$.", ".ED$.",".E
T$.",".ES$...%..".......................
........K".=.J.."U.DISK STATUS..........
...............I".L.O..".
."...T.."J........
.............................K".J.Y.."U.
EXECUTING...........................I"..
.^..". ..:.
ID$.I(DN$,2).EN$."00":ED$."OK":.715.@.F.
EN$."*1":ED$."SOURCE ID FOUND":ET$."00":
ES$."00":.800:.700.R.K..800:OP$."WRITING
DATA FROM BUFFER":.780:.910...P.OP$."BA
CKUP FINISHED":.780:OP$."":.810:.785:.79
0...U.BC$.".REMOVE DESTINATION DISK FROM
DRIVE.":.96.....L.BY.255.F(BM$(TC.2))..
.Q..BY.128.SC.15:.835.%.V..BY.64.SC.14:.
835.;.{..BY.32.SC.13:.835.Q....BY.16.SC.
12:.835.F....BY.8.SC.11:.835.{....BY.4.S
C.10:.835......BY.2.SC.9:.835......BY.1.
SC.8:.835.....BY.255.F(BM$(TC.3))......(
BY.16).C(TR.8).20.SC.20:.835..5:.ID$.I(S
N$,2).EN$."00":ED$."OK":.800:.905.? ..EN
$."*2":ED$."DESTINATION ID FOUND":ET$."0
0":ES$."00":.800:.890. ..OP$."READING D
ATA INTO BUFFER":.780:.15,DI,15:.2,DI,2,
"#":... ..BP.SB:.15,DI,15:.2,DI,2,"#":BR
.1.P ...(B(BP).0.B(BP.1).0).BP.256.EB. 1
5: 2..".ID NUMBERS ARE NOT UNIQUE.":.965
:.100. ....790:OP$."":.780.O...BC$.".VER
IFY SOURCE DISK FOR BACKUP.":.965.`.!..A
$.."N".555..&.OP$."":.780:.790:.810:.46
5...+.OP$."READING DATA INTO BUFFER":.78
0.I.0..PO.68..A.1.140:BM$(A).G(0):....5.
.15,DI,15:.2,DI,2,"#..0.1..!...(BP.164.A
),F(J(DN$,18.A,1)):.:.925.3"...15,DI,15:
.2,DI,2,"#":.15,"U1";2;0;18;0:.15,"B-P:"
2;162.X"...#2,A$:.#2,B$: 2: 15:ID$.A$.B$
:..U"E.OP$.BC$:.795:.A.1.75:.A$.."J..A$.
""..:OP$."":.795:.A.1.75:.A$:.A$.""..:.9
65.C"O.OP$."":.795:.A$.."."...L"P..1.. S
OURCE DISK":.780.4....15,DI,15:.2,DI,2,"
#":.15,"U1";2;0;18;0:.15,"B-P:"2;1.L....
#2,A$:.#2,A$:.#2,A$:.A.1.140:.#2,A$:.A$.
"".A$.G(0).....BM$(A).A$:.:.15,EN$,ED$,E
T$,ES$:.EN$.."00"...T....15,"B-P";2;144:
SN$."":.A.1.20:.#2,A$:SN$.SN$.A$:......
2: 15:SN$.H(..$.I(DN$,2).EN$."00":ED$."O
K":.800:.880.7.K.EN$."*1":ED$."SOURCE ID
FOUND":ET$."00":ES$."00":.800:.865.U.P.
OP$."WRITING DATA FROM BUFFER":.780:.910
:.815:OP$."":.780...U.OP$."SOURCE:
".SN$:.790.H.Z.BC$.".INSERT SOURCE DI
SK INTO DRIVE.":.965.....95..1 BACKUP":
OP$.OP$." ".B$:.790.C...DN$.B$:.".".3
4)",":OP$."ENTER DISK ID NUMBER":.795.[.
...730:.B$."".B$."64".X....".".35)B$:DI$
.B$:.198,0.....BC$.".INSERT DESTINATION
DISK INTO DRIVE.":.965......810:OP$."FOR
MATING DESTINATION DISK":.780......15,DI
,15:................."BL$OP$:....*.."...
..............."BL$:..4./..A.SB.EB.258:.
A,0:.A.1,0:.:BP.SB:..^.4..BR.0.PT.PT.1:.
PT.8.PT.1:SP.SP.1:.830...9..BR.1.PT.PT.1
:.PT.0.PT.7:SP.SP.1...>..SP,C(PT):....C.
BR.0:.15,"U1:"2;0;TR;SC:.15,"B-P:"2;0...
H..BP,TR:.BP.1,SC:BP.. .".(.C.."J.
....................................K".W
.H.."U.OPERATOR INTERVENTION............
...I"...M..".
."...R.."J....................
.................K."...W.OP$."ENTER THE
PROGRAM OPERATION CODE":.795:LN.1:DN..5:
.100...Z.B$."":.H(".....................
.....",DN).RT)" ";.9...."..";:.A.1.55:.A
$:.A$.."".745.\....:.". ";:.A.1.55:.A$."
"..:.735.R....F(A$).13..". ":.......F(A$
).133.100......F(A$)..20.765......C(B$).
0..:.735.P...B$.H(B$,C(B$).1):.". .. ";:
.735......A$........(BY.8).C(TR.8).19.SC
.19:.835."....(BY.4).C(TR.8).18.SC.18:.8
35.D....(BY.2).C(TR.8).17.SC.17:.835.F..
..(BY.1).C(TR.8).16.SC.16:.835......: 2:
15:OP$."":.780:OP$."DESTINATION: ".D
N$:.790.S...BC$.".INSERT DESTINATION DIS
K INTO DRIVE.":.965...A..955...7:RT.1...
|..730:.B$."".B$."B".:...PO.F(B$):.B$."D
".OP$."DIRECT BACKUP":.400.K....B$.."B".
375.G...OP$."BAM SELECT BACKUP"......785
:OP$."":.780:OP$."ENTER DISK NAME".J....
795:OP$."DESTINATION:":.790:LN.16:DN.14:
RT.17:.730.....LN.2:RT.35:.B$."".B$."CBM
154...15,EN$,ED$,ET,ES$:.EN$."00".450./
... 15:OP$."":.780:.800:OP$."":.405.E.B.
DN$."N0:".DN$.",".DI$:.15,DN$:.15,EN$,ED
$,ET$,ES$...G. 15:.800:.EN$.."00".:OP$."
":.780:.405...L.OP$."":.780.N.Q.BC$.".IN
SERT SOURCE DISK INTO DRIVE.":.965.....O
P$."READING BAM FROM...BP.2:HI..(BP.256)
:LO.BP.(HI.256):.839,LO.,.M..840,HI:.820
:.828:.820:.15,EN$,ED$,ET$,ES$.?.R..EN$.
."00".980.Z.W.BP.BP.256:.BP.256.EB.....\
. 2: 15:OP$."":.780:OP$."DESTINATION:
".DN$:.790.E.A.BC$.".INSERT DESTINATION
DISK INTO DRIVE.":.965...F..955:.ID...7
:RT.1...|..730:.B$."".B$."B".:...PO.F(B$
):.B$."D".OP$."DIRECT BACKUP":.400.K....
B$.."B".375.G...OP$."BAM SELECT..Z
> CLICK IMAGE PREVIEW FOR FULL MODAL