DISKVIEW.C
FILE INFORMATION
FILENAME(S): DISKVIEW.C
FILE TYPE(S): PRG
FILE SIZE: 12.8K
FIRST SEEN: 2025-11-30 19:47:16
APPEARS ON: 1 disk(s)
FILE HASH
0407688cdc899fef38fcf6c2ed2b815c95dd0024a861fa1e7d26cb138738eebe
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A3 1 | DISKVIEW.C | PRG | Curtcool, Frank | 17 | 11 | 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 5A 08 06 00 8F 20 34 39 20 | PONZO.Z.... 49 |
00000020: 4D 41 52 47 41 52 45 54 20 41 56 45 2E 20 53 2E |MARGARET AVE. S.|
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 | 8|
00000040: 20 52 45 4D 20 57 41 54 45 52 4C 4F 4F 2C 4F 4E | REM WATERLOO,ON|
00000050: 54 2E 20 4E 32 4A 20 32 43 38 00 6A 08 07 00 8F |T. N2J 2C8.j....|
00000060: 20 4A 55 4E 20 31 39 2F 38 32 00 86 08 0A 00 97 | JUN 19/82......|
00000070: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 36 |53281,6:.53280,6|
00000080: 3A 8D 38 30 30 30 00 94 08 64 00 8F 2A 2A 2A 2A |:.8000...d..****|
00000090: 2A 2A 2A 2A 00 A2 08 65 00 8F 2A 20 20 20 20 20 |****...e..* |
000000A0: 20 2A 00 B0 08 66 00 8F 2A 20 4D 45 4E 55 20 2A | *...f..* MENU *|
000000B0: 00 BE 08 67 00 8F 22 20 B8 B8 B8 B8 20 2A 00 CC |...g.." .... *..|
000000C0: 08 68 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 00 E4 08 69 |.h..********...i|
000000D0: 00 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 3A 99 C7 |..15:.15,8,15:..|
000000E0: 28 31 34 29 00 F0 08 6E 00 99 22 93 22 53 30 24 |(14)...n.."."S0$|
000000F0: 00 13 09 73 00 99 22 11 12 31 92 3A CC 4F 41 44 |...s.."..1.:.OAD|
00000100: 20 42 4C 4F 43 4B 20 49 4E 54 4F 20 42 55 46 46 | BLOCK INTO BUFF|
00000110: 45 52 22 00 38 09 78 00 99 22 11 12 32 92 3A D3 |ER".8.x.."..2.:.|
00000120: 45 45 20 C1 D3 C3 C9 C9 20 4F 46 20 41 42 4F 56 |EE ..... OF ABOV|
00000130: 45 20 42 4C 4F 43 4B 22 00 57 09 82 00 99 22 11 |E BLOCK".W....".|
00000140: 12 33 92 3A CD 4F 44 49 46 59 20 41 42 4F 56 45 |.3.:.ODIFY ABOVE|
00000150: 20 42 4C 4F 43 4B 22 00 7C 09 8C 00 99 22 11 12 | BLOCK".|...."..|
00000160: 34 92 3A D3 54 4F 52 45 20 41 42 4F 56 45 20 42 |4.:.TORE ABOVE B|
00000170: 4C 4F 43 4B 20 49 4E 20 D2 C1 CD 22 00 A3 09 96 |LOCK IN ..."....|
00000180: 00 99 22 11 12 35 92 3A D7 52 49 54 45 20 42 4C |.."..5.:.RITE BL|
00000190: 4F 43 4B 20 49 4E 20 D2 C1 CD 20 54 4F 20 44 49 |OCK IN ... TO DI|
000001A0: 53 4B 22 00 C6 09 A0 00 99 22 11 12 36 92 3A C2 |SK"......"..6.:.|
000001B0: 4C 4F 43 4B 20 C1 56 41 49 4C 41 42 49 4C 49 54 |LOCK .VAILABILIT|
000001C0: 59 20 CD 41 50 22 00 E0 09 AA 00 99 22 11 12 37 |Y .AP"......"..7|
000001D0: 92 3A C4 49 53 4B 20 C3 4F 4D 4D 41 4E 44 53 22 |.:.ISK .OMMANDS"|
000001E0: 00 F8 09 B4 00 99 22 11 12 38 92 3A D4 52 41 43 |......"..8.:.RAC|
000001F0: 45 20 C2 4C 4F 43 4B 53 00 14 0A B9 00 99 22 11 |E .LOCKS......".|
00000200: 12 39 92 3A D5 4E 53 43 52 41 54 43 48 20 41 20 |.9.:.NSCRATCH A |
00000210: C6 49 4C 45 00 2D 0A BA 00 99 22 11 12 D2 C5 D4 |.ILE.-....".....|
00000220: D5 D2 CE 92 20 54 4F 20 D1 55 49 54 22 00 41 0A |.... TO .UIT".A.|
00000230: C6 00 8D 33 31 30 3A 8B 49 4E B2 30 A7 37 39 30 |...310:.IN.0.790|
00000240: 30 00 76 0A C7 00 91 49 4E 8D 31 30 30 30 2C 32 |0.v....IN.1000,2|
00000250: 30 30 30 2C 33 30 30 30 2C 34 30 30 30 2C 35 30 |000,3000,4000,50|
00000260: 30 30 2C 36 30 30 30 2C 37 30 30 30 2C 37 31 30 |00,6000,7000,710|
00000270: 30 2C 37 35 30 30 00 7F 0A C8 00 89 31 30 35 00 |0,7500......105.|
00000280: 8A 0A 2C 01 8F 20 20 47 45 54 00 95 0A 2D 01 8F |..,.. GET...-..|
00000290: 22 20 B8 B8 B8 00 AE 0A 31 01 99 22 11 12 D2 C5 |" ......1.."....|
000002A0: D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 22 00 C4 |..... TO CONT"..|
000002B0: 0A 36 01 A1 49 4E 24 3A 8B 49 4E 24 B3 B1 22 22 |.6..IN$:.IN$..""|
000002C0: A7 33 31 30 00 D9 0A 40 01 A1 49 4E 24 3A 8B 49 |.310...@..IN$:.I|
000002D0: 4E 24 B2 22 22 A7 33 32 30 00 E9 0A 4A 01 49 4E |N$."".320...J.IN|
000002E0: B2 C5 28 49 4E 24 29 3A 8E 00 06 0B E8 03 8F 20 |..(IN$):....... |
000002F0: 4C 4F 41 44 20 42 4C 4F 43 4B 20 49 4E 54 4F 20 |LOAD BLOCK INTO |
00000300: 42 55 46 46 45 52 00 23 0B E9 03 8F 22 B8 B8 B8 |BUFFER.#...."...|
00000310: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000320: B8 B8 B8 00 54 0B F2 03 A0 33 3A A0 31 35 3A 9F |....T....3:.15:.|
00000330: 31 35 2C 38 2C 31 35 3A 9F 33 2C 38 2C 33 2C 22 |15,8,15:.3,8,3,"|
00000340: 23 22 3A A1 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 |#":.#3,BN$:BN..(|
00000350: 42 4E 24 29 00 7D 0B F7 03 42 4E 24 B2 CA 28 42 |BN$).}...BN$..(B|
00000360: 4E 24 2C 32 29 3A 42 4D B2 42 4E AA 31 37 AA 31 |N$,2):BM.BN.17.1|
00000370: 32 AC B5 28 28 42 4E AA 31 29 AD 34 29 00 94 0B |2..((BN.1).4)...|
00000380: FC 03 98 31 35 2C 22 42 2D 50 22 3B 33 3B 31 3A |...15,"B-P";3;1:|
00000390: 99 22 93 22 00 A9 0B 06 04 81 4B B2 30 A4 31 30 |."."......K.0.10|
000003A0: 3A 98 33 2C 4B 24 3B 3A 82 00 BF 0B 10 04 99 22 |:.3,K$;:......."|
000003B0: 93 22 AA 53 44 24 AA 22 11 11 11 11 11 11 22 00 |.".SD$."......".|
000003C0: E0 0B 1A 04 85 22 12 D4 D2 C1 C3 CB 2C D3 C5 C3 |....."......,...|
000003D0: D4 CF D2 92 20 20 20 A6 9D 9D 9D 22 3B 54 2C 53 |.... ....";T,S|
000003E0: 00 F7 0B 24 04 98 31 35 2C 22 42 2D 52 22 3B 33 |...$..15,"B-R";3|
000003F0: 3B 44 52 3B 54 3B 53 00 09 0C 2E 04 98 31 35 2C |;DR;T;S......15,|
00000400: 22 42 2D 50 22 3B 33 3B 30 00 23 0C 38 04 A1 23 |"B-P";3;0.#.8..#|
00000410: 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 C7 |3,Z$:.Z$."".Z$..|
00000420: 28 30 29 00 38 0C 42 04 43 28 30 29 B2 C6 28 5A |(0).8.B.C(0)..(Z|
00000430: 24 29 3A 8D 31 32 30 30 00 70 0C 60 04 99 22 13 |$):.1200.p.`..".|
00000440: 12 D2 C5 D4 D5 D2 CE 20 54 4F 20 54 45 52 4D 49 |....... TO TERMI|
00000450: 4E 41 54 45 22 3A 43 52 54 B2 30 31 30 36 39 3A |NATE":CRT.01069:|
00000460: 99 C4 28 43 28 30 29 29 C4 28 43 28 31 29 29 3B |..(C(0)).(C(1));|
00000470: 00 9E 0C 6A 04 4A B2 32 3A 81 49 B2 32 A4 32 35 |...j.J.2:.I.2.25|
00000480: 35 3A 98 31 35 2C 22 4D 2D 52 22 3B C7 28 49 29 |5:.15,"M-R";.(I)|
00000490: 3B C7 28 42 4D 29 3A 49 25 B2 49 AD 33 32 00 B9 |;.(BM):I%.I.32..|
000004A0: 0C 74 04 A1 23 31 35 2C 42 24 3A 8B 42 24 B2 22 |.t..#15,B$:.B$."|
000004B0: 22 A7 42 24 B2 C7 28 30 29 00 D4 0C 7E 04 43 28 |".B$..(0)...~.C(|
000004C0: 49 29 B2 C6 28 42 24 29 3A 8B 54 B3 B1 44 49 A7 |I)..(B$):.T..DI.|
000004D0: 31 31 36 35 00 EE 0C 88 04 8B 53 B1 30 AF 49 25 |1165......S.0.I%|
000004E0: AC 33 32 B2 49 AB 35 A7 8D 31 30 30 30 30 00 06 |.32.I.5..10000..|
000004F0: 0D 89 04 8B 53 B1 30 AF 49 25 AC 33 32 B2 49 A7 |....S.0.I%.32.I.|
00000500: 8D 31 31 30 30 30 00 16 0D 8D 04 97 43 52 54 AA |.11000......CRT.|
00000510: 4A 2C 43 28 49 29 00 2C 0D 92 04 A1 41 24 3A 8B |J,C(I).,....A$:.|
00000520: 41 24 B3 B1 22 22 A7 8D 31 31 39 35 00 38 0D 9C |A$..""..1195.8..|
00000530: 04 4A B2 4A AA 31 3A 82 00 53 0D A6 04 A0 33 3A |.J.J.1:..S....3:|
00000540: A0 31 35 3A 99 53 44 24 22 91 91 22 3A 8D 33 30 |.15:.SD$"..":.30|
00000550: 30 3A 8E 00 87 0D AB 04 99 53 44 24 22 11 11 11 |0:.......SD$"...|
00000560: 11 12 C2 CC CF C3 CB 20 C8 C1 D3 20 CE CF D4 20 |....... ... ... |
00000570: C2 C5 C5 CE 20 C3 CF CD D0 CC C5 D4 C5 CC D9 20 |.... .......... |
00000580: CC CF C1 C4 C5 C4 22 00 C1 0D AC 04 85 22 2E 2E |......"......"..|
00000590: 57 41 4E 54 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |WANT TO CONTINUE|
000005A0: 20 4C 4F 41 44 49 4E 47 20 20 20 4E 9D 9D 9D 22 | LOADING N..."|
000005B0: 3B 4E 24 3A 8B 4E 24 B2 22 4E 22 A7 49 B2 32 35 |;N$:.N$."N".I.25|
000005C0: 36 00 F2 0D AD 04 99 53 44 24 22 91 91 20 20 20 |6......SD$".. |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005F0: 20 22 00 1B 0E AE 04 99 22 20 20 20 20 20 20 20 | "......" |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000610: 20 20 20 20 20 20 20 20 20 20 22 00 21 0E AF 04 | ".!...|
00000620: 8E 00 31 0E B0 04 8F 20 43 28 30 29 2F 43 28 31 |..1.... C(0)/C(1|
00000630: 29 00 41 0E B1 04 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 |).A...."........|
00000640: A3 00 58 0E BA 04 99 53 44 24 3A 98 31 35 2C 22 |..X....SD$:.15,"|
00000650: 42 2D 50 22 3B 33 3B 31 00 72 0E C4 04 A1 23 33 |B-P";3;1.r....#3|
00000660: 2C 42 24 3A 8B 42 24 B2 22 22 A7 42 24 B2 C7 28 |,B$:.B$."".B$..(|
00000670: 30 29 00 81 0E CE 04 43 28 31 29 B2 C6 28 42 24 |0).....C(1)..(B$|
00000680: 29 00 B5 0E D8 04 8B 43 28 30 29 B2 30 A7 99 53 |)......C(0).0..S|
00000690: 44 24 3A 99 22 CC 41 53 54 20 D4 52 41 43 4B 22 |D$:.".AST .RACK"|
000006A0: 3A 99 22 C2 59 54 45 53 20 D5 53 45 44 3D 22 43 |:.".YTES .SED="C|
000006B0: 28 31 29 3A 8E 00 E5 0E E2 04 99 53 44 24 3A 99 |(1):.......SD$:.|
000006C0: 22 CE 45 58 54 20 D4 52 41 43 4B 3D 22 43 28 30 |".EXT .RACK="C(0|
000006D0: 29 3A 99 22 CE 45 58 54 20 D3 45 43 54 4F 52 3D |):.".EXT .ECTOR=|
000006E0: 22 43 28 31 29 00 FB 0E EC 04 4E 54 B2 43 28 30 |"C(1).....NT.C(0|
000006F0: 29 3A 4E 53 B2 43 28 31 29 3A 8E 00 0D 0F D0 07 |):NS.C(1):......|
00000700: 8F 20 50 52 49 4E 54 20 41 53 43 49 49 00 1F 0F |. PRINT ASCII...|
00000710: D1 07 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |..."............|
00000720: 36 0F D2 07 49 4A B2 30 3A 49 49 B2 32 35 35 AB |6...IJ.0:II.255.|
00000730: 38 3A 99 22 93 22 00 75 0F D5 07 99 22 13 12 D2 |8:.".".u...."...|
00000740: C5 D4 D5 D2 CE 20 54 4F 20 44 49 53 43 4F 4E 54 |..... TO DISCONT|
00000750: 49 4E 55 45 20 50 52 49 4E 54 49 4E 47 2E 2E 22 |INUE PRINTING.."|
00000760: 3A 99 53 30 24 3A 41 42 B2 33 31 3A 45 45 24 B2 |:.S0$:AB.31:EE$.|
00000770: 22 92 20 12 22 00 A7 0F DA 07 81 49 B2 30 A4 49 |". ."......I.0.I|
00000780: 49 A9 38 3A 59 24 B2 C4 28 49 29 3A 59 24 B2 22 |I.8:Y$..(I):Y$."|
00000790: 91 22 AA C9 28 22 20 20 22 AA 59 24 2C 33 29 3A |."..(" ".Y$,3):|
000007A0: 45 30 24 B2 45 45 24 00 D5 0F DC 07 99 22 12 22 |E0$.EE$......"."|
000007B0: 43 4C 24 3A 99 22 12 22 59 24 22 92 2D 3E 22 3B |CL$:."."Y$".->";|
000007C0: 3A 81 4A B2 30 A4 37 3A 48 B2 49 AA 4A 3A 43 35 |:.J.0.7:H.I.J:C5|
000007D0: B2 43 28 48 29 00 F4 0F DD 07 8B 43 35 B1 41 42 |.C(H)......C5.AB|
000007E0: A7 45 30 24 B2 45 30 24 AA C7 28 43 35 29 3A 89 |.E0$.E0$..(C5):.|
000007F0: 32 30 31 35 00 04 10 DE 07 45 30 24 B2 45 30 24 |2015.....E0$.E0$|
00000800: AA 22 20 22 00 21 10 DF 07 45 24 B2 C9 28 22 20 |." ".!...E$..(" |
00000810: 20 20 22 AA CA 28 C4 28 43 35 29 2C 32 29 2C 33 | "..(.(C5),2),3|
00000820: 29 00 3E 10 E4 07 99 52 24 28 50 29 45 24 52 24 |).>....R$(P)E$R$|
00000830: 28 31 AB 50 29 3B 3A 50 B2 31 AB 50 3A 82 00 59 |(1.P);:P.1.P:..Y|
00000840: 10 E9 07 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 49 |....A$:.A$.."".I|
00000850: 49 B2 49 3A 49 B2 32 35 35 00 78 10 EE 07 99 45 |I.I:I.255.x....E|
00000860: 30 24 3A 82 3A 99 43 4C 24 3A 99 43 4C 24 3A 99 |0$:.:.CL$:.CL$:.|
00000870: 43 4C 24 3A 99 43 4C 24 00 9E 10 EF 07 99 22 91 |CL$:.CL$......".|
00000880: 91 91 91 C3 D5 D2 D2 C5 CE D4 20 D4 D2 C1 C3 CB |.......... .....|
00000890: 2C D3 C5 C3 D4 CF D2 3D 22 54 22 2C 22 53 00 BF |,......="T","S..|
000008A0: 10 F3 07 99 22 4E 45 58 54 20 54 52 41 43 4B 2C |...."NEXT TRACK,|
000008B0: 53 45 43 54 4F 52 3D 22 4E 54 22 2C 22 4E 53 00 |SECTOR="NT","NS.|
000008C0: CE 10 F8 07 8B 49 4A B2 30 A7 8D 33 30 30 00 D4 |.....IJ.0..300..|
000008D0: 10 02 08 8E 00 E7 10 B8 0B 8F 20 4D 4F 44 49 46 |.......... MODIF|
000008E0: 59 20 42 4C 4F 43 4B 00 FA 10 B9 0B 8F 22 B8 B8 |Y BLOCK......"..|
000008F0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 25 11 F4 0B 99 |...........%....|
00000900: 22 93 D4 48 45 20 C1 D3 C3 C9 C9 20 43 4F 44 45 |"..HE ..... CODE|
00000910: 20 46 4F 52 20 45 41 43 48 20 42 4C 4F 43 4B 2D | FOR EACH BLOCK-|
00000920: 42 59 54 45 22 00 54 11 FE 0B 99 22 11 57 49 4C |BYTE".T....".WIL|
00000930: 4C 20 42 45 20 44 49 53 50 4C 41 59 45 44 2E 2E |L BE DISPLAYED..|
00000940: 49 2E 45 2E 20 43 28 30 29 2E 2E 2E 43 28 32 35 |I.E. C(0)...C(25|
00000950: 35 29 2E 22 00 84 11 08 0C 99 22 11 D9 4F 55 20 |5)."......"..OU |
00000960: 4D 41 59 20 52 45 44 45 46 49 4E 45 20 41 4E 59 |MAY REDEFINE ANY|
00000970: 20 43 28 49 29 2E 20 D4 48 45 20 4D 4F 44 49 46 | C(I). .HE MODIF|
00000980: 49 45 44 22 00 AE 11 12 0C 99 22 11 42 4C 4F 43 |IED"......".BLOC|
00000990: 4B 20 57 49 4C 4C 20 42 45 20 57 52 49 54 54 45 |K WILL BE WRITTE|
000009A0: 4E 20 54 4F 20 54 48 45 20 44 49 53 4B 22 00 D8 |N TO THE DISK"..|
000009B0: 11 1C 0C 99 22 11 49 4E 54 4F 20 54 48 45 20 D4 |....".INTO THE .|
000009C0: 52 41 43 4B 2C D3 45 43 54 4F 52 20 59 4F 55 20 |RACK,.ECTOR YOU |
000009D0: 53 45 4C 45 43 54 2E 22 00 E3 11 26 0C 99 22 11 |SELECT."...&..".|
000009E0: 11 11 22 00 FF 11 30 0C 8D 33 30 30 3A 99 22 93 |.."...0..300:.".|
000009F0: 22 3A 49 49 B2 32 35 35 AB 38 3A 49 4A B2 31 00 |":II.255.8:IJ.1.|
00000A00: 0E 12 3A 0C 99 22 13 22 3A 8D 32 30 30 35 00 30 |..:..".":.2005.0|
00000A10: 12 44 0C 99 22 3E 3E 3E 12 D2 C5 D4 D5 D2 CE 20 |.D..">>>....... |
00000A20: 54 4F 20 51 55 49 54 92 3C 3C 3C 22 3A A1 49 24 |TO QUIT.<<<":.I$|
00000A30: 00 6D 12 4E 0C 85 22 12 D7 C8 C9 C3 C8 20 49 20 |.m.N.."...... I |
00000A40: C4 CF A0 D9 CF D5 A0 D7 C9 D3 C8 A0 D4 CF A0 CD |................|
00000A50: CF C4 C9 C6 D9 92 20 20 20 20 20 9D 9D A6 9D 9D |...... .....|
00000A60: 9D 22 3B 49 24 3A 49 B2 C5 28 49 24 29 00 7E 12 |.";I$:I..(I$).~.|
00000A70: 58 0C 8B 49 24 B2 22 A6 22 A7 33 31 37 33 00 C2 |X..I$.".".3173..|
00000A80: 12 62 0C 99 22 43 55 52 52 45 4E 54 20 43 28 22 |.b.."CURRENT C("|
00000A90: 49 22 29 3D 20 20 20 20 20 A0 9D 9D 9D 9D 9D 22 |I")= ......"|
00000AA0: 43 28 49 29 22 20 4E 45 57 20 56 41 4C 55 45 3D |C(I)" NEW VALUE=|
00000AB0: 20 20 20 20 20 9D 9D 9D 9D 9D 22 3B 3A 85 43 28 | .....";:.C(|
00000AC0: 49 29 00 D1 12 63 0C 8B 49 B1 49 49 A7 49 49 B2 |I)...c..I.II.II.|
00000AD0: 49 00 DB 12 64 0C 89 33 31 35 30 00 08 13 65 0C |I...d..3150...e.|
00000AE0: 99 22 93 22 3A 8D 32 30 30 35 3A 99 22 20 20 20 |.".":.2005:." |
00000AF0: 20 20 20 20 20 3E 3E 3E 12 4F 4B 92 3F 20 20 22 | >>>.OK.? "|
00000B00: 3B 3A 97 32 30 34 2C 30 00 29 13 66 0C 8D 33 31 |;:.204,0.).f..31|
00000B10: 30 3A 97 32 30 34 2C 31 3A 8B 49 4E 24 B2 22 4E |0:.204,1:.IN$."N|
00000B20: 22 A7 99 3A 89 33 31 35 30 00 4D 13 67 0C 85 22 |"..:.3150.M.g.."|
00000B30: 93 12 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 |..RETURN TO MENU|
00000B40: 92 20 20 20 4E 9D 9D 9D 22 3B 49 4E 24 00 5C 13 |. N...";IN$.\.|
00000B50: 68 0C 8B 49 4E 24 B2 22 59 22 A7 8E 00 7F 13 69 |h..IN$."Y".....i|
00000B60: 0C 99 22 93 C3 D5 D2 D2 C5 CE D4 20 D4 D2 C1 C3 |.."........ ....|
00000B70: CB 2C D3 C5 C3 D4 CF D2 3D 22 54 22 2C 22 53 00 |.,......="T","S.|
00000B80: A0 13 6A 0C 99 22 4E 45 58 54 20 54 52 41 43 4B |..j.."NEXT TRACK|
00000B90: 2C 53 45 43 54 4F 52 3D 22 4E 54 22 2C 22 4E 53 |,SECTOR="NT","NS|
00000BA0: 00 E2 13 6C 0C 85 22 11 11 12 C4 C5 D3 D4 C9 CE |...l..".........|
00000BB0: C1 D4 C9 CF CE 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 |..... .....,....|
00000BC0: CF D2 92 20 20 20 A6 9D 9D 9D 22 3B 54 2C 53 3A |... ....";T,S:|
00000BD0: 8B 28 54 B3 31 29 B0 28 54 B1 54 54 29 A7 33 31 |.(T.1).(T.TT).31|
00000BE0: 38 30 00 23 14 76 0C 85 22 11 11 11 12 C4 C5 D3 |80.#.v..".......|
00000BF0: D4 C9 CE C1 D4 C9 CF CE 20 C4 D2 C9 D6 C5 92 A0 |........ .......|
00000C00: A0 A0 A6 9D 9D 9D 22 3B 44 52 24 3A 44 52 B2 C5 |......";DR$:DR..|
00000C10: 28 44 52 24 29 3A 8B 44 52 24 B2 22 A6 22 A7 33 |(DR$):.DR$.".".3|
00000C20: 31 39 30 00 37 14 80 0C A0 33 3A A0 31 35 3A 9F |190.7....3:.15:.|
00000C30: 31 35 2C 38 2C 31 35 00 4D 14 8A 0C 9F 33 2C 38 |15,8,15.M....3,8|
00000C40: 2C 33 2C 22 23 22 3A 8D 36 33 39 30 30 00 80 14 |,3,"#":.63900...|
00000C50: 8F 0C A1 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 |...#3,BN$:BN..(B|
00000C60: 4E 24 29 3A 99 22 93 22 53 44 24 22 11 11 11 11 |N$):."."SD$"....|
00000C70: 55 53 49 4E 47 20 C2 D5 C6 C6 C5 D2 23 22 42 4E |USING ......#"BN|
00000C80: 00 9C 14 94 0C 42 4D B2 42 4E AA 31 37 AA 31 32 |.....BM.BN.17.12|
00000C90: AC B5 28 28 42 4E AA 31 29 AD 34 29 00 A9 14 99 |..((BN.1).4)....|
00000CA0: 0C 81 49 B2 30 A4 32 35 35 00 CF 14 9E 0C 98 31 |..I.0.255......1|
00000CB0: 35 2C 22 4D 2D 57 22 3B C7 28 49 29 3B C7 28 42 |5,"M-W";.(I);.(B|
00000CC0: 4D 29 3B C7 28 31 29 3B C7 28 43 28 49 29 29 00 |M);.(1);.(C(I)).|
00000CD0: DF 14 A8 0C 99 22 13 20 20 20 9D 9D 9D 22 49 00 |.....". ..."I.|
00000CE0: E5 14 B2 0C 82 00 FC 14 D0 0C 98 31 35 2C 22 55 |...........15,"U|
00000CF0: 32 3A 22 3B 33 3B 44 52 3B 54 3B 53 00 1A 15 DA |2:";3;DR;T;S....|
00000D00: 0C 98 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 33 |..15,"I".DR$:.63|
00000D10: 39 30 30 3A A0 33 3A A0 31 35 00 25 15 E4 0C 99 |900:.3:.15.%....|
00000D20: 22 93 22 3A 8E 00 3D 15 A0 0F 8F 20 53 54 4F 52 |".":..=.... STOR|
00000D30: 45 20 43 28 49 29 20 49 4E 20 52 41 4D 00 55 15 |E C(I) IN RAM.U.|
00000D40: A1 0F 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..."............|
00000D50: B8 B8 B8 B8 B8 00 65 15 A5 0F 99 22 93 22 3B 3A |......e....".";:|
00000D60: 8D 32 30 30 30 00 8C 15 B4 0F 85 22 12 D3 D4 C1 |.2000......"....|
00000D70: D2 D4 C9 CE C7 A0 D6 C1 CC D5 C5 A0 CF C6 20 49 |.............. I|
00000D80: 92 20 20 20 A6 9D 9D 9D 22 3B 49 31 00 C2 15 BE |. ....";I1....|
00000D90: 0F 85 22 12 D3 D4 C1 D2 D4 C9 CE C7 A0 CD C5 CD |..".............|
00000DA0: CF D2 D9 A0 CC CF C3 A7 CE 92 28 24 3D C8 C5 D8 |..........($=...|
00000DB0: 29 20 20 20 A6 9D 9D 9D 22 3B 4D 24 3A 8D 39 30 |) ....";M$:.90|
00000DC0: 30 30 00 E2 15 C8 0F 81 4B 31 B2 49 31 A4 32 35 |00......K1.I1.25|
00000DD0: 35 3A 97 4D AB 49 31 AA 4B 31 2C 43 28 4B 31 29 |5:.M.I1.K1,C(K1)|
00000DE0: 3A 82 00 17 16 D2 0F 4D B2 4D AB 49 31 AA 32 35 |:......M.M.I1.25|
00000DF0: 36 3A 99 22 12 CE C5 D8 D4 92 20 4D 45 4D 27 59 |6:."...... MEM'Y|
00000E00: 20 4C 4F 43 27 4E 3D 22 4D 3B 3A 8D 39 35 30 30 | LOC'N="M;:.9500|
00000E10: 3A 99 22 12 22 4D 24 00 20 16 DC 0F 8D 33 30 30 |:."."M$. ....300|
00000E20: 00 30 16 E6 0F 99 22 93 22 3B 3A 8E 20 20 20 20 |.0....".";:. |
00000E30: 00 48 16 88 13 8F 20 57 52 49 54 45 20 52 41 4D |.H.... WRITE RAM|
00000E40: 20 54 4F 20 44 49 53 4B 00 60 16 89 13 8F 22 B8 | TO DISK.`....".|
00000E50: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000E60: 00 95 16 9C 13 85 22 12 CD C5 CD 27 D9 20 CC CF |......"....'. ..|
00000E70: C3 27 CE 20 CF C6 20 C2 CC CF C3 CB 92 28 24 3D |.'. .. ......($=|
00000E80: C8 C5 D8 29 20 20 20 A6 9D 9D 9D 22 3B 4D 24 3A |...) ....";M$:|
00000E90: 8D 39 30 30 30 00 B7 16 A6 13 85 22 11 12 D3 D4 |.9000......"....|
00000EA0: C1 D2 D4 20 D7 C9 D4 C8 20 49 92 3D A0 A0 A0 A6 |... .... I.=....|
00000EB0: 9D 9D 9D 22 3B 49 31 00 D7 16 B0 13 85 22 11 12 |...";I1......"..|
00000EC0: C5 CE C4 20 D7 C9 D4 C8 20 49 92 3D A0 A0 A0 A6 |... .... I.=....|
00000ED0: 9D 9D 9D 22 3B 49 32 00 F2 16 C4 13 81 49 B2 49 |...";I2......I.I|
00000EE0: 31 A4 49 32 3A 43 28 49 29 B2 C2 28 4D AA 49 29 |1.I2:C(I)..(M.I)|
00000EF0: 3A 82 00 35 17 CE 13 85 22 93 11 11 12 C4 C5 D3 |:..5....".......|
00000F00: D4 C9 CE C1 D4 C9 CF CE 20 D4 D2 C1 C3 CB 2C D3 |........ .....,.|
00000F10: C5 C3 D4 CF D2 92 20 20 20 A6 9D 9D 9D 22 3B 54 |...... ....";T|
00000F20: 2C 53 3A 8B 28 54 B3 31 29 B0 28 54 B1 54 54 29 |,S:.(T.1).(T.TT)|
00000F30: A7 35 30 37 30 00 76 17 D8 13 85 22 11 11 11 12 |.5070.v...."....|
00000F40: C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 C4 D2 C9 D6 |........... ....|
00000F50: C5 92 A0 A0 A0 A6 9D 9D 9D 22 3B 44 52 24 3A 44 |.........";DR$:D|
00000F60: 52 B2 C5 28 44 52 24 29 3A 8B 44 52 24 B2 22 A6 |R..(DR$):.DR$.".|
00000F70: 22 A7 35 30 38 30 00 B4 17 E2 13 9F 33 2C 38 2C |".5080......3,8,|
00000F80: 33 2C 22 23 22 3A A1 23 33 2C 42 4E 24 3A 42 4E |3,"#":.#3,BN$:BN|
00000F90: B2 C6 28 42 4E 24 29 3A 99 22 93 22 53 44 24 22 |..(BN$):."."SD$"|
00000FA0: 11 11 11 11 55 53 49 4E 47 20 C2 D5 C6 C6 C5 D2 |....USING ......|
00000FB0: 23 22 42 4E 00 D0 17 E7 13 42 4D B2 42 4E AA 31 |#"BN.....BM.BN.1|
00000FC0: 37 AA 31 32 AC B5 28 28 42 4E AA 31 29 AD 34 29 |7.12..((BN.1).4)|
00000FD0: 00 E9 17 EC 13 81 49 B2 49 31 A4 49 32 3A 99 22 |......I.I1.I2:."|
00000FE0: 13 20 20 20 9D 9D 9D 22 49 00 0F 18 F6 13 98 31 |. ..."I......1|
00000FF0: 35 2C 22 4D 2D 57 22 3B C7 28 49 29 3B C7 28 42 |5,"M-W";.(I);.(B|
00001000: 4D 29 3B C7 28 31 29 3B C7 28 43 28 49 29 29 00 |M);.(1);.(C(I)).|
00001010: 15 18 0A 14 82 00 2C 18 14 14 98 31 35 2C 22 55 |......,....15,"U|
00001020: 32 3A 22 3B 33 3B 44 52 3B 54 3B 53 00 4A 18 1E |2:";3;DR;T;S.J..|
00001030: 14 98 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 33 |..15,"I".DR$:.63|
00001040: 39 30 30 3A A0 33 3A A0 31 35 00 55 18 28 14 99 |900:.3:.15.U.(..|
00001050: 22 93 22 3A 8E 00 5F 18 70 17 8F 20 42 41 4D 00 |".":.._.p.. BAM.|
00001060: 69 18 7A 17 8F 22 B8 B8 B8 00 83 18 84 17 96 20 |i.z.."......... |
00001070: A5 42 28 49 29 B2 28 5A AF 50 28 49 29 29 AD 50 |.B(I).(Z.P(I)).P|
00001080: 28 49 29 00 93 18 8E 17 A0 31 35 3A 99 C7 28 31 |(I)......15:..(1|
00001090: 34 32 29 00 AD 18 98 17 99 22 93 11 11 12 31 92 |42)......"....1.|
000010A0: 3A 44 49 53 50 4C 41 59 20 42 41 4D 22 00 C4 18 |:DISPLAY BAM"...|
000010B0: A2 17 99 22 11 12 32 92 3A 43 48 41 4E 47 45 20 |..."..2.:CHANGE |
000010C0: 42 41 4D 22 00 E4 18 AC 17 99 22 11 12 33 92 3A |BAM"......"..3.:|
000010D0: 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D |RETURN TO MAIN M|
000010E0: 45 4E 55 22 00 FD 18 B6 17 8D 33 31 30 3A 99 22 |ENU"......310:."|
000010F0: 93 22 3A 8B 49 4E B2 33 A7 36 30 39 35 00 0F 19 |.":.IN.3.6095...|
00001100: C0 17 91 49 4E 8D 36 31 30 30 2C 36 32 38 30 00 |...IN.6100,6280.|
00001110: 19 19 CA 17 89 36 30 33 30 00 44 19 CF 17 A0 32 |.....6030.D....2|
00001120: 3A A0 33 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 22 |:.3:.15,8,15,"I"|
00001130: AA 44 52 24 3A 99 C7 28 31 34 29 3A 8D 36 33 39 |.DR$:..(14):.639|
00001140: 30 30 3A 8E 00 56 19 D4 17 8F 20 44 49 53 50 4C |00:..V.... DISPL|
00001150: 41 59 20 42 41 4D 00 68 19 DE 17 8F 22 A3 A3 A3 |AY BAM.h...."...|
00001160: A3 A3 A3 A3 A3 A3 A3 A3 00 8D 19 E8 17 99 22 11 |..............".|
00001170: 11 57 48 49 43 48 20 54 52 41 43 4B 53 22 3A 99 |.WHICH TRACKS":.|
00001180: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 B4 19 |"...............|
00001190: F2 17 85 22 11 11 46 49 52 53 54 2C 4C 41 53 54 |..."..FIRST,LAST|
000011A0: 20 54 52 41 43 4B 20 20 20 A6 9D 9D 9D 22 3B 54 | TRACK ....";T|
000011B0: 53 2C 54 45 00 E4 19 FC 17 8B 28 54 53 B3 31 29 |S,TE......(TS.1)|
000011C0: B0 28 54 53 B1 54 54 29 B0 28 54 45 B3 31 29 B0 |.(TS.TT).(TE.1).|
000011D0: 28 54 45 B1 54 54 29 B0 28 54 45 B3 54 53 29 A7 |(TE.TT).(TE.TS).|
000011E0: 36 31 33 30 00 03 1A 06 18 99 22 93 12 52 45 54 |6130......"..RET|
000011F0: 55 52 4E 92 92 20 54 4F 20 53 54 4F 50 22 3A 99 |URN.. TO STOP":.|
00001200: 53 30 24 00 1F 1A 10 18 9F 31 35 2C 38 2C 31 35 |S0$......15,8,15|
00001210: 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 30 30 00 |,"I".DR$:.63900.|
00001220: 39 1A 1A 18 9F 32 2C 38 2C 32 2C 22 24 22 AA 44 |9....2,8,2,"$".D|
00001230: 52 24 3A 8D 36 33 39 30 30 00 4D 1A 24 18 46 46 |R$:.63900.M.$.FF|
00001240: B2 44 31 AA 28 54 53 AB 31 29 AC 53 33 00 62 1A |.D1.(TS.1).S3.b.|
00001250: 2E 18 81 4B B2 30 A4 46 46 3A A1 23 32 2C 41 24 |...K.0.FF:.#2,A$|
00001260: 3A 82 00 85 1A 38 18 81 54 B2 54 53 A4 54 45 3A |:....8..T.TS.TE:|
00001270: 8B 54 B2 35 31 A7 A1 23 32 2C 41 24 2C 41 24 2C |.T.51..#2,A$,A$,|
00001280: 41 24 2C 41 24 00 8F 1A 42 18 8D 36 34 30 30 00 |A$,A$...B..6400.|
00001290: A6 1A 4C 18 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 |..L..A$:.A$.."".|
000012A0: 54 B2 54 54 AA 31 00 C0 1A 56 18 82 3A A0 32 3A |T.TT.1...V..:.2:|
000012B0: A0 31 35 3A 8D 36 38 37 30 3A 8D 33 31 30 3A 8E |.15:.6870:.310:.|
000012C0: 00 D1 1A 60 18 8F 20 43 48 41 4E 47 45 20 42 41 |...`.. CHANGE BA|
000012D0: 4D 00 E2 1A 6A 18 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 |M...j.."........|
000012E0: A3 A3 00 01 1B 74 18 85 22 93 4D 4F 52 45 20 43 |.....t..".MORE C|
000012F0: 48 41 4E 47 45 53 20 20 20 59 9D 9D 9D 22 3B 49 |HANGES Y...";I|
00001300: 24 00 10 1B 7E 18 8B 49 24 B3 B1 22 59 22 A7 8E |$...~..I$.."Y"..|
00001310: 00 4D 1B 88 18 8B 44 54 B2 36 37 A7 99 22 93 53 |.M....DT.67..".S|
00001320: 4F 52 52 59 2E 2E 43 41 4E 27 54 20 43 48 41 4E |ORRY..CAN'T CHAN|
00001330: 47 45 20 42 41 4D 20 46 4F 52 20 54 48 49 53 20 |GE BAM FOR THIS |
00001340: 44 49 53 4B 2E 22 3A 8D 33 31 30 3A 8E 00 78 1B |DISK.":.310:..x.|
00001350: 8D 18 85 22 93 54 52 41 43 4B 20 20 20 D6 9D 9D |...".TRACK ...|
00001360: 9D 22 3B 54 3A 8B 28 54 B3 31 29 B0 28 54 B1 54 |.";T:.(T.1).(T.T|
00001370: 54 29 A7 4E 36 32 38 30 00 89 1B 92 18 A0 31 35 |T).N6280......15|
00001380: 3A 9F 31 35 2C 38 2C 31 35 00 A2 1B 9C 18 A0 32 |:.15,8,15......2|
00001390: 3A 9F 32 2C 38 2C 32 2C 22 23 22 3A 8D 36 33 39 |:.2,8,2,"#":.639|
000013A0: 30 30 00 BA 1B A6 18 98 31 35 2C 22 55 31 3A 22 |00......15,"U1:"|
000013B0: 3B 32 3B 44 52 3B 44 49 3B 30 00 CE 1B B0 18 98 |;2;DR;DI;0......|
000013C0: 31 35 2C 22 42 2D 50 22 3B 32 3B 54 AC 34 00 02 |15,"B-P";2;T.4..|
000013D0: 1C BA 18 99 22 93 12 45 4E 54 45 52 20 4E 45 47 |...."..ENTER NEG|
000013E0: 41 54 49 56 45 20 53 45 43 54 4F 52 20 54 4F 20 |ATIVE SECTOR TO |
000013F0: 51 55 49 54 11 22 3A 8D 36 34 30 30 3A 8D 36 35 |QUIT.":.6400:.65|
00001400: 38 30 00 34 1C C4 18 85 22 13 11 11 11 11 11 11 |80.4....".......|
00001410: 11 11 11 43 48 41 4E 47 45 20 57 48 49 43 48 20 |...CHANGE WHICH |
00001420: 53 45 43 54 4F 52 20 20 20 20 20 9D 9D D6 9D 9D |SECTOR .....|
00001430: 9D 22 3B 53 00 4B 1C CE 18 8B 53 B3 30 B0 53 B1 |.";S.K....S.0.S.|
00001440: B2 53 43 28 54 29 A7 36 32 36 30 00 5B 1C D8 18 |.SC(T).6260.[...|
00001450: A0 32 3A A0 31 35 3A 99 53 44 24 00 8A 1C E2 18 |.2:.15:.SD$.....|
00001460: 8D 36 36 32 30 3A 8D 36 34 38 30 3A 8D 36 35 38 |.6620:.6480:.658|
00001470: 30 3A 99 3A 99 4D 44 24 22 12 4F 4B 3F 92 22 3B |0:.:.MD$".OK?.";|
00001480: 3A 8D 33 31 30 3A 99 43 4C 24 00 9D 1C EC 18 8B |:.310:.CL$......|
00001490: 49 4E 24 B2 22 59 22 A7 8D 36 37 33 30 00 AC 1C |IN$."Y"..6730...|
000014A0: F1 18 99 4D 44 24 43 4C 24 53 44 24 00 BC 1C F6 |...MD$CL$SD$....|
000014B0: 18 8D 36 34 38 30 3A 89 36 33 34 30 00 CF 1C 00 |..6480:.6340....|
000014C0: 19 81 4B B2 30 A4 53 32 3A A1 23 32 2C 41 24 00 |..K.0.S2:.#2,A$.|
000014D0: E2 1C 0A 19 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 |.....A$."".A$..(|
000014E0: 30 29 00 F1 1C 14 19 42 28 4B 29 B2 C6 28 41 24 |0).....B(K)..(A$|
000014F0: 29 00 F7 1C 1E 19 82 00 09 1D 50 19 8F 20 50 52 |).........P.. PR|
00001500: 49 4E 54 20 54 52 41 43 4B 00 1B 1D 5A 19 8F 22 |INT TRACK...Z.."|
00001510: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 2E 1D 64 19 |..............d.|
00001520: 81 4B B2 31 A4 53 31 3A 5A B2 42 28 4B 29 00 39 |.K.1.S1:Z.B(K).9|
00001530: 1D 6E 19 81 49 B2 30 A4 37 00 50 1D 78 19 58 B2 |.n..I.0.7.P.x.X.|
00001540: A5 42 28 49 29 3A 99 58 24 28 58 29 3B 3A 82 49 |.B(I):.X$(X);:.I|
00001550: 00 57 1D 82 19 82 4B 00 74 1D 8C 19 5A B2 42 28 |.W....K.t...Z.B(|
00001560: 4B 29 3A 81 49 B2 30 A4 53 43 28 54 29 AB 53 43 |K):.I.0.SC(T).SC|
00001570: 28 54 54 29 00 8D 1D 96 19 58 B2 A5 42 28 49 29 |(TT).....X..B(I)|
00001580: 3A 99 58 24 28 58 29 3B 3A 82 49 3A 99 00 B0 1D |:.X$(X);:.I:....|
00001590: A0 19 99 22 91 22 A3 32 32 29 22 54 52 41 43 4B |...".".22)"TRACK|
000015A0: 12 22 54 22 92 9D 46 52 45 45 3D 22 42 28 30 29 |."T"..FREE="B(0)|
000015B0: 00 B6 1D AA 19 8E 00 C8 1D B4 19 99 C8 28 53 31 |.............(S1|
000015C0: 24 2C 53 43 28 54 29 29 00 EF 1D BE 19 99 C8 28 |$,SC(T)).......(|
000015D0: 53 32 24 2C 53 43 28 54 29 29 A3 32 33 29 22 23 |S2$,SC(T)).23)"#|
000015E0: 20 53 45 43 54 4F 52 53 3D 22 53 43 28 54 29 00 | SECTORS="SC(T).|
000015F0: 13 1E C8 19 8B 53 43 28 54 29 B2 32 31 A7 99 C8 |.....SC(T).21...|
00001600: 28 53 33 24 2C 53 43 28 54 29 AA 31 29 3A 89 36 |(S3$,SC(T).1):.6|
00001610: 36 31 30 00 25 1E CD 19 99 C8 28 53 33 24 2C 53 |610.%.....(S3$,S|
00001620: 43 28 54 29 29 00 30 1E D2 19 99 53 30 24 3A 8E |C(T)).0....S0$:.|
00001630: 00 44 1E DC 19 8F 20 43 48 41 4E 47 45 20 53 45 |.D.... CHANGE SE|
00001640: 43 54 4F 52 00 58 1E E6 19 8F 22 A3 A3 A3 A3 A3 |CTOR.X....".....|
00001650: A3 A3 A3 A3 A3 A3 A3 A3 00 73 1E F0 19 8B 53 B3 |.........s....S.|
00001660: 38 A7 5A B2 42 28 31 29 3A 53 53 B2 53 3A 89 36 |8.Z.B(1):SS.S:.6|
00001670: 36 37 30 00 91 1E FA 19 8B 53 B3 31 36 A7 5A B2 |670......S.16.Z.|
00001680: 42 28 32 29 3A 53 53 B2 53 AB 38 3A 89 36 36 37 |B(2):SS.S.8:.667|
00001690: 30 00 A4 1E 04 1A 5A B2 42 28 33 29 3A 53 53 B2 |0.....Z.B(3):SS.|
000016A0: 53 AB 31 36 00 C1 1E 0E 1A 4E 5A B2 28 A8 5A AF |S.16.....NZ.(.Z.|
000016B0: 50 28 53 53 29 29 B0 28 5A AF A8 50 28 53 53 29 |P(SS)).(Z..P(SS)|
000016C0: 29 00 DD 1E 18 1A 42 28 30 29 B2 42 28 30 29 AA |).....B(0).B(0).|
000016D0: 28 4E 5A B3 5A 29 AB 28 4E 5A B1 5A 29 00 F4 1E |(NZ.Z).(NZ.Z)...|
000016E0: 22 1A 8B 53 B3 38 A7 42 28 31 29 B2 4E 5A 3A 89 |"..S.8.B(1).NZ:.|
000016F0: 36 37 32 30 00 0C 1F 2C 1A 8B 53 B3 31 36 A7 42 |6720...,..S.16.B|
00001700: 28 32 29 B2 4E 5A 3A 89 36 37 32 30 00 18 1F 36 |(2).NZ:.6720...6|
00001710: 1A 42 28 33 29 B2 4E 5A 00 1E 1F 40 1A 8E 00 2B |.B(3).NZ...@...+|
00001720: 1F 4A 1A 9F 31 35 2C 38 2C 31 35 00 5D 1F 54 1A |.J..15,8,15.].T.|
00001730: 99 4D 44 24 22 12 41 52 45 20 59 4F 55 20 53 55 |.MD$".ARE YOU SU|
00001740: 52 45 3F 92 22 3B 3A 8D 33 31 30 3A 99 49 4E 24 |RE?.";:.310:.IN$|
00001750: 3B 3A 8B 49 4E 24 B3 B1 22 59 22 A7 8E 00 77 1F |;:.IN$.."Y"...w.|
00001760: 5E 1A 99 22 2E 2E 12 43 48 41 4E 47 49 4E 47 20 |^.."...CHANGING |
00001770: 42 41 4D 2E 2E 22 3B 00 8D 1F 68 1A 9F 33 2C 38 |BAM..";...h..3,8|
00001780: 2C 33 2C 22 23 22 3A 8D 36 33 39 30 30 00 A3 1F |,3,"#":.63900...|
00001790: 72 1A A1 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 |r..#3,BN$:BN..(B|
000017A0: 4E 24 29 00 BF 1F 7C 1A 42 4D B2 42 4E AA 31 37 |N$)...|.BM.BN.17|
000017B0: AA 31 32 AC B5 28 28 42 4E AA 31 29 AD 34 29 00 |.12..((BN.1).4).|
000017C0: CB 1F 86 1A 81 49 B2 30 A4 53 32 00 F7 1F 90 1A |.....I.0.S2.....|
000017D0: 98 31 35 2C 22 4D 2D 57 22 3B C7 28 49 AA 54 AC |.15,"M-W";.(I.T.|
000017E0: 34 29 3B C7 28 42 4D 29 3B C7 28 31 29 3B C7 28 |4);.(BM);.(1);.(|
000017F0: 42 28 49 29 29 3A 82 00 0F 20 B8 1A 98 31 35 2C |B(I)):... ...15,|
00001800: 22 55 32 3A 22 3B 33 3B 44 52 3B 44 49 3B 30 00 |"U2:";3;DR;DI;0.|
00001810: 2D 20 C2 1A 98 31 35 2C 22 49 22 AA 44 52 24 3A |- ...15,"I".DR$:|
00001820: 8D 36 33 39 30 30 3A A0 33 3A A0 31 35 00 33 20 |.63900:.3:.15.3 |
00001830: CC 1A 8E 00 6B 20 D6 1A 99 22 13 11 11 11 11 11 |....k ..."......|
00001840: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001850: 11 11 11 12 52 45 54 55 52 4E 92 20 54 4F 20 43 |....RETURN. TO C|
00001860: 4F 4E 54 49 4E 55 45 22 3B 3A 8E 00 7F 20 58 1B |ONTINUE";:... X.|
00001870: 8F 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 53 00 |. DISK COMMANDS.|
00001880: 93 20 59 1B 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |. Y.."..........|
00001890: B8 B8 B8 00 9E 20 5A 1B 99 C7 28 31 34 29 00 B6 |..... Z...(14)..|
000018A0: 20 5D 1B 99 22 93 11 12 31 92 3A C9 4E 49 54 49 | ].."...1.:.NITI|
000018B0: 41 4C 49 5A 45 22 00 CB 20 5E 1B 99 22 11 12 32 |ALIZE".. ^.."..2|
000018C0: 92 3A D6 41 4C 49 44 41 54 45 22 00 E4 20 5F 1B |.:.ALIDATE".. _.|
000018D0: 99 22 11 12 33 92 3A C3 48 41 4E 47 45 20 C4 D2 |."..3.:.HANGE ..|
000018E0: C9 D6 C5 23 00 02 21 60 1B 99 22 11 12 34 92 3A |...#..!`.."..4.:|
000018F0: C4 49 53 50 4C 41 59 20 C4 49 52 45 43 54 4F 52 |.ISPLAY .IRECTOR|
00001900: 59 22 00 1F 21 61 1B 99 22 11 11 11 12 39 92 3A |Y"..!a.."....9.:|
00001910: D2 C5 D4 D5 D2 CE 20 54 4F 20 4D 45 4E 55 22 00 |...... TO MENU".|
00001920: 38 21 62 1B 8D 33 31 30 3A 8B 49 4E B3 31 B0 49 |8!b..310:.IN.1.I|
00001930: 4E B1 39 A7 37 30 30 30 00 68 21 67 1B 99 22 93 |N.9.7000.h!g..".|
00001940: 4F 4B 2E 2E 22 3A 91 20 49 4E 20 89 37 30 32 30 |OK..":. IN .7020|
00001950: 2C 37 30 33 30 2C 37 30 34 30 2C 37 30 35 30 2C |,7030,7040,7050,|
00001960: 2C 2C 2C 2C 37 30 39 39 00 8E 21 6C 1B A0 31 35 |,,,,7099..!l..15|
00001970: 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 52 |:.15,8,15,"I".DR|
00001980: 24 3A 8D 36 33 39 30 30 3A 89 37 30 30 30 00 B4 |$:.63900:.7000..|
00001990: 21 76 1B A0 31 35 3A 9F 31 35 2C 38 2C 31 35 2C |!v..15:.15,8,15,|
000019A0: 22 56 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A 89 |"V".DR$:.63900:.|
000019B0: 37 30 30 30 00 DF 21 80 1B 85 22 11 11 11 44 52 |7000..!..."...DR|
000019C0: 49 56 45 20 20 20 A6 9D 9D 9D 22 3B 44 52 24 3A |IVE ....";DR$:|
000019D0: 44 52 B2 C5 28 44 52 24 29 3A 89 37 30 30 30 00 |DR..(DR$):.7000.|
000019E0: EB 21 8A 1B 8B 44 52 B2 30 A7 8E 00 F9 21 8B 1B |.!...DR.0....!..|
000019F0: 8B 44 52 B2 31 A7 DA 44 31 00 08 22 8C 1B 8D 33 |.DR.1..D1.."...3|
00001A00: 30 30 3A 89 37 30 30 30 00 0E 22 BB 1B 8E 00 21 |00:.7000.."....!|
00001A10: 22 BC 1B 8F 20 54 52 41 43 45 20 42 4C 4F 43 4B |"... TRACE BLOCK|
00001A20: 53 00 34 22 BD 1B 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 |S.4"..."........|
00001A30: B8 B8 B8 B8 00 5F 22 C1 1B 85 22 93 12 53 54 41 |....._"..."..STA|
00001A40: 52 54 49 4E 47 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 |RTING .....,....|
00001A50: CF D2 92 20 20 20 A6 9D 9D 9D 22 3B 54 2C 53 00 |... ....";T,S.|
00001A60: 86 22 C2 1B 8B 28 54 B3 31 29 B0 28 54 B1 54 54 |."...(T.1).(T.TT|
00001A70: 29 B0 28 53 B3 30 29 B0 28 53 B1 53 43 28 54 29 |).(S.0).(S.SC(T)|
00001A80: 29 A7 37 31 31 30 00 BE 22 C6 1B A0 33 3A A0 31 |).7110.."...3:.1|
00001A90: 35 3A 9F 31 35 2C 38 2C 31 35 3A 9F 33 2C 38 2C |5:.15,8,15:.3,8,|
00001AA0: 33 2C 22 23 22 3A 8D 36 33 39 30 30 3A A1 23 33 |3,"#":.63900:.#3|
00001AB0: 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 00 E7 |,BN$:BN..(BN$)..|
00001AC0: 22 C7 1B 42 4E 24 B2 CA 28 42 4E 24 2C 32 29 3A |"..BN$..(BN$,2):|
00001AD0: 42 4D B2 42 4E AA 31 37 AA 31 32 AC B5 28 28 42 |BM.BN.17.12..((B|
00001AE0: 4E AA 31 29 AD 34 29 00 0C 23 CB 1B 99 3A 99 22 |N.1).4)..#...:."|
00001AF0: 28 22 54 22 2C 22 53 22 29 5F 20 C6 C9 D2 D3 D4 |("T","S")_ .....|
00001B00: 20 C2 CC CF C3 CB 22 3A 4E 39 B2 31 00 23 23 D0 | .....":N9.1.##.|
00001B10: 1B 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 3B |..15,"B-R";3;DR;|
00001B20: 54 3B 53 00 35 23 DA 1B 98 31 35 2C 22 42 2D 50 |T;S.5#...15,"B-P|
00001B30: 22 3B 33 3B 30 00 4F 23 E4 1B A1 23 33 2C 5A 24 |";3;0.O#...#3,Z$|
00001B40: 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 C7 28 30 29 00 |:.Z$."".Z$..(0).|
00001B50: 65 23 EE 1B 54 B2 C6 28 5A 24 29 3A 8B 54 B2 30 |e#..T..(Z$):.T.0|
00001B60: A7 37 32 30 30 00 7F 23 F8 1B A1 23 33 2C 5A 24 |.7200..#...#3,Z$|
00001B70: 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 C7 28 30 29 00 |:.Z$."".Z$..(0).|
00001B80: 8B 23 02 1C 53 B2 C6 28 5A 24 29 00 A9 23 07 1C |.#..S..(Z$)..#..|
00001B90: 54 24 B2 CA 28 C4 28 54 29 2C 32 29 3A 53 24 B2 |T$..(.(T),2):S$.|
00001BA0: CA 28 C4 28 53 29 2C 32 29 00 BD 23 0C 1C 99 22 |.(.(S),2)..#..."|
00001BB0: 28 22 54 24 22 2C 22 53 24 22 29 22 3B 00 CF 23 |("T$","S$")";..#|
00001BC0: 16 1C 4E 39 B2 4E 39 AA 31 3A 89 37 31 32 30 00 |..N9.N9.1:.7120.|
00001BD0: E5 23 20 1C 99 22 5F 20 CC C1 D3 D4 20 C2 CC CF |.# .."_ .... ...|
00001BE0: C3 CB 11 11 22 00 FE 23 2A 1C 99 4E 39 22 20 42 |...."..#*..N9" B|
00001BF0: 4C 4F 43 4B 53 11 22 3A 8D 33 30 30 3A 8E 00 0E |LOCKS.":.300:...|
00001C00: 24 4C 1D 8F 20 55 4E 53 43 52 41 54 43 48 00 1E |$L.. UNSCRATCH..|
00001C10: 24 4D 1D 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 3E |$M.."..........>|
00001C20: 24 56 1D 99 22 93 D7 45 27 4C 4C 20 44 4F 20 54 |$V.."..E'LL DO T|
00001C30: 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 3A 22 00 6D |HE FOLLOWING:".m|
00001C40: 24 57 1D 99 22 11 12 31 92 3A C7 4F 20 54 48 52 |$W.."..1.:.O THR|
00001C50: 55 27 20 44 49 52 45 43 54 4F 52 59 20 54 52 41 |U' DIRECTORY TRA|
00001C60: 43 4B 22 44 49 22 20 55 4E 54 49 4C 22 00 97 24 |CK"DI" UNTIL"..$|
00001C70: 58 1D 99 22 20 20 57 45 20 46 49 4E 44 20 54 48 |X.." WE FIND TH|
00001C80: 45 20 53 43 52 41 54 43 48 45 44 20 46 49 4C 45 |E SCRATCHED FILE|
00001C90: 20 4E 41 4D 45 2E 22 00 C0 24 59 1D 99 22 11 12 | NAME."..$Y.."..|
00001CA0: 32 92 3A D4 52 41 43 45 20 54 48 45 20 C2 4C 4F |2.:.RACE THE .LO|
00001CB0: 43 4B 53 20 41 4E 44 20 43 4F 4D 50 41 52 45 22 |CKS AND COMPARE"|
00001CC0: 00 E6 24 5A 1D 99 22 20 20 54 48 45 20 C2 4C 4F |..$Z.." THE .LO|
00001CD0: 43 4B 53 20 4F 42 54 41 49 4E 45 44 20 57 49 54 |CKS OBTAINED WIT|
00001CE0: 48 20 54 48 45 22 00 06 25 5B 1D 99 22 20 20 C4 |H THE"..%[.." .|
00001CF0: 49 52 45 43 54 4F 52 59 20 C2 4C 4F 43 4B 20 C3 |IRECTORY .LOCK .|
00001D00: 4F 55 4E 54 2E 22 00 34 25 5C 1D 99 22 11 12 33 |OUNT.".4%\.."..3|
00001D10: 92 3A CC 4F 4F 4B 20 41 54 20 54 48 45 20 C2 4C |.:.OOK AT THE .L|
00001D20: 4F 43 4B 20 C1 56 41 49 4C 41 42 49 4C 54 59 20 |OCK .VAILABILTY |
00001D30: CD 41 50 22 00 60 25 5D 1D 99 22 20 20 54 4F 20 |.AP".`%].." TO |
00001D40: 53 45 45 20 49 46 20 41 4C 4C 20 54 48 45 20 42 |SEE IF ALL THE B|
00001D50: 4C 4F 43 4B 53 20 41 52 45 20 46 52 45 45 2E 22 |LOCKS ARE FREE."|
00001D60: 00 85 25 5E 1D 99 22 11 3E 3E C9 46 20 41 4C 4C |..%^..".>>.F ALL|
00001D70: 20 4F 46 20 54 48 45 20 41 42 4F 56 45 20 41 52 | OF THE ABOVE AR|
00001D80: 45 20 CF CB 22 00 AA 25 5F 1D 99 22 20 20 57 45 |E .."..%_.." WE|
00001D90: 20 4D 41 59 20 CD 4F 44 49 46 59 20 54 48 45 20 | MAY .ODIFY THE |
00001DA0: C4 49 52 45 43 54 4F 52 59 22 00 C4 25 60 1D 99 |.IRECTORY"..%`..|
00001DB0: 22 20 20 41 53 20 46 4F 4C 4C 4F 57 53 3A 22 3A |" AS FOLLOWS:":|
00001DC0: 8D 33 30 30 00 E9 25 74 1D 99 22 93 CD 4F 44 49 |.300..%t.."..ODI|
00001DD0: 46 59 20 54 48 45 20 42 4C 4F 43 4B 20 53 4F 20 |FY THE BLOCK SO |
00001DE0: 54 48 41 54 20 54 48 45 22 00 FC 25 79 1D 99 22 |THAT THE"..%y.."|
00001DF0: 12 4D 41 47 49 43 20 42 59 54 45 22 00 29 26 7E |.MAGIC BYTE".)&~|
00001E00: 1D 99 22 20 20 57 48 49 43 48 20 4F 43 43 55 52 |.." WHICH OCCUR|
00001E10: 53 20 4A 55 53 54 20 12 33 92 20 50 4C 41 43 45 |S JUST .3. PLACE|
00001E20: 53 20 42 45 46 4F 52 45 22 00 4A 26 88 1D 99 22 |S BEFORE".J&..."|
00001E30: 20 20 54 48 45 20 4E 41 4D 45 20 49 53 20 41 53 | THE NAME IS AS|
00001E40: 20 46 4F 4C 4C 4F 57 53 3A 22 00 60 26 92 1D 99 | FOLLOWS:".`&...|
00001E50: 22 20 20 31 32 39 3D D3 C5 D1 20 46 49 4C 45 22 |" 129=... FILE"|
00001E60: 00 77 26 93 1D 99 22 20 20 31 33 30 3D D0 D2 CF |.w&..." 130=...|
00001E70: C7 20 46 49 4C 45 22 00 8D 26 94 1D 99 22 20 20 |. FILE"..&..." |
00001E80: 31 33 31 3D D5 D3 D2 20 46 49 4C 45 22 00 A3 26 |131=... FILE"..&|
00001E90: 95 1D 99 22 20 20 31 33 32 3D D2 C5 CC 20 46 49 |..." 132=... FI|
00001EA0: 4C 45 22 00 D2 26 9C 1D 99 22 11 C5 58 41 4D 50 |LE"..&..."..XAMP|
00001EB0: 4C 45 3A 54 4F 20 55 4E 53 43 52 41 54 43 48 20 |LE:TO UNSCRATCH |
00001EC0: 41 20 D0 D2 CF C7 20 46 49 4C 45 20 27 C1 C2 DA |A .... FILE '...|
00001ED0: 27 22 00 FE 26 A6 1D 99 22 46 49 4E 44 20 49 54 |'"..&..."FIND IT|
00001EE0: 27 53 20 4E 41 4D 45 20 4F 4E 20 54 48 45 20 C4 |'S NAME ON THE .|
00001EF0: C9 D2 C5 C3 D4 CF D2 D9 2C 20 41 4E 44 22 00 24 |........, AND".$|
00001F00: 27 B0 1D 99 22 53 45 4C 45 43 54 20 CD C5 CE D5 |'..."SELECT ....|
00001F10: 20 49 54 45 4D 3D CD 4F 44 49 46 59 20 C2 4C 4F | ITEM=.ODIFY .LO|
00001F20: 43 4B 2E 22 00 39 27 BA 1D 99 22 D9 4F 55 20 57 |CK.".9'...".OU W|
00001F30: 49 4C 4C 20 53 45 45 3A 22 00 69 27 C4 1D 99 22 |ILL SEE:".i'..."|
00001F40: 11 2E 2E 20 30 12 20 30 92 20 30 12 20 30 92 20 |... 0. 0. 0. 0. |
00001F50: 31 39 12 20 33 92 20 36 35 12 20 36 36 92 20 39 |19. 3. 65. 66. 9|
00001F60: 30 2E 2E 2E 2E 45 54 43 22 00 89 27 CE 1D 99 22 |0....ETC"..'..."|
00001F70: 20 20 20 20 20 20 20 20 20 5E 20 20 5E 20 5E 20 | ^ ^ ^ |
00001F80: 20 5E 20 20 5E 20 20 5E 22 00 A9 27 D8 1D 99 22 | ^ ^ ^"..'..."|
00001F90: 20 53 48 4F 55 4C 44 20 42 45 20 DD D4 52 43 4B | SHOULD BE ..RCK|
00001FA0: DD C1 20 20 C2 20 20 DA 22 00 D4 27 E2 1D 99 22 |.. . ."..'..."|
00001FB0: 20 20 20 20 20 41 20 31 33 30 20 DD 26 D3 45 43 | A 130 .&.EC|
00001FC0: DD C6 49 4C 45 4E 41 4D 45 28 49 4E 20 C1 D3 C3 |..ILENAME(IN ...|
00001FD0: C9 C9 29 22 00 E5 27 EC 1D 8D 33 30 30 3A 99 22 |..)"..'...300:."|
00001FE0: 91 22 53 30 24 00 13 28 F6 1D 99 22 11 CD 4F 44 |."S0$..(..."..OD|
00001FF0: 49 46 59 20 54 48 45 20 42 59 54 45 20 57 48 49 |IFY THE BYTE WHI|
00002000: 43 48 20 49 44 45 4E 54 49 46 49 45 53 20 54 48 |CH IDENTIFIES TH|
00002010: 45 20 22 00 3A 28 00 1E 99 22 46 49 4C 45 20 54 |E ".:(..."FILE T|
00002020: 59 50 45 2E 2E 54 4F 20 31 33 30 2E 2E 53 4F 20 |YPE..TO 130..SO |
00002030: 49 54 20 52 45 41 44 53 3A 22 00 6C 28 05 1E 99 |IT READS:".l(...|
00002040: 22 11 2E 2E 20 30 12 20 30 92 20 30 12 20 31 33 |"... 0. 0. 0. 13|
00002050: 30 92 20 31 39 12 20 33 92 20 36 35 12 20 36 36 |0. 19. 3. 65. 66|
00002060: 92 20 39 30 2E 2E 2E 2E 45 54 43 22 00 9A 28 0A |. 90....ETC"..(.|
00002070: 1E 99 22 11 12 34 92 3A D7 52 49 54 45 20 54 48 |.."..4.:.RITE TH|
00002080: 45 20 42 4C 4F 43 4B 20 42 41 43 4B 20 54 4F 20 |E BLOCK BACK TO |
00002090: 54 48 45 20 44 49 53 4B 2E 22 00 C2 28 14 1E 99 |THE DISK."..(...|
000020A0: 22 11 12 35 92 3A D1 55 49 54 20 41 4E 44 20 D6 |"..5.:.UIT AND .|
000020B0: C1 CC C9 C4 C1 D4 C5 20 54 48 45 20 44 49 53 4B |....... THE DISK|
000020C0: 2E 22 00 DD 28 19 1E 99 22 20 20 20 20 20 20 20 |."..(..." |
000020D0: 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 22 00 F4 28 | ........"..(|
000020E0: 1E 1E 99 22 12 35 92 3A D0 52 41 59 2E 2E 22 3A |...".5.:.RAY..":|
000020F0: 8D 33 31 30 00 1D 29 C8 1E 85 22 11 D7 C1 CE D4 |.310..)...".....|
00002100: 20 D4 CF 20 D4 D2 D9 20 20 20 59 9D 9D 9D 22 3B | .. ... Y...";|
00002110: 41 24 3A 8B 41 24 B3 B1 22 59 22 A7 8E 00 28 29 |A$:.A$.."Y"...()|
00002120: D2 1E 89 31 32 30 30 30 00 3F 29 DC 1E A0 31 35 |...12000.?)...15|
00002130: 3A 99 C7 28 31 34 32 29 3A 99 22 93 22 3A 80 00 |:..(142):.".":..|
00002140: 50 29 40 1F 8F 20 49 4E 49 54 49 41 4C 49 5A 45 |P)@.. INITIALIZE|
00002150: 00 61 29 41 1F 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 |.a)A..".........|
00002160: B8 00 72 29 42 1F 99 C7 28 31 34 32 29 3A 99 22 |..r)B...(142):."|
00002170: 05 22 00 98 29 45 1F 86 43 28 32 35 35 29 2C 54 |."..)E..C(255),T|
00002180: 28 31 32 30 29 2C 53 28 31 32 30 29 2C 53 43 28 |(120),S(120),SC(|
00002190: 37 37 29 2C 42 28 34 29 00 B9 29 46 1F 83 31 2C |77),B(4)..)F..1,|
000021A0: 31 37 2C 32 30 2C 32 34 2C 31 39 2C 33 30 2C 31 |17,20,24,19,30,1|
000021B0: 37 2C 33 35 2C 31 36 2C 30 00 DB 29 47 1F 83 36 |7,35,16,0..)G..6|
000021C0: 35 2C 31 37 2C 32 30 2C 32 34 2C 31 38 2C 33 30 |5,17,20,24,18,30|
000021D0: 2C 31 37 2C 33 35 2C 31 36 2C 30 00 FD 29 48 1F |,17,35,16,0..)H.|
000021E0: 83 36 37 2C 33 39 2C 32 38 2C 35 33 2C 32 36 2C |.67,39,28,53,26,|
000021F0: 36 34 2C 32 34 2C 37 37 2C 32 32 2C 30 00 15 2A |64,24,77,22,0..*|
00002200: 4A 1F 52 24 28 30 29 B2 22 12 22 3A 52 24 28 31 |J.R$(0).".":R$(1|
00002210: 29 B2 22 92 22 00 2B 2A 54 1F 53 44 24 B2 22 13 |).".".+*T.SD$.".|
00002220: 11 11 11 11 11 11 11 11 11 11 22 00 4A 2A 59 1F |..........".J*Y.|
00002230: 4D 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |MD$."...........|
00002240: 11 11 11 11 11 11 11 11 92 22 00 6E 2A 63 1F 85 |.........".n*c..|
00002250: 22 93 44 52 49 56 45 92 20 20 20 A6 9D 9D 9D 22 |".DRIVE. ...."|
00002260: 3B 44 52 24 3A 44 52 B2 C5 28 44 52 24 29 00 8A |;DR$:DR..(DR$)..|
00002270: 2A 68 1F 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA |*h..15,8,15,"I".|
00002280: 44 52 24 3A 8D 36 33 39 30 30 00 AB 2A 72 1F 4B |DR$:.63900..*r.K|
00002290: 24 B2 22 20 20 D4 C8 C9 D3 A0 C2 CC CF C3 CB A0 |$." ...........|
000022A0: C9 D3 A0 C5 CD D0 D4 D9 20 20 22 00 C7 2A 7C 1F |........ "..*|.|
000022B0: 99 22 93 57 41 49 54 2E 2E 2E 22 3A 8C 3A 57 57 |.".WAIT...":.:WW|
000022C0: B2 30 3A 41 30 B2 31 00 E1 2A 7D 1F 9F 33 2C 38 |.0:A0.1..*}..3,8|
000022D0: 2C 33 2C 22 24 22 AA 44 52 24 3A 8D 36 33 39 30 |,3,"$".DR$:.6390|
000022E0: 30 00 F9 2A 7E 1F A1 23 33 2C 41 24 3A 41 B2 C6 |0..*~..#3,A$:A..|
000022F0: 28 41 24 AA C7 28 30 29 29 00 0C 2B 7F 1F 87 44 |(A$..(0))..+...D|
00002300: 54 3A 8B 41 B2 44 54 A7 38 30 37 30 00 32 2B 80 |T:.A.DT.8070.2+.|
00002310: 1F 57 57 B2 57 57 AA 31 3A 8B 57 57 B3 33 A7 20 |.WW.WW.1:.WW.3. |
00002320: 81 49 B2 31 A4 39 3A 87 44 54 3A 82 3A 89 38 30 |.I.1.9:.DT:.:.80|
00002330: 36 33 00 72 2B 81 1F 99 22 93 11 11 2A 2A 2A 12 |63.r+..."...***.|
00002340: 4E 4F 54 20 41 20 52 45 43 4F 47 4E 49 5A 41 42 |NOT A RECOGNIZAB|
00002350: 4C 45 20 44 49 53 4B 92 2A 2A 2A 22 3A A0 33 3A |LE DISK.***":.3:|
00002360: 99 22 11 11 57 41 4E 54 20 54 4F 20 51 55 49 54 |."..WANT TO QUIT|
00002370: 3F 22 00 89 2B 82 1F 8D 33 31 30 3A 8B 49 4E 24 |?"..+...310:.IN$|
00002380: B2 22 59 22 A7 37 39 30 30 00 93 2B 83 1F 89 38 |."Y".7900..+...8|
00002390: 31 31 30 00 AA 2B 86 1F 8B 44 54 B2 31 B0 44 54 |110..+...DT.1.DT|
000023A0: B2 36 35 A7 4B 4B B2 31 34 33 00 BA 2B 87 1F 8B |.65.KK.143..+...|
000023B0: 44 54 B2 36 37 A7 4B 4B B2 35 00 C4 2B 88 1F 8D |DT.67.KK.5..+...|
000023C0: 38 32 30 30 00 D7 2B 8B 1F 87 41 31 3A 8B 41 31 |8200..+...A1:.A1|
000023D0: B2 30 A7 38 30 39 30 00 00 2C 90 1F 87 42 31 3A |.0.8090..,...B1:|
000023E0: 81 49 B2 41 30 A4 41 31 3A 53 43 28 49 29 B2 42 |.I.A0.A1:SC(I).B|
000023F0: 31 AA 31 3A 82 3A 41 30 B2 49 3A 89 38 30 37 35 |1.1:.:A0.I:.8075|
00002400: 00 26 2C 9A 1F 8B 44 54 B2 31 B0 44 54 B2 36 35 |.&,...DT.1.DT.65|
00002410: A7 44 31 B2 31 3A 54 54 B2 33 35 3A 53 32 B2 33 |.D1.1:TT.35:S2.3|
00002420: 3A 44 49 B2 31 38 00 49 2C 9F 1F 8B 44 54 B2 36 |:DI.18.I,...DT.6|
00002430: 37 A7 44 31 B2 32 35 37 3A 54 54 B2 37 37 3A 53 |7.D1.257:TT.77:S|
00002440: 32 B2 34 3A 44 49 B2 33 39 00 5D 2C A0 1F 53 31 |2.4:DI.39.],..S1|
00002450: B2 53 32 AB 31 3A 53 33 B2 53 32 AA 31 00 6F 2C |.S2.1:S3.S2.1.o,|
00002460: A4 1F A0 33 3A 8B 54 54 B2 30 A7 38 30 36 35 00 |...3:.TT.0.8065.|
00002470: 85 2C AE 1F 81 49 B2 30 A4 37 3A 50 28 49 29 B2 |.,...I.0.7:P(I).|
00002480: 32 AE 49 3A 82 00 9D 2C B8 1F 58 24 28 30 29 B2 |2.I:...,..X$(0).|
00002490: 22 D1 22 3A 58 24 28 31 29 B2 22 D7 22 00 CE 2C |".":X$(1)."."..,|
000024A0: C2 1F 53 30 24 B2 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |..S0$.".........|
000024B0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000024C0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 EF |............."..|
000024D0: 2C CC 1F 43 4C 24 B2 22 22 3A 81 49 B2 31 A4 33 |,..CL$."":.I.1.3|
000024E0: 39 3A 43 4C 24 B2 43 4C 24 AA 22 20 22 3A 82 00 |9:CL$.CL$." ":..|
000024F0: 1D 2D D6 1F 53 31 24 B2 22 5E 2E 2E 2E 2E 5E 2E |.-..S1$."^....^.|
00002500: 2E 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E |...^....^....^..|
00002510: 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 22 00 47 2D |..^....^....".G-|
00002520: E0 1F 53 32 24 B2 22 DD 20 20 20 20 DD 20 20 20 |..S2$.". . |
00002530: 20 DD 20 20 20 20 DD 20 20 20 20 DD 20 20 20 20 | . . . |
00002540: DD 20 20 20 20 DD 22 00 72 2D EA 1F 53 33 24 B2 |. .".r-..S3$.|
00002550: 22 30 20 20 20 20 35 20 20 20 20 31 30 20 20 20 |"0 5 10 |
00002560: 31 35 20 20 20 32 30 20 20 20 32 35 20 20 20 33 |15 20 25 3|
00002570: 30 22 00 78 2D F4 1F 8E 00 93 2D 08 20 81 49 B2 |0".x-.....-. .I.|
00002580: 33 A4 4B 4B 3A A1 23 33 2C 41 24 3A 82 3A 99 22 |3.KK:.#3,A$:.:."|
00002590: 12 22 3B 00 B8 2D 12 20 81 49 B2 31 A4 32 33 3A |.";..-. .I.1.23:|
000025A0: A1 23 33 2C 41 24 3A 41 24 B2 41 24 AA C7 28 30 |.#3,A$:A$.A$..(0|
000025B0: 29 3A 99 41 24 3B 3A 82 00 C0 2D 1C 20 99 3A 8E |):.A$;:...-. .:.|
000025C0: 00 D2 2D 28 23 8F 20 44 45 43 49 4D 41 4C 5F 48 |..-(#. DECIMAL_H|
000025D0: 45 58 00 E4 2D 29 23 8F 22 A3 A3 A3 A3 A3 A3 A3 |EX..-)#.".......|
000025E0: A3 A3 A3 A3 00 F8 2D 2D 23 4D B2 C5 28 4D 24 29 |......--#M..(M$)|
000025F0: 3A 8B 4D B3 B1 30 A7 8E 00 14 2E 32 23 4D 24 B2 |:.M..0.....2#M$.|
00002600: CA 28 4D 24 2C 32 29 3A 4D B2 30 3A 4C 4D B2 C3 |.(M$,2):M.0:LM..|
00002610: 28 4D 24 29 00 21 2E 3C 23 81 43 4E B2 31 A4 4C |(M$).!.<#.CN.1.L|
00002620: 4D 00 4E 2E 46 23 4D 4D 24 B2 CA 28 4D 24 2C 43 |M.N.F#MM$..(M$,C|
00002630: 4E 2C 31 29 3A 8D 39 31 30 30 3A 4D B2 4D AA 4D |N,1):.9100:M.M.M|
00002640: 4D AC 31 36 AE 28 4C 4D AB 43 4E 29 3A 82 00 54 |M.16.(LM.CN):..T|
00002650: 2E 50 23 8E 00 68 2E 8C 23 8B 4D 4D 24 B2 22 30 |.P#..h..#.MM$."0|
00002660: 22 A7 4D 4D B2 30 3A 8E 00 7F 2E 96 23 4D 4D B2 |".MM.0:.....#MM.|
00002670: C5 28 4D 4D 24 29 3A 8B 4D 4D B3 B1 30 A7 8E 00 |.(MM$):.MM..0...|
00002680: 92 2E A0 23 4D 4D B2 C6 28 4D 4D 24 29 AB 35 35 |...#MM..(MM$).55|
00002690: 3A 8E 00 A4 2E 1C 25 8F 20 48 45 58 5F 44 45 43 |:.....%. HEX_DEC|
000026A0: 49 4D 41 4C 00 B6 2E 1D 25 8F 22 A3 A3 A3 A3 A3 |IMAL....%.".....|
000026B0: A3 A3 A3 A3 A3 A3 00 F0 2E 21 25 53 4D B2 4D 3A |.........!%SM.M:|
000026C0: 4D 24 B2 22 24 22 3A 81 43 4E B2 33 A4 30 A9 AB |M$."$":.CN.3.0..|
000026D0: 31 3A 43 4D 25 B2 53 4D AD 28 31 36 AE 43 4E 29 |1:CM%.SM.(16.CN)|
000026E0: 3A 8D 39 36 30 30 3A 4D 24 B2 4D 24 AA 4D 4D 24 |:.9600:M$.M$.MM$|
000026F0: 00 0A 2F 26 25 53 4D B2 53 4D AB 28 31 36 AE 43 |../&%SM.SM.(16.C|
00002700: 4E 29 AC 43 4D 25 3A 82 3A 8E 00 26 2F 80 25 8B |N).CM%:.:..&/.%.|
00002710: 43 4D 25 B3 31 30 A7 4D 4D 24 B2 C7 28 43 4D 25 |CM%.10.MM$..(CM%|
00002720: AA 34 38 29 3A 8E 00 3A 2F 8A 25 4D 4D 24 B2 C7 |.48):..:/.%MM$..|
00002730: 28 43 4D 25 AA 35 35 29 3A 8E 00 53 2F 10 27 99 |(CM%.55):..S/.'.|
00002740: 53 44 24 22 11 11 11 11 11 11 11 11 11 11 20 20 |SD$".......... |
00002750: 20 20 22 00 84 2F 1A 27 97 43 52 54 AA 4A 2C 31 | "../.'.CRT.J,1|
00002760: 36 38 3A 4A B2 4A AA 31 3A 81 4B B2 32 A4 31 A9 |68:J.J.1:.K.2.1.|
00002770: AB 31 3A 53 24 B2 CA 28 C4 28 43 28 49 AB 4B 29 |.1:S$..(.(C(I.K)|
00002780: 29 2C 32 29 00 B3 2F 24 27 81 4C B2 31 A4 C3 28 |),2)../$'.L.1..(|
00002790: 53 24 29 3A 97 43 52 54 AA 4A 2C C5 28 CA 28 53 |S$):.CRT.J,.(.(S|
000027A0: 24 2C 4C 2C 31 29 29 AA 31 37 36 3A 4A B2 4A AA |$,L,1)).176:J.J.|
000027B0: 31 3A 82 00 D7 2F 2E 27 97 43 52 54 AA 4A 2C 31 |1:.../.'.CRT.J,1|
000027C0: 37 32 3A 4A B2 4A AA 31 3A 82 3A 97 43 52 54 AA |72:J.J.1:.:.CRT.|
000027D0: 4A AB 31 2C 31 36 39 00 03 30 38 27 99 53 44 24 |J.1,169..08'.SD$|
000027E0: 22 11 11 11 11 11 11 11 11 11 11 4E 4F 54 45 3A |"..........NOTE:|
000027F0: 12 28 54 52 41 43 4B 2C 53 45 43 54 4F 52 29 20 |.(TRACK,SECTOR) |
00002800: 22 3A 8E 00 09 30 F8 2A 3A 00 41 30 02 2B 97 43 |":...0.*:.A0.+.C|
00002810: 52 54 AA 4A 2C 31 39 30 3A 4A B2 4A AA 31 3A 53 |RT.J,190:J.J.1:S|
00002820: 56 B2 43 28 49 AB 32 29 AA 43 28 49 AB 31 29 AC |V.C(I.2).C(I.1).|
00002830: 32 35 36 3A 53 24 B2 CA 28 C4 28 53 56 29 2C 32 |256:S$..(.(SV),2|
00002840: 29 00 70 30 0C 2B 81 4C B2 31 A4 C3 28 53 24 29 |).p0.+.L.1..(S$)|
00002850: 3A 97 43 52 54 AA 4A 2C C5 28 CA 28 53 24 2C 4C |:.CRT.J,.(.(S$,L|
00002860: 2C 31 29 29 AA 31 37 36 3A 4A B2 4A AA 31 3A 82 |,1)).176:J.J.1:.|
00002870: 00 87 30 16 2B 4A B2 4A AA 31 3A 97 43 52 54 AA |..0.+J.J.1:.CRT.|
00002880: 4A AB 31 2C 31 38 38 00 B4 30 20 2B 99 53 44 24 |J.1,188..0 +.SD$|
00002890: 22 11 11 11 11 11 11 11 11 11 11 11 B8 B8 B8 B8 |"...............|
000028A0: 3A 12 3E 4E 55 4D 42 45 52 20 42 4C 4F 43 4B 53 |:.>NUMBER BLOCKS|
000028B0: 3C 22 3A 8E 00 CC 30 E0 2E 8F 20 55 4E 53 43 52 |<":...0... UNSCR|
000028C0: 41 54 43 48 20 52 4F 55 54 49 4E 45 00 E4 30 E1 |ATCH ROUTINE..0.|
000028D0: 2E 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..".............|
000028E0: B8 B8 B8 B8 00 F0 30 EA 2E 99 C7 28 31 34 32 29 |......0....(142)|
000028F0: 00 18 31 F4 2E 99 22 93 11 11 54 48 45 20 53 43 |..1..."...THE SC|
00002900: 52 41 54 43 48 45 44 20 46 49 4C 45 20 4E 41 4D |RATCHED FILE NAM|
00002910: 45 53 20 57 49 4C 4C 22 00 2D 31 FE 2E 99 22 42 |ES WILL".-1..."B|
00002920: 45 20 44 49 53 50 4C 41 59 45 44 2E 22 00 53 31 |E DISPLAYED.".S1|
00002930: 08 2F 99 22 11 59 4F 55 20 4D 41 59 20 44 45 43 |./.".YOU MAY DEC|
00002940: 49 44 45 20 57 48 49 43 48 20 46 49 4C 45 20 59 |IDE WHICH FILE Y|
00002950: 4F 55 22 00 6B 31 12 2F 99 22 57 49 53 48 20 54 |OU".k1./."WISH T|
00002960: 4F 20 52 45 43 4F 56 45 52 2E 22 00 8E 31 1C 2F |O RECOVER."..1./|
00002970: 99 22 11 11 12 52 45 54 55 52 4E 92 20 54 4F 20 |."...RETURN. TO |
00002980: 43 4F 4E 54 49 4E 55 45 22 3A 8D 33 31 30 00 97 |CONTINUE":.310..|
00002990: 31 26 2F 99 22 93 22 00 AB 31 30 2F A0 33 3A A0 |1&/."."..10/.3:.|
000029A0: 31 35 3A 9F 31 35 2C 38 2C 31 35 00 CB 31 3A 2F |15:.15,8,15..1:/|
000029B0: 54 B2 44 49 3A 53 B2 31 3A 9F 33 2C 38 2C 33 2C |T.DI:S.1:.3,8,3,|
000029C0: 22 23 30 22 3A 8D 36 33 39 30 30 00 E2 31 3F 2F |"#0":.63900..1?/|
000029D0: 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 3B 54 |.15,"B-R";3;DR;T|
000029E0: 3B 53 00 F6 31 40 2F 99 22 93 4C 4F 4F 4B 49 4E |;S..1@/.".LOOKIN|
000029F0: 47 20 41 54 3A 22 00 1C 32 41 2F 99 22 11 11 54 |G AT:"..2A/."..T|
00002A00: 52 41 43 4B 20 20 20 9D 9D 9D 22 54 22 20 53 45 |RACK ..."T" SE|
00002A10: 43 54 4F 52 20 20 20 9D 9D 9D 22 53 00 46 32 44 |CTOR ..."S.F2D|
00002A20: 2F 81 4A B2 30 A4 32 35 35 3A 98 31 35 2C 22 4D |/.J.0.255:.15,"M|
00002A30: 2D 52 22 3B C7 28 4A 29 3B C7 28 31 37 29 3A A1 |-R";.(J);.(17):.|
00002A40: 23 31 35 2C 41 24 00 5C 32 4E 2F 43 28 4A 29 B2 |#15,A$.\2N/C(J).|
00002A50: C6 28 41 24 AA C7 28 30 29 29 3A 82 00 84 32 58 |.(A$..(0)):...2X|
00002A60: 2F 81 44 B2 32 A4 32 35 35 A9 33 32 3A 8B 43 28 |/.D.2.255.32:.C(|
00002A70: 44 29 B3 B1 30 B0 43 28 44 AA 31 29 B2 30 A7 31 |D)..0.C(D.1).0.1|
00002A80: 32 32 30 30 00 B5 32 62 2F 99 53 44 24 43 4C 24 |2200..2b/.SD$CL$|
00002A90: 53 44 24 22 57 41 4E 54 20 54 4F 20 55 4E 53 43 |SD$"WANT TO UNSC|
00002AA0: 52 41 54 43 48 20 12 22 3B 3A 81 50 39 B2 31 A4 |RATCH .";:.P9.1.|
00002AB0: 32 30 30 3A 82 00 E0 32 6C 2F A1 41 24 3A 81 4B |200:...2l/.A$:.K|
00002AC0: B2 44 AA 33 A4 44 AA 31 38 3A 99 C7 28 43 28 4B |.D.3.D.18:..(C(K|
00002AD0: 29 29 3B 3A 82 3A 99 22 92 3F 22 3A 8D 33 31 30 |));:.:.".?":.310|
00002AE0: 00 F3 32 76 2F 8B 49 4E 24 B2 22 59 22 A7 31 32 |..2v/.IN$."Y".12|
00002AF0: 33 30 30 00 14 33 A8 2F 82 44 3A 54 B2 43 28 30 |300..3./.D:T.C(0|
00002B00: 29 3A 53 B2 43 28 31 29 3A 8B 54 B2 44 49 A7 31 |):S.C(1):.T.DI.1|
00002B10: 32 30 39 35 00 51 33 B2 2F 99 22 93 46 49 4E 49 |2095.Q3./.".FINI|
00002B20: 53 48 45 44 20 4C 4F 4F 4B 49 4E 47 2E 2E 22 3A |SHED LOOKING..":|
00002B30: 99 22 11 11 12 52 45 54 55 52 4E 92 20 54 4F 20 |."...RETURN. TO |
00002B40: 43 4F 4E 54 49 4E 55 45 2E 22 3A 8D 33 31 30 3A |CONTINUE.":.310:|
00002B50: 8E 00 8F 33 0C 30 54 30 B2 54 3A 53 30 B2 53 3A |...3.0T0.T:S0.S:|
00002B60: 54 B2 43 28 44 AA 31 29 3A 53 B2 43 28 44 AA 32 |T.C(D.1):S.C(D.2|
00002B70: 29 3A 42 30 B2 43 28 44 AA 32 38 29 AA 43 28 44 |):B0.C(D.28).C(D|
00002B80: AA 32 39 29 AC 32 35 36 3A 99 C7 28 31 34 29 00 |.29).256:..(14).|
00002B90: BD 33 0D 30 99 22 93 11 11 12 C4 49 52 45 43 54 |.3.0.".....IRECT|
00002BA0: 4F 52 59 20 C2 4C 4F 43 4B 20 C3 4F 55 4E 54 3D |ORY .LOCK .OUNT=|
00002BB0: 22 42 30 3A 4E 39 B2 31 3A 99 53 30 24 00 F5 33 |"B0:N9.1:.S0$..3|
00002BC0: 0E 30 A0 33 3A A0 31 35 3A 9F 31 35 2C 38 2C 31 |.0.3:.15:.15,8,1|
00002BD0: 35 3A 9F 33 2C 38 2C 33 2C 22 23 22 3A 8D 36 33 |5:.3,8,3,"#":.63|
00002BE0: 39 30 30 3A A1 23 33 2C 42 4E 24 3A 42 4E B2 C6 |900:.#3,BN$:BN..|
00002BF0: 28 42 4E 24 29 00 11 34 0F 30 54 28 4E 39 29 B2 |(BN$)..4.0T(N9).|
00002C00: 54 3A 53 28 4E 39 29 B2 53 3A 4E 39 B2 4E 39 AA |T:S(N9).S:N9.N9.|
00002C10: 31 00 28 34 11 30 98 31 35 2C 22 42 2D 52 22 3B |1.(4.0.15,"B-R";|
00002C20: 33 3B 44 52 3B 54 3B 53 00 3A 34 12 30 98 31 35 |3;DR;T;S.:4.0.15|
00002C30: 2C 22 42 2D 50 22 3B 33 3B 30 00 54 34 13 30 A1 |,"B-P";3;0.T4.0.|
00002C40: 23 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 |#3,Z$:.Z$."".Z$.|
00002C50: C7 28 30 29 00 73 34 14 30 54 28 4E 39 29 B2 C6 |.(0).s4.0T(N9)..|
00002C60: 28 5A 24 29 3A 8B 54 28 4E 39 29 B2 30 A7 31 32 |(Z$):.T(N9).0.12|
00002C70: 33 31 34 00 8D 34 15 30 A1 23 33 2C 5A 24 3A 8B |314..4.0.#3,Z$:.|
00002C80: 5A 24 B2 22 22 A7 5A 24 B2 C7 28 30 29 00 9D 34 |Z$."".Z$..(0)..4|
00002C90: 16 30 53 28 4E 39 29 B2 C6 28 5A 24 29 00 BB 34 |.0S(N9)..(Z$)..4|
00002CA0: 17 30 54 24 B2 CA 28 C4 28 54 29 2C 32 29 3A 53 |.0T$..(.(T),2):S|
00002CB0: 24 B2 CA 28 C4 28 53 29 2C 32 29 00 CF 34 18 30 |$..(.(S),2)..4.0|
00002CC0: 99 22 28 22 54 24 22 2C 22 53 24 22 29 22 3B 00 |."("T$","S$")";.|
00002CD0: F2 34 19 30 54 B2 54 28 4E 39 29 3A 53 B2 53 28 |.4.0T.T(N9):S.S(|
00002CE0: 4E 39 29 3A 4E 39 B2 4E 39 AA 31 3A 89 31 32 33 |N9):N9.N9.1:.123|
00002CF0: 30 35 00 00 35 1A 30 4E 39 B2 4E 39 AB 31 3A 99 |05..5.0N9.N9.1:.|
00002D00: 00 16 35 1B 30 99 22 11 12 22 4E 39 22 20 42 4C |..5.0.".."N9" BL|
00002D10: 4F 43 4B 53 11 22 00 4C 35 3E 30 8B 4E 39 B3 B1 |OCKS.".L5>0.N9..|
00002D20: 42 30 A7 99 22 11 11 2A 2A 12 49 4E 43 4F 52 52 |B0.."..**.INCORR|
00002D30: 45 43 54 20 42 4C 4F 43 4B 20 43 4F 55 4E 54 92 |ECT BLOCK COUNT.|
00002D40: 2A 2A 11 11 22 3A 8D 33 30 30 3A 8E 00 67 35 48 |**..":.300:..g5H|
00002D50: 30 99 22 11 CC 4F 4F 4B 53 20 47 4F 4F 44 20 53 |0."..OOKS GOOD S|
00002D60: 4F 20 46 41 52 2E 22 00 92 35 52 30 99 22 11 D3 |O FAR."..5R0."..|
00002D70: 48 41 4C 4C 20 57 45 20 50 52 4F 43 45 45 44 3F |HALL WE PROCEED?|
00002D80: 22 3A 8D 33 31 30 3A 8B 49 4E 24 B3 B1 22 59 22 |":.310:.IN$.."Y"|
00002D90: A7 8E 00 BE 35 5C 30 99 22 93 11 11 D7 45 27 4C |....5\0."....E'L|
00002DA0: 4C 20 43 48 45 43 4B 20 54 48 41 54 20 54 48 45 |L CHECK THAT THE|
00002DB0: 20 41 42 4F 56 45 20 42 4C 4F 43 4B 53 22 00 E7 | ABOVE BLOCKS"..|
00002DC0: 35 66 30 99 22 11 41 52 45 20 C6 D2 C5 C5 20 42 |5f0.".ARE .... B|
00002DD0: 59 20 4C 4F 4F 4B 49 4E 47 20 41 54 20 54 48 45 |Y LOOKING AT THE|
00002DE0: 20 C2 C1 CD 2E 11 22 00 16 36 70 30 99 22 11 D4 | ....."..6p0."..|
00002DF0: 48 45 20 54 52 41 43 4B 2F 53 45 43 54 4F 52 53 |HE TRACK/SECTORS|
00002E00: 20 46 4F 52 20 54 48 45 20 46 49 4C 45 20 57 49 | FOR THE FILE WI|
00002E10: 4C 4C 20 42 45 22 00 40 36 7A 30 99 22 11 44 49 |LL BE".@6z0.".DI|
00002E20: 53 50 4C 41 59 45 44 2E 20 C9 46 20 41 20 42 4C |SPLAYED. .F A BL|
00002E30: 4F 43 4B 20 49 53 20 4F 43 43 55 50 49 45 44 22 |OCK IS OCCUPIED"|
00002E40: 00 6A 36 84 30 99 22 11 54 48 45 20 D5 CE D3 C3 |.j6.0.".THE ....|
00002E50: D2 C1 D4 C3 C8 20 57 49 4C 4C 20 4E 4F 54 20 57 |..... WILL NOT W|
00002E60: 4F 52 4B 21 22 3A 8D 33 30 30 00 9C 36 85 30 A0 |ORK!":.300..6.0.|
00002E70: 31 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA |15:.15,8,15,"I".|
00002E80: 44 52 24 3A 8D 36 33 39 30 30 3A 99 22 93 22 3A |DR$:.63900:.".":|
00002E90: 99 C7 28 31 34 32 29 3A 4B 31 B2 31 00 B6 36 86 |..(142):K1.1..6.|
00002EA0: 30 9F 32 2C 38 2C 32 2C 22 24 22 AA 44 52 24 3A |0.2,8,2,"$".DR$:|
00002EB0: 8D 36 33 39 30 30 00 D0 36 87 30 96 20 A5 42 28 |.63900..6.0. .B(|
00002EC0: 49 29 B2 28 5A AF 50 28 49 29 29 AD 50 28 49 29 |I).(Z.P(I)).P(I)|
00002ED0: 00 EC 36 88 30 46 46 B2 44 31 AA 28 54 28 4B 31 |..6.0FF.D1.(T(K1|
00002EE0: 29 AB 31 29 AC 53 33 3A 50 50 B2 30 00 02 37 89 |).1).S3:PP.0..7.|
00002EF0: 30 81 4B 32 B2 30 A4 46 46 3A A1 23 32 2C 41 24 |0.K2.0.FF:.#2,A$|
00002F00: 3A 82 00 1F 37 98 30 54 B2 54 28 4B 31 29 3A 99 |:...7.0T.T(K1):.|
00002F10: 22 93 22 3A 8D 36 34 30 30 3A 8D 36 35 38 30 00 |".":.6400:.6580.|
00002F20: 43 37 A2 30 99 53 44 24 22 43 48 45 43 4B 20 54 |C7.0.SD$"CHECK T|
00002F30: 48 41 54 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E |HAT THE FOLLOWIN|
00002F40: 47 20 22 00 5E 37 A7 30 99 22 11 53 45 43 54 4F |G ".^7.0.".SECTO|
00002F50: 52 53 20 41 52 45 20 46 52 45 45 3D D7 22 00 92 |RS ARE FREE=."..|
00002F60: 37 AC 30 81 4B 32 B2 31 A4 4E 39 3A 8B 54 28 4B |7.0.K2.1.N9:.T(K|
00002F70: 32 29 B2 54 A7 99 52 24 28 50 50 29 CA 28 C4 28 |2).T..R$(PP).(.(|
00002F80: 53 28 4B 32 29 29 2C 32 29 52 24 28 31 AB 50 50 |S(K2)),2)R$(1.PP|
00002F90: 29 3B 00 A2 37 B1 30 50 50 B2 31 AB 50 50 3A 82 |);..7.0PP.1.PP:.|
00002FA0: 3A 99 00 B3 37 B6 30 99 22 11 4F 4B 3F 22 3A 8D |:...7.0.".OK?":.|
00002FB0: 33 31 30 00 DE 37 BB 30 8B 49 4E 24 B3 B1 22 59 |310..7.0.IN$.."Y|
00002FC0: 22 A7 99 22 93 53 4F 52 52 59 2E 2E 22 3A 99 C7 |"..".SORRY..":..|
00002FD0: 28 31 34 29 3A 8D 33 30 30 3A A0 32 3A 8E 00 F3 |(14):.300:.2:...|
00002FE0: 37 C0 30 A0 32 3A 8B 4B 31 B1 B2 4E 39 A7 A0 31 |7.0.2:.K1..N9..1|
00002FF0: 35 3A 8E 00 0E 38 CA 30 4B 31 B2 4B 31 AA 31 3A |5:...8.0K1.K1.1:|
00003000: 8B 54 28 4B 31 29 B2 30 A7 31 32 36 30 30 00 21 |.T(K1).0.12600.!|
00003010: 38 D4 30 8B 54 28 4B 31 29 B2 54 A7 31 32 34 39 |8.0.T(K1).T.1249|
00003020: 30 00 2C 38 D9 30 89 31 32 34 32 32 00 3C 38 38 |0.,8.0.12422.<88|
00003030: 31 99 22 93 22 3A 99 C7 28 31 34 29 00 6C 38 42 |1.".":..(14).l8B|
00003040: 31 99 22 CE 4F 57 20 4D 4F 44 49 46 59 20 54 48 |1.".OW MODIFY TH|
00003050: 45 20 12 4D 41 47 49 43 20 42 59 54 45 92 20 4F |E .MAGIC BYTE. O|
00003060: 4E 20 44 49 52 45 43 54 4F 52 59 22 00 87 38 4C |N DIRECTORY"..8L|
00003070: 31 99 22 11 D4 52 41 43 4B 22 54 30 22 20 D3 45 |1."..RACK"T0" .E|
00003080: 43 54 4F 52 22 53 30 00 B8 38 56 31 99 22 11 D4 |CTOR"S0..8V1."..|
00003090: 48 45 4E 20 D7 52 49 54 45 20 54 48 45 20 42 4C |HEN .RITE THE BL|
000030A0: 4F 43 4B 20 42 41 43 4B 20 54 4F 20 28 22 54 30 |OCK BACK TO ("T0|
000030B0: 22 2C 22 53 30 22 29 22 00 DD 38 60 31 99 22 11 |","S0")"..8`1.".|
000030C0: C6 49 4E 41 4C 4C 59 20 12 D6 41 4C 49 44 41 54 |.INALLY ..ALIDAT|
000030D0: 45 92 20 54 48 45 20 44 49 53 4B 21 22 00 E8 38 |E. THE DISK!"..8|
000030E0: 6A 31 8D 33 30 30 3A 8E 00 F6 38 C8 32 54 B2 54 |j1.300:...8.2T.T|
000030F0: 31 3A 53 B2 53 31 00 02 39 C9 32 81 4A B2 31 A4 |1:S.S1..9.2.J.1.|
00003100: 42 30 00 3A 39 CD 32 A0 33 3A A0 31 35 3A 9F 31 |B0.:9.2.3:.15:.1|
00003110: 35 2C 38 2C 31 35 3A 9F 33 2C 38 2C 33 2C 22 23 |5,8,15:.3,8,3,"#|
00003120: 22 3A 8D 36 33 39 30 30 3A A1 23 33 2C 42 4E 24 |":.63900:.#3,BN$|
00003130: 3A 42 4E B2 C6 28 42 4E 24 29 00 63 39 D2 32 42 |:BN..(BN$).c9.2B|
00003140: 4E 24 B2 CA 28 42 4E 24 2C 32 29 3A 42 4D B2 42 |N$..(BN$,2):BM.B|
00003150: 4E AA 31 37 AA 31 32 AC B5 28 28 42 4E AA 31 29 |N.17.12..((BN.1)|
00003160: AD 34 29 00 88 39 DC 32 99 3A 99 22 28 22 54 22 |.4)..9.2.:."("T"|
00003170: 2C 22 53 22 29 5F 20 C6 C9 D2 D3 D4 20 C2 CC CF |,"S")_ ..... ...|
00003180: C3 CB 22 3A 4E 39 B2 31 00 9F 39 E6 32 98 31 35 |..":N9.1..9.2.15|
00003190: 2C 22 42 2D 52 22 3B 33 3B 44 52 3B 54 3B 53 00 |,"B-R";3;DR;T;S.|
000031A0: B1 39 F0 32 98 31 35 2C 22 42 2D 50 22 3B 33 3B |.9.2.15,"B-P";3;|
000031B0: 30 00 CB 39 FA 32 A1 23 33 2C 5A 24 3A 8B 5A 24 |0..9.2.#3,Z$:.Z$|
000031C0: B2 22 22 A7 5A 24 B2 C7 28 30 29 00 E1 39 04 33 |."".Z$..(0)..9.3|
000031D0: 54 B2 C6 28 5A 24 29 3A 8B 54 B2 30 A7 37 32 30 |T..(Z$):.T.0.720|
000031E0: 30 00 FB 39 0E 33 A1 23 33 2C 5A 24 3A 8B 5A 24 |0..9.3.#3,Z$:.Z$|
000031F0: B2 22 22 A7 5A 24 B2 C7 28 30 29 00 07 3A 18 33 |."".Z$..(0)..:.3|
00003200: 53 B2 C6 28 5A 24 29 00 25 3A 22 33 54 24 B2 CA |S..(Z$).%:"3T$..|
00003210: 28 C4 28 54 29 2C 32 29 3A 53 24 B2 CA 28 C4 28 |(.(T),2):S$..(.(|
00003220: 53 29 2C 32 29 00 39 3A 2C 33 99 22 28 22 54 24 |S),2).9:,3."("T$|
00003230: 22 2C 22 53 24 22 29 22 3B 00 3F 3A 36 33 82 00 |","S$")";.?:63..|
00003240: 55 3A 40 33 99 22 5F 20 CC C1 D3 D4 20 C2 CC CF |U:@3."_ .... ...|
00003250: C3 CB 11 11 22 00 6C 3A 4A 33 99 4E 39 22 20 42 |....".l:J3.N9" B|
00003260: 4C 4F 43 4B 53 11 22 3A 8D 33 30 30 00 95 3A F7 |LOCKS.":.300..:.|
00003270: 33 42 4E 24 B2 CA 28 42 4E 24 2C 32 29 3A 42 4D |3BN$..(BN$,2):BM|
00003280: B2 42 4E AA 31 37 AA 31 32 AC B5 28 28 42 4E AA |.BN.17.12..((BN.|
00003290: 31 29 AD 34 29 00 BA 3A F8 33 99 3A 99 22 28 22 |1).4)..:.3.:."("|
000032A0: 54 22 2C 22 53 22 29 5F 20 C6 C9 D2 D3 D4 20 C2 |T","S")_ ..... .|
000032B0: CC CF C3 CB 22 3A 4E 39 B2 31 00 CD 3A 9C F9 84 |....":N9.1..:...|
000032C0: 31 35 2C 45 2C 45 24 2C 45 31 2C 45 32 00 F7 3A |15,E,E$,E1,E2..:|
000032D0: 9D F9 8B 45 B3 B1 30 A7 99 3A 99 22 2A 2A 12 44 |...E..0..:."**.D|
000032E0: 49 53 4B 20 45 52 52 4F 52 92 2A 2A 22 45 2C 45 |ISK ERROR.**"E,E|
000032F0: 24 2C 45 31 2C 45 32 00 FD 3A 9E F9 8E 00 00 D0 |$,E1,E2..:......|
....... PETER J. PONZO.Z.... 49 MARGARET
AVE. S. 8 REM WATERLOO,ON
T. N2J 2C8.J.... JUN 19/82......53281,6:
.53280,6:.8000...D..********...E..*
*...F..* MENU *...G.." .... *.L.H..****
****...I. 15:.15,8,15:.G(14)...N.."."S0$
...S.."..1.:LOAD BLOCK INTO BUFFER".8.X.
."..2.:SEE ASCII OF ABOVE BLOCK".W....".
.3.:MODIFY ABOVE BLOCK".|...."..4.:STORE
ABOVE BLOCK IN RAM"......"..5.:WRITE BL
OCK IN RAM TO DISK".F. .."..6.:BLOCK AVA
ILABILITY MAP"......"..7.:DISK COMMANDS"
......"..8.:TRACE BLOCKS......"..9.:UNSC
RATCH A FILE.-...."..RETURN. TO QUIT".A.
F..310:.IN.0.7900.V.G..IN.1000,2000,3000
,4000,5000,6000,7000,7100,7500..H..105.
..,.. GET...-.." ......1.."..RETURN. TO
CONT".D.6..IN$:.IN$.."".310.Y.@..IN$:.I
N$."".320...J.IN.E(IN$):....... LOAD BLO
CK INTO BUFFER.#...."...................
....T... 3: 15:.15,8,15:.3,8,3,"#":.#3,B
N$:BN.F(BN$).}...BN$.J(BN$,2):BM.BN.17.1
2..((BN.1).4)......15,"B-P";3;1:."."....
..K.0.10:.3,K$;:.......".".SD$."......".
.....".TRACK,SECTOR. ....";T,S...$..15
,"B-R";3;DR;T;S......15,"B-P";3;0.#.8..#
3,Z$:.Z$."".Z$.G(0).8.B.C(0).F(Z$):.1200
.P.`.."..RETURN TO TERMINATE":CRT.01069:
.D(C(0))D(C(1));...J.J.2:.I.2.255:.15,"M
-R";G(I);G(BM):I%.I.32...T..#15,B$:.B$."
".B$.G(0).T.~.C(I).F(B$):.T..DI.1165....
..S.0.I%.32.I.5..10000......S.0.I%.32.I.
.11000......CRT.J,C(I).,....A$:.A$..""..
1195.8...J.J.1:..S... 3: 15:.SD$"..":.30
0:.......SD$".....BLOCK HAS NOT BEEN COM
PLETELY LOADED".A...."..WANT TO CONTINUE
LOADING N...";N$:.N$."N".I.256......S
D$"..
"......"
".!.....1.... C(0)/C(1).A...."........
..X....SD$:.15,"B-P";3;1.R.D..#3,B$:.B$.
"".B$.G(0)...N.C(1).F(B$)...X..C(0).0..S
D$:."LAST TRACK":."BYTES USED="C(1):....
...SD$:."NEXT TRACK="C(0):."NEXT SECTOR=
"C(1).....NT.C(0):NS.C(1):....P.. PRINT
ASCII...Q.."............6.R.IJ.0:II.255.
8:.".".U.U.."..RETURN TO DISCONTINUE PRI
NTING..":.S0$:AB.31:EE$.". ."...Z..I.0.I
I.8:Y$.D(I):Y$.".".I(" ".Y$,3):E0$.EE$.
U...."."CL$:."."Y$".->";:.J.0.7:H.I.J:C5
.C(H)......C5.AB.E0$.E0$.G(C5):.2015....
.E0$.E0$." ".!...E$.I(" ".J(D(C5),2),3
).>....R$(P)E$R$(1.P);:P.1.P:..Y....A$:.
A$.."".II.I:I.255.X....E0$:.:.CL$:.CL$:.
CL$:.CL$......"....CURRENT TRACK,SECTOR=
"T","S......"NEXT TRACK,SECTOR="NT","NS.
N....IJ.0..300.T.......... MODIFY BLOCK.
.....".............%....".THE ASCII CODE
FOR EACH BLOCK-BYTE".T....".WILL BE DIS
PLAYED..I.E. C(0)...C(255)."......".YOU
MAY REDEFINE ANY C(I). THE MODIFIED"....
..".BLOCK WILL BE WRITTEN TO THE DISK".X
....".INTO THE TRACK,SECTOR YOU SELECT."
...&.."..."...0..300:.".":II.255.8:IJ.1.
..:..".":.2005.0.D..">>>.RETURN TO QUIT.
<<<":.I$.M.N..".WHICH I DO YOU WISH TO M
ODIFY. ......";I$:I.E(I$).~.X..I$.".
".3173.B.B.."CURRENT C("I")= ....."
C(I)" NEW VALUE= .....";:.C(I).Q.C..
I.II.II.I...D..3150...E..".":.2005:."
>>>.OK.? ";:.204,0.).F..310:.204,1
:.IN$."N"..:.3150.M.G.."..RETURN TO MENU
. N...";IN$.\.H..IN$."Y"....I..".CURR
ENT TRACK,SECTOR="T","S. .J.."NEXT TRACK
,SECTOR="NT","NS...L.."...DESTINATION TR
ACK,SECTOR. ....";T,S:.(T.1).(T.TT).31
80.#.V.."....DESTINATION DRIVE. ....";
DR$:DR.E(DR$):.DR$.".".3190.7... 3: 15:.
15,8,15.M....3,8,3,"#":.63900......#3,BN
$:BN.F(BN$):."."SD$"....USING BUFFER#"BN
.....BM.BN.17.12..((BN.1).4)......I.0.25
5.O....15,"M-W";G(I);G(BM);G(1);G(C(I)).
.....". ..."I.........P..15,"U2:";3;DR
;T;S...Z..15,"I".DR$:.63900: 3: 15.%....
".":..=. .. STORE C(I) IN RAM.U...."....
..............E....".";:.2000......".STA
RTING VALUE OF I. ....";I1.B....".STAR
TING MEMORY LOC.N.($=HEX) ....";M$:.90
00...H..K1.I1.255:.M.I1.K1,C(K1):....R.M
.M.I1.256:.".NEXT. MEM'Y LOC'N="M;:.9500
:."."M$. ....300.0....".";:. .H.... W
RITE RAM TO DISK.`....".................
......".MEM'Y LOC'N OF BLOCK.($=HEX) .
...";M$:.9000......"..START WITH I.= .
...";I1.W...."..END WITH I.= ....";I2.
..D..I.I1.I2:C(I).B(M.I):..5.N.."....DES
TINATION TRACK,SECTOR. ....";T,S:.(T.1
).(T.TT).5070.V.X.."....DESTINATION DRIV
E. ....";DR$:DR.E(DR$):.DR$.".".5080..
....3,8,3,"#":.#3,BN$:BN.F(BN$):."."SD$"
....USING BUFFER#"BN.P...BM.BN.17.12..((
BN.1).4)......I.I1.I2:.". ..."I......1
5,"M-W";G(I);G(BM);G(1);G(C(I)).......,.
...15,"U2:";3;DR;T;S.J....15,"I".DR$:.63
900: 3: 15.U.(..".":.._.P.. BAM.I.Z.."..
....... .B(I).(Z.P(I)).P(I)..... 15:.G(1
42)......"....1.:DISPLAY BAM".D...."..2.
:CHANGE BAM"......"..3.:RETURN TO MAIN M
ENU"......310:.".":.IN.3.6095......IN.61
00,6280...J..6030.D.O. 2: 3:.15,8,15,"I"
.DR$:.G(14):.63900:..V.T.. DISPLAY BAM.H
...."................."..WHICH TRACKS":.
".................."..FIRST,LAST TRACK
....";TS,TE......(TS.1).(TS.TT).(TE.1).
(TE.TT).(TE.TS).6130......"..RETURN.. TO
STOP":.S0$......15,8,15,"I".DR$:.63900.
9....2,8,2,"$".DR$:.63900.M.$.FF.D1.(TS.
1).S3.B....K.0.FF:.#2,A$:....8..T.TS.TE:
.T.51..#2,A$,A$,A$,A$...B..6400...L..A$:
.A$.."".T.TT.1...V..: 2: 15:.6870:.310:.
.Q.`.. CHANGE BAM...J..".............T..
".MORE CHANGES Y...";I$...~..I$.."Y"..
.M....DT.67..".SORRY..CAN'T CHANGE BAM F
OR THIS DISK.":.310:..X....".TRACK V..
.";T:.(T.1).(T.TT).N6280..... 15:.15,8,1
5..... 2:.2,8,2,"#":.63900......15,"U1:"
;2;DR;DI;0.N....15,"B-P";2;T.4......"..E
NTER NEGATIVE SECTOR TO QUIT.":.6400:.65
80.4.D.."..........CHANGE WHICH SECTOR
..V...";S.K.N..S.0.S..SC(T).6260.[.X.
2: 15:.SD$......6620:.6480:.6580:.:.MD$
".OK?.";:.310:.CL$......IN$."Y"..6730...
...MD$CL$SD$......6480:.6340.O....K.0.S2
:.#2,A$......A$."".A$.G(0).....B(K).F(A$
).........P.. PRINT TRACK...Z.."........
......D..K.1.S1:Z.B(K).9.N..I.0.7.P.X.X.
.B(I):.X$(X);:.I.W....K.T...Z.B(K):.I.0.
SC(T).SC(TT).....X..B(I):.X$(X);:.I:....
..".".22)"TRACK."T"..FREE="B(0).......H
....H(S1$,SC(T))......H(S2$,SC(T)).23)"#
SECTORS="SC(T)...H..SC(T).21..H(S3$,SC(
T).1):.6610.%.M..H(S3$,SC(T)).0.R..S0$:.
.D.... CHANGE SECTOR.X....".............
.S....S.8.Z.B(1):SS.S:.6670......S.16.Z.
B(2):SS.S.8:.6670.....Z.B(3):SS.S.16.A..
.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...6.B(3).NZ...@...+
.J..15,8,15.].T..MD$".ARE YOU SURE?.";:.
310:.IN$;:.IN$.."Y"...W.^.."...CHANGING
BAM..";...H..3,8,3,"#":.63900...R..#3,BN
$:BN.F(BN$)...|.BM.BN.17.12..((BN.1).4).
K....I.0.S2......15,"M-W";G(I.T.4);G(BM)
;G(1);G(B(I)):... ...15,"U2:";3;DR;DI;0.
- B..15,"I".DR$:.63900: 3: 15.3 L...K V.
."..........................RETURN. TO C
ONTINUE";:.. X.. DISK COMMANDS.. Y.."..
............. Z..G(14).. ].."...1.:INITI
ALIZE".K ^.."..2.:VALIDATE".. _.."..3.:C
HANGE DRIVE#..!`.."..4.:DISPLAY DIRECTOR
Y"..!A.."....9.:RETURN TO MENU".8!B..310
:.IN.1.IN.9.7000.H!G..".OK..":. IN .7020
,7030,7040,7050,,,,,7099..!L. 15:.15,8,1
5,"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.."....!"... TRA
CE BLOCKS.4"..."............._"A.."..STA
RTING TRACK,SECTOR. ....";T,S.."B..(T.
1).(T.TT).(S.0).(S.SC(T)).7110.."F. 3: 1
5:.15,8,15:.3,8,3,"#":.63900:.#3,BN$:BN.
F(BN$).."G.BN$.J(BN$,2):BM.BN.17.12..((B
N.1).4)..#K..:."("T","S")_ FIRST BLOCK":
N9.1.##P..15,"B-R";3;DR;T;S.5#Z..15,"B-P
";3;0.O#...#3,Z$:.Z$."".Z$.G(0).E#..T.F(
Z$):.T.0.7200.#...#3,Z$:.Z$."".Z$.G(0).
.#..S.F(Z$)..#..T$.J(D(T),2):S$.J(D(S),2
)..#..."("T$","S$")";.O#..N9.N9.1:.7120.
.# .."_ LAST BLOCK.."..#*..N9" BLOCKS.":
.300:...$L.. UNSCRATCH..$M.."..........>
$V..".WE'LL DO THE FOLLOWING:".M$W.."..1
.:GO THRU' DIRECTORY TRACK"DI" UNTIL"..$
X.." WE FIND THE SCRATCHED FILE NAME.".
.$Y.."..2.:TRACE THE BLOCKS AND COMPARE"
..$Z.." THE BLOCKS OBTAINED WITH THE"..
%[.." DIRECTORY BLOCK COUNT.".4%\.."..3
.:LOOK AT THE BLOCK AVAILABILTY MAP".`%]
.." TO SEE IF ALL THE BLOCKS ARE FREE."
..%^..".>>IF ALL OF THE ABOVE ARE OK"..%
_.." WE MAY MODIFY THE DIRECTORY".D%`..
" AS FOLLOWS:":.300..%T..".MODIFY THE B
LOCK SO THAT THE"..%Y..".MAGIC BYTE".)&~
.." WHICH OCCURS JUST .3. PLACES BEFORE
".J&..." THE NAME IS AS FOLLOWS:".`&...
" 129=SEQ FILE".W&..." 130=PROG FILE".
.&..." 131=USR FILE"..&..." 132=REL FI
LE".R&...".EXAMPLE:TO UNSCRATCH A PROG F
ILE 'ABZ'"..&..."FIND IT'S NAME ON THE D
IRECTORY, AND".$'..."SELECT MENU ITEM=MO
DIFY BLOCK.".9'..."YOU WILL SEE:".I'D.."
... 0. 0. 0. 0. 19. 3. 65. 66. 90....ETC
"..'N.." ^ ^ ^ ^ ^ ^"..'X.."
SHOULD BE .TRCK.A B Z".T'..." A 1
30 .&SEC.FILENAME(IN ASCII)"..'...300:."
."S0$..(...".MODIFY THE BYTE WHICH IDENT
IFIES THE ".:(..."FILE TYPE..TO 130..SO
IT READS:".L(..."... 0. 0. 0. 130. 19. 3
. 65. 66. 90....ETC"..(..."..4.:WRITE TH
E BLOCK BACK TO THE DISK.".B(..."..5.:QU
IT AND VALIDATE THE DISK."..(..."
........"..(...".5.:PRAY..":.310..)H
..".WANT TO TRY Y...";A$:.A$.."Y"...()
R..12000.?).. 15:.G(142):.".":..P)@.. IN
ITIALIZE.A)A.."...........R)B..G(142):."
."..)E..C(255),T(120),S(120),SC(77),B(4)
..)F..1,17,20,24,19,30,17,35,16,0..)G..6
5,17,20,24,18,30,17,35,16,0..)H..67,39,2
8,53,26,64,24,77,22,0..*J.R$(0).".":R$(1
).".".+*T.SD$."...........".J*Y.MD$."...
.................".N*C..".DRIVE. ...."
;DR$:DR.E(DR$)..*H..15,8,15,"I".DR$:.639
00..*R.K$." THIS BLOCK IS EMPTY ".G*|.
.".WAIT...":.:WW.0:A0.1..*}..3,8,3,"$".D
R$:.63900..*~..#3,A$:A.F(A$.G(0))..+..D
T:.A.DT.8070.2+..WW.WW.1:.WW.3. .I.1.9:.
DT:.:.8063.R+..."...***.NOT A RECOGNIZAB
LE DISK.***": 3:."..WANT TO QUIT?"..+...
310:.IN$."Y".7900..+...8110..+...DT.1.DT
.65.KK.143..+...DT.67.KK.5.D+...8200.W+.
..A1:.A1.0.8090..,...B1:.I.A0.A1:SC(I).B
1.1:.:A0.I:.8075.&,...DT.1.DT.65.D1.1:TT
.35:S2.3:DI.18.I,...DT.67.D1.257:TT.77:S
2.4:DI.39.], .S1.S2.1:S3.S2.1.O,.. 3:.TT
.0.8065..,...I.0.7:P(I).2.I:...,..X$(0).
"Q":X$(1)."W".N,B.S0$.".................
....................."..,L.CL$."":.I.1.3
9:CL$.CL$." ":...-V.S1$."^....^....^....
^....^....^....^....".G-..S2$.". .
. . . . .".R-..S3$."0 5
10 15 20 25 30".X-.....-. .I.
3.KK:.#3,A$:.:.".";..-. .I.1.23:.#3,A$:A
$.A$.G(0):.A$;:...-. .:..R-(#. DECIMAL_H
EX..-)#.".............--#M.E(M$):.M..0..
...2#M$.J(M$,2):M.0:LM.C(M$).!.<#.CN.1.L
M.N.F#MM$.J(M$,CN,1):.9100:M.M.MM.16.(LM
.CN):..T.P#..H..#.MM$."0".MM.0:....#MM.
E(MM$):.MM..0..... #MM.F(MM$).55:.....%.
HEX_DECIMAL....%."..............!%SM.M:
M$."$":.CN.3.0..1:CM%.SM.(16.CN):.9600:M
$.M$.MM$../&%SM.SM.(16.CN).CM%:.:..&/.%.
CM%.10.MM$.G(CM%.48):..:/.%MM$.G(CM%.55)
:..S/.'.SD$".......... "../.'.CRT.J,1
68: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:..W/.'.CRT.J,172:J.J.1:.:.CRT.J.1,169.
.08'.SD$"..........NOTE:.(TRACK,SECTOR)
":...0.*:.A0.+.CRT.J,190:J.J.1:SV.C(I.2)
.C(I.1).256:S$.J(D(SV),2).P0.+.L.1.C(S$)
:.CRT.J,E(J(S$,L,1)).176:J.J.1:...0.+J.J
.1:.CRT.J.1,188..0 +.SD$"...............
:.>NUMBER BLOCKS<":..L0... UNSCRATCH ROU
TINE..0..."...................0...G(142)
..1..."...THE SCRATCHED FILE NAMES WILL"
.-1..."BE DISPLAYED.".S1./.".YOU MAY DEC
IDE WHICH FILE YOU".K1./."WISH TO RECOVE
R."..1./."...RETURN. TO CONTINUE":.310..
1&/."."..10/ 3: 15:.15,8,15.K1:/T.DI:S.1
:.3,8,3,"#0":.63900..1?/.15,"B-R";3;DR;T
;S..1@/.".LOOKING AT:"..2A/."..TRACK .
.."T" SECTOR ..."S.F2D/.J.0.255:.15,"M
-R";G(J);G(17):.#15,A$.\2N/C(J).F(A$.G(0
)):...2X/.D.2.255.32:.C(D)..0.C(D.1).0.1
2200..2B/.SD$CL$SD$"WANT TO UNSCRATCH ."
;:.P9.1.200:...2L/.A$:.K.D.3.D.18:.G(C(K
));:.:.".?":.310..2V/.IN$."Y".12300..3./
.D:T.C(0):S.C(1):.T.DI.12095.Q3./.".FINI
SHED 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)..3.0."..
..DIRECTORY BLOCK COUNT="B0:N9.1:.S0$..3
.0 3: 15:.15,8,15:.3,8,3,"#":.63900:.#3,
BN$:BN.F(BN$)..4.0T(N9).T:S(N9).S:N9.N9.
1.(4.0.15,"B-R";3;DR;T;S.:4.0.15,"B-P";3
;0.T4.0.#3,Z$:.Z$."".Z$.G(0).S4.0T(N9).F
(Z$):.T(N9).0.12314..4.0.#3,Z$:.Z$."".Z$
.G(0)..4.0S(N9).F(Z$)..4.0T$.J(D(T),2):S
$.J(D(S),2).O4.0."("T$","S$")";..4.0T.T(
N9):S.S(N9):N9.N9.1:.12305..5.0N9.N9.1:.
..5.0.".."N9" BLOCKS.".L5>0.N9..B0.."..*
*.INCORRECT BLOCK COUNT.**..":.300:..G5H
0.".LOOKS GOOD SO FAR."..5R0.".SHALL WE
PROCEED?":.310:.IN$.."Y"....5\0."...WE'L
L CHECK THAT THE ABOVE BLOCKS"..5F0.".AR
E FREE BY LOOKING AT THE BAM.."..6P0.".T
HE TRACK/SECTORS FOR THE FILE WILL BE".@
6Z0.".DISPLAYED. IF A BLOCK IS OCCUPIED"
.J6.0.".THE UNSCRATCH WILL NOT WORK!":.3
00..6.0 15:.15,8,15,"I".DR$:.63900:.".":
.G(142):K1.1..6.0.2,8,2,"$".DR$:.63900.P
6.0. .B(I).(Z.P(I)).P(I)..6.0FF.D1.(T(K1
).1).S3:PP.0..7.0.K2.0.FF:.#2,A$:...7.0T
.T(K1):.".":.6400:.6580.C7.0.SD$"CHECK T
HAT THE FOLLOWING ".^7.0.".SECTORS ARE F
REE=W"..7.0.K2.1.N9:.T(K2).T..R$(PP)J(D(
S(K2)),2)R$(1.PP);..7.0PP.1.PP:.:...7.0.
".OK?":.310..7.0.IN$.."Y"..".SORRY..":.G
(14):.300: 2:...7.0 2:.K1..N9. 15:...8J0
K1.K1.1:.T(K1).0.12600.!8T0.T(K1).T.1249
0.,8Y0.12422.<881.".":.G(14).L8B1."NOW M
ODIFY THE .MAGIC BYTE. ON DIRECTORY"..8L
1.".TRACK"T0" SECTOR"S0..8V1.".THEN WRIT
E THE BLOCK BACK TO ("T0","S0")"..8`1.".
FINALLY .VALIDATE. THE DISK!"..8J1.300:.
..8H2T.T1:S.S1..9I2.J.1.B0.:9M2 3: 15:.1
5,8,15:.3,8,3,"#":.63900:.#3,BN$:BN.F(BN
$).C9R2BN$.J(BN$,2):BM.BN.17.12..((BN.1)
.4)..9.2.:."("T","S")_ FIRST BLOCK":N9.1
..9.2.15,"B-R";3;DR;T;S..9.2.15,"B-P";3;
0.K9.2.#3,Z$:.Z$."".Z$.G(0)..9.3T.F(Z$):
.T.0.7200..9.3.#3,Z$:.Z$."".Z$.G(0)..:.3
S.F(Z$).%:"3T$.J(D(T),2):S$.J(D(S),2).9:
,3."("T$","S$")";.?:63..U:@3."_ LAST BLO
CK..".L:J3.N9" BLOCKS.":.300..:.3BN$.J(B
N$,2):BM.BN.17.12..((BN.1).4)..:.3.:."("
T","S")_ FIRST BLOCK":N9.1.M:...15,E,E$,
E1,E2..:...E..0..:."**.DISK ERROR.**"E,E
$,E1,E2..:.....P
> CLICK IMAGE PREVIEW FOR FULL MODAL