DISKVIEW
FILE INFORMATION
FILENAME(S): DISKVIEW
FILE TYPE(S): PRG
FILE SIZE: 12.7K
FIRST SEEN: 2025-11-30 21:28:18
APPEARS ON: 1 disk(s)
FILE HASH
dbbba1f808281b97dc07a05d108942c706ec88005603221f2f5d8388919ed30c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RON 64 A | DISKVIEW | PRG | DuncanTwain | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 05 00 8F 20 50 45 54 45 52 20 4A 2E |....... PETER J.|
00000010: 20 50 4F 4E 5A 4F 00 32 08 0A 00 97 35 33 32 38 | PONZO.2....5328|
00000020: 31 2C 36 3A 97 35 33 32 38 30 2C 36 3A 8D 38 30 |1,6:.53280,6:.80|
00000030: 30 30 00 40 08 64 00 8F 2A 2A 2A 2A 2A 2A 2A 2A |00.@.d..********|
00000040: 00 4E 08 65 00 8F 2A 20 20 20 20 20 20 2A 00 5C |.N.e..* *.\|
00000050: 08 66 00 8F 2A 20 4D 45 4E 55 20 2A 00 6A 08 67 |.f..* MENU *.j.g|
00000060: 00 8F 22 20 B8 B8 B8 B8 20 2A 00 78 08 68 00 8F |.." .... *.x.h..|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 00 90 08 69 00 A0 31 35 |********...i..15|
00000080: 3A 9F 31 35 2C 38 2C 31 35 3A 99 C7 28 31 34 29 |:.15,8,15:..(14)|
00000090: 00 9C 08 6E 00 99 22 93 22 53 30 24 00 BF 08 73 |...n.."."S0$...s|
000000A0: 00 99 22 11 12 31 92 3A CC 4F 41 44 20 42 4C 4F |.."..1.:.OAD BLO|
000000B0: 43 4B 20 49 4E 54 4F 20 42 55 46 46 45 52 22 00 |CK INTO BUFFER".|
000000C0: E4 08 78 00 99 22 11 12 32 92 3A D3 45 45 20 C1 |..x.."..2.:.EE .|
000000D0: D3 C3 C9 C9 20 4F 46 20 41 42 4F 56 45 20 42 4C |.... OF ABOVE BL|
000000E0: 4F 43 4B 22 00 03 09 82 00 99 22 11 12 33 92 3A |OCK"......"..3.:|
000000F0: CD 4F 44 49 46 59 20 41 42 4F 56 45 20 42 4C 4F |.ODIFY ABOVE BLO|
00000100: 43 4B 22 00 28 09 8C 00 99 22 11 12 34 92 3A D3 |CK".(...."..4.:.|
00000110: 54 4F 52 45 20 41 42 4F 56 45 20 42 4C 4F 43 4B |TORE ABOVE BLOCK|
00000120: 20 49 4E 20 D2 C1 CD 22 00 4F 09 96 00 99 22 11 | IN ...".O....".|
00000130: 12 35 92 3A D7 52 49 54 45 20 42 4C 4F 43 4B 20 |.5.:.RITE BLOCK |
00000140: 49 4E 20 D2 C1 CD 20 54 4F 20 44 49 53 4B 22 00 |IN ... TO DISK".|
00000150: 72 09 A0 00 99 22 11 12 36 92 3A C2 4C 4F 43 4B |r...."..6.:.LOCK|
00000160: 20 C1 56 41 49 4C 41 42 49 4C 49 54 59 20 CD 41 | .VAILABILITY .A|
00000170: 50 22 00 8C 09 AA 00 99 22 11 12 37 92 3A C4 49 |P"......"..7.:.I|
00000180: 53 4B 20 C3 4F 4D 4D 41 4E 44 53 22 00 A4 09 B4 |SK .OMMANDS"....|
00000190: 00 99 22 11 12 38 92 3A D4 52 41 43 45 20 C2 4C |.."..8.:.RACE .L|
000001A0: 4F 43 4B 53 00 C0 09 B9 00 99 22 11 12 39 92 3A |OCKS......"..9.:|
000001B0: D5 4E 53 43 52 41 54 43 48 20 41 20 C6 49 4C 45 |.NSCRATCH A .ILE|
000001C0: 00 D9 09 BA 00 99 22 11 12 D2 C5 D4 D5 D2 CE 92 |......".........|
000001D0: 20 54 4F 20 D1 55 49 54 22 00 ED 09 C6 00 8D 33 | TO .UIT"......3|
000001E0: 31 30 3A 8B 49 4E B2 30 A7 37 39 30 30 00 22 0A |10:.IN.0.7900.".|
000001F0: C7 00 91 49 4E 8D 31 30 30 30 2C 32 30 30 30 2C |...IN.1000,2000,|
00000200: 33 30 30 30 2C 34 30 30 30 2C 35 30 30 30 2C 36 |3000,4000,5000,6|
00000210: 30 30 30 2C 37 30 30 30 2C 37 31 30 30 2C 37 35 |000,7000,7100,75|
00000220: 30 30 00 2B 0A C8 00 89 31 30 35 00 36 0A 2C 01 |00.+....105.6.,.|
00000230: 8F 20 20 47 45 54 00 41 0A 2D 01 8F 22 20 B8 B8 |. GET.A.-.." ..|
00000240: B8 00 5A 0A 31 01 99 22 11 12 D2 C5 D4 D5 D2 CE |..Z.1.."........|
00000250: 92 20 54 4F 20 43 4F 4E 54 22 00 70 0A 36 01 A1 |. TO CONT".p.6..|
00000260: 49 4E 24 3A 8B 49 4E 24 B3 B1 22 22 A7 33 31 30 |IN$:.IN$.."".310|
00000270: 00 85 0A 40 01 A1 49 4E 24 3A 8B 49 4E 24 B2 22 |...@..IN$:.IN$."|
00000280: 22 A7 33 32 30 00 95 0A 4A 01 49 4E B2 C5 28 49 |".320...J.IN..(I|
00000290: 4E 24 29 3A 8E 00 B2 0A E8 03 8F 20 4C 4F 41 44 |N$):....... LOAD|
000002A0: 20 42 4C 4F 43 4B 20 49 4E 54 4F 20 42 55 46 46 | BLOCK INTO BUFF|
000002B0: 45 52 00 CF 0A E9 03 8F 22 B8 B8 B8 B8 B8 B8 B8 |ER......".......|
000002C0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |................|
000002D0: 00 0B F2 03 A0 33 3A A0 31 35 3A 9F 31 35 2C 38 |.....3:.15:.15,8|
000002E0: 2C 31 35 3A 9F 33 2C 38 2C 33 2C 22 23 22 3A A1 |,15:.3,8,3,"#":.|
000002F0: 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 |#3,BN$:BN..(BN$)|
00000300: 00 29 0B F7 03 42 4E 24 B2 CA 28 42 4E 24 2C 32 |.)...BN$..(BN$,2|
00000310: 29 3A 42 4D B2 42 4E AA 31 37 AA 31 32 AC B5 28 |):BM.BN.17.12..(|
00000320: 28 42 4E AA 31 29 AD 34 29 00 40 0B FC 03 98 31 |(BN.1).4).@....1|
00000330: 35 2C 22 42 2D 50 22 3B 33 3B 31 3A 99 22 93 22 |5,"B-P";3;1:."."|
00000340: 00 55 0B 06 04 81 4B B2 30 A4 31 30 3A 98 33 2C |.U....K.0.10:.3,|
00000350: 4B 24 3B 3A 82 00 6B 0B 10 04 99 22 93 22 AA 53 |K$;:..k....".".S|
00000360: 44 24 AA 22 11 11 11 11 11 11 22 00 8C 0B 1A 04 |D$."......".....|
00000370: 85 22 12 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 |."......,.......|
00000380: 20 20 20 A6 9D 9D 9D 22 3B 54 2C 53 00 A3 0B 24 | ....";T,S...$|
00000390: 04 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 3B |..15,"B-R";3;DR;|
000003A0: 54 3B 53 00 B5 0B 2E 04 98 31 35 2C 22 42 2D 50 |T;S......15,"B-P|
000003B0: 22 3B 33 3B 30 00 CF 0B 38 04 A1 23 33 2C 5A 24 |";3;0...8..#3,Z$|
000003C0: 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 C7 28 30 29 00 |:.Z$."".Z$..(0).|
000003D0: E4 0B 42 04 43 28 30 29 B2 C6 28 5A 24 29 3A 8D |..B.C(0)..(Z$):.|
000003E0: 31 32 30 30 00 1C 0C 60 04 99 22 13 12 D2 C5 D4 |1200...`..".....|
000003F0: D5 D2 CE 20 54 4F 20 54 45 52 4D 49 4E 41 54 45 |... TO TERMINATE|
00000400: 22 3A 43 52 54 B2 30 31 30 36 39 3A 99 C4 28 43 |":CRT.01069:..(C|
00000410: 28 30 29 29 C4 28 43 28 31 29 29 3B 00 4A 0C 6A |(0)).(C(1));.J.j|
00000420: 04 4A B2 32 3A 81 49 B2 32 A4 32 35 35 3A 98 31 |.J.2:.I.2.255:.1|
00000430: 35 2C 22 4D 2D 52 22 3B C7 28 49 29 3B C7 28 42 |5,"M-R";.(I);.(B|
00000440: 4D 29 3A 49 25 B2 49 AD 33 32 00 65 0C 74 04 A1 |M):I%.I.32.e.t..|
00000450: 23 31 35 2C 42 24 3A 8B 42 24 B2 22 22 A7 42 24 |#15,B$:.B$."".B$|
00000460: B2 C7 28 30 29 00 80 0C 7E 04 43 28 49 29 B2 C6 |..(0)...~.C(I)..|
00000470: 28 42 24 29 3A 8B 54 B3 B1 44 49 A7 31 31 36 35 |(B$):.T..DI.1165|
00000480: 00 9A 0C 88 04 8B 53 B1 30 AF 49 25 AC 33 32 B2 |......S.0.I%.32.|
00000490: 49 AB 35 A7 8D 31 30 30 30 30 00 B2 0C 89 04 8B |I.5..10000......|
000004A0: 53 B1 30 AF 49 25 AC 33 32 B2 49 A7 8D 31 31 30 |S.0.I%.32.I..110|
000004B0: 30 30 00 C2 0C 8D 04 97 43 52 54 AA 4A 2C 43 28 |00......CRT.J,C(|
000004C0: 49 29 00 D8 0C 92 04 A1 41 24 3A 8B 41 24 B3 B1 |I)......A$:.A$..|
000004D0: 22 22 A7 8D 31 31 39 35 00 E4 0C 9C 04 4A B2 4A |""..1195.....J.J|
000004E0: AA 31 3A 82 00 FF 0C A6 04 A0 33 3A A0 31 35 3A |.1:.......3:.15:|
000004F0: 99 53 44 24 22 91 91 22 3A 8D 33 30 30 3A 8E 00 |.SD$"..":.300:..|
00000500: 33 0D AB 04 99 53 44 24 22 11 11 11 11 12 C2 CC |3....SD$".......|
00000510: CF C3 CB 20 C8 C1 D3 20 CE CF D4 20 C2 C5 C5 CE |... ... ... ....|
00000520: 20 C3 CF CD D0 CC C5 D4 C5 CC D9 20 CC CF C1 C4 | .......... ....|
00000530: C5 C4 22 00 6D 0D AC 04 85 22 2E 2E 57 41 4E 54 |..".m...."..WANT|
00000540: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 4C 4F 41 | TO CONTINUE LOA|
00000550: 44 49 4E 47 20 20 20 4E 9D 9D 9D 22 3B 4E 24 3A |DING N...";N$:|
00000560: 8B 4E 24 B2 22 4E 22 A7 49 B2 32 35 36 00 9E 0D |.N$."N".I.256...|
00000570: AD 04 99 53 44 24 22 91 91 20 20 20 20 20 20 20 |...SD$".. |
00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 C7 | "..|
000005A0: 0D AE 04 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005C0: 20 20 20 20 20 20 22 00 CD 0D AF 04 8E 00 DD 0D | ".........|
000005D0: B0 04 8F 20 43 28 30 29 2F 43 28 31 29 00 ED 0D |... C(0)/C(1)...|
000005E0: B1 04 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 04 0E |..."............|
000005F0: BA 04 99 53 44 24 3A 98 31 35 2C 22 42 2D 50 22 |...SD$:.15,"B-P"|
00000600: 3B 33 3B 31 00 1E 0E C4 04 A1 23 33 2C 42 24 3A |;3;1......#3,B$:|
00000610: 8B 42 24 B2 22 22 A7 42 24 B2 C7 28 30 29 00 2D |.B$."".B$..(0).-|
00000620: 0E CE 04 43 28 31 29 B2 C6 28 42 24 29 00 61 0E |...C(1)..(B$).a.|
00000630: D8 04 8B 43 28 30 29 B2 30 A7 99 53 44 24 3A 99 |...C(0).0..SD$:.|
00000640: 22 CC 41 53 54 20 D4 52 41 43 4B 22 3A 99 22 C2 |".AST .RACK":.".|
00000650: 59 54 45 53 20 D5 53 45 44 3D 22 43 28 31 29 3A |YTES .SED="C(1):|
00000660: 8E 00 91 0E E2 04 99 53 44 24 3A 99 22 CE 45 58 |.......SD$:.".EX|
00000670: 54 20 D4 52 41 43 4B 3D 22 43 28 30 29 3A 99 22 |T .RACK="C(0):."|
00000680: CE 45 58 54 20 D3 45 43 54 4F 52 3D 22 43 28 31 |.EXT .ECTOR="C(1|
00000690: 29 00 A7 0E EC 04 4E 54 B2 43 28 30 29 3A 4E 53 |).....NT.C(0):NS|
000006A0: B2 43 28 31 29 3A 8E 00 B9 0E D0 07 8F 20 50 52 |.C(1):....... PR|
000006B0: 49 4E 54 20 41 53 43 49 49 00 CB 0E D1 07 8F 22 |INT ASCII......"|
000006C0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 E2 0E D2 07 |................|
000006D0: 49 4A B2 30 3A 49 49 B2 32 35 35 AB 38 3A 99 22 |IJ.0:II.255.8:."|
000006E0: 93 22 00 21 0F D5 07 99 22 13 12 D2 C5 D4 D5 D2 |.".!....".......|
000006F0: CE 20 54 4F 20 44 49 53 43 4F 4E 54 49 4E 55 45 |. TO DISCONTINUE|
00000700: 20 50 52 49 4E 54 49 4E 47 2E 2E 22 3A 99 53 30 | PRINTING..":.S0|
00000710: 24 3A 41 42 B2 33 31 3A 45 45 24 B2 22 92 20 12 |$:AB.31:EE$.". .|
00000720: 22 00 53 0F DA 07 81 49 B2 30 A4 49 49 A9 38 3A |".S....I.0.II.8:|
00000730: 59 24 B2 C4 28 49 29 3A 59 24 B2 22 91 22 AA C9 |Y$..(I):Y$."."..|
00000740: 28 22 20 20 22 AA 59 24 2C 33 29 3A 45 30 24 B2 |(" ".Y$,3):E0$.|
00000750: 45 45 24 00 81 0F DC 07 99 22 12 22 43 4C 24 3A |EE$......"."CL$:|
00000760: 99 22 12 22 59 24 22 92 2D 3E 22 3B 3A 81 4A B2 |."."Y$".->";:.J.|
00000770: 30 A4 37 3A 48 B2 49 AA 4A 3A 43 35 B2 43 28 48 |0.7:H.I.J:C5.C(H|
00000780: 29 00 A0 0F DD 07 8B 43 35 B1 41 42 A7 45 30 24 |)......C5.AB.E0$|
00000790: B2 45 30 24 AA C7 28 43 35 29 3A 89 32 30 31 35 |.E0$..(C5):.2015|
000007A0: 00 B0 0F DE 07 45 30 24 B2 45 30 24 AA 22 20 22 |.....E0$.E0$." "|
000007B0: 00 CD 0F DF 07 45 24 B2 C9 28 22 20 20 20 22 AA |.....E$..(" ".|
000007C0: CA 28 C4 28 43 35 29 2C 32 29 2C 33 29 00 EA 0F |.(.(C5),2),3)...|
000007D0: E4 07 99 52 24 28 50 29 45 24 52 24 28 31 AB 50 |...R$(P)E$R$(1.P|
000007E0: 29 3B 3A 50 B2 31 AB 50 3A 82 00 05 10 E9 07 A1 |);:P.1.P:.......|
000007F0: 41 24 3A 8B 41 24 B3 B1 22 22 A7 49 49 B2 49 3A |A$:.A$.."".II.I:|
00000800: 49 B2 32 35 35 00 24 10 EE 07 99 45 30 24 3A 82 |I.255.$....E0$:.|
00000810: 3A 99 43 4C 24 3A 99 43 4C 24 3A 99 43 4C 24 3A |:.CL$:.CL$:.CL$:|
00000820: 99 43 4C 24 00 4A 10 EF 07 99 22 91 91 91 91 C3 |.CL$.J....".....|
00000830: D5 D2 D2 C5 CE D4 20 D4 D2 C1 C3 CB 2C D3 C5 C3 |...... .....,...|
00000840: D4 CF D2 3D 22 54 22 2C 22 53 00 6B 10 F3 07 99 |...="T","S.k....|
00000850: 22 4E 45 58 54 20 54 52 41 43 4B 2C 53 45 43 54 |"NEXT TRACK,SECT|
00000860: 4F 52 3D 22 4E 54 22 2C 22 4E 53 00 7A 10 F8 07 |OR="NT","NS.z...|
00000870: 8B 49 4A B2 30 A7 8D 33 30 30 00 80 10 02 08 8E |.IJ.0..300......|
00000880: 00 93 10 B8 0B 8F 20 4D 4F 44 49 46 59 20 42 4C |...... MODIFY BL|
00000890: 4F 43 4B 00 A6 10 B9 0B 8F 22 B8 B8 B8 B8 B8 B8 |OCK......"......|
000008A0: B8 B8 B8 B8 B8 B8 00 D1 10 F4 0B 99 22 93 D4 48 |............"..H|
000008B0: 45 20 C1 D3 C3 C9 C9 20 43 4F 44 45 20 46 4F 52 |E ..... CODE FOR|
000008C0: 20 45 41 43 48 20 42 4C 4F 43 4B 2D 42 59 54 45 | EACH BLOCK-BYTE|
000008D0: 22 00 00 11 FE 0B 99 22 11 57 49 4C 4C 20 42 45 |"......".WILL BE|
000008E0: 20 44 49 53 50 4C 41 59 45 44 2E 2E 49 2E 45 2E | DISPLAYED..I.E.|
000008F0: 20 43 28 30 29 2E 2E 2E 43 28 32 35 35 29 2E 22 | C(0)...C(255)."|
00000900: 00 30 11 08 0C 99 22 11 D9 4F 55 20 4D 41 59 20 |.0...."..OU MAY |
00000910: 52 45 44 45 46 49 4E 45 20 41 4E 59 20 43 28 49 |REDEFINE ANY C(I|
00000920: 29 2E 20 D4 48 45 20 4D 4F 44 49 46 49 45 44 22 |). .HE MODIFIED"|
00000930: 00 5A 11 12 0C 99 22 11 42 4C 4F 43 4B 20 57 49 |.Z....".BLOCK WI|
00000940: 4C 4C 20 42 45 20 57 52 49 54 54 45 4E 20 54 4F |LL BE WRITTEN TO|
00000950: 20 54 48 45 20 44 49 53 4B 22 00 84 11 1C 0C 99 | THE DISK"......|
00000960: 22 11 49 4E 54 4F 20 54 48 45 20 D4 52 41 43 4B |".INTO THE .RACK|
00000970: 2C D3 45 43 54 4F 52 20 59 4F 55 20 53 45 4C 45 |,.ECTOR YOU SELE|
00000980: 43 54 2E 22 00 8F 11 26 0C 99 22 11 11 11 22 00 |CT."...&.."...".|
00000990: AB 11 30 0C 8D 33 30 30 3A 99 22 93 22 3A 49 49 |..0..300:.".":II|
000009A0: B2 32 35 35 AB 38 3A 49 4A B2 31 00 BA 11 3A 0C |.255.8:IJ.1...:.|
000009B0: 99 22 13 22 3A 8D 32 30 30 35 00 DC 11 44 0C 99 |.".":.2005...D..|
000009C0: 22 3E 3E 3E 12 D2 C5 D4 D5 D2 CE 20 54 4F 20 51 |">>>....... TO Q|
000009D0: 55 49 54 92 3C 3C 3C 22 3A A1 49 24 00 19 12 4E |UIT.<<<":.I$...N|
000009E0: 0C 85 22 12 D7 C8 C9 C3 C8 20 49 20 C4 CF A0 D9 |.."...... I ....|
000009F0: CF D5 A0 D7 C9 D3 C8 A0 D4 CF A0 CD CF C4 C9 C6 |................|
00000A00: D9 92 20 20 20 20 20 9D 9D A6 9D 9D 9D 22 3B 49 |.. ......";I|
00000A10: 24 3A 49 B2 C5 28 49 24 29 00 2A 12 58 0C 8B 49 |$:I..(I$).*.X..I|
00000A20: 24 B2 22 A6 22 A7 33 31 37 33 00 6E 12 62 0C 99 |$.".".3173.n.b..|
00000A30: 22 43 55 52 52 45 4E 54 20 43 28 22 49 22 29 3D |"CURRENT C("I")=|
00000A40: 20 20 20 20 20 A0 9D 9D 9D 9D 9D 22 43 28 49 29 | ......"C(I)|
00000A50: 22 20 4E 45 57 20 56 41 4C 55 45 3D 20 20 20 20 |" NEW VALUE= |
00000A60: 20 9D 9D 9D 9D 9D 22 3B 3A 85 43 28 49 29 00 7D | .....";:.C(I).}|
00000A70: 12 63 0C 8B 49 B1 49 49 A7 49 49 B2 49 00 87 12 |.c..I.II.II.I...|
00000A80: 64 0C 89 33 31 35 30 00 B4 12 65 0C 99 22 93 22 |d..3150...e.."."|
00000A90: 3A 8D 32 30 30 35 3A 99 22 20 20 20 20 20 20 20 |:.2005:." |
00000AA0: 20 3E 3E 3E 12 4F 4B 92 3F 20 20 22 3B 3A 97 32 | >>>.OK.? ";:.2|
00000AB0: 30 34 2C 30 00 D5 12 66 0C 8D 33 31 30 3A 97 32 |04,0...f..310:.2|
00000AC0: 30 34 2C 31 3A 8B 49 4E 24 B2 22 4E 22 A7 99 3A |04,1:.IN$."N"..:|
00000AD0: 89 33 31 35 30 00 F9 12 67 0C 85 22 93 12 52 45 |.3150...g.."..RE|
00000AE0: 54 55 52 4E 20 54 4F 20 4D 45 4E 55 92 20 20 20 |TURN TO MENU. |
00000AF0: 4E 9D 9D 9D 22 3B 49 4E 24 00 08 13 68 0C 8B 49 |N...";IN$...h..I|
00000B00: 4E 24 B2 22 59 22 A7 8E 00 2B 13 69 0C 99 22 93 |N$."Y"...+.i..".|
00000B10: C3 D5 D2 D2 C5 CE D4 20 D4 D2 C1 C3 CB 2C D3 C5 |....... .....,..|
00000B20: C3 D4 CF D2 3D 22 54 22 2C 22 53 00 4C 13 6A 0C |....="T","S.L.j.|
00000B30: 99 22 4E 45 58 54 20 54 52 41 43 4B 2C 53 45 43 |."NEXT TRACK,SEC|
00000B40: 54 4F 52 3D 22 4E 54 22 2C 22 4E 53 00 8E 13 6C |TOR="NT","NS...l|
00000B50: 0C 85 22 11 11 12 C4 C5 D3 D4 C9 CE C1 D4 C9 CF |..".............|
00000B60: CE 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 20 |. .....,....... |
00000B70: 20 20 A6 9D 9D 9D 22 3B 54 2C 53 3A 8B 28 54 B3 | ....";T,S:.(T.|
00000B80: 31 29 B0 28 54 B1 54 54 29 A7 33 31 38 30 00 CF |1).(T.TT).3180..|
00000B90: 13 76 0C 85 22 11 11 11 12 C4 C5 D3 D4 C9 CE C1 |.v.."...........|
00000BA0: D4 C9 CF CE 20 C4 D2 C9 D6 C5 92 A0 A0 A0 A6 9D |.... ...........|
00000BB0: 9D 9D 22 3B 44 52 24 3A 44 52 B2 C5 28 44 52 24 |..";DR$:DR..(DR$|
00000BC0: 29 3A 8B 44 52 24 B2 22 A6 22 A7 33 31 39 30 00 |):.DR$.".".3190.|
00000BD0: E3 13 80 0C A0 33 3A A0 31 35 3A 9F 31 35 2C 38 |.....3:.15:.15,8|
00000BE0: 2C 31 35 00 F9 13 8A 0C 9F 33 2C 38 2C 33 2C 22 |,15......3,8,3,"|
00000BF0: 23 22 3A 8D 36 33 39 30 30 00 2C 14 8F 0C A1 23 |#":.63900.,....#|
00000C00: 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 3A |3,BN$:BN..(BN$):|
00000C10: 99 22 93 22 53 44 24 22 11 11 11 11 55 53 49 4E |."."SD$"....USIN|
00000C20: 47 20 C2 D5 C6 C6 C5 D2 23 22 42 4E 00 48 14 94 |G ......#"BN.H..|
00000C30: 0C 42 4D B2 42 4E AA 31 37 AA 31 32 AC B5 28 28 |.BM.BN.17.12..((|
00000C40: 42 4E AA 31 29 AD 34 29 00 55 14 99 0C 81 49 B2 |BN.1).4).U....I.|
00000C50: 30 A4 32 35 35 00 7B 14 9E 0C 98 31 35 2C 22 4D |0.255.{....15,"M|
00000C60: 2D 57 22 3B C7 28 49 29 3B C7 28 42 4D 29 3B C7 |-W";.(I);.(BM);.|
00000C70: 28 31 29 3B C7 28 43 28 49 29 29 00 8B 14 A8 0C |(1);.(C(I)).....|
00000C80: 99 22 13 20 20 20 9D 9D 9D 22 49 00 91 14 B2 0C |.". ..."I.....|
00000C90: 82 00 A8 14 D0 0C 98 31 35 2C 22 55 32 3A 22 3B |.......15,"U2:";|
00000CA0: 33 3B 44 52 3B 54 3B 53 00 C6 14 DA 0C 98 31 35 |3;DR;T;S......15|
00000CB0: 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A |,"I".DR$:.63900:|
00000CC0: A0 33 3A A0 31 35 00 D1 14 E4 0C 99 22 93 22 3A |.3:.15......".":|
00000CD0: 8E 00 E9 14 A0 0F 8F 20 53 54 4F 52 45 20 43 28 |....... STORE C(|
00000CE0: 49 29 20 49 4E 20 52 41 4D 00 01 15 A1 0F 8F 22 |I) IN RAM......"|
00000CF0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000D00: B8 00 11 15 A5 0F 99 22 93 22 3B 3A 8D 32 30 30 |.......".";:.200|
00000D10: 30 00 38 15 B4 0F 85 22 12 D3 D4 C1 D2 D4 C9 CE |0.8...."........|
00000D20: C7 A0 D6 C1 CC D5 C5 A0 CF C6 20 49 92 20 20 20 |.......... I. |
00000D30: A6 9D 9D 9D 22 3B 49 31 00 6E 15 BE 0F 85 22 12 |....";I1.n....".|
00000D40: D3 D4 C1 D2 D4 C9 CE C7 A0 CD C5 CD CF D2 D9 A0 |................|
00000D50: CC CF C3 A7 CE 92 28 24 3D C8 C5 D8 29 20 20 20 |......($=...) |
00000D60: A6 9D 9D 9D 22 3B 4D 24 3A 8D 39 30 30 30 00 8E |....";M$:.9000..|
00000D70: 15 C8 0F 81 4B 31 B2 49 31 A4 32 35 35 3A 97 4D |....K1.I1.255:.M|
00000D80: AB 49 31 AA 4B 31 2C 43 28 4B 31 29 3A 82 00 C3 |.I1.K1,C(K1):...|
00000D90: 15 D2 0F 4D B2 4D AB 49 31 AA 32 35 36 3A 99 22 |...M.M.I1.256:."|
00000DA0: 12 CE C5 D8 D4 92 20 4D 45 4D 27 59 20 4C 4F 43 |...... MEM'Y LOC|
00000DB0: 27 4E 3D 22 4D 3B 3A 8D 39 35 30 30 3A 99 22 12 |'N="M;:.9500:.".|
00000DC0: 22 4D 24 00 CC 15 DC 0F 8D 33 30 30 00 DC 15 E6 |"M$......300....|
00000DD0: 0F 99 22 93 22 3B 3A 8E 20 20 20 20 00 F4 15 88 |..".";:. ....|
00000DE0: 13 8F 20 57 52 49 54 45 20 52 41 4D 20 54 4F 20 |.. WRITE RAM TO |
00000DF0: 44 49 53 4B 00 0C 16 89 13 8F 22 B8 B8 B8 B8 B8 |DISK......".....|
00000E00: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 41 16 9C |.............A..|
00000E10: 13 85 22 12 CD C5 CD 27 D9 20 CC CF C3 27 CE 20 |.."....'. ...'. |
00000E20: CF C6 20 C2 CC CF C3 CB 92 28 24 3D C8 C5 D8 29 |.. ......($=...)|
00000E30: 20 20 20 A6 9D 9D 9D 22 3B 4D 24 3A 8D 39 30 30 | ....";M$:.900|
00000E40: 30 00 63 16 A6 13 85 22 11 12 D3 D4 C1 D2 D4 20 |0.c...."....... |
00000E50: D7 C9 D4 C8 20 49 92 3D A0 A0 A0 A6 9D 9D 9D 22 |.... I.=......."|
00000E60: 3B 49 31 00 83 16 B0 13 85 22 11 12 C5 CE C4 20 |;I1......"..... |
00000E70: D7 C9 D4 C8 20 49 92 3D A0 A0 A0 A6 9D 9D 9D 22 |.... I.=......."|
00000E80: 3B 49 32 00 9E 16 C4 13 81 49 B2 49 31 A4 49 32 |;I2......I.I1.I2|
00000E90: 3A 43 28 49 29 B2 C2 28 4D AA 49 29 3A 82 00 E1 |:C(I)..(M.I):...|
00000EA0: 16 CE 13 85 22 93 11 11 12 C4 C5 D3 D4 C9 CE C1 |...."...........|
00000EB0: D4 C9 CF CE 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF |.... .....,.....|
00000EC0: D2 92 20 20 20 A6 9D 9D 9D 22 3B 54 2C 53 3A 8B |.. ....";T,S:.|
00000ED0: 28 54 B3 31 29 B0 28 54 B1 54 54 29 A7 35 30 37 |(T.1).(T.TT).507|
00000EE0: 30 00 22 17 D8 13 85 22 11 11 11 12 C4 C5 D3 D4 |0."...."........|
00000EF0: C9 CE C1 D4 C9 CF CE 20 C4 D2 C9 D6 C5 92 A0 A0 |....... ........|
00000F00: A0 A6 9D 9D 9D 22 3B 44 52 24 3A 44 52 B2 C5 28 |.....";DR$:DR..(|
00000F10: 44 52 24 29 3A 8B 44 52 24 B2 22 A6 22 A7 35 30 |DR$):.DR$.".".50|
00000F20: 38 30 00 60 17 E2 13 9F 33 2C 38 2C 33 2C 22 23 |80.`....3,8,3,"#|
00000F30: 22 3A A1 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 |":.#3,BN$:BN..(B|
00000F40: 4E 24 29 3A 99 22 93 22 53 44 24 22 11 11 11 11 |N$):."."SD$"....|
00000F50: 55 53 49 4E 47 20 C2 D5 C6 C6 C5 D2 23 22 42 4E |USING ......#"BN|
00000F60: 00 7C 17 E7 13 42 4D B2 42 4E AA 31 37 AA 31 32 |.|...BM.BN.17.12|
00000F70: AC B5 28 28 42 4E AA 31 29 AD 34 29 00 95 17 EC |..((BN.1).4)....|
00000F80: 13 81 49 B2 49 31 A4 49 32 3A 99 22 13 20 20 20 |..I.I1.I2:.". |
00000F90: 9D 9D 9D 22 49 00 BB 17 F6 13 98 31 35 2C 22 4D |..."I......15,"M|
00000FA0: 2D 57 22 3B C7 28 49 29 3B C7 28 42 4D 29 3B C7 |-W";.(I);.(BM);.|
00000FB0: 28 31 29 3B C7 28 43 28 49 29 29 00 C1 17 0A 14 |(1);.(C(I)).....|
00000FC0: 82 00 D8 17 14 14 98 31 35 2C 22 55 32 3A 22 3B |.......15,"U2:";|
00000FD0: 33 3B 44 52 3B 54 3B 53 00 F6 17 1E 14 98 31 35 |3;DR;T;S......15|
00000FE0: 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A |,"I".DR$:.63900:|
00000FF0: A0 33 3A A0 31 35 00 01 18 28 14 99 22 93 22 3A |.3:.15...(..".":|
00001000: 8E 00 0B 18 70 17 8F 20 42 41 4D 00 15 18 7A 17 |....p.. BAM...z.|
00001010: 8F 22 B8 B8 B8 00 2F 18 84 17 96 20 A5 42 28 49 |."..../.... .B(I|
00001020: 29 B2 28 5A AF 50 28 49 29 29 AD 50 28 49 29 00 |).(Z.P(I)).P(I).|
00001030: 3F 18 8E 17 A0 31 35 3A 99 C7 28 31 34 32 29 00 |?....15:..(142).|
00001040: 59 18 98 17 99 22 93 11 11 12 31 92 3A 44 49 53 |Y...."....1.:DIS|
00001050: 50 4C 41 59 20 42 41 4D 22 00 70 18 A2 17 99 22 |PLAY BAM".p...."|
00001060: 11 12 32 92 3A 43 48 41 4E 47 45 20 42 41 4D 22 |..2.:CHANGE BAM"|
00001070: 00 90 18 AC 17 99 22 11 12 33 92 3A 52 45 54 55 |......"..3.:RETU|
00001080: 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 |RN TO MAIN MENU"|
00001090: 00 A9 18 B6 17 8D 33 31 30 3A 99 22 93 22 3A 8B |......310:.".":.|
000010A0: 49 4E B2 33 A7 36 30 39 35 00 BB 18 C0 17 91 49 |IN.3.6095......I|
000010B0: 4E 8D 36 31 30 30 2C 36 32 38 30 00 C5 18 CA 17 |N.6100,6280.....|
000010C0: 89 36 30 33 30 00 F0 18 CF 17 A0 32 3A A0 33 3A |.6030......2:.3:|
000010D0: 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 52 24 |.15,8,15,"I".DR$|
000010E0: 3A 99 C7 28 31 34 29 3A 8D 36 33 39 30 30 3A 8E |:..(14):.63900:.|
000010F0: 00 02 19 D4 17 8F 20 44 49 53 50 4C 41 59 20 42 |...... DISPLAY B|
00001100: 41 4D 00 14 19 DE 17 8F 22 A3 A3 A3 A3 A3 A3 A3 |AM......".......|
00001110: A3 A3 A3 A3 00 39 19 E8 17 99 22 11 11 57 48 49 |.....9...."..WHI|
00001120: 43 48 20 54 52 41 43 4B 53 22 3A 99 22 B8 B8 B8 |CH TRACKS":."...|
00001130: B8 B8 B8 B8 B8 B8 B8 B8 B8 00 60 19 F2 17 85 22 |..........`...."|
00001140: 11 11 46 49 52 53 54 2C 4C 41 53 54 20 54 52 41 |..FIRST,LAST TRA|
00001150: 43 4B 20 20 20 A6 9D 9D 9D 22 3B 54 53 2C 54 45 |CK ....";TS,TE|
00001160: 00 90 19 FC 17 8B 28 54 53 B3 31 29 B0 28 54 53 |......(TS.1).(TS|
00001170: B1 54 54 29 B0 28 54 45 B3 31 29 B0 28 54 45 B1 |.TT).(TE.1).(TE.|
00001180: 54 54 29 B0 28 54 45 B3 54 53 29 A7 36 31 33 30 |TT).(TE.TS).6130|
00001190: 00 AF 19 06 18 99 22 93 12 52 45 54 55 52 4E 92 |......"..RETURN.|
000011A0: 92 20 54 4F 20 53 54 4F 50 22 3A 99 53 30 24 00 |. TO STOP":.S0$.|
000011B0: CB 19 10 18 9F 31 35 2C 38 2C 31 35 2C 22 49 22 |.....15,8,15,"I"|
000011C0: AA 44 52 24 3A 8D 36 33 39 30 30 00 E5 19 1A 18 |.DR$:.63900.....|
000011D0: 9F 32 2C 38 2C 32 2C 22 24 22 AA 44 52 24 3A 8D |.2,8,2,"$".DR$:.|
000011E0: 36 33 39 30 30 00 F9 19 24 18 46 46 B2 44 31 AA |63900...$.FF.D1.|
000011F0: 28 54 53 AB 31 29 AC 53 33 00 0E 1A 2E 18 81 4B |(TS.1).S3......K|
00001200: B2 30 A4 46 46 3A A1 23 32 2C 41 24 3A 82 00 31 |.0.FF:.#2,A$:..1|
00001210: 1A 38 18 81 54 B2 54 53 A4 54 45 3A 8B 54 B2 35 |.8..T.TS.TE:.T.5|
00001220: 31 A7 A1 23 32 2C 41 24 2C 41 24 2C 41 24 2C 41 |1..#2,A$,A$,A$,A|
00001230: 24 00 3B 1A 42 18 8D 36 34 30 30 00 52 1A 4C 18 |$.;.B..6400.R.L.|
00001240: A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 54 B2 54 54 |.A$:.A$.."".T.TT|
00001250: AA 31 00 6C 1A 56 18 82 3A A0 32 3A A0 31 35 3A |.1.l.V..:.2:.15:|
00001260: 8D 36 38 37 30 3A 8D 33 31 30 3A 8E 00 7D 1A 60 |.6870:.310:..}.`|
00001270: 18 8F 20 43 48 41 4E 47 45 20 42 41 4D 00 8E 1A |.. CHANGE BAM...|
00001280: 6A 18 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 AD |j.."............|
00001290: 1A 74 18 85 22 93 4D 4F 52 45 20 43 48 41 4E 47 |.t..".MORE CHANG|
000012A0: 45 53 20 20 20 59 9D 9D 9D 22 3B 49 24 00 BC 1A |ES Y...";I$...|
000012B0: 7E 18 8B 49 24 B3 B1 22 59 22 A7 8E 00 F9 1A 88 |~..I$.."Y"......|
000012C0: 18 8B 44 54 B2 36 37 A7 99 22 93 53 4F 52 52 59 |..DT.67..".SORRY|
000012D0: 2E 2E 43 41 4E 27 54 20 43 48 41 4E 47 45 20 42 |..CAN'T CHANGE B|
000012E0: 41 4D 20 46 4F 52 20 54 48 49 53 20 44 49 53 4B |AM FOR THIS DISK|
000012F0: 2E 22 3A 8D 33 31 30 3A 8E 00 24 1B 8D 18 85 22 |.":.310:..$...."|
00001300: 93 54 52 41 43 4B 20 20 20 D6 9D 9D 9D 22 3B 54 |.TRACK ....";T|
00001310: 3A 8B 28 54 B3 31 29 B0 28 54 B1 54 54 29 A7 4E |:.(T.1).(T.TT).N|
00001320: 36 32 38 30 00 35 1B 92 18 A0 31 35 3A 9F 31 35 |6280.5....15:.15|
00001330: 2C 38 2C 31 35 00 4E 1B 9C 18 A0 32 3A 9F 32 2C |,8,15.N....2:.2,|
00001340: 38 2C 32 2C 22 23 22 3A 8D 36 33 39 30 30 00 66 |8,2,"#":.63900.f|
00001350: 1B A6 18 98 31 35 2C 22 55 31 3A 22 3B 32 3B 44 |....15,"U1:";2;D|
00001360: 52 3B 44 49 3B 30 00 7A 1B B0 18 98 31 35 2C 22 |R;DI;0.z....15,"|
00001370: 42 2D 50 22 3B 32 3B 54 AC 34 00 AE 1B BA 18 99 |B-P";2;T.4......|
00001380: 22 93 12 45 4E 54 45 52 20 4E 45 47 41 54 49 56 |"..ENTER NEGATIV|
00001390: 45 20 53 45 43 54 4F 52 20 54 4F 20 51 55 49 54 |E SECTOR TO QUIT|
000013A0: 11 22 3A 8D 36 34 30 30 3A 8D 36 35 38 30 00 E0 |.":.6400:.6580..|
000013B0: 1B C4 18 85 22 13 11 11 11 11 11 11 11 11 11 43 |...."..........C|
000013C0: 48 41 4E 47 45 20 57 48 49 43 48 20 53 45 43 54 |HANGE WHICH SECT|
000013D0: 4F 52 20 20 20 20 20 9D 9D D6 9D 9D 9D 22 3B 53 |OR ......";S|
000013E0: 00 F7 1B CE 18 8B 53 B3 30 B0 53 B1 B2 53 43 28 |......S.0.S..SC(|
000013F0: 54 29 A7 36 32 36 30 00 07 1C D8 18 A0 32 3A A0 |T).6260......2:.|
00001400: 31 35 3A 99 53 44 24 00 36 1C E2 18 8D 36 36 32 |15:.SD$.6....662|
00001410: 30 3A 8D 36 34 38 30 3A 8D 36 35 38 30 3A 99 3A |0:.6480:.6580:.:|
00001420: 99 4D 44 24 22 12 4F 4B 3F 92 22 3B 3A 8D 33 31 |.MD$".OK?.";:.31|
00001430: 30 3A 99 43 4C 24 00 49 1C EC 18 8B 49 4E 24 B2 |0:.CL$.I....IN$.|
00001440: 22 59 22 A7 8D 36 37 33 30 00 58 1C F1 18 99 4D |"Y"..6730.X....M|
00001450: 44 24 43 4C 24 53 44 24 00 68 1C F6 18 8D 36 34 |D$CL$SD$.h....64|
00001460: 38 30 3A 89 36 33 34 30 00 7B 1C 00 19 81 4B B2 |80:.6340.{....K.|
00001470: 30 A4 53 32 3A A1 23 32 2C 41 24 00 8E 1C 0A 19 |0.S2:.#2,A$.....|
00001480: 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 00 9D |.A$."".A$..(0)..|
00001490: 1C 14 19 42 28 4B 29 B2 C6 28 41 24 29 00 A3 1C |...B(K)..(A$)...|
000014A0: 1E 19 82 00 B5 1C 50 19 8F 20 50 52 49 4E 54 20 |......P.. PRINT |
000014B0: 54 52 41 43 4B 00 C7 1C 5A 19 8F 22 A3 A3 A3 A3 |TRACK...Z.."....|
000014C0: A3 A3 A3 A3 A3 A3 A3 00 DA 1C 64 19 81 4B B2 31 |..........d..K.1|
000014D0: A4 53 31 3A 5A B2 42 28 4B 29 00 E5 1C 6E 19 81 |.S1:Z.B(K)...n..|
000014E0: 49 B2 30 A4 37 00 FC 1C 78 19 58 B2 A5 42 28 49 |I.0.7...x.X..B(I|
000014F0: 29 3A 99 58 24 28 58 29 3B 3A 82 49 00 03 1D 82 |):.X$(X);:.I....|
00001500: 19 82 4B 00 20 1D 8C 19 5A B2 42 28 4B 29 3A 81 |..K. ...Z.B(K):.|
00001510: 49 B2 30 A4 53 43 28 54 29 AB 53 43 28 54 54 29 |I.0.SC(T).SC(TT)|
00001520: 00 39 1D 96 19 58 B2 A5 42 28 49 29 3A 99 58 24 |.9...X..B(I):.X$|
00001530: 28 58 29 3B 3A 82 49 3A 99 00 5C 1D A0 19 99 22 |(X);:.I:..\...."|
00001540: 91 22 A3 32 32 29 22 54 52 41 43 4B 12 22 54 22 |.".22)"TRACK."T"|
00001550: 92 9D 46 52 45 45 3D 22 42 28 30 29 00 62 1D AA |..FREE="B(0).b..|
00001560: 19 8E 00 74 1D B4 19 99 C8 28 53 31 24 2C 53 43 |...t.....(S1$,SC|
00001570: 28 54 29 29 00 9B 1D BE 19 99 C8 28 53 32 24 2C |(T)).......(S2$,|
00001580: 53 43 28 54 29 29 A3 32 33 29 22 23 20 53 45 43 |SC(T)).23)"# SEC|
00001590: 54 4F 52 53 3D 22 53 43 28 54 29 00 BF 1D C8 19 |TORS="SC(T).....|
000015A0: 8B 53 43 28 54 29 B2 32 31 A7 99 C8 28 53 33 24 |.SC(T).21...(S3$|
000015B0: 2C 53 43 28 54 29 AA 31 29 3A 89 36 36 31 30 00 |,SC(T).1):.6610.|
000015C0: D1 1D CD 19 99 C8 28 53 33 24 2C 53 43 28 54 29 |......(S3$,SC(T)|
000015D0: 29 00 DC 1D D2 19 99 53 30 24 3A 8E 00 F0 1D DC |)......S0$:.....|
000015E0: 19 8F 20 43 48 41 4E 47 45 20 53 45 43 54 4F 52 |.. CHANGE SECTOR|
000015F0: 00 04 1E E6 19 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |......".........|
00001600: A3 A3 A3 A3 00 1F 1E F0 19 8B 53 B3 38 A7 5A B2 |..........S.8.Z.|
00001610: 42 28 31 29 3A 53 53 B2 53 3A 89 36 36 37 30 00 |B(1):SS.S:.6670.|
00001620: 3D 1E FA 19 8B 53 B3 31 36 A7 5A B2 42 28 32 29 |=....S.16.Z.B(2)|
00001630: 3A 53 53 B2 53 AB 38 3A 89 36 36 37 30 00 50 1E |:SS.S.8:.6670.P.|
00001640: 04 1A 5A B2 42 28 33 29 3A 53 53 B2 53 AB 31 36 |..Z.B(3):SS.S.16|
00001650: 00 6D 1E 0E 1A 4E 5A B2 28 A8 5A AF 50 28 53 53 |.m...NZ.(.Z.P(SS|
00001660: 29 29 B0 28 5A AF A8 50 28 53 53 29 29 00 89 1E |)).(Z..P(SS))...|
00001670: 18 1A 42 28 30 29 B2 42 28 30 29 AA 28 4E 5A B3 |..B(0).B(0).(NZ.|
00001680: 5A 29 AB 28 4E 5A B1 5A 29 00 A0 1E 22 1A 8B 53 |Z).(NZ.Z)..."..S|
00001690: B3 38 A7 42 28 31 29 B2 4E 5A 3A 89 36 37 32 30 |.8.B(1).NZ:.6720|
000016A0: 00 B8 1E 2C 1A 8B 53 B3 31 36 A7 42 28 32 29 B2 |...,..S.16.B(2).|
000016B0: 4E 5A 3A 89 36 37 32 30 00 C4 1E 36 1A 42 28 33 |NZ:.6720...6.B(3|
000016C0: 29 B2 4E 5A 00 CA 1E 40 1A 8E 00 D7 1E 4A 1A 9F |).NZ...@.....J..|
000016D0: 31 35 2C 38 2C 31 35 00 09 1F 54 1A 99 4D 44 24 |15,8,15...T..MD$|
000016E0: 22 12 41 52 45 20 59 4F 55 20 53 55 52 45 3F 92 |".ARE YOU SURE?.|
000016F0: 22 3B 3A 8D 33 31 30 3A 99 49 4E 24 3B 3A 8B 49 |";:.310:.IN$;:.I|
00001700: 4E 24 B3 B1 22 59 22 A7 8E 00 23 1F 5E 1A 99 22 |N$.."Y"...#.^.."|
00001710: 2E 2E 12 43 48 41 4E 47 49 4E 47 20 42 41 4D 2E |...CHANGING BAM.|
00001720: 2E 22 3B 00 39 1F 68 1A 9F 33 2C 38 2C 33 2C 22 |.";.9.h..3,8,3,"|
00001730: 23 22 3A 8D 36 33 39 30 30 00 4F 1F 72 1A A1 23 |#":.63900.O.r..#|
00001740: 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 00 |3,BN$:BN..(BN$).|
00001750: 6B 1F 7C 1A 42 4D B2 42 4E AA 31 37 AA 31 32 AC |k.|.BM.BN.17.12.|
00001760: B5 28 28 42 4E AA 31 29 AD 34 29 00 77 1F 86 1A |.((BN.1).4).w...|
00001770: 81 49 B2 30 A4 53 32 00 A3 1F 90 1A 98 31 35 2C |.I.0.S2......15,|
00001780: 22 4D 2D 57 22 3B C7 28 49 AA 54 AC 34 29 3B C7 |"M-W";.(I.T.4);.|
00001790: 28 42 4D 29 3B C7 28 31 29 3B C7 28 42 28 49 29 |(BM);.(1);.(B(I)|
000017A0: 29 3A 82 00 BB 1F B8 1A 98 31 35 2C 22 55 32 3A |):.......15,"U2:|
000017B0: 22 3B 33 3B 44 52 3B 44 49 3B 30 00 D9 1F C2 1A |";3;DR;DI;0.....|
000017C0: 98 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 |.15,"I".DR$:.639|
000017D0: 30 30 3A A0 33 3A A0 31 35 00 DF 1F CC 1A 8E 00 |00:.3:.15.......|
000017E0: 17 20 D6 1A 99 22 13 11 11 11 11 11 11 11 11 11 |. ..."..........|
000017F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 12 |................|
00001800: 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 |RETURN. TO CONTI|
00001810: 4E 55 45 22 3B 3A 8E 00 2B 20 58 1B 8F 20 44 49 |NUE";:..+ X.. DI|
00001820: 53 4B 20 43 4F 4D 4D 41 4E 44 53 00 3F 20 59 1B |SK COMMANDS.? Y.|
00001830: 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |."..............|
00001840: 4A 20 5A 1B 99 C7 28 31 34 29 00 62 20 5D 1B 99 |J Z...(14).b ]..|
00001850: 22 93 11 12 31 92 3A C9 4E 49 54 49 41 4C 49 5A |"...1.:.NITIALIZ|
00001860: 45 22 00 77 20 5E 1B 99 22 11 12 32 92 3A D6 41 |E".w ^.."..2.:.A|
00001870: 4C 49 44 41 54 45 22 00 90 20 5F 1B 99 22 11 12 |LIDATE".. _.."..|
00001880: 33 92 3A C3 48 41 4E 47 45 20 C4 D2 C9 D6 C5 23 |3.:.HANGE .....#|
00001890: 00 AE 20 60 1B 99 22 11 12 34 92 3A C4 49 53 50 |.. `.."..4.:.ISP|
000018A0: 4C 41 59 20 C4 49 52 45 43 54 4F 52 59 22 00 CB |LAY .IRECTORY"..|
000018B0: 20 61 1B 99 22 11 11 11 12 39 92 3A D2 C5 D4 D5 | a.."....9.:....|
000018C0: D2 CE 20 54 4F 20 4D 45 4E 55 22 00 E4 20 62 1B |.. TO MENU".. b.|
000018D0: 8D 33 31 30 3A 8B 49 4E B3 31 B0 49 4E B1 39 A7 |.310:.IN.1.IN.9.|
000018E0: 37 30 30 30 00 14 21 67 1B 99 22 93 4F 4B 2E 2E |7000..!g..".OK..|
000018F0: 22 3A 91 20 49 4E 20 89 37 30 32 30 2C 37 30 33 |":. IN .7020,703|
00001900: 30 2C 37 30 34 30 2C 37 30 35 30 2C 2C 2C 2C 2C |0,7040,7050,,,,,|
00001910: 37 30 39 39 00 3A 21 6C 1B A0 31 35 3A 9F 31 35 |7099.:!l..15:.15|
00001920: 2C 38 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 |,8,15,"I".DR$:.6|
00001930: 33 39 30 30 3A 89 37 30 30 30 00 60 21 76 1B A0 |3900:.7000.`!v..|
00001940: 31 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 56 22 AA |15:.15,8,15,"V".|
00001950: 44 52 24 3A 8D 36 33 39 30 30 3A 89 37 30 30 30 |DR$:.63900:.7000|
00001960: 00 8B 21 80 1B 85 22 11 11 11 44 52 49 56 45 20 |..!..."...DRIVE |
00001970: 20 20 A6 9D 9D 9D 22 3B 44 52 24 3A 44 52 B2 C5 | ....";DR$:DR..|
00001980: 28 44 52 24 29 3A 89 37 30 30 30 00 97 21 8A 1B |(DR$):.7000..!..|
00001990: 8B 44 52 B2 30 A7 8E 00 A5 21 8B 1B 8B 44 52 B2 |.DR.0....!...DR.|
000019A0: 31 A7 DA 44 31 00 B4 21 8C 1B 8D 33 30 30 3A 89 |1..D1..!...300:.|
000019B0: 37 30 30 30 00 BA 21 BB 1B 8E 00 CD 21 BC 1B 8F |7000..!.....!...|
000019C0: 20 54 52 41 43 45 20 42 4C 4F 43 4B 53 00 E0 21 | TRACE BLOCKS..!|
000019D0: BD 1B 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..."............|
000019E0: 00 0B 22 C1 1B 85 22 93 12 53 54 41 52 54 49 4E |.."..."..STARTIN|
000019F0: 47 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 20 |G .....,....... |
00001A00: 20 20 A6 9D 9D 9D 22 3B 54 2C 53 00 32 22 C2 1B | ....";T,S.2"..|
00001A10: 8B 28 54 B3 31 29 B0 28 54 B1 54 54 29 B0 28 53 |.(T.1).(T.TT).(S|
00001A20: B3 30 29 B0 28 53 B1 53 43 28 54 29 29 A7 37 31 |.0).(S.SC(T)).71|
00001A30: 31 30 00 6A 22 C6 1B A0 33 3A A0 31 35 3A 9F 31 |10.j"...3:.15:.1|
00001A40: 35 2C 38 2C 31 35 3A 9F 33 2C 38 2C 33 2C 22 23 |5,8,15:.3,8,3,"#|
00001A50: 22 3A 8D 36 33 39 30 30 3A A1 23 33 2C 42 4E 24 |":.63900:.#3,BN$|
00001A60: 3A 42 4E B2 C6 28 42 4E 24 29 00 93 22 C7 1B 42 |:BN..(BN$).."..B|
00001A70: 4E 24 B2 CA 28 42 4E 24 2C 32 29 3A 42 4D B2 42 |N$..(BN$,2):BM.B|
00001A80: 4E AA 31 37 AA 31 32 AC B5 28 28 42 4E AA 31 29 |N.17.12..((BN.1)|
00001A90: AD 34 29 00 B8 22 CB 1B 99 3A 99 22 28 22 54 22 |.4).."...:."("T"|
00001AA0: 2C 22 53 22 29 5F 20 C6 C9 D2 D3 D4 20 C2 CC CF |,"S")_ ..... ...|
00001AB0: C3 CB 22 3A 4E 39 B2 31 00 CF 22 D0 1B 98 31 35 |..":N9.1.."...15|
00001AC0: 2C 22 42 2D 52 22 3B 33 3B 44 52 3B 54 3B 53 00 |,"B-R";3;DR;T;S.|
00001AD0: E1 22 DA 1B 98 31 35 2C 22 42 2D 50 22 3B 33 3B |."...15,"B-P";3;|
00001AE0: 30 00 FB 22 E4 1B A1 23 33 2C 5A 24 3A 8B 5A 24 |0.."...#3,Z$:.Z$|
00001AF0: B2 22 22 A7 5A 24 B2 C7 28 30 29 00 11 23 EE 1B |."".Z$..(0)..#..|
00001B00: 54 B2 C6 28 5A 24 29 3A 8B 54 B2 30 A7 37 32 30 |T..(Z$):.T.0.720|
00001B10: 30 00 2B 23 F8 1B A1 23 33 2C 5A 24 3A 8B 5A 24 |0.+#...#3,Z$:.Z$|
00001B20: B2 22 22 A7 5A 24 B2 C7 28 30 29 00 37 23 02 1C |."".Z$..(0).7#..|
00001B30: 53 B2 C6 28 5A 24 29 00 55 23 07 1C 54 24 B2 CA |S..(Z$).U#..T$..|
00001B40: 28 C4 28 54 29 2C 32 29 3A 53 24 B2 CA 28 C4 28 |(.(T),2):S$..(.(|
00001B50: 53 29 2C 32 29 00 69 23 0C 1C 99 22 28 22 54 24 |S),2).i#..."("T$|
00001B60: 22 2C 22 53 24 22 29 22 3B 00 7B 23 16 1C 4E 39 |","S$")";.{#..N9|
00001B70: B2 4E 39 AA 31 3A 89 37 31 32 30 00 91 23 20 1C |.N9.1:.7120..# .|
00001B80: 99 22 5F 20 CC C1 D3 D4 20 C2 CC CF C3 CB 11 11 |."_ .... .......|
00001B90: 22 00 AA 23 2A 1C 99 4E 39 22 20 42 4C 4F 43 4B |"..#*..N9" BLOCK|
00001BA0: 53 11 22 3A 8D 33 30 30 3A 8E 00 BA 23 4C 1D 8F |S.":.300:...#L..|
00001BB0: 20 55 4E 53 43 52 41 54 43 48 00 CA 23 4D 1D 8F | UNSCRATCH..#M..|
00001BC0: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 EA 23 56 1D 99 |"...........#V..|
00001BD0: 22 93 D7 45 27 4C 4C 20 44 4F 20 54 48 45 20 46 |"..E'LL DO THE F|
00001BE0: 4F 4C 4C 4F 57 49 4E 47 3A 22 00 19 24 57 1D 99 |OLLOWING:"..$W..|
00001BF0: 22 11 12 31 92 3A C7 4F 20 54 48 52 55 27 20 44 |"..1.:.O THRU' D|
00001C00: 49 52 45 43 54 4F 52 59 20 54 52 41 43 4B 22 44 |IRECTORY TRACK"D|
00001C10: 49 22 20 55 4E 54 49 4C 22 00 43 24 58 1D 99 22 |I" UNTIL".C$X.."|
00001C20: 20 20 57 45 20 46 49 4E 44 20 54 48 45 20 53 43 | WE FIND THE SC|
00001C30: 52 41 54 43 48 45 44 20 46 49 4C 45 20 4E 41 4D |RATCHED FILE NAM|
00001C40: 45 2E 22 00 6C 24 59 1D 99 22 11 12 32 92 3A D4 |E.".l$Y.."..2.:.|
00001C50: 52 41 43 45 20 54 48 45 20 C2 4C 4F 43 4B 53 20 |RACE THE .LOCKS |
00001C60: 41 4E 44 20 43 4F 4D 50 41 52 45 22 00 92 24 5A |AND COMPARE"..$Z|
00001C70: 1D 99 22 20 20 54 48 45 20 C2 4C 4F 43 4B 53 20 |.." THE .LOCKS |
00001C80: 4F 42 54 41 49 4E 45 44 20 57 49 54 48 20 54 48 |OBTAINED WITH TH|
00001C90: 45 22 00 B2 24 5B 1D 99 22 20 20 C4 49 52 45 43 |E"..$[.." .IREC|
00001CA0: 54 4F 52 59 20 C2 4C 4F 43 4B 20 C3 4F 55 4E 54 |TORY .LOCK .OUNT|
00001CB0: 2E 22 00 E0 24 5C 1D 99 22 11 12 33 92 3A CC 4F |."..$\.."..3.:.O|
00001CC0: 4F 4B 20 41 54 20 54 48 45 20 C2 4C 4F 43 4B 20 |OK AT THE .LOCK |
00001CD0: C1 56 41 49 4C 41 42 49 4C 54 59 20 CD 41 50 22 |.VAILABILTY .AP"|
00001CE0: 00 0C 25 5D 1D 99 22 20 20 54 4F 20 53 45 45 20 |..%].." TO SEE |
00001CF0: 49 46 20 41 4C 4C 20 54 48 45 20 42 4C 4F 43 4B |IF ALL THE BLOCK|
00001D00: 53 20 41 52 45 20 46 52 45 45 2E 22 00 31 25 5E |S ARE FREE.".1%^|
00001D10: 1D 99 22 11 3E 3E C9 46 20 41 4C 4C 20 4F 46 20 |..".>>.F ALL OF |
00001D20: 54 48 45 20 41 42 4F 56 45 20 41 52 45 20 CF CB |THE ABOVE ARE ..|
00001D30: 22 00 56 25 5F 1D 99 22 20 20 57 45 20 4D 41 59 |".V%_.." WE MAY|
00001D40: 20 CD 4F 44 49 46 59 20 54 48 45 20 C4 49 52 45 | .ODIFY THE .IRE|
00001D50: 43 54 4F 52 59 22 00 70 25 60 1D 99 22 20 20 41 |CTORY".p%`.." A|
00001D60: 53 20 46 4F 4C 4C 4F 57 53 3A 22 3A 8D 33 30 30 |S FOLLOWS:":.300|
00001D70: 00 95 25 74 1D 99 22 93 CD 4F 44 49 46 59 20 54 |..%t.."..ODIFY T|
00001D80: 48 45 20 42 4C 4F 43 4B 20 53 4F 20 54 48 41 54 |HE BLOCK SO THAT|
00001D90: 20 54 48 45 22 00 A8 25 79 1D 99 22 12 4D 41 47 | THE"..%y..".MAG|
00001DA0: 49 43 20 42 59 54 45 22 00 D5 25 7E 1D 99 22 20 |IC BYTE"..%~.." |
00001DB0: 20 57 48 49 43 48 20 4F 43 43 55 52 53 20 4A 55 | WHICH OCCURS JU|
00001DC0: 53 54 20 12 33 92 20 50 4C 41 43 45 53 20 42 45 |ST .3. PLACES BE|
00001DD0: 46 4F 52 45 22 00 F6 25 88 1D 99 22 20 20 54 48 |FORE"..%..." TH|
00001DE0: 45 20 4E 41 4D 45 20 49 53 20 41 53 20 46 4F 4C |E NAME IS AS FOL|
00001DF0: 4C 4F 57 53 3A 22 00 0C 26 92 1D 99 22 20 20 31 |LOWS:"..&..." 1|
00001E00: 32 39 3D D3 C5 D1 20 46 49 4C 45 22 00 23 26 93 |29=... FILE".#&.|
00001E10: 1D 99 22 20 20 31 33 30 3D D0 D2 CF C7 20 46 49 |.." 130=.... FI|
00001E20: 4C 45 22 00 39 26 94 1D 99 22 20 20 31 33 31 3D |LE".9&..." 131=|
00001E30: D5 D3 D2 20 46 49 4C 45 22 00 4F 26 95 1D 99 22 |... FILE".O&..."|
00001E40: 20 20 31 33 32 3D D2 C5 CC 20 46 49 4C 45 22 00 | 132=... FILE".|
00001E50: 7E 26 9C 1D 99 22 11 C5 58 41 4D 50 4C 45 3A 54 |~&..."..XAMPLE:T|
00001E60: 4F 20 55 4E 53 43 52 41 54 43 48 20 41 20 D0 D2 |O UNSCRATCH A ..|
00001E70: CF C7 20 46 49 4C 45 20 27 C1 C2 DA 27 22 00 AA |.. FILE '...'"..|
00001E80: 26 A6 1D 99 22 46 49 4E 44 20 49 54 27 53 20 4E |&..."FIND IT'S N|
00001E90: 41 4D 45 20 4F 4E 20 54 48 45 20 C4 C9 D2 C5 C3 |AME ON THE .....|
00001EA0: D4 CF D2 D9 2C 20 41 4E 44 22 00 D0 26 B0 1D 99 |...., AND"..&...|
00001EB0: 22 53 45 4C 45 43 54 20 CD C5 CE D5 20 49 54 45 |"SELECT .... ITE|
00001EC0: 4D 3D CD 4F 44 49 46 59 20 C2 4C 4F 43 4B 2E 22 |M=.ODIFY .LOCK."|
00001ED0: 00 E5 26 BA 1D 99 22 D9 4F 55 20 57 49 4C 4C 20 |..&...".OU WILL |
00001EE0: 53 45 45 3A 22 00 15 27 C4 1D 99 22 11 2E 2E 20 |SEE:"..'..."... |
00001EF0: 30 12 20 30 92 20 30 12 20 30 92 20 31 39 12 20 |0. 0. 0. 0. 19. |
00001F00: 33 92 20 36 35 12 20 36 36 92 20 39 30 2E 2E 2E |3. 65. 66. 90...|
00001F10: 2E 45 54 43 22 00 35 27 CE 1D 99 22 20 20 20 20 |.ETC".5'..." |
00001F20: 20 20 20 20 20 5E 20 20 5E 20 5E 20 20 5E 20 20 | ^ ^ ^ ^ |
00001F30: 5E 20 20 5E 22 00 55 27 D8 1D 99 22 20 53 48 4F |^ ^".U'..." SHO|
00001F40: 55 4C 44 20 42 45 20 DD D4 52 43 4B DD C1 20 20 |ULD BE ..RCK.. |
00001F50: C2 20 20 DA 22 00 80 27 E2 1D 99 22 20 20 20 20 |. ."..'..." |
00001F60: 20 41 20 31 33 30 20 DD 26 D3 45 43 DD C6 49 4C | A 130 .&.EC..IL|
00001F70: 45 4E 41 4D 45 28 49 4E 20 C1 D3 C3 C9 C9 29 22 |ENAME(IN .....)"|
00001F80: 00 91 27 EC 1D 8D 33 30 30 3A 99 22 91 22 53 30 |..'...300:."."S0|
00001F90: 24 00 BF 27 F6 1D 99 22 11 CD 4F 44 49 46 59 20 |$..'..."..ODIFY |
00001FA0: 54 48 45 20 42 59 54 45 20 57 48 49 43 48 20 49 |THE BYTE WHICH I|
00001FB0: 44 45 4E 54 49 46 49 45 53 20 54 48 45 20 22 00 |DENTIFIES THE ".|
00001FC0: E6 27 00 1E 99 22 46 49 4C 45 20 54 59 50 45 2E |.'..."FILE TYPE.|
00001FD0: 2E 54 4F 20 31 33 30 2E 2E 53 4F 20 49 54 20 52 |.TO 130..SO IT R|
00001FE0: 45 41 44 53 3A 22 00 18 28 05 1E 99 22 11 2E 2E |EADS:"..(..."...|
00001FF0: 20 30 12 20 30 92 20 30 12 20 31 33 30 92 20 31 | 0. 0. 0. 130. 1|
00002000: 39 12 20 33 92 20 36 35 12 20 36 36 92 20 39 30 |9. 3. 65. 66. 90|
00002010: 2E 2E 2E 2E 45 54 43 22 00 46 28 0A 1E 99 22 11 |....ETC".F(...".|
00002020: 12 34 92 3A D7 52 49 54 45 20 54 48 45 20 42 4C |.4.:.RITE THE BL|
00002030: 4F 43 4B 20 42 41 43 4B 20 54 4F 20 54 48 45 20 |OCK BACK TO THE |
00002040: 44 49 53 4B 2E 22 00 6E 28 14 1E 99 22 11 12 35 |DISK.".n(..."..5|
00002050: 92 3A D1 55 49 54 20 41 4E 44 20 D6 C1 CC C9 C4 |.:.UIT AND .....|
00002060: C1 D4 C5 20 54 48 45 20 44 49 53 4B 2E 22 00 89 |... THE DISK."..|
00002070: 28 19 1E 99 22 20 20 20 20 20 20 20 20 20 20 20 |(..." |
00002080: B8 B8 B8 B8 B8 B8 B8 B8 22 00 A0 28 1E 1E 99 22 |........"..(..."|
00002090: 12 35 92 3A D0 52 41 59 2E 2E 22 3A 8D 33 31 30 |.5.:.RAY..":.310|
000020A0: 00 C9 28 C8 1E 85 22 11 D7 C1 CE D4 20 D4 CF 20 |..(..."..... .. |
000020B0: D4 D2 D9 20 20 20 59 9D 9D 9D 22 3B 41 24 3A 8B |... Y...";A$:.|
000020C0: 41 24 B3 B1 22 59 22 A7 8E 00 D4 28 D2 1E 89 31 |A$.."Y"....(...1|
000020D0: 32 30 30 30 00 EB 28 DC 1E A0 31 35 3A 99 C7 28 |2000..(...15:..(|
000020E0: 31 34 32 29 3A 99 22 93 22 3A 80 00 FC 28 40 1F |142):.".":...(@.|
000020F0: 8F 20 49 4E 49 54 49 41 4C 49 5A 45 00 0D 29 41 |. INITIALIZE..)A|
00002100: 1F 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 1E 29 |.."............)|
00002110: 42 1F 99 C7 28 31 34 32 29 3A 99 22 05 22 00 44 |B...(142):.".".D|
00002120: 29 45 1F 86 43 28 32 35 35 29 2C 54 28 31 32 30 |)E..C(255),T(120|
00002130: 29 2C 53 28 31 32 30 29 2C 53 43 28 37 37 29 2C |),S(120),SC(77),|
00002140: 42 28 34 29 00 65 29 46 1F 83 31 2C 31 37 2C 32 |B(4).e)F..1,17,2|
00002150: 30 2C 32 34 2C 31 39 2C 33 30 2C 31 37 2C 33 35 |0,24,19,30,17,35|
00002160: 2C 31 36 2C 30 00 87 29 47 1F 83 36 35 2C 31 37 |,16,0..)G..65,17|
00002170: 2C 32 30 2C 32 34 2C 31 38 2C 33 30 2C 31 37 2C |,20,24,18,30,17,|
00002180: 33 35 2C 31 36 2C 30 00 A9 29 48 1F 83 36 37 2C |35,16,0..)H..67,|
00002190: 33 39 2C 32 38 2C 35 33 2C 32 36 2C 36 34 2C 32 |39,28,53,26,64,2|
000021A0: 34 2C 37 37 2C 32 32 2C 30 00 C1 29 4A 1F 52 24 |4,77,22,0..)J.R$|
000021B0: 28 30 29 B2 22 12 22 3A 52 24 28 31 29 B2 22 92 |(0).".":R$(1).".|
000021C0: 22 00 D7 29 54 1F 53 44 24 B2 22 13 11 11 11 11 |"..)T.SD$.".....|
000021D0: 11 11 11 11 11 11 22 00 F6 29 59 1F 4D 44 24 B2 |......"..)Y.MD$.|
000021E0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
000021F0: 11 11 11 11 92 22 00 1A 2A 63 1F 85 22 93 44 52 |....."..*c..".DR|
00002200: 49 56 45 92 20 20 20 A6 9D 9D 9D 22 3B 44 52 24 |IVE. ....";DR$|
00002210: 3A 44 52 B2 C5 28 44 52 24 29 00 36 2A 68 1F 9F |:DR..(DR$).6*h..|
00002220: 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 52 24 3A |15,8,15,"I".DR$:|
00002230: 8D 36 33 39 30 30 00 57 2A 72 1F 4B 24 B2 22 20 |.63900.W*r.K$." |
00002240: 20 D4 C8 C9 D3 A0 C2 CC CF C3 CB A0 C9 D3 A0 C5 | ...............|
00002250: CD D0 D4 D9 20 20 22 00 73 2A 7C 1F 99 22 93 57 |.... ".s*|..".W|
00002260: 41 49 54 2E 2E 2E 22 3A 8C 3A 57 57 B2 30 3A 41 |AIT...":.:WW.0:A|
00002270: 30 B2 31 00 8D 2A 7D 1F 9F 33 2C 38 2C 33 2C 22 |0.1..*}..3,8,3,"|
00002280: 24 22 AA 44 52 24 3A 8D 36 33 39 30 30 00 A5 2A |$".DR$:.63900..*|
00002290: 7E 1F A1 23 33 2C 41 24 3A 41 B2 C6 28 41 24 AA |~..#3,A$:A..(A$.|
000022A0: C7 28 30 29 29 00 B8 2A 7F 1F 87 44 54 3A 8B 41 |.(0))..*...DT:.A|
000022B0: B2 44 54 A7 38 30 37 30 00 DE 2A 80 1F 57 57 B2 |.DT.8070..*..WW.|
000022C0: 57 57 AA 31 3A 8B 57 57 B3 33 A7 20 81 49 B2 31 |WW.1:.WW.3. .I.1|
000022D0: A4 39 3A 87 44 54 3A 82 3A 89 38 30 36 33 00 1E |.9:.DT:.:.8063..|
000022E0: 2B 81 1F 99 22 93 11 11 2A 2A 2A 12 4E 4F 54 20 |+..."...***.NOT |
000022F0: 41 20 52 45 43 4F 47 4E 49 5A 41 42 4C 45 20 44 |A RECOGNIZABLE D|
00002300: 49 53 4B 92 2A 2A 2A 22 3A A0 33 3A 99 22 11 11 |ISK.***":.3:."..|
00002310: 57 41 4E 54 20 54 4F 20 51 55 49 54 3F 22 00 35 |WANT TO QUIT?".5|
00002320: 2B 82 1F 8D 33 31 30 3A 8B 49 4E 24 B2 22 59 22 |+...310:.IN$."Y"|
00002330: A7 37 39 30 30 00 3F 2B 83 1F 89 38 31 31 30 00 |.7900.?+...8110.|
00002340: 56 2B 86 1F 8B 44 54 B2 31 B0 44 54 B2 36 35 A7 |V+...DT.1.DT.65.|
00002350: 4B 4B B2 31 34 33 00 66 2B 87 1F 8B 44 54 B2 36 |KK.143.f+...DT.6|
00002360: 37 A7 4B 4B B2 35 00 70 2B 88 1F 8D 38 32 30 30 |7.KK.5.p+...8200|
00002370: 00 83 2B 8B 1F 87 41 31 3A 8B 41 31 B2 30 A7 38 |..+...A1:.A1.0.8|
00002380: 30 39 30 00 AC 2B 90 1F 87 42 31 3A 81 49 B2 41 |090..+...B1:.I.A|
00002390: 30 A4 41 31 3A 53 43 28 49 29 B2 42 31 AA 31 3A |0.A1:SC(I).B1.1:|
000023A0: 82 3A 41 30 B2 49 3A 89 38 30 37 35 00 D2 2B 9A |.:A0.I:.8075..+.|
000023B0: 1F 8B 44 54 B2 31 B0 44 54 B2 36 35 A7 44 31 B2 |..DT.1.DT.65.D1.|
000023C0: 31 3A 54 54 B2 33 35 3A 53 32 B2 33 3A 44 49 B2 |1:TT.35:S2.3:DI.|
000023D0: 31 38 00 F5 2B 9F 1F 8B 44 54 B2 36 37 A7 44 31 |18..+...DT.67.D1|
000023E0: B2 32 35 37 3A 54 54 B2 37 37 3A 53 32 B2 34 3A |.257:TT.77:S2.4:|
000023F0: 44 49 B2 33 39 00 09 2C A0 1F 53 31 B2 53 32 AB |DI.39..,..S1.S2.|
00002400: 31 3A 53 33 B2 53 32 AA 31 00 1B 2C A4 1F A0 33 |1:S3.S2.1..,...3|
00002410: 3A 8B 54 54 B2 30 A7 38 30 36 35 00 31 2C AE 1F |:.TT.0.8065.1,..|
00002420: 81 49 B2 30 A4 37 3A 50 28 49 29 B2 32 AE 49 3A |.I.0.7:P(I).2.I:|
00002430: 82 00 49 2C B8 1F 58 24 28 30 29 B2 22 D1 22 3A |..I,..X$(0).".":|
00002440: 58 24 28 31 29 B2 22 D7 22 00 7A 2C C2 1F 53 30 |X$(1).".".z,..S0|
00002450: 24 B2 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |$.".............|
00002460: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00002470: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 9B 2C CC 1F 43 |........."..,..C|
00002480: 4C 24 B2 22 22 3A 81 49 B2 31 A4 33 39 3A 43 4C |L$."":.I.1.39:CL|
00002490: 24 B2 43 4C 24 AA 22 20 22 3A 82 00 C9 2C D6 1F |$.CL$." ":...,..|
000024A0: 53 31 24 B2 22 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E |S1$."^....^....^|
000024B0: 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E 2E |....^....^....^.|
000024C0: 2E 2E 2E 5E 2E 2E 2E 2E 22 00 F3 2C E0 1F 53 32 |...^...."..,..S2|
000024D0: 24 B2 22 DD 20 20 20 20 DD 20 20 20 20 DD 20 20 |$.". . . |
000024E0: 20 20 DD 20 20 20 20 DD 20 20 20 20 DD 20 20 20 | . . . |
000024F0: 20 DD 22 00 1E 2D EA 1F 53 33 24 B2 22 30 20 20 | ."..-..S3$."0 |
00002500: 20 20 35 20 20 20 20 31 30 20 20 20 31 35 20 20 | 5 10 15 |
00002510: 20 32 30 20 20 20 32 35 20 20 20 33 30 22 00 24 | 20 25 30".$|
00002520: 2D F4 1F 8E 00 3F 2D 08 20 81 49 B2 33 A4 4B 4B |-....?-. .I.3.KK|
00002530: 3A A1 23 33 2C 41 24 3A 82 3A 99 22 12 22 3B 00 |:.#3,A$:.:.".";.|
00002540: 64 2D 12 20 81 49 B2 31 A4 32 33 3A A1 23 33 2C |d-. .I.1.23:.#3,|
00002550: 41 24 3A 41 24 B2 41 24 AA C7 28 30 29 3A 99 41 |A$:A$.A$..(0):.A|
00002560: 24 3B 3A 82 00 6C 2D 1C 20 99 3A 8E 00 7E 2D 28 |$;:..l-. .:..~-(|
00002570: 23 8F 20 44 45 43 49 4D 41 4C 5F 48 45 58 00 90 |#. DECIMAL_HEX..|
00002580: 2D 29 23 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |-)#."...........|
00002590: 00 A4 2D 2D 23 4D B2 C5 28 4D 24 29 3A 8B 4D B3 |..--#M..(M$):.M.|
000025A0: B1 30 A7 8E 00 C0 2D 32 23 4D 24 B2 CA 28 4D 24 |.0....-2#M$..(M$|
000025B0: 2C 32 29 3A 4D B2 30 3A 4C 4D B2 C3 28 4D 24 29 |,2):M.0:LM..(M$)|
000025C0: 00 CD 2D 3C 23 81 43 4E B2 31 A4 4C 4D 00 FA 2D |..-<#.CN.1.LM..-|
000025D0: 46 23 4D 4D 24 B2 CA 28 4D 24 2C 43 4E 2C 31 29 |F#MM$..(M$,CN,1)|
000025E0: 3A 8D 39 31 30 30 3A 4D B2 4D AA 4D 4D AC 31 36 |:.9100:M.M.MM.16|
000025F0: AE 28 4C 4D AB 43 4E 29 3A 82 00 00 2E 50 23 8E |.(LM.CN):....P#.|
00002600: 00 14 2E 8C 23 8B 4D 4D 24 B2 22 30 22 A7 4D 4D |....#.MM$."0".MM|
00002610: B2 30 3A 8E 00 2B 2E 96 23 4D 4D B2 C5 28 4D 4D |.0:..+..#MM..(MM|
00002620: 24 29 3A 8B 4D 4D B3 B1 30 A7 8E 00 3E 2E A0 23 |$):.MM..0...>..#|
00002630: 4D 4D B2 C6 28 4D 4D 24 29 AB 35 35 3A 8E 00 50 |MM..(MM$).55:..P|
00002640: 2E 1C 25 8F 20 48 45 58 5F 44 45 43 49 4D 41 4C |..%. HEX_DECIMAL|
00002650: 00 62 2E 1D 25 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |.b..%.".........|
00002660: A3 A3 00 9C 2E 21 25 53 4D B2 4D 3A 4D 24 B2 22 |.....!%SM.M:M$."|
00002670: 24 22 3A 81 43 4E B2 33 A4 30 A9 AB 31 3A 43 4D |$":.CN.3.0..1:CM|
00002680: 25 B2 53 4D AD 28 31 36 AE 43 4E 29 3A 8D 39 36 |%.SM.(16.CN):.96|
00002690: 30 30 3A 4D 24 B2 4D 24 AA 4D 4D 24 00 B6 2E 26 |00:M$.M$.MM$...&|
000026A0: 25 53 4D B2 53 4D AB 28 31 36 AE 43 4E 29 AC 43 |%SM.SM.(16.CN).C|
000026B0: 4D 25 3A 82 3A 8E 00 D2 2E 80 25 8B 43 4D 25 B3 |M%:.:.....%.CM%.|
000026C0: 31 30 A7 4D 4D 24 B2 C7 28 43 4D 25 AA 34 38 29 |10.MM$..(CM%.48)|
000026D0: 3A 8E 00 E6 2E 8A 25 4D 4D 24 B2 C7 28 43 4D 25 |:.....%MM$..(CM%|
000026E0: AA 35 35 29 3A 8E 00 FF 2E 10 27 99 53 44 24 22 |.55):.....'.SD$"|
000026F0: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 22 00 |.......... ".|
00002700: 30 2F 1A 27 97 43 52 54 AA 4A 2C 31 36 38 3A 4A |0/.'.CRT.J,168:J|
00002710: B2 4A AA 31 3A 81 4B B2 32 A4 31 A9 AB 31 3A 53 |.J.1:.K.2.1..1:S|
00002720: 24 B2 CA 28 C4 28 43 28 49 AB 4B 29 29 2C 32 29 |$..(.(C(I.K)),2)|
00002730: 00 5F 2F 24 27 81 4C B2 31 A4 C3 28 53 24 29 3A |._/$'.L.1..(S$):|
00002740: 97 43 52 54 AA 4A 2C C5 28 CA 28 53 24 2C 4C 2C |.CRT.J,.(.(S$,L,|
00002750: 31 29 29 AA 31 37 36 3A 4A B2 4A AA 31 3A 82 00 |1)).176:J.J.1:..|
00002760: 83 2F 2E 27 97 43 52 54 AA 4A 2C 31 37 32 3A 4A |./.'.CRT.J,172:J|
00002770: B2 4A AA 31 3A 82 3A 97 43 52 54 AA 4A AB 31 2C |.J.1:.:.CRT.J.1,|
00002780: 31 36 39 00 AF 2F 38 27 99 53 44 24 22 11 11 11 |169../8'.SD$"...|
00002790: 11 11 11 11 11 11 11 4E 4F 54 45 3A 12 28 54 52 |.......NOTE:.(TR|
000027A0: 41 43 4B 2C 53 45 43 54 4F 52 29 20 22 3A 8E 00 |ACK,SECTOR) ":..|
000027B0: B5 2F F8 2A 3A 00 ED 2F 02 2B 97 43 52 54 AA 4A |./.*:../.+.CRT.J|
000027C0: 2C 31 39 30 3A 4A B2 4A AA 31 3A 53 56 B2 43 28 |,190:J.J.1:SV.C(|
000027D0: 49 AB 32 29 AA 43 28 49 AB 31 29 AC 32 35 36 3A |I.2).C(I.1).256:|
000027E0: 53 24 B2 CA 28 C4 28 53 56 29 2C 32 29 00 1C 30 |S$..(.(SV),2)..0|
000027F0: 0C 2B 81 4C B2 31 A4 C3 28 53 24 29 3A 97 43 52 |.+.L.1..(S$):.CR|
00002800: 54 AA 4A 2C C5 28 CA 28 53 24 2C 4C 2C 31 29 29 |T.J,.(.(S$,L,1))|
00002810: AA 31 37 36 3A 4A B2 4A AA 31 3A 82 00 33 30 16 |.176:J.J.1:..30.|
00002820: 2B 4A B2 4A AA 31 3A 97 43 52 54 AA 4A AB 31 2C |+J.J.1:.CRT.J.1,|
00002830: 31 38 38 00 60 30 20 2B 99 53 44 24 22 11 11 11 |188.`0 +.SD$"...|
00002840: 11 11 11 11 11 11 11 11 B8 B8 B8 B8 3A 12 3E 4E |............:.>N|
00002850: 55 4D 42 45 52 20 42 4C 4F 43 4B 53 3C 22 3A 8E |UMBER BLOCKS<":.|
00002860: 00 78 30 E0 2E 8F 20 55 4E 53 43 52 41 54 43 48 |.x0... UNSCRATCH|
00002870: 20 52 4F 55 54 49 4E 45 00 90 30 E1 2E 8F 22 B8 | ROUTINE..0...".|
00002880: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00002890: 00 9C 30 EA 2E 99 C7 28 31 34 32 29 00 C4 30 F4 |..0....(142)..0.|
000028A0: 2E 99 22 93 11 11 54 48 45 20 53 43 52 41 54 43 |.."...THE SCRATC|
000028B0: 48 45 44 20 46 49 4C 45 20 4E 41 4D 45 53 20 57 |HED FILE NAMES W|
000028C0: 49 4C 4C 22 00 D9 30 FE 2E 99 22 42 45 20 44 49 |ILL"..0..."BE DI|
000028D0: 53 50 4C 41 59 45 44 2E 22 00 FF 30 08 2F 99 22 |SPLAYED."..0./."|
000028E0: 11 59 4F 55 20 4D 41 59 20 44 45 43 49 44 45 20 |.YOU MAY DECIDE |
000028F0: 57 48 49 43 48 20 46 49 4C 45 20 59 4F 55 22 00 |WHICH FILE YOU".|
00002900: 17 31 12 2F 99 22 57 49 53 48 20 54 4F 20 52 45 |.1./."WISH TO RE|
00002910: 43 4F 56 45 52 2E 22 00 3A 31 1C 2F 99 22 11 11 |COVER.".:1./."..|
00002920: 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 |.RETURN. TO CONT|
00002930: 49 4E 55 45 22 3A 8D 33 31 30 00 43 31 26 2F 99 |INUE":.310.C1&/.|
00002940: 22 93 22 00 57 31 30 2F A0 33 3A A0 31 35 3A 9F |".".W10/.3:.15:.|
00002950: 31 35 2C 38 2C 31 35 00 77 31 3A 2F 54 B2 44 49 |15,8,15.w1:/T.DI|
00002960: 3A 53 B2 31 3A 9F 33 2C 38 2C 33 2C 22 23 30 22 |:S.1:.3,8,3,"#0"|
00002970: 3A 8D 36 33 39 30 30 00 8E 31 3F 2F 98 31 35 2C |:.63900..1?/.15,|
00002980: 22 42 2D 52 22 3B 33 3B 44 52 3B 54 3B 53 00 A2 |"B-R";3;DR;T;S..|
00002990: 31 40 2F 99 22 93 4C 4F 4F 4B 49 4E 47 20 41 54 |1@/.".LOOKING AT|
000029A0: 3A 22 00 C8 31 41 2F 99 22 11 11 54 52 41 43 4B |:"..1A/."..TRACK|
000029B0: 20 20 20 9D 9D 9D 22 54 22 20 53 45 43 54 4F 52 | ..."T" SECTOR|
000029C0: 20 20 20 9D 9D 9D 22 53 00 F2 31 44 2F 81 4A B2 | ..."S..1D/.J.|
000029D0: 30 A4 32 35 35 3A 98 31 35 2C 22 4D 2D 52 22 3B |0.255:.15,"M-R";|
000029E0: C7 28 4A 29 3B C7 28 31 37 29 3A A1 23 31 35 2C |.(J);.(17):.#15,|
000029F0: 41 24 00 08 32 4E 2F 43 28 4A 29 B2 C6 28 41 24 |A$..2N/C(J)..(A$|
00002A00: AA C7 28 30 29 29 3A 82 00 30 32 58 2F 81 44 B2 |..(0)):..02X/.D.|
00002A10: 32 A4 32 35 35 A9 33 32 3A 8B 43 28 44 29 B3 B1 |2.255.32:.C(D)..|
00002A20: 30 B0 43 28 44 AA 31 29 B2 30 A7 31 32 32 30 30 |0.C(D.1).0.12200|
00002A30: 00 61 32 62 2F 99 53 44 24 43 4C 24 53 44 24 22 |.a2b/.SD$CL$SD$"|
00002A40: 57 41 4E 54 20 54 4F 20 55 4E 53 43 52 41 54 43 |WANT TO UNSCRATC|
00002A50: 48 20 12 22 3B 3A 81 50 39 B2 31 A4 32 30 30 3A |H .";:.P9.1.200:|
00002A60: 82 00 8C 32 6C 2F A1 41 24 3A 81 4B B2 44 AA 33 |...2l/.A$:.K.D.3|
00002A70: A4 44 AA 31 38 3A 99 C7 28 43 28 4B 29 29 3B 3A |.D.18:..(C(K));:|
00002A80: 82 3A 99 22 92 3F 22 3A 8D 33 31 30 00 9F 32 76 |.:.".?":.310..2v|
00002A90: 2F 8B 49 4E 24 B2 22 59 22 A7 31 32 33 30 30 00 |/.IN$."Y".12300.|
00002AA0: C0 32 A8 2F 82 44 3A 54 B2 43 28 30 29 3A 53 B2 |.2./.D:T.C(0):S.|
00002AB0: 43 28 31 29 3A 8B 54 B2 44 49 A7 31 32 30 39 35 |C(1):.T.DI.12095|
00002AC0: 00 FD 32 B2 2F 99 22 93 46 49 4E 49 53 48 45 44 |..2./.".FINISHED|
00002AD0: 20 4C 4F 4F 4B 49 4E 47 2E 2E 22 3A 99 22 11 11 | LOOKING..":."..|
00002AE0: 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 |.RETURN. TO CONT|
00002AF0: 49 4E 55 45 2E 22 3A 8D 33 31 30 3A 8E 00 3B 33 |INUE.":.310:..;3|
00002B00: 0C 30 54 30 B2 54 3A 53 30 B2 53 3A 54 B2 43 28 |.0T0.T:S0.S:T.C(|
00002B10: 44 AA 31 29 3A 53 B2 43 28 44 AA 32 29 3A 42 30 |D.1):S.C(D.2):B0|
00002B20: B2 43 28 44 AA 32 38 29 AA 43 28 44 AA 32 39 29 |.C(D.28).C(D.29)|
00002B30: AC 32 35 36 3A 99 C7 28 31 34 29 00 69 33 0D 30 |.256:..(14).i3.0|
00002B40: 99 22 93 11 11 12 C4 49 52 45 43 54 4F 52 59 20 |.".....IRECTORY |
00002B50: C2 4C 4F 43 4B 20 C3 4F 55 4E 54 3D 22 42 30 3A |.LOCK .OUNT="B0:|
00002B60: 4E 39 B2 31 3A 99 53 30 24 00 A1 33 0E 30 A0 33 |N9.1:.S0$..3.0.3|
00002B70: 3A A0 31 35 3A 9F 31 35 2C 38 2C 31 35 3A 9F 33 |:.15:.15,8,15:.3|
00002B80: 2C 38 2C 33 2C 22 23 22 3A 8D 36 33 39 30 30 3A |,8,3,"#":.63900:|
00002B90: A1 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 |.#3,BN$:BN..(BN$|
00002BA0: 29 00 BD 33 0F 30 54 28 4E 39 29 B2 54 3A 53 28 |)..3.0T(N9).T:S(|
00002BB0: 4E 39 29 B2 53 3A 4E 39 B2 4E 39 AA 31 00 D4 33 |N9).S:N9.N9.1..3|
00002BC0: 11 30 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 |.0.15,"B-R";3;DR|
00002BD0: 3B 54 3B 53 00 E6 33 12 30 98 31 35 2C 22 42 2D |;T;S..3.0.15,"B-|
00002BE0: 50 22 3B 33 3B 30 00 00 34 13 30 A1 23 33 2C 5A |P";3;0..4.0.#3,Z|
00002BF0: 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 C7 28 30 29 |$:.Z$."".Z$..(0)|
00002C00: 00 1F 34 14 30 54 28 4E 39 29 B2 C6 28 5A 24 29 |..4.0T(N9)..(Z$)|
00002C10: 3A 8B 54 28 4E 39 29 B2 30 A7 31 32 33 31 34 00 |:.T(N9).0.12314.|
00002C20: 39 34 15 30 A1 23 33 2C 5A 24 3A 8B 5A 24 B2 22 |94.0.#3,Z$:.Z$."|
00002C30: 22 A7 5A 24 B2 C7 28 30 29 00 49 34 16 30 53 28 |".Z$..(0).I4.0S(|
00002C40: 4E 39 29 B2 C6 28 5A 24 29 00 67 34 17 30 54 24 |N9)..(Z$).g4.0T$|
00002C50: B2 CA 28 C4 28 54 29 2C 32 29 3A 53 24 B2 CA 28 |..(.(T),2):S$..(|
00002C60: C4 28 53 29 2C 32 29 00 7B 34 18 30 99 22 28 22 |.(S),2).{4.0."("|
00002C70: 54 24 22 2C 22 53 24 22 29 22 3B 00 9E 34 19 30 |T$","S$")";..4.0|
00002C80: 54 B2 54 28 4E 39 29 3A 53 B2 53 28 4E 39 29 3A |T.T(N9):S.S(N9):|
00002C90: 4E 39 B2 4E 39 AA 31 3A 89 31 32 33 30 35 00 AC |N9.N9.1:.12305..|
00002CA0: 34 1A 30 4E 39 B2 4E 39 AB 31 3A 99 00 C2 34 1B |4.0N9.N9.1:...4.|
00002CB0: 30 99 22 11 12 22 4E 39 22 20 42 4C 4F 43 4B 53 |0.".."N9" BLOCKS|
00002CC0: 11 22 00 F8 34 3E 30 8B 4E 39 B3 B1 42 30 A7 99 |."..4>0.N9..B0..|
00002CD0: 22 11 11 2A 2A 12 49 4E 43 4F 52 52 45 43 54 20 |"..**.INCORRECT |
00002CE0: 42 4C 4F 43 4B 20 43 4F 55 4E 54 92 2A 2A 11 11 |BLOCK COUNT.**..|
00002CF0: 22 3A 8D 33 30 30 3A 8E 00 13 35 48 30 99 22 11 |":.300:...5H0.".|
00002D00: CC 4F 4F 4B 53 20 47 4F 4F 44 20 53 4F 20 46 41 |.OOKS GOOD SO FA|
00002D10: 52 2E 22 00 3E 35 52 30 99 22 11 D3 48 41 4C 4C |R.".>5R0."..HALL|
00002D20: 20 57 45 20 50 52 4F 43 45 45 44 3F 22 3A 8D 33 | WE PROCEED?":.3|
00002D30: 31 30 3A 8B 49 4E 24 B3 B1 22 59 22 A7 8E 00 6A |10:.IN$.."Y"...j|
00002D40: 35 5C 30 99 22 93 11 11 D7 45 27 4C 4C 20 43 48 |5\0."....E'LL CH|
00002D50: 45 43 4B 20 54 48 41 54 20 54 48 45 20 41 42 4F |ECK THAT THE ABO|
00002D60: 56 45 20 42 4C 4F 43 4B 53 22 00 93 35 66 30 99 |VE BLOCKS"..5f0.|
00002D70: 22 11 41 52 45 20 C6 D2 C5 C5 20 42 59 20 4C 4F |".ARE .... BY LO|
00002D80: 4F 4B 49 4E 47 20 41 54 20 54 48 45 20 C2 C1 CD |OKING AT THE ...|
00002D90: 2E 11 22 00 C2 35 70 30 99 22 11 D4 48 45 20 54 |.."..5p0."..HE T|
00002DA0: 52 41 43 4B 2F 53 45 43 54 4F 52 53 20 46 4F 52 |RACK/SECTORS FOR|
00002DB0: 20 54 48 45 20 46 49 4C 45 20 57 49 4C 4C 20 42 | THE FILE WILL B|
00002DC0: 45 22 00 EC 35 7A 30 99 22 11 44 49 53 50 4C 41 |E"..5z0.".DISPLA|
00002DD0: 59 45 44 2E 20 C9 46 20 41 20 42 4C 4F 43 4B 20 |YED. .F A BLOCK |
00002DE0: 49 53 20 4F 43 43 55 50 49 45 44 22 00 16 36 84 |IS OCCUPIED"..6.|
00002DF0: 30 99 22 11 54 48 45 20 D5 CE D3 C3 D2 C1 D4 C3 |0.".THE ........|
00002E00: C8 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 21 |. WILL NOT WORK!|
00002E10: 22 3A 8D 33 30 30 00 48 36 85 30 A0 31 35 3A 9F |":.300.H6.0.15:.|
00002E20: 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 52 24 3A |15,8,15,"I".DR$:|
00002E30: 8D 36 33 39 30 30 3A 99 22 93 22 3A 99 C7 28 31 |.63900:.".":..(1|
00002E40: 34 32 29 3A 4B 31 B2 31 00 62 36 86 30 9F 32 2C |42):K1.1.b6.0.2,|
00002E50: 38 2C 32 2C 22 24 22 AA 44 52 24 3A 8D 36 33 39 |8,2,"$".DR$:.639|
00002E60: 30 30 00 7C 36 87 30 96 20 A5 42 28 49 29 B2 28 |00.|6.0. .B(I).(|
00002E70: 5A AF 50 28 49 29 29 AD 50 28 49 29 00 98 36 88 |Z.P(I)).P(I)..6.|
00002E80: 30 46 46 B2 44 31 AA 28 54 28 4B 31 29 AB 31 29 |0FF.D1.(T(K1).1)|
00002E90: AC 53 33 3A 50 50 B2 30 00 AE 36 89 30 81 4B 32 |.S3:PP.0..6.0.K2|
00002EA0: B2 30 A4 46 46 3A A1 23 32 2C 41 24 3A 82 00 CB |.0.FF:.#2,A$:...|
00002EB0: 36 98 30 54 B2 54 28 4B 31 29 3A 99 22 93 22 3A |6.0T.T(K1):.".":|
00002EC0: 8D 36 34 30 30 3A 8D 36 35 38 30 00 EF 36 A2 30 |.6400:.6580..6.0|
00002ED0: 99 53 44 24 22 43 48 45 43 4B 20 54 48 41 54 20 |.SD$"CHECK THAT |
00002EE0: 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 22 00 |THE FOLLOWING ".|
00002EF0: 0A 37 A7 30 99 22 11 53 45 43 54 4F 52 53 20 41 |.7.0.".SECTORS A|
00002F00: 52 45 20 46 52 45 45 3D D7 22 00 3E 37 AC 30 81 |RE FREE=.".>7.0.|
00002F10: 4B 32 B2 31 A4 4E 39 3A 8B 54 28 4B 32 29 B2 54 |K2.1.N9:.T(K2).T|
00002F20: A7 99 52 24 28 50 50 29 CA 28 C4 28 53 28 4B 32 |..R$(PP).(.(S(K2|
00002F30: 29 29 2C 32 29 52 24 28 31 AB 50 50 29 3B 00 4E |)),2)R$(1.PP);.N|
00002F40: 37 B1 30 50 50 B2 31 AB 50 50 3A 82 3A 99 00 5F |7.0PP.1.PP:.:.._|
00002F50: 37 B6 30 99 22 11 4F 4B 3F 22 3A 8D 33 31 30 00 |7.0.".OK?":.310.|
00002F60: 8A 37 BB 30 8B 49 4E 24 B3 B1 22 59 22 A7 99 22 |.7.0.IN$.."Y".."|
00002F70: 93 53 4F 52 52 59 2E 2E 22 3A 99 C7 28 31 34 29 |.SORRY..":..(14)|
00002F80: 3A 8D 33 30 30 3A A0 32 3A 8E 00 9F 37 C0 30 A0 |:.300:.2:...7.0.|
00002F90: 32 3A 8B 4B 31 B1 B2 4E 39 A7 A0 31 35 3A 8E 00 |2:.K1..N9..15:..|
00002FA0: BA 37 CA 30 4B 31 B2 4B 31 AA 31 3A 8B 54 28 4B |.7.0K1.K1.1:.T(K|
00002FB0: 31 29 B2 30 A7 31 32 36 30 30 00 CD 37 D4 30 8B |1).0.12600..7.0.|
00002FC0: 54 28 4B 31 29 B2 54 A7 31 32 34 39 30 00 D8 37 |T(K1).T.12490..7|
00002FD0: D9 30 89 31 32 34 32 32 00 E8 37 38 31 99 22 93 |.0.12422..781.".|
00002FE0: 22 3A 99 C7 28 31 34 29 00 18 38 42 31 99 22 CE |":..(14)..8B1.".|
00002FF0: 4F 57 20 4D 4F 44 49 46 59 20 54 48 45 20 12 4D |OW MODIFY THE .M|
00003000: 41 47 49 43 20 42 59 54 45 92 20 4F 4E 20 44 49 |AGIC BYTE. ON DI|
00003010: 52 45 43 54 4F 52 59 22 00 33 38 4C 31 99 22 11 |RECTORY".38L1.".|
00003020: D4 52 41 43 4B 22 54 30 22 20 D3 45 43 54 4F 52 |.RACK"T0" .ECTOR|
00003030: 22 53 30 00 64 38 56 31 99 22 11 D4 48 45 4E 20 |"S0.d8V1."..HEN |
00003040: D7 52 49 54 45 20 54 48 45 20 42 4C 4F 43 4B 20 |.RITE THE BLOCK |
00003050: 42 41 43 4B 20 54 4F 20 28 22 54 30 22 2C 22 53 |BACK TO ("T0","S|
00003060: 30 22 29 22 00 89 38 60 31 99 22 11 C6 49 4E 41 |0")"..8`1."..INA|
00003070: 4C 4C 59 20 12 D6 41 4C 49 44 41 54 45 92 20 54 |LLY ..ALIDATE. T|
00003080: 48 45 20 44 49 53 4B 21 22 00 94 38 6A 31 8D 33 |HE DISK!"..8j1.3|
00003090: 30 30 3A 8E 00 A2 38 C8 32 54 B2 54 31 3A 53 B2 |00:...8.2T.T1:S.|
000030A0: 53 31 00 AE 38 C9 32 81 4A B2 31 A4 42 30 00 E6 |S1..8.2.J.1.B0..|
000030B0: 38 CD 32 A0 33 3A A0 31 35 3A 9F 31 35 2C 38 2C |8.2.3:.15:.15,8,|
000030C0: 31 35 3A 9F 33 2C 38 2C 33 2C 22 23 22 3A 8D 36 |15:.3,8,3,"#":.6|
000030D0: 33 39 30 30 3A A1 23 33 2C 42 4E 24 3A 42 4E B2 |3900:.#3,BN$:BN.|
000030E0: C6 28 42 4E 24 29 00 0F 39 D2 32 42 4E 24 B2 CA |.(BN$)..9.2BN$..|
000030F0: 28 42 4E 24 2C 32 29 3A 42 4D B2 42 4E AA 31 37 |(BN$,2):BM.BN.17|
00003100: AA 31 32 AC B5 28 28 42 4E AA 31 29 AD 34 29 00 |.12..((BN.1).4).|
00003110: 34 39 DC 32 99 3A 99 22 28 22 54 22 2C 22 53 22 |49.2.:."("T","S"|
00003120: 29 5F 20 C6 C9 D2 D3 D4 20 C2 CC CF C3 CB 22 3A |)_ ..... .....":|
00003130: 4E 39 B2 31 00 4B 39 E6 32 98 31 35 2C 22 42 2D |N9.1.K9.2.15,"B-|
00003140: 52 22 3B 33 3B 44 52 3B 54 3B 53 00 5D 39 F0 32 |R";3;DR;T;S.]9.2|
00003150: 98 31 35 2C 22 42 2D 50 22 3B 33 3B 30 00 77 39 |.15,"B-P";3;0.w9|
00003160: FA 32 A1 23 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 |.2.#3,Z$:.Z$."".|
00003170: 5A 24 B2 C7 28 30 29 00 8D 39 04 33 54 B2 C6 28 |Z$..(0)..9.3T..(|
00003180: 5A 24 29 3A 8B 54 B2 30 A7 37 32 30 30 00 A7 39 |Z$):.T.0.7200..9|
00003190: 0E 33 A1 23 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 |.3.#3,Z$:.Z$."".|
000031A0: 5A 24 B2 C7 28 30 29 00 B3 39 18 33 53 B2 C6 28 |Z$..(0)..9.3S..(|
000031B0: 5A 24 29 00 D1 39 22 33 54 24 B2 CA 28 C4 28 54 |Z$)..9"3T$..(.(T|
000031C0: 29 2C 32 29 3A 53 24 B2 CA 28 C4 28 53 29 2C 32 |),2):S$..(.(S),2|
000031D0: 29 00 E5 39 2C 33 99 22 28 22 54 24 22 2C 22 53 |)..9,3."("T$","S|
000031E0: 24 22 29 22 3B 00 EB 39 36 33 82 00 01 3A 40 33 |$")";..963...:@3|
000031F0: 99 22 5F 20 CC C1 D3 D4 20 C2 CC CF C3 CB 11 11 |."_ .... .......|
00003200: 22 00 18 3A 4A 33 99 4E 39 22 20 42 4C 4F 43 4B |"..:J3.N9" BLOCK|
00003210: 53 11 22 3A 8D 33 30 30 00 41 3A F7 33 42 4E 24 |S.":.300.A:.3BN$|
00003220: B2 CA 28 42 4E 24 2C 32 29 3A 42 4D B2 42 4E AA |..(BN$,2):BM.BN.|
00003230: 31 37 AA 31 32 AC B5 28 28 42 4E AA 31 29 AD 34 |17.12..((BN.1).4|
00003240: 29 00 66 3A F8 33 99 3A 99 22 28 22 54 22 2C 22 |).f:.3.:."("T","|
00003250: 53 22 29 5F 20 C6 C9 D2 D3 D4 20 C2 CC CF C3 CB |S")_ ..... .....|
00003260: 22 3A 4E 39 B2 31 00 79 3A 9C F9 84 31 35 2C 45 |":N9.1.y:...15,E|
00003270: 2C 45 24 2C 45 31 2C 45 32 00 A3 3A 9D F9 8B 45 |,E$,E1,E2..:...E|
00003280: B3 B1 30 A7 99 3A 99 22 2A 2A 12 44 49 53 4B 20 |..0..:."**.DISK |
00003290: 45 52 52 4F 52 92 2A 2A 22 45 2C 45 24 2C 45 31 |ERROR.**"E,E$,E1|
000032A0: 2C 45 32 00 A9 3A 9E F9 8E 00 00 00 |,E2..:...... |
....... PETER J. PONZO.2....53281,6:.532
80,6:.8000.@.D..********.N.E..* *.\
.F..* MENU *.J.G.." .... *.X.H..********
...I. 15:.15,8,15:.G(14)...N.."."S0$...S
.."..1.:LOAD BLOCK INTO BUFFER"...X.."..
2.:SEE ASCII OF ABOVE BLOCK"......"..3.:
MODIFY ABOVE BLOCK".(...."..4.:STORE ABO
VE BLOCK IN RAM".O...."..5.:WRITE BLOCK
IN RAM TO DISK".R. .."..6.:BLOCK AVAILAB
ILITY MAP"......"..7.:DISK COMMANDS"....
.."..8.:TRACE BLOCKS......"..9.:UNSCRATC
H A FILE.Y...."..RETURN. TO QUIT"...F..3
10:.IN.0.7900.".G..IN.1000,2000,3000,400
0,5000,6000,7000,7100,7500.+.H..105.6.,.
. GET.A.-.." ....Z.1.."..RETURN. TO CON
T".P.6..IN$:.IN$.."".310...@..IN$:.IN$."
".320...J.IN.E(IN$):....... LOAD BLOCK I
NTO BUFFER.O....".......................
.... 3: 15:.15,8,15:.3,8,3,"#":.#3,BN$:B
N.F(BN$).)...BN$.J(BN$,2):BM.BN.17.12..(
(BN.1).4).@....15,"B-P";3;1:.".".U....K.
0.10:.3,K$;:..K....".".SD$."......".....
.".TRACK,SECTOR. ....";T,S...$..15,"B-
R";3;DR;T;S......15,"B-P";3;0.O.8..#3,Z$
:.Z$."".Z$.G(0)...B.C(0).F(Z$):.1200...`
.."..RETURN TO TERMINATE":CRT.01069:.D(C
(0))D(C(1));.J.J.J.2:.I.2.255:.15,"M-R";
G(I);G(BM):I%.I.32.E.T..#15,B$:.B$."".B$
.G(0)...~.C(I).F(B$):.T..DI.1165......S.
0.I%.32.I.5..10000......S.0.I%.32.I..110
00.B....CRT.J,C(I).X....A$:.A$..""..1195
.....J.J.1:...... 3: 15:.SD$"..":.300:..
3....SD$".....BLOCK HAS NOT BEEN COMPLET
ELY LOADED".M...."..WANT TO CONTINUE LOA
DING N...";N$:.N$."N".I.256......SD$".
. ".G
...." ".
M.......... C(0)/C(1)......"............
...SD$:.15,"B-P";3;1...D..#3,B$:.B$."".B
$.G(0).-.N.C(1).F(B$).A.X..C(0).0..SD$:.
"LAST TRACK":."BYTES USED="C(1):.......S
D$:."NEXT TRACK="C(0):."NEXT SECTOR="C(1
).....NT.C(0):NS.C(1):....P.. PRINT ASCI
I.K.Q.."..............R.IJ.0:II.255.8:."
.".!.U.."..RETURN TO DISCONTINUE PRINTIN
G..":.S0$:AB.31:EE$.". .".S.Z..I.0.II.8:
Y$.D(I):Y$.".".I(" ".Y$,3):E0$.EE$.....
."."CL$:."."Y$".->";:.J.0.7:H.I.J:C5.C(H
). ....C5.AB.E0$.E0$.G(C5):.2015.....E0$
.E0$." ".M...E$.I(" ".J(D(C5),2),3)...
...R$(P)E$R$(1.P);:P.1.P:.......A$:.A$..
"".II.I:I.255.$....E0$:.:.CL$:.CL$:.CL$:
.CL$.J...."....CURRENT TRACK,SECTOR="T",
"S.K...."NEXT TRACK,SECTOR="NT","NS.Z...
.IJ.0..300............ MODIFY BLOCK.....
.".............Q....".THE ASCII CODE FOR
EACH BLOCK-BYTE"......".WILL BE DISPLAY
ED..I.E. C(0)...C(255).".0....".YOU MAY
REDEFINE ANY C(I). THE MODIFIED".Z....".
BLOCK WILL BE WRITTEN TO THE DISK"......
".INTO THE TRACK,SECTOR YOU SELECT."...&
.."..."...0..300:.".":II.255.8:IJ.1...:.
.".":.2005...D..">>>.RETURN TO QUIT.<<<"
:.I$...N..".WHICH I DO YOU WISH TO MODIF
Y. ......";I$:I.E(I$).*.X..I$.".".31
73.N.B.."CURRENT C("I")= ....."C(I)
" NEW VALUE= .....";:.C(I).}.C..I.II
.II.I...D..3150...E..".":.2005:."
>>>.OK.? ";:.204,0.U.F..310:.204,1:.IN
$."N"..:.3150...G.."..RETURN TO MENU.
N...";IN$...H..IN$."Y"...+.I..".CURRENT
TRACK,SECTOR="T","S.L.J.."NEXT TRACK,SEC
TOR="NT","NS...L.."...DESTINATION TRACK,
SECTOR. ....";T,S:.(T.1).(T.TT).3180.O
.V.."....DESTINATION DRIVE. ....";DR$:
DR.E(DR$):.DR$.".".3190..... 3: 15:.15,8
,15......3,8,3,"#":.63900.,....#3,BN$:BN
.F(BN$):."."SD$"....USING BUFFER#"BN.H..
.BM.BN.17.12..((BN.1).4).U....I.0.255.{.
...15,"M-W";G(I);G(BM);G(1);G(C(I)).....
.". ..."I.........P..15,"U2:";3;DR;T;S
.F.Z..15,"I".DR$:.63900: 3: 15.Q....".":
.... .. STORE C(I) IN RAM......"........
...............".";:.2000.8....".STARTIN
G VALUE OF I. ....";I1.N....".STARTING
MEMORY LOC.N.($=HEX) ....";M$:.9000..
.H..K1.I1.255:.M.I1.K1,C(K1):..C.R.M.M.I
1.256:.".NEXT. MEM'Y LOC'N="M;:.9500:.".
"M$.L....300......".";:. ...... WRITE
RAM TO DISK......"..................A..
..".MEM'Y LOC'N OF BLOCK.($=HEX) ...."
;M$:.9000.C...."..START WITH I.= ...."
;I1......"..END WITH I.= ....";I2...D.
.I.I1.I2:C(I).B(M.I):....N.."....DESTINA
TION TRACK,SECTOR. ....";T,S:.(T.1).(T
.TT).5070.".X.."....DESTINATION DRIVE.
....";DR$:DR.E(DR$):.DR$.".".5080.`....
3,8,3,"#":.#3,BN$:BN.F(BN$):."."SD$"....
USING BUFFER#"BN.|...BM.BN.17.12..((BN.1
).4)......I.I1.I2:.". ..."I......15,"M
-W";G(I);G(BM);G(1);G(C(I)).A.....X....1
5,"U2:";3;DR;T;S......15,"I".DR$:.63900:
3: 15...(..".":....P.. BAM...Z.."..../.
... .B(I).(Z.P(I)).P(I).?... 15:.G(142).
Y...."....1.:DISPLAY BAM".P...."..2.:CHA
NGE BAM"......"..3.:RETURN TO MAIN MENU"
......310:.".":.IN.3.6095......IN.6100,6
280.E.J..6030...O. 2: 3:.15,8,15,"I".DR$
:.G(14):.63900:....T.. DISPLAY BAM......
"............9...."..WHICH TRACKS":."...
..........`...."..FIRST,LAST TRACK ...
.";TS,TE......(TS.1).(TS.TT).(TE.1).(TE.
TT).(TE.TS).6130......"..RETURN.. TO STO
P":.S0$.K....15,8,15,"I".DR$:.63900.....
.2,8,2,"$".DR$:.63900...$.FF.D1.(TS.1).S
3......K.0.FF:.#2,A$:..1.8..T.TS.TE:.T.5
1..#2,A$,A$,A$,A$.;.B..6400.R.L..A$:.A$.
."".T.TT.1.L.V..: 2: 15:.6870:.310:..}.`
.. CHANGE BAM...J..".............T..".MO
RE CHANGES Y...";I$...~..I$.."Y"......
..DT.67..".SORRY..CAN'T CHANGE BAM FOR T
HIS DISK.":.310:..$....".TRACK V...";T
:.(T.1).(T.TT).N6280.5... 15:.15,8,15.N.
.. 2:.2,8,2,"#":.63900.F....15,"U1:";2;D
R;DI;0.Z....15,"B-P";2;T.4......"..ENTER
NEGATIVE SECTOR TO QUIT.":.6400:.6580..
.D.."..........CHANGE WHICH SECTOR .
.V...";S...N..S.0.S..SC(T).6260...X. 2:
15:.SD$.6....6620:.6480:.6580:.:.MD$".OK
?.";:.310:.CL$.I....IN$."Y"..6730.X....M
D$CL$SD$.H....6480:.6340.{....K.0.S2:.#2
,A$......A$."".A$.G(0).....B(K).F(A$)...
......P.. PRINT TRACK.G.Z.."............
Z.D..K.1.S1:Z.B(K)...N..I.0.7...X.X..B(I
):.X$(X);:.I......K. ...Z.B(K):.I.0.SC(T
).SC(TT).9...X..B(I):.X$(X);:.I:..\. .."
.".22)"TRACK."T"..FREE="B(0).B.....T....
H(S1$,SC(T))......H(S2$,SC(T)).23)"# SEC
TORS="SC(T)...H..SC(T).21..H(S3$,SC(T).1
):.6610.Q.M..H(S3$,SC(T))...R..S0$:.....
.. CHANGE SECTOR......".................
..S.8.Z.B(1):SS.S:.6670.=....S.16.Z.B(2)
:SS.S.8:.6670.P...Z.B(3):SS.S.16.M...NZ.
(.Z.P(SS)).(Z..P(SS)).....B(0).B(0).(NZ.
Z).(NZ.Z). ."..S.8.B(1).NZ:.6720...,..S.
16.B(2).NZ:.6720.D.6.B(3).NZ.J.@...W.J..
15,8,15...T..MD$".ARE YOU SURE?.";:.310:
.IN$;:.IN$.."Y"...#.^.."...CHANGING BAM.
.";.9.H..3,8,3,"#":.63900.O.R..#3,BN$:BN
.F(BN$).K.|.BM.BN.17.12..((BN.1).4).W...
.I.0.S2......15,"M-W";G(I.T.4);G(BM);G(1
);G(B(I)):.......15,"U2:";3;DR;DI;0.Y.B.
.15,"I".DR$:.63900: 3: 15...L.... V.."..
........................RETURN. TO CONTI
NUE";:..+ X.. DISK COMMANDS.? Y.."......
........J Z..G(14).B ].."...1.:INITIALIZ
E".W ^.."..2.:VALIDATE".. _.."..3.:CHANG
E DRIVE#.. `.."..4.:DISPLAY DIRECTORY".K
A.."....9.:RETURN TO MENU".. B..310:.IN
.1.IN.9.7000..!G..".OK..":. IN .7020,703
0,7040,7050,,,,,7099.:!L. 15:.15,8,15,"I
".DR$:.63900:.7000.`!V. 15:.15,8,15,"V".
DR$:.63900:.7000..!..."...DRIVE ....";
DR$:DR.E(DR$):.7000..!...DR.0....!...DR.
1.ZD1..!...300:.7000..!....M!... TRACE B
LOCKS..!...".............."A.."..STARTIN
G TRACK,SECTOR. ....";T,S.2"B..(T.1).(
T.TT).(S.0).(S.SC(T)).7110.J"F. 3: 15:.1
5,8,15:.3,8,3,"#":.63900:.#3,BN$:BN.F(BN
$).."G.BN$.J(BN$,2):BM.BN.17.12..((BN.1)
.4).."K..:."("T","S")_ FIRST BLOCK":N9.1
.O"P..15,"B-R";3;DR;T;S.."Z..15,"B-P";3;
0.."...#3,Z$:.Z$."".Z$.G(0)..#..T.F(Z$):
.T.0.7200.+#...#3,Z$:.Z$."".Z$.G(0).7#..
S.F(Z$).U#..T$.J(D(T),2):S$.J(D(S),2).I#
..."("T$","S$")";.{#..N9.N9.1:.7120..# .
."_ LAST BLOCK.."..#*..N9" BLOCKS.":.300
:...#L.. UNSCRATCH.J#M.."...........#V..
".WE'LL DO THE FOLLOWING:"..$W.."..1.:GO
THRU' DIRECTORY TRACK"DI" UNTIL".C$X.."
WE FIND THE SCRATCHED FILE NAME.".L$Y.
."..2.:TRACE THE BLOCKS AND COMPARE"..$Z
.." THE BLOCKS OBTAINED WITH THE"..$[..
" DIRECTORY BLOCK COUNT."..$\.."..3.:LO
OK AT THE BLOCK AVAILABILTY MAP"..%].."
TO SEE IF ALL THE BLOCKS ARE FREE.".1%^
..".>>IF ALL OF THE ABOVE ARE OK".V%_.."
WE MAY MODIFY THE DIRECTORY".P%`.." A
S FOLLOWS:":.300..%T..".MODIFY THE BLOCK
SO THAT THE"..%Y..".MAGIC BYTE".U%~.."
WHICH OCCURS JUST .3. PLACES BEFORE"..%
..." THE NAME IS AS FOLLOWS:"..&..." 1
29=SEQ FILE".#&..." 130=PROG FILE".9&..
." 131=USR FILE".O&..." 132=REL FILE".
~&...".EXAMPLE:TO UNSCRATCH A PROG FILE
'ABZ'"..&..."FIND IT'S NAME ON THE DIREC
TORY, AND".P&..."SELECT MENU ITEM=MODIFY
BLOCK."..&..."YOU WILL SEE:"..'D.."...
0. 0. 0. 0. 19. 3. 65. 66. 90....ETC".5'
N.." ^ ^ ^ ^ ^ ^".U'X.." SHO
ULD BE .TRCK.A B Z"..'..." A 130 .
&SEC.FILENAME(IN ASCII)"..'...300:."."S0
$..'...".MODIFY THE BYTE WHICH IDENTIFIE
S THE "..'..."FILE TYPE..TO 130..SO IT R
EADS:"..(..."... 0. 0. 0. 130. 19. 3. 65
. 66. 90....ETC".F(..."..4.:WRITE THE BL
OCK BACK TO THE DISK.".N(..."..5.:QUIT A
ND VALIDATE THE DISK."..(..."
........". (...".5.:PRAY..":.310.I(H..".
WANT TO TRY Y...";A$:.A$.."Y"...T(R..1
2000..(.. 15:.G(142):.".":...(@.. INITIA
LIZE..)A.."............)B..G(142):.".".D
)E..C(255),T(120),S(120),SC(77),B(4).E)F
..1,17,20,24,19,30,17,35,16,0..)G..65,17
,20,24,18,30,17,35,16,0..)H..67,39,28,53
,26,64,24,77,22,0.A)J.R$(0).".":R$(1).".
".W)T.SD$."..........."..)Y.MD$.".......
............."..*C..".DRIVE. ....";DR$
:DR.E(DR$).6*H..15,8,15,"I".DR$:.63900.W
*R.K$." THIS BLOCK IS EMPTY ".S*|..".W
AIT...":.:WW.0:A0.1..*}..3,8,3,"$".DR$:.
63900..*~..#3,A$:A.F(A$.G(0))..*..DT:.A
.DT.8070..*..WW.WW.1:.WW.3. .I.1.9:.DT:.
:.8063..+..."...***.NOT A RECOGNIZABLE D
ISK.***": 3:."..WANT TO QUIT?".5+...310:
.IN$."Y".7900.?+...8110.V+...DT.1.DT.65.
KK.143.F+...DT.67.KK.5.P+...8200..+...A1
:.A1.0.8090..+...B1:.I.A0.A1:SC(I).B1.1:
.:A0.I:.8075.R+...DT.1.DT.65.D1.1:TT.35:
S2.3:DI.18..+...DT.67.D1.257:TT.77:S2.4:
DI.39.., .S1.S2.1:S3.S2.1..,.. 3:.TT.0.8
065.1,...I.0.7:P(I).2.I:..I,..X$(0)."Q":
X$(1)."W".Z,B.S0$.".....................
................."..,L.CL$."":.I.1.39:CL
$.CL$." ":..I,V.S1$."^....^....^....^...
.^....^....^...."..,..S2$.". . .
. . . ."..-..S3$."0 5 1
0 15 20 25 30".$-....?-. .I.3.KK
:.#3,A$:.:.".";.D-. .I.1.23:.#3,A$:A$.A$
.G(0):.A$;:..L-. .:..~-(#. DECIMAL_HEX..
-)#.".............--#M.E(M$):.M..0....-2
#M$.J(M$,2):M.0:LM.C(M$).M-<#.CN.1.LM..-
F#MM$.J(M$,CN,1):.9100:M.M.MM.16.(LM.CN)
:....P#.....#.MM$."0".MM.0:..+..#MM.E(MM
$):.MM..0...>. #MM.F(MM$).55:..P..%. HEX
_DECIMAL.B..%."..............!%SM.M:M$."
$":.CN.3.0..1:CM%.SM.(16.CN):.9600:M$.M$
.MM$...&%SM.SM.(16.CN).CM%:.:..R..%.CM%.
10.MM$.G(CM%.48):.....%MM$.G(CM%.55):...
..'.SD$".......... ".0/.'.CRT.J,168:J
.J.1:.K.2.1..1:S$.J(D(C(I.K)),2)._/$'.L.
1.C(S$):.CRT.J,E(J(S$,L,1)).176:J.J.1:..
./.'.CRT.J,172:J.J.1:.:.CRT.J.1,169../8'
.SD$"..........NOTE:.(TRACK,SECTOR) ":..
./.*:../.+.CRT.J,190:J.J.1:SV.C(I.2).C(I
.1).256:S$.J(D(SV),2)..0.+.L.1.C(S$):.CR
T.J,E(J(S$,L,1)).176:J.J.1:..30.+J.J.1:.
CRT.J.1,188.`0 +.SD$"...............:.>N
UMBER BLOCKS<":..X0... UNSCRATCH ROUTINE
..0..."...................0...G(142).D0.
.."...THE SCRATCHED FILE NAMES WILL".Y0.
.."BE DISPLAYED."..0./.".YOU MAY DECIDE
WHICH FILE YOU"..1./."WISH TO RECOVER.".
:1./."...RETURN. TO CONTINUE":.310.C1&/.
".".W10/ 3: 15:.15,8,15.W1:/T.DI:S.1:.3,
8,3,"#0":.63900..1?/.15,"B-R";3;DR;T;S..
1@/.".LOOKING AT:".H1A/."..TRACK ..."T
" SECTOR ..."S..1D/.J.0.255:.15,"M-R";
G(J);G(17):.#15,A$..2N/C(J).F(A$.G(0)):.
.02X/.D.2.255.32:.C(D)..0.C(D.1).0.12200
.A2B/.SD$CL$SD$"WANT TO UNSCRATCH .";:.P
9.1.200:...2L/.A$:.K.D.3.D.18:.G(C(K));:
.:.".?":.310..2V/.IN$."Y".12300..2./.D:T
.C(0):S.C(1):.T.DI.12095..2./.".FINISHED
LOOKING..":."...RETURN. TO CONTINUE.":.
310:..;3.0T0.T:S0.S:T.C(D.1):S.C(D.2):B0
.C(D.28).C(D.29).256:.G(14).I3.0."....DI
RECTORY BLOCK COUNT="B0:N9.1:.S0$..3.0 3
: 15:.15,8,15:.3,8,3,"#":.63900:.#3,BN$:
BN.F(BN$)..3.0T(N9).T:S(N9).S:N9.N9.1.T3
.0.15,"B-R";3;DR;T;S..3.0.15,"B-P";3;0..
4.0.#3,Z$:.Z$."".Z$.G(0)..4.0T(N9).F(Z$)
:.T(N9).0.12314.94.0.#3,Z$:.Z$."".Z$.G(0
).I4.0S(N9).F(Z$).G4.0T$.J(D(T),2):S$.J(
D(S),2).{4.0."("T$","S$")";..4.0T.T(N9):
S.S(N9):N9.N9.1:.12305..4.0N9.N9.1:..B4.
0.".."N9" BLOCKS."..4>0.N9..B0.."..**.IN
CORRECT BLOCK COUNT.**..":.300:...5H0.".
LOOKS GOOD SO FAR.".>5R0.".SHALL WE PROC
EED?":.310:.IN$.."Y"...J5\0."...WE'LL CH
ECK THAT THE ABOVE BLOCKS"..5F0.".ARE FR
EE BY LOOKING AT THE BAM..".B5P0.".THE T
RACK/SECTORS FOR THE FILE WILL BE"..5Z0.
".DISPLAYED. IF A BLOCK IS OCCUPIED"..6.
0.".THE UNSCRATCH WILL NOT WORK!":.300.H
6.0 15:.15,8,15,"I".DR$:.63900:.".":.G(1
42):K1.1.B6.0.2,8,2,"$".DR$:.63900.|6.0.
.B(I).(Z.P(I)).P(I)..6.0FF.D1.(T(K1).1)
.S3:PP.0..6.0.K2.0.FF:.#2,A$:..K6.0T.T(K
1):.".":.6400:.6580..6.0.SD$"CHECK THAT
THE FOLLOWING "..7.0.".SECTORS ARE FREE=
W".>7.0.K2.1.N9:.T(K2).T..R$(PP)J(D(S(K2
)),2)R$(1.PP);.N7.0PP.1.PP:.:.._7.0.".OK
?":.310..7.0.IN$.."Y"..".SORRY..":.G(14)
:.300: 2:...7.0 2:.K1..N9. 15:...7J0K1.K
1.1:.T(K1).0.12600.M7T0.T(K1).T.12490.X7
Y0.12422..781.".":.G(14)..8B1."NOW MODIF
Y THE .MAGIC BYTE. ON DIRECTORY".38L1.".
TRACK"T0" SECTOR"S0.D8V1.".THEN WRITE TH
E BLOCK BACK TO ("T0","S0")"..8`1.".FINA
LLY .VALIDATE. THE DISK!"..8J1.300:...8H
2T.T1:S.S1..8I2.J.1.B0..8M2 3: 15:.15,8,
15:.3,8,3,"#":.63900:.#3,BN$:BN.F(BN$)..
9R2BN$.J(BN$,2):BM.BN.17.12..((BN.1).4).
49.2.:."("T","S")_ FIRST BLOCK":N9.1.K9.
2.15,"B-R";3;DR;T;S.]9.2.15,"B-P";3;0.W9
.2.#3,Z$:.Z$."".Z$.G(0)..9.3T.F(Z$):.T.0
.7200..9.3.#3,Z$:.Z$."".Z$.G(0)..9.3S.F(
Z$).Q9"3T$.J(D(T),2):S$.J(D(S),2)..9,3."
("T$","S$")";..963...:@3."_ LAST BLOCK..
"..:J3.N9" BLOCKS.":.300.A:.3BN$.J(BN$,2
):BM.BN.17.12..((BN.1).4).F:.3.:."("T","
S")_ FIRST BLOCK":N9.1.Y:...15,E,E$,E1,E
2..:...E..0..:."**.DISK ERROR.**"E,E$,E1
,E2..:......
> CLICK IMAGE PREVIEW FOR FULL MODAL