DISKVIEW NEU
FILE INFORMATION
FILENAME(S): DISKVIEW NEU
FILE TYPE(S): PRG
FILE SIZE: 12.8K
FIRST SEEN: 2025-12-02 23:47:08
APPEARS ON: 1 disk(s)
FILE HASH
e08d10f8bf570cda19bd29cb2b12e194799222cb818e8cb4de560e91cb2cd692
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 013 VERONIKA | DISKVIEW NEU | PRG | swasti, flohmarkt | 7 | 8 | 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 77 1B |DISK.":.310:..w.|
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 36 32 38 30 00 88 1B 92 18 A0 31 35 3A |T).6280......15:|
00001380: 9F 31 35 2C 38 2C 31 35 00 A1 1B 9C 18 A0 32 3A |.15,8,15......2:|
00001390: 9F 32 2C 38 2C 32 2C 22 23 22 3A 8D 36 33 39 30 |.2,8,2,"#":.6390|
000013A0: 30 00 B9 1B A6 18 98 31 35 2C 22 55 31 3A 22 3B |0......15,"U1:";|
000013B0: 32 3B 44 52 3B 44 49 3B 30 00 CD 1B B0 18 98 31 |2;DR;DI;0......1|
000013C0: 35 2C 22 42 2D 50 22 3B 32 3B 54 AC 34 00 01 1C |5,"B-P";2;T.4...|
000013D0: BA 18 99 22 93 12 45 4E 54 45 52 20 4E 45 47 41 |..."..ENTER NEGA|
000013E0: 54 49 56 45 20 53 45 43 54 4F 52 20 54 4F 20 51 |TIVE SECTOR TO Q|
000013F0: 55 49 54 11 22 3A 8D 36 34 30 30 3A 8D 36 35 38 |UIT.":.6400:.658|
00001400: 30 00 33 1C C4 18 85 22 13 11 11 11 11 11 11 11 |0.3...."........|
00001410: 11 11 43 48 41 4E 47 45 20 57 48 49 43 48 20 53 |..CHANGE WHICH S|
00001420: 45 43 54 4F 52 20 20 20 20 20 9D 9D D6 9D 9D 9D |ECTOR ......|
00001430: 22 3B 53 00 4A 1C CE 18 8B 53 B3 30 B0 53 B1 B2 |";S.J....S.0.S..|
00001440: 53 43 28 54 29 A7 36 32 36 30 00 5A 1C D8 18 A0 |SC(T).6260.Z....|
00001450: 32 3A A0 31 35 3A 99 53 44 24 00 89 1C E2 18 8D |2:.15:.SD$......|
00001460: 36 36 32 30 3A 8D 36 34 38 30 3A 8D 36 35 38 30 |6620:.6480:.6580|
00001470: 3A 99 3A 99 4D 44 24 22 12 4F 4B 3F 92 22 3B 3A |:.:.MD$".OK?.";:|
00001480: 8D 33 31 30 3A 99 43 4C 24 00 9C 1C EC 18 8B 49 |.310:.CL$......I|
00001490: 4E 24 B2 22 59 22 A7 8D 36 37 33 30 00 AB 1C F1 |N$."Y"..6730....|
000014A0: 18 99 4D 44 24 43 4C 24 53 44 24 00 BB 1C F6 18 |..MD$CL$SD$.....|
000014B0: 8D 36 34 38 30 3A 89 36 33 34 30 00 CE 1C 00 19 |.6480:.6340.....|
000014C0: 81 4B B2 30 A4 53 32 3A A1 23 32 2C 41 24 00 E1 |.K.0.S2:.#2,A$..|
000014D0: 1C 0A 19 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 |....A$."".A$..(0|
000014E0: 29 00 F0 1C 14 19 42 28 4B 29 B2 C6 28 41 24 29 |).....B(K)..(A$)|
000014F0: 00 F6 1C 1E 19 82 00 08 1D 50 19 8F 20 50 52 49 |.........P.. PRI|
00001500: 4E 54 20 54 52 41 43 4B 00 1A 1D 5A 19 8F 22 A3 |NT TRACK...Z..".|
00001510: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 2D 1D 64 19 81 |...........-.d..|
00001520: 4B B2 31 A4 53 31 3A 5A B2 42 28 4B 29 00 38 1D |K.1.S1:Z.B(K).8.|
00001530: 6E 19 81 49 B2 30 A4 37 00 4F 1D 78 19 58 B2 A5 |n..I.0.7.O.x.X..|
00001540: 42 28 49 29 3A 99 58 24 28 58 29 3B 3A 82 49 00 |B(I):.X$(X);:.I.|
00001550: 56 1D 82 19 82 4B 00 73 1D 8C 19 5A B2 42 28 4B |V....K.s...Z.B(K|
00001560: 29 3A 81 49 B2 30 A4 53 43 28 54 29 AB 53 43 28 |):.I.0.SC(T).SC(|
00001570: 54 54 29 00 8C 1D 96 19 58 B2 A5 42 28 49 29 3A |TT).....X..B(I):|
00001580: 99 58 24 28 58 29 3B 3A 82 49 3A 99 00 AF 1D A0 |.X$(X);:.I:.....|
00001590: 19 99 22 91 22 A3 32 32 29 22 54 52 41 43 4B 12 |..".".22)"TRACK.|
000015A0: 22 54 22 92 9D 46 52 45 45 3D 22 42 28 30 29 00 |"T"..FREE="B(0).|
000015B0: B5 1D AA 19 8E 00 C7 1D B4 19 99 C8 28 53 31 24 |............(S1$|
000015C0: 2C 53 43 28 54 29 29 00 EE 1D BE 19 99 C8 28 53 |,SC(T)).......(S|
000015D0: 32 24 2C 53 43 28 54 29 29 A3 32 33 29 22 23 20 |2$,SC(T)).23)"# |
000015E0: 53 45 43 54 4F 52 53 3D 22 53 43 28 54 29 00 12 |SECTORS="SC(T)..|
000015F0: 1E C8 19 8B 53 43 28 54 29 B2 32 31 A7 99 C8 28 |....SC(T).21...(|
00001600: 53 33 24 2C 53 43 28 54 29 AA 31 29 3A 89 36 36 |S3$,SC(T).1):.66|
00001610: 31 30 00 24 1E CD 19 99 C8 28 53 33 24 2C 53 43 |10.$.....(S3$,SC|
00001620: 28 54 29 29 00 2F 1E D2 19 99 53 30 24 3A 8E 00 |(T))./....S0$:..|
00001630: 43 1E DC 19 8F 20 43 48 41 4E 47 45 20 53 45 43 |C.... CHANGE SEC|
00001640: 54 4F 52 00 57 1E E6 19 8F 22 A3 A3 A3 A3 A3 A3 |TOR.W...."......|
00001650: A3 A3 A3 A3 A3 A3 A3 00 72 1E F0 19 8B 53 B3 38 |........r....S.8|
00001660: A7 5A B2 42 28 31 29 3A 53 53 B2 53 3A 89 36 36 |.Z.B(1):SS.S:.66|
00001670: 37 30 00 90 1E FA 19 8B 53 B3 31 36 A7 5A B2 42 |70......S.16.Z.B|
00001680: 28 32 29 3A 53 53 B2 53 AB 38 3A 89 36 36 37 30 |(2):SS.S.8:.6670|
00001690: 00 A3 1E 04 1A 5A B2 42 28 33 29 3A 53 53 B2 53 |.....Z.B(3):SS.S|
000016A0: AB 31 36 00 C0 1E 0E 1A 4E 5A B2 28 A8 5A AF 50 |.16.....NZ.(.Z.P|
000016B0: 28 53 53 29 29 B0 28 5A AF A8 50 28 53 53 29 29 |(SS)).(Z..P(SS))|
000016C0: 00 DC 1E 18 1A 42 28 30 29 B2 42 28 30 29 AA 28 |.....B(0).B(0).(|
000016D0: 4E 5A B3 5A 29 AB 28 4E 5A B1 5A 29 00 F3 1E 22 |NZ.Z).(NZ.Z)..."|
000016E0: 1A 8B 53 B3 38 A7 42 28 31 29 B2 4E 5A 3A 89 36 |..S.8.B(1).NZ:.6|
000016F0: 37 32 30 00 0B 1F 2C 1A 8B 53 B3 31 36 A7 42 28 |720...,..S.16.B(|
00001700: 32 29 B2 4E 5A 3A 89 36 37 32 30 00 17 1F 36 1A |2).NZ:.6720...6.|
00001710: 42 28 33 29 B2 4E 5A 00 1D 1F 40 1A 8E 00 2A 1F |B(3).NZ...@...*.|
00001720: 4A 1A 9F 31 35 2C 38 2C 31 35 00 5C 1F 54 1A 99 |J..15,8,15.\.T..|
00001730: 4D 44 24 22 12 41 52 45 20 59 4F 55 20 53 55 52 |MD$".ARE YOU SUR|
00001740: 45 3F 92 22 3B 3A 8D 33 31 30 3A 99 49 4E 24 3B |E?.";:.310:.IN$;|
00001750: 3A 8B 49 4E 24 B3 B1 22 59 22 A7 8E 00 76 1F 5E |:.IN$.."Y"...v.^|
00001760: 1A 99 22 2E 2E 12 43 48 41 4E 47 49 4E 47 20 42 |.."...CHANGING B|
00001770: 41 4D 2E 2E 22 3B 00 8C 1F 68 1A 9F 33 2C 38 2C |AM..";...h..3,8,|
00001780: 33 2C 22 23 22 3A 8D 36 33 39 30 30 00 A2 1F 72 |3,"#":.63900...r|
00001790: 1A A1 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E |..#3,BN$:BN..(BN|
000017A0: 24 29 00 BE 1F 7C 1A 42 4D B2 42 4E AA 31 37 AA |$)...|.BM.BN.17.|
000017B0: 31 32 AC B5 28 28 42 4E AA 31 29 AD 34 29 00 CA |12..((BN.1).4)..|
000017C0: 1F 86 1A 81 49 B2 30 A4 53 32 00 F6 1F 90 1A 98 |....I.0.S2......|
000017D0: 31 35 2C 22 4D 2D 57 22 3B C7 28 49 AA 54 AC 34 |15,"M-W";.(I.T.4|
000017E0: 29 3B C7 28 42 4D 29 3B C7 28 31 29 3B C7 28 42 |);.(BM);.(1);.(B|
000017F0: 28 49 29 29 3A 82 00 0E 20 B8 1A 98 31 35 2C 22 |(I)):... ...15,"|
00001800: 55 32 3A 22 3B 33 3B 44 52 3B 44 49 3B 30 00 2C |U2:";3;DR;DI;0.,|
00001810: 20 C2 1A 98 31 35 2C 22 49 22 AA 44 52 24 3A 8D | ...15,"I".DR$:.|
00001820: 36 33 39 30 30 3A A0 33 3A A0 31 35 00 32 20 CC |63900:.3:.15.2 .|
00001830: 1A 8E 00 6A 20 D6 1A 99 22 13 11 11 11 11 11 11 |...j ...".......|
00001840: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001850: 11 11 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F |...RETURN. TO CO|
00001860: 4E 54 49 4E 55 45 22 3B 3A 8E 00 7E 20 58 1B 8F |NTINUE";:..~ X..|
00001870: 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 53 00 92 | DISK COMMANDS..|
00001880: 20 59 1B 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | Y.."...........|
00001890: B8 B8 00 9D 20 5A 1B 99 C7 28 31 34 29 00 B5 20 |.... Z...(14).. |
000018A0: 5D 1B 99 22 93 11 12 31 92 3A C9 4E 49 54 49 41 |].."...1.:.NITIA|
000018B0: 4C 49 5A 45 22 00 CA 20 5E 1B 99 22 11 12 32 92 |LIZE".. ^.."..2.|
000018C0: 3A D6 41 4C 49 44 41 54 45 22 00 E3 20 5F 1B 99 |:.ALIDATE".. _..|
000018D0: 22 11 12 33 92 3A C3 48 41 4E 47 45 20 C4 D2 C9 |"..3.:.HANGE ...|
000018E0: D6 C5 23 00 01 21 60 1B 99 22 11 12 34 92 3A C4 |..#..!`.."..4.:.|
000018F0: 49 53 50 4C 41 59 20 C4 49 52 45 43 54 4F 52 59 |ISPLAY .IRECTORY|
00001900: 22 00 1E 21 61 1B 99 22 11 11 11 12 39 92 3A D2 |"..!a.."....9.:.|
00001910: C5 D4 D5 D2 CE 20 54 4F 20 4D 45 4E 55 22 00 37 |..... TO MENU".7|
00001920: 21 62 1B 8D 33 31 30 3A 8B 49 4E B3 31 B0 49 4E |!b..310:.IN.1.IN|
00001930: B1 39 A7 37 30 30 30 00 67 21 67 1B 99 22 93 4F |.9.7000.g!g..".O|
00001940: 4B 2E 2E 22 3A 91 20 49 4E 20 89 37 30 32 30 2C |K..":. IN .7020,|
00001950: 37 30 33 30 2C 37 30 34 30 2C 37 30 35 30 2C 2C |7030,7040,7050,,|
00001960: 2C 2C 2C 37 30 39 39 00 8D 21 6C 1B A0 31 35 3A |,,,7099..!l..15:|
00001970: 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 52 24 |.15,8,15,"I".DR$|
00001980: 3A 8D 36 33 39 30 30 3A 89 37 30 30 30 00 B3 21 |:.63900:.7000..!|
00001990: 76 1B A0 31 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 |v..15:.15,8,15,"|
000019A0: 56 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A 89 37 |V".DR$:.63900:.7|
000019B0: 30 30 30 00 DE 21 80 1B 85 22 11 11 11 44 52 49 |000..!..."...DRI|
000019C0: 56 45 20 20 20 A6 9D 9D 9D 22 3B 44 52 24 3A 44 |VE ....";DR$:D|
000019D0: 52 B2 C5 28 44 52 24 29 3A 89 37 30 30 30 00 EA |R..(DR$):.7000..|
000019E0: 21 8A 1B 8B 44 52 B2 30 A7 8E 00 F8 21 8B 1B 8B |!...DR.0....!...|
000019F0: 44 52 B2 31 A7 DA 44 31 00 07 22 8C 1B 8D 33 30 |DR.1..D1.."...30|
00001A00: 30 3A 89 37 30 30 30 00 0D 22 BB 1B 8E 00 20 22 |0:.7000..".... "|
00001A10: BC 1B 8F 20 54 52 41 43 45 20 42 4C 4F 43 4B 53 |... TRACE BLOCKS|
00001A20: 00 33 22 BD 1B 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 |.3"...".........|
00001A30: B8 B8 B8 00 5E 22 C1 1B 85 22 93 12 53 54 41 52 |....^"..."..STAR|
00001A40: 54 49 4E 47 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF |TING .....,.....|
00001A50: D2 92 20 20 20 A6 9D 9D 9D 22 3B 54 2C 53 00 85 |.. ....";T,S..|
00001A60: 22 C2 1B 8B 28 54 B3 31 29 B0 28 54 B1 54 54 29 |"...(T.1).(T.TT)|
00001A70: B0 28 53 B3 30 29 B0 28 53 B1 53 43 28 54 29 29 |.(S.0).(S.SC(T))|
00001A80: A7 37 31 31 30 00 BD 22 C6 1B A0 33 3A A0 31 35 |.7110.."...3:.15|
00001A90: 3A 9F 31 35 2C 38 2C 31 35 3A 9F 33 2C 38 2C 33 |:.15,8,15:.3,8,3|
00001AA0: 2C 22 23 22 3A 8D 36 33 39 30 30 3A A1 23 33 2C |,"#":.63900:.#3,|
00001AB0: 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 00 E6 22 |BN$:BN..(BN$).."|
00001AC0: C7 1B 42 4E 24 B2 CA 28 42 4E 24 2C 32 29 3A 42 |..BN$..(BN$,2):B|
00001AD0: 4D B2 42 4E AA 31 37 AA 31 32 AC B5 28 28 42 4E |M.BN.17.12..((BN|
00001AE0: AA 31 29 AD 34 29 00 0B 23 CB 1B 99 3A 99 22 28 |.1).4)..#...:."(|
00001AF0: 22 54 22 2C 22 53 22 29 5F 20 C6 C9 D2 D3 D4 20 |"T","S")_ ..... |
00001B00: C2 CC CF C3 CB 22 3A 4E 39 B2 31 00 22 23 D0 1B |.....":N9.1."#..|
00001B10: 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 3B 54 |.15,"B-R";3;DR;T|
00001B20: 3B 53 00 34 23 DA 1B 98 31 35 2C 22 42 2D 50 22 |;S.4#...15,"B-P"|
00001B30: 3B 33 3B 30 00 4E 23 E4 1B A1 23 33 2C 5A 24 3A |;3;0.N#...#3,Z$:|
00001B40: 8B 5A 24 B2 22 22 A7 5A 24 B2 C7 28 30 29 00 64 |.Z$."".Z$..(0).d|
00001B50: 23 EE 1B 54 B2 C6 28 5A 24 29 3A 8B 54 B2 30 A7 |#..T..(Z$):.T.0.|
00001B60: 37 32 30 30 00 7E 23 F8 1B A1 23 33 2C 5A 24 3A |7200.~#...#3,Z$:|
00001B70: 8B 5A 24 B2 22 22 A7 5A 24 B2 C7 28 30 29 00 8A |.Z$."".Z$..(0)..|
00001B80: 23 02 1C 53 B2 C6 28 5A 24 29 00 A8 23 07 1C 54 |#..S..(Z$)..#..T|
00001B90: 24 B2 CA 28 C4 28 54 29 2C 32 29 3A 53 24 B2 CA |$..(.(T),2):S$..|
00001BA0: 28 C4 28 53 29 2C 32 29 00 BC 23 0C 1C 99 22 28 |(.(S),2)..#..."(|
00001BB0: 22 54 24 22 2C 22 53 24 22 29 22 3B 00 CE 23 16 |"T$","S$")";..#.|
00001BC0: 1C 4E 39 B2 4E 39 AA 31 3A 89 37 31 32 30 00 E4 |.N9.N9.1:.7120..|
00001BD0: 23 20 1C 99 22 5F 20 CC C1 D3 D4 20 C2 CC CF C3 |# .."_ .... ....|
00001BE0: CB 11 11 22 00 FD 23 2A 1C 99 4E 39 22 20 42 4C |..."..#*..N9" BL|
00001BF0: 4F 43 4B 53 11 22 3A 8D 33 30 30 3A 8E 00 0D 24 |OCKS.":.300:...$|
00001C00: 4C 1D 8F 20 55 4E 53 43 52 41 54 43 48 00 1D 24 |L.. UNSCRATCH..$|
00001C10: 4D 1D 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 3D 24 |M.."..........=$|
00001C20: 56 1D 99 22 93 D7 45 27 4C 4C 20 44 4F 20 54 48 |V.."..E'LL DO TH|
00001C30: 45 20 46 4F 4C 4C 4F 57 49 4E 47 3A 22 00 6C 24 |E FOLLOWING:".l$|
00001C40: 57 1D 99 22 11 12 31 92 3A C7 4F 20 54 48 52 55 |W.."..1.:.O THRU|
00001C50: 27 20 44 49 52 45 43 54 4F 52 59 20 54 52 41 43 |' DIRECTORY TRAC|
00001C60: 4B 22 44 49 22 20 55 4E 54 49 4C 22 00 96 24 58 |K"DI" UNTIL"..$X|
00001C70: 1D 99 22 20 20 57 45 20 46 49 4E 44 20 54 48 45 |.." WE FIND THE|
00001C80: 20 53 43 52 41 54 43 48 45 44 20 46 49 4C 45 20 | SCRATCHED FILE |
00001C90: 4E 41 4D 45 2E 22 00 BF 24 59 1D 99 22 11 12 32 |NAME."..$Y.."..2|
00001CA0: 92 3A D4 52 41 43 45 20 54 48 45 20 C2 4C 4F 43 |.:.RACE THE .LOC|
00001CB0: 4B 53 20 41 4E 44 20 43 4F 4D 50 41 52 45 22 00 |KS AND COMPARE".|
00001CC0: E5 24 5A 1D 99 22 20 20 54 48 45 20 C2 4C 4F 43 |.$Z.." THE .LOC|
00001CD0: 4B 53 20 4F 42 54 41 49 4E 45 44 20 57 49 54 48 |KS OBTAINED WITH|
00001CE0: 20 54 48 45 22 00 05 25 5B 1D 99 22 20 20 C4 49 | THE"..%[.." .I|
00001CF0: 52 45 43 54 4F 52 59 20 C2 4C 4F 43 4B 20 C3 4F |RECTORY .LOCK .O|
00001D00: 55 4E 54 2E 22 00 33 25 5C 1D 99 22 11 12 33 92 |UNT.".3%\.."..3.|
00001D10: 3A CC 4F 4F 4B 20 41 54 20 54 48 45 20 C2 4C 4F |:.OOK AT THE .LO|
00001D20: 43 4B 20 C1 56 41 49 4C 41 42 49 4C 54 59 20 CD |CK .VAILABILTY .|
00001D30: 41 50 22 00 5F 25 5D 1D 99 22 20 20 54 4F 20 53 |AP"._%].." TO S|
00001D40: 45 45 20 49 46 20 41 4C 4C 20 54 48 45 20 42 4C |EE IF ALL THE BL|
00001D50: 4F 43 4B 53 20 41 52 45 20 46 52 45 45 2E 22 00 |OCKS ARE FREE.".|
00001D60: 84 25 5E 1D 99 22 11 3E 3E C9 46 20 41 4C 4C 20 |.%^..".>>.F ALL |
00001D70: 4F 46 20 54 48 45 20 41 42 4F 56 45 20 41 52 45 |OF THE ABOVE ARE|
00001D80: 20 CF CB 22 00 A9 25 5F 1D 99 22 20 20 57 45 20 | .."..%_.." WE |
00001D90: 4D 41 59 20 CD 4F 44 49 46 59 20 54 48 45 20 C4 |MAY .ODIFY THE .|
00001DA0: 49 52 45 43 54 4F 52 59 22 00 C3 25 60 1D 99 22 |IRECTORY"..%`.."|
00001DB0: 20 20 41 53 20 46 4F 4C 4C 4F 57 53 3A 22 3A 8D | AS FOLLOWS:":.|
00001DC0: 33 30 30 00 E8 25 74 1D 99 22 93 CD 4F 44 49 46 |300..%t.."..ODIF|
00001DD0: 59 20 54 48 45 20 42 4C 4F 43 4B 20 53 4F 20 54 |Y THE BLOCK SO T|
00001DE0: 48 41 54 20 54 48 45 22 00 FB 25 79 1D 99 22 12 |HAT THE"..%y..".|
00001DF0: 4D 41 47 49 43 20 42 59 54 45 22 00 28 26 7E 1D |MAGIC BYTE".(&~.|
00001E00: 99 22 20 20 57 48 49 43 48 20 4F 43 43 55 52 53 |." WHICH OCCURS|
00001E10: 20 4A 55 53 54 20 12 33 92 20 50 4C 41 43 45 53 | JUST .3. PLACES|
00001E20: 20 42 45 46 4F 52 45 22 00 49 26 88 1D 99 22 20 | BEFORE".I&..." |
00001E30: 20 54 48 45 20 4E 41 4D 45 20 49 53 20 41 53 20 | THE NAME IS AS |
00001E40: 46 4F 4C 4C 4F 57 53 3A 22 00 5F 26 92 1D 99 22 |FOLLOWS:"._&..."|
00001E50: 20 20 31 32 39 3D D3 C5 D1 20 46 49 4C 45 22 00 | 129=... FILE".|
00001E60: 76 26 93 1D 99 22 20 20 31 33 30 3D D0 D2 CF C7 |v&..." 130=....|
00001E70: 20 46 49 4C 45 22 00 8C 26 94 1D 99 22 20 20 31 | FILE"..&..." 1|
00001E80: 33 31 3D D5 D3 D2 20 46 49 4C 45 22 00 A2 26 95 |31=... FILE"..&.|
00001E90: 1D 99 22 20 20 31 33 32 3D D2 C5 CC 20 46 49 4C |.." 132=... FIL|
00001EA0: 45 22 00 D1 26 9C 1D 99 22 11 C5 58 41 4D 50 4C |E"..&..."..XAMPL|
00001EB0: 45 3A 54 4F 20 55 4E 53 43 52 41 54 43 48 20 41 |E:TO UNSCRATCH A|
00001EC0: 20 D0 D2 CF C7 20 46 49 4C 45 20 27 C1 C2 DA 27 | .... FILE '...'|
00001ED0: 22 00 FD 26 A6 1D 99 22 46 49 4E 44 20 49 54 27 |"..&..."FIND IT'|
00001EE0: 53 20 4E 41 4D 45 20 4F 4E 20 54 48 45 20 C4 C9 |S NAME ON THE ..|
00001EF0: D2 C5 C3 D4 CF D2 D9 2C 20 41 4E 44 22 00 23 27 |......., AND".#'|
00001F00: B0 1D 99 22 53 45 4C 45 43 54 20 CD C5 CE D5 20 |..."SELECT .... |
00001F10: 49 54 45 4D 3D CD 4F 44 49 46 59 20 C2 4C 4F 43 |ITEM=.ODIFY .LOC|
00001F20: 4B 2E 22 00 38 27 BA 1D 99 22 D9 4F 55 20 57 49 |K.".8'...".OU WI|
00001F30: 4C 4C 20 53 45 45 3A 22 00 68 27 C4 1D 99 22 11 |LL SEE:".h'...".|
00001F40: 2E 2E 20 30 12 20 30 92 20 30 12 20 30 92 20 31 |.. 0. 0. 0. 0. 1|
00001F50: 39 12 20 33 92 20 36 35 12 20 36 36 92 20 39 30 |9. 3. 65. 66. 90|
00001F60: 2E 2E 2E 2E 45 54 43 22 00 88 27 CE 1D 99 22 20 |....ETC"..'..." |
00001F70: 20 20 20 20 20 20 20 20 5E 20 20 5E 20 5E 20 20 | ^ ^ ^ |
00001F80: 5E 20 20 5E 20 20 5E 22 00 A8 27 D8 1D 99 22 20 |^ ^ ^"..'..." |
00001F90: 53 48 4F 55 4C 44 20 42 45 20 DD D4 52 43 4B DD |SHOULD BE ..RCK.|
00001FA0: C1 20 20 C2 20 20 DA 22 00 D3 27 E2 1D 99 22 20 |. . ."..'..." |
00001FB0: 20 20 20 20 41 20 31 33 30 20 DD 26 D3 45 43 DD | A 130 .&.EC.|
00001FC0: C6 49 4C 45 4E 41 4D 45 28 49 4E 20 C1 D3 C3 C9 |.ILENAME(IN ....|
00001FD0: C9 29 22 00 E4 27 EC 1D 8D 33 30 30 3A 99 22 91 |.)"..'...300:.".|
00001FE0: 22 53 30 24 00 12 28 F6 1D 99 22 11 CD 4F 44 49 |"S0$..(..."..ODI|
00001FF0: 46 59 20 54 48 45 20 42 59 54 45 20 57 48 49 43 |FY THE BYTE WHIC|
00002000: 48 20 49 44 45 4E 54 49 46 49 45 53 20 54 48 45 |H IDENTIFIES THE|
00002010: 20 22 00 39 28 00 1E 99 22 46 49 4C 45 20 54 59 | ".9(..."FILE TY|
00002020: 50 45 2E 2E 54 4F 20 31 33 30 2E 2E 53 4F 20 49 |PE..TO 130..SO I|
00002030: 54 20 52 45 41 44 53 3A 22 00 6B 28 05 1E 99 22 |T READS:".k(..."|
00002040: 11 2E 2E 20 30 12 20 30 92 20 30 12 20 31 33 30 |... 0. 0. 0. 130|
00002050: 92 20 31 39 12 20 33 92 20 36 35 12 20 36 36 92 |. 19. 3. 65. 66.|
00002060: 20 39 30 2E 2E 2E 2E 45 54 43 22 00 99 28 0A 1E | 90....ETC"..(..|
00002070: 99 22 11 12 34 92 3A D7 52 49 54 45 20 54 48 45 |."..4.:.RITE THE|
00002080: 20 42 4C 4F 43 4B 20 42 41 43 4B 20 54 4F 20 54 | BLOCK BACK TO T|
00002090: 48 45 20 44 49 53 4B 2E 22 00 C1 28 14 1E 99 22 |HE DISK."..(..."|
000020A0: 11 12 35 92 3A D1 55 49 54 20 41 4E 44 20 D6 C1 |..5.:.UIT AND ..|
000020B0: CC C9 C4 C1 D4 C5 20 54 48 45 20 44 49 53 4B 2E |...... THE DISK.|
000020C0: 22 00 DC 28 19 1E 99 22 20 20 20 20 20 20 20 20 |"..(..." |
000020D0: 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 22 00 F3 28 1E | ........"..(.|
000020E0: 1E 99 22 12 36 92 3A D0 52 41 59 2E 2E 22 3A 8D |..".6.:.RAY..":.|
000020F0: 33 31 30 00 1C 29 C8 1E 85 22 11 D7 C1 CE D4 20 |310..)..."..... |
00002100: D4 CF 20 D4 D2 D9 20 20 20 59 9D 9D 9D 22 3B 41 |.. ... Y...";A|
00002110: 24 3A 8B 41 24 B3 B1 22 59 22 A7 8E 00 27 29 D2 |$:.A$.."Y"...').|
00002120: 1E 89 31 32 30 30 30 00 3E 29 DC 1E A0 31 35 3A |..12000.>)...15:|
00002130: 99 C7 28 31 34 32 29 3A 99 22 93 22 3A 80 00 4F |..(142):.".":..O|
00002140: 29 40 1F 8F 20 49 4E 49 54 49 41 4C 49 5A 45 00 |)@.. INITIALIZE.|
00002150: 60 29 41 1F 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |`)A.."..........|
00002160: 00 71 29 42 1F 99 C7 28 31 34 32 29 3A 99 22 05 |.q)B...(142):.".|
00002170: 22 00 97 29 45 1F 86 43 28 32 35 35 29 2C 54 28 |"..)E..C(255),T(|
00002180: 31 32 30 29 2C 53 28 31 32 30 29 2C 53 43 28 37 |120),S(120),SC(7|
00002190: 37 29 2C 42 28 34 29 00 B8 29 46 1F 83 31 2C 31 |7),B(4)..)F..1,1|
000021A0: 37 2C 32 30 2C 32 34 2C 31 39 2C 33 30 2C 31 37 |7,20,24,19,30,17|
000021B0: 2C 33 35 2C 31 36 2C 30 00 DA 29 47 1F 83 36 35 |,35,16,0..)G..65|
000021C0: 2C 31 37 2C 32 30 2C 32 34 2C 31 38 2C 33 30 2C |,17,20,24,18,30,|
000021D0: 31 37 2C 33 35 2C 31 36 2C 30 00 FC 29 48 1F 83 |17,35,16,0..)H..|
000021E0: 36 37 2C 33 39 2C 32 38 2C 35 33 2C 32 36 2C 36 |67,39,28,53,26,6|
000021F0: 34 2C 32 34 2C 37 37 2C 32 32 2C 30 00 14 2A 4A |4,24,77,22,0..*J|
00002200: 1F 52 24 28 30 29 B2 22 12 22 3A 52 24 28 31 29 |.R$(0).".":R$(1)|
00002210: B2 22 92 22 00 2A 2A 54 1F 53 44 24 B2 22 13 11 |.".".**T.SD$."..|
00002220: 11 11 11 11 11 11 11 11 11 22 00 49 2A 59 1F 4D |.........".I*Y.M|
00002230: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
00002240: 11 11 11 11 11 11 11 92 22 00 6D 2A 63 1F 85 22 |........".m*c.."|
00002250: 93 44 52 49 56 45 92 20 20 20 A6 9D 9D 9D 22 3B |.DRIVE. ....";|
00002260: 44 52 24 3A 44 52 B2 C5 28 44 52 24 29 00 89 2A |DR$:DR..(DR$)..*|
00002270: 68 1F 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 |h..15,8,15,"I".D|
00002280: 52 24 3A 8D 36 33 39 30 30 00 AA 2A 72 1F 4B 24 |R$:.63900..*r.K$|
00002290: B2 22 20 20 D4 C8 C9 D3 A0 C2 CC CF C3 CB A0 C9 |." ............|
000022A0: D3 A0 C5 CD D0 D4 D9 20 20 22 00 C6 2A 7C 1F 99 |....... "..*|..|
000022B0: 22 93 57 41 49 54 2E 2E 2E 22 3A 8C 3A 57 57 B2 |".WAIT...":.:WW.|
000022C0: 30 3A 41 30 B2 31 00 E0 2A 7D 1F 9F 33 2C 38 2C |0:A0.1..*}..3,8,|
000022D0: 33 2C 22 24 22 AA 44 52 24 3A 8D 36 33 39 30 30 |3,"$".DR$:.63900|
000022E0: 00 F8 2A 7E 1F A1 23 33 2C 41 24 3A 41 B2 C6 28 |..*~..#3,A$:A..(|
000022F0: 41 24 AA C7 28 30 29 29 00 0B 2B 7F 1F 87 44 54 |A$..(0))..+...DT|
00002300: 3A 8B 41 B2 44 54 A7 38 30 37 30 00 31 2B 80 1F |:.A.DT.8070.1+..|
00002310: 57 57 B2 57 57 AA 31 3A 8B 57 57 B3 33 A7 20 81 |WW.WW.1:.WW.3. .|
00002320: 49 B2 31 A4 39 3A 87 44 54 3A 82 3A 89 38 30 36 |I.1.9:.DT:.:.806|
00002330: 33 00 71 2B 81 1F 99 22 93 11 11 2A 2A 2A 12 4E |3.q+..."...***.N|
00002340: 4F 54 20 41 20 52 45 43 4F 47 4E 49 5A 41 42 4C |OT A RECOGNIZABL|
00002350: 45 20 44 49 53 4B 92 2A 2A 2A 22 3A A0 33 3A 99 |E DISK.***":.3:.|
00002360: 22 11 11 57 41 4E 54 20 54 4F 20 51 55 49 54 3F |"..WANT TO QUIT?|
00002370: 22 00 88 2B 82 1F 8D 33 31 30 3A 8B 49 4E 24 B2 |"..+...310:.IN$.|
00002380: 22 59 22 A7 37 39 30 30 00 92 2B 83 1F 89 38 31 |"Y".7900..+...81|
00002390: 31 30 00 A9 2B 86 1F 8B 44 54 B2 31 B0 44 54 B2 |10..+...DT.1.DT.|
000023A0: 36 35 A7 4B 4B B2 31 34 33 00 B9 2B 87 1F 8B 44 |65.KK.143..+...D|
000023B0: 54 B2 36 37 A7 4B 4B B2 35 00 C3 2B 88 1F 8D 38 |T.67.KK.5..+...8|
000023C0: 32 30 30 00 D6 2B 8B 1F 87 41 31 3A 8B 41 31 B2 |200..+...A1:.A1.|
000023D0: 30 A7 38 30 39 30 00 FF 2B 90 1F 87 42 31 3A 81 |0.8090..+...B1:.|
000023E0: 49 B2 41 30 A4 41 31 3A 53 43 28 49 29 B2 42 31 |I.A0.A1:SC(I).B1|
000023F0: AA 31 3A 82 3A 41 30 B2 49 3A 89 38 30 37 35 00 |.1:.:A0.I:.8075.|
00002400: 25 2C 9A 1F 8B 44 54 B2 31 B0 44 54 B2 36 35 A7 |%,...DT.1.DT.65.|
00002410: 44 31 B2 31 3A 54 54 B2 33 35 3A 53 32 B2 33 3A |D1.1:TT.35:S2.3:|
00002420: 44 49 B2 31 38 00 48 2C 9F 1F 8B 44 54 B2 36 37 |DI.18.H,...DT.67|
00002430: A7 44 31 B2 32 35 37 3A 54 54 B2 37 37 3A 53 32 |.D1.257:TT.77:S2|
00002440: B2 34 3A 44 49 B2 33 39 00 5C 2C A0 1F 53 31 B2 |.4:DI.39.\,..S1.|
00002450: 53 32 AB 31 3A 53 33 B2 53 32 AA 31 00 6E 2C A4 |S2.1:S3.S2.1.n,.|
00002460: 1F A0 33 3A 8B 54 54 B2 30 A7 38 30 36 35 00 84 |..3:.TT.0.8065..|
00002470: 2C AE 1F 81 49 B2 30 A4 37 3A 50 28 49 29 B2 32 |,...I.0.7:P(I).2|
00002480: AE 49 3A 82 00 9C 2C B8 1F 58 24 28 30 29 B2 22 |.I:...,..X$(0)."|
00002490: D1 22 3A 58 24 28 31 29 B2 22 D7 22 00 CD 2C C2 |.":X$(1)."."..,.|
000024A0: 1F 53 30 24 B2 22 A3 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 22 00 EE 2C |............"..,|
000024D0: CC 1F 43 4C 24 B2 22 22 3A 81 49 B2 31 A4 33 39 |..CL$."":.I.1.39|
000024E0: 3A 43 4C 24 B2 43 4C 24 AA 22 20 22 3A 82 00 1C |:CL$.CL$." ":...|
000024F0: 2D D6 1F 53 31 24 B2 22 5E 2E 2E 2E 2E 5E 2E 2E |-..S1$."^....^..|
00002500: 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E 2E |..^....^....^...|
00002510: 2E 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 22 00 46 2D E0 |.^....^....".F-.|
00002520: 1F 53 32 24 B2 22 DD 20 20 20 20 DD 20 20 20 20 |.S2$.". . |
00002530: DD 20 20 20 20 DD 20 20 20 20 DD 20 20 20 20 DD |. . . .|
00002540: 20 20 20 20 DD 22 00 71 2D EA 1F 53 33 24 B2 22 | .".q-..S3$."|
00002550: 30 20 20 20 20 35 20 20 20 20 31 30 20 20 20 31 |0 5 10 1|
00002560: 35 20 20 20 32 30 20 20 20 32 35 20 20 20 33 30 |5 20 25 30|
00002570: 22 00 77 2D F4 1F 8E 00 92 2D 08 20 81 49 B2 33 |".w-.....-. .I.3|
00002580: A4 4B 4B 3A A1 23 33 2C 41 24 3A 82 3A 99 22 12 |.KK:.#3,A$:.:.".|
00002590: 22 3B 00 B7 2D 12 20 81 49 B2 31 A4 32 33 3A A1 |";..-. .I.1.23:.|
000025A0: 23 33 2C 41 24 3A 41 24 B2 41 24 AA C7 28 30 29 |#3,A$:A$.A$..(0)|
000025B0: 3A 99 41 24 3B 3A 82 00 BF 2D 1C 20 99 3A 8E 00 |:.A$;:...-. .:..|
000025C0: D1 2D 28 23 8F 20 44 45 43 49 4D 41 4C 5F 48 45 |.-(#. DECIMAL_HE|
000025D0: 58 00 E3 2D 29 23 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 |X..-)#."........|
000025E0: A3 A3 A3 00 F7 2D 2D 23 4D B2 C5 28 4D 24 29 3A |.....--#M..(M$):|
000025F0: 8B 4D B3 B1 30 A7 8E 00 13 2E 32 23 4D 24 B2 CA |.M..0.....2#M$..|
00002600: 28 4D 24 2C 32 29 3A 4D B2 30 3A 4C 4D B2 C3 28 |(M$,2):M.0:LM..(|
00002610: 4D 24 29 00 20 2E 3C 23 81 43 4E B2 31 A4 4C 4D |M$). .<#.CN.1.LM|
00002620: 00 4D 2E 46 23 4D 4D 24 B2 CA 28 4D 24 2C 43 4E |.M.F#MM$..(M$,CN|
00002630: 2C 31 29 3A 8D 39 31 30 30 3A 4D B2 4D AA 4D 4D |,1):.9100:M.M.MM|
00002640: AC 31 36 AE 28 4C 4D AB 43 4E 29 3A 82 00 53 2E |.16.(LM.CN):..S.|
00002650: 50 23 8E 00 67 2E 8C 23 8B 4D 4D 24 B2 22 30 22 |P#..g..#.MM$."0"|
00002660: A7 4D 4D B2 30 3A 8E 00 7E 2E 96 23 4D 4D B2 C5 |.MM.0:..~..#MM..|
00002670: 28 4D 4D 24 29 3A 8B 4D 4D B3 B1 30 A7 8E 00 91 |(MM$):.MM..0....|
00002680: 2E A0 23 4D 4D B2 C6 28 4D 4D 24 29 AB 35 35 3A |..#MM..(MM$).55:|
00002690: 8E 00 A3 2E 1C 25 8F 20 48 45 58 5F 44 45 43 49 |.....%. HEX_DECI|
000026A0: 4D 41 4C 00 B5 2E 1D 25 8F 22 A3 A3 A3 A3 A3 A3 |MAL....%."......|
000026B0: A3 A3 A3 A3 A3 00 EF 2E 21 25 53 4D B2 4D 3A 4D |........!%SM.M:M|
000026C0: 24 B2 22 24 22 3A 81 43 4E B2 33 A4 30 A9 AB 31 |$."$":.CN.3.0..1|
000026D0: 3A 43 4D 25 B2 53 4D AD 28 31 36 AE 43 4E 29 3A |:CM%.SM.(16.CN):|
000026E0: 8D 39 36 30 30 3A 4D 24 B2 4D 24 AA 4D 4D 24 00 |.9600:M$.M$.MM$.|
000026F0: 09 2F 26 25 53 4D B2 53 4D AB 28 31 36 AE 43 4E |./&%SM.SM.(16.CN|
00002700: 29 AC 43 4D 25 3A 82 3A 8E 00 25 2F 80 25 8B 43 |).CM%:.:..%/.%.C|
00002710: 4D 25 B3 31 30 A7 4D 4D 24 B2 C7 28 43 4D 25 AA |M%.10.MM$..(CM%.|
00002720: 34 38 29 3A 8E 00 39 2F 8A 25 4D 4D 24 B2 C7 28 |48):..9/.%MM$..(|
00002730: 43 4D 25 AA 35 35 29 3A 8E 00 52 2F 10 27 99 53 |CM%.55):..R/.'.S|
00002740: 44 24 22 11 11 11 11 11 11 11 11 11 11 20 20 20 |D$".......... |
00002750: 20 22 00 83 2F 1A 27 97 43 52 54 AA 4A 2C 31 36 | "../.'.CRT.J,16|
00002760: 38 3A 4A B2 4A AA 31 3A 81 4B B2 32 A4 31 A9 AB |8:J.J.1:.K.2.1..|
00002770: 31 3A 53 24 B2 CA 28 C4 28 43 28 49 AB 4B 29 29 |1:S$..(.(C(I.K))|
00002780: 2C 32 29 00 B2 2F 24 27 81 4C B2 31 A4 C3 28 53 |,2)../$'.L.1..(S|
00002790: 24 29 3A 97 43 52 54 AA 4A 2C C5 28 CA 28 53 24 |$):.CRT.J,.(.(S$|
000027A0: 2C 4C 2C 31 29 29 AA 31 37 36 3A 4A B2 4A AA 31 |,L,1)).176:J.J.1|
000027B0: 3A 82 00 D6 2F 2E 27 97 43 52 54 AA 4A 2C 31 37 |:.../.'.CRT.J,17|
000027C0: 32 3A 4A B2 4A AA 31 3A 82 3A 97 43 52 54 AA 4A |2:J.J.1:.:.CRT.J|
000027D0: AB 31 2C 31 36 39 00 02 30 38 27 99 53 44 24 22 |.1,169..08'.SD$"|
000027E0: 11 11 11 11 11 11 11 11 11 11 4E 4F 54 45 3A 12 |..........NOTE:.|
000027F0: 28 54 52 41 43 4B 2C 53 45 43 54 4F 52 29 20 22 |(TRACK,SECTOR) "|
00002800: 3A 8E 00 08 30 F8 2A 3A 00 40 30 02 2B 97 43 52 |:...0.*:.@0.+.CR|
00002810: 54 AA 4A 2C 31 39 30 3A 4A B2 4A AA 31 3A 53 56 |T.J,190:J.J.1:SV|
00002820: B2 43 28 49 AB 32 29 AA 43 28 49 AB 31 29 AC 32 |.C(I.2).C(I.1).2|
00002830: 35 36 3A 53 24 B2 CA 28 C4 28 53 56 29 2C 32 29 |56:S$..(.(SV),2)|
00002840: 00 6F 30 0C 2B 81 4C B2 31 A4 C3 28 53 24 29 3A |.o0.+.L.1..(S$):|
00002850: 97 43 52 54 AA 4A 2C C5 28 CA 28 53 24 2C 4C 2C |.CRT.J,.(.(S$,L,|
00002860: 31 29 29 AA 31 37 36 3A 4A B2 4A AA 31 3A 82 00 |1)).176:J.J.1:..|
00002870: 86 30 16 2B 4A B2 4A AA 31 3A 97 43 52 54 AA 4A |.0.+J.J.1:.CRT.J|
00002880: AB 31 2C 31 38 38 00 B3 30 20 2B 99 53 44 24 22 |.1,188..0 +.SD$"|
00002890: 11 11 11 11 11 11 11 11 11 11 11 B8 B8 B8 B8 3A |...............:|
000028A0: 12 3E 4E 55 4D 42 45 52 20 42 4C 4F 43 4B 53 3C |.>NUMBER BLOCKS<|
000028B0: 22 3A 8E 00 CB 30 E0 2E 8F 20 55 4E 53 43 52 41 |":...0... UNSCRA|
000028C0: 54 43 48 20 52 4F 55 54 49 4E 45 00 E3 30 E1 2E |TCH ROUTINE..0..|
000028D0: 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |."..............|
000028E0: B8 B8 B8 00 EF 30 EA 2E 99 C7 28 31 34 32 29 00 |.....0....(142).|
000028F0: 17 31 F4 2E 99 22 93 11 11 54 48 45 20 53 43 52 |.1..."...THE SCR|
00002900: 41 54 43 48 45 44 20 46 49 4C 45 20 4E 41 4D 45 |ATCHED FILE NAME|
00002910: 53 20 57 49 4C 4C 22 00 2C 31 FE 2E 99 22 42 45 |S WILL".,1..."BE|
00002920: 20 44 49 53 50 4C 41 59 45 44 2E 22 00 52 31 08 | DISPLAYED.".R1.|
00002930: 2F 99 22 11 59 4F 55 20 4D 41 59 20 44 45 43 49 |/.".YOU MAY DECI|
00002940: 44 45 20 57 48 49 43 48 20 46 49 4C 45 20 59 4F |DE WHICH FILE YO|
00002950: 55 22 00 6A 31 12 2F 99 22 57 49 53 48 20 54 4F |U".j1./."WISH TO|
00002960: 20 52 45 43 4F 56 45 52 2E 22 00 8D 31 1C 2F 99 | RECOVER."..1./.|
00002970: 22 11 11 12 52 45 54 55 52 4E 92 20 54 4F 20 43 |"...RETURN. TO C|
00002980: 4F 4E 54 49 4E 55 45 22 3A 8D 33 31 30 00 96 31 |ONTINUE":.310..1|
00002990: 26 2F 99 22 93 22 00 AA 31 30 2F A0 33 3A A0 31 |&/."."..10/.3:.1|
000029A0: 35 3A 9F 31 35 2C 38 2C 31 35 00 CA 31 3A 2F 54 |5:.15,8,15..1:/T|
000029B0: B2 44 49 3A 53 B2 31 3A 9F 33 2C 38 2C 33 2C 22 |.DI:S.1:.3,8,3,"|
000029C0: 23 30 22 3A 8D 36 33 39 30 30 00 E1 31 3F 2F 98 |#0":.63900..1?/.|
000029D0: 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 3B 54 3B |15,"B-R";3;DR;T;|
000029E0: 53 00 F5 31 40 2F 99 22 93 4C 4F 4F 4B 49 4E 47 |S..1@/.".LOOKING|
000029F0: 20 41 54 3A 22 00 1B 32 41 2F 99 22 11 11 54 52 | AT:"..2A/."..TR|
00002A00: 41 43 4B 20 20 20 9D 9D 9D 22 54 22 20 53 45 43 |ACK ..."T" SEC|
00002A10: 54 4F 52 20 20 20 9D 9D 9D 22 53 00 45 32 44 2F |TOR ..."S.E2D/|
00002A20: 81 4A B2 30 A4 32 35 35 3A 98 31 35 2C 22 4D 2D |.J.0.255:.15,"M-|
00002A30: 52 22 3B C7 28 4A 29 3B C7 28 31 37 29 3A A1 23 |R";.(J);.(17):.#|
00002A40: 31 35 2C 41 24 00 5B 32 4E 2F 43 28 4A 29 B2 C6 |15,A$.[2N/C(J)..|
00002A50: 28 41 24 AA C7 28 30 29 29 3A 82 00 83 32 58 2F |(A$..(0)):...2X/|
00002A60: 81 44 B2 32 A4 32 35 35 A9 33 32 3A 8B 43 28 44 |.D.2.255.32:.C(D|
00002A70: 29 B3 B1 30 B0 43 28 44 AA 31 29 B2 30 A7 31 32 |)..0.C(D.1).0.12|
00002A80: 32 30 30 00 B4 32 62 2F 99 53 44 24 43 4C 24 53 |200..2b/.SD$CL$S|
00002A90: 44 24 22 57 41 4E 54 20 54 4F 20 55 4E 53 43 52 |D$"WANT TO UNSCR|
00002AA0: 41 54 43 48 20 12 22 3B 3A 81 50 39 B2 31 A4 32 |ATCH .";:.P9.1.2|
00002AB0: 30 30 3A 82 00 DF 32 6C 2F A1 41 24 3A 81 4B B2 |00:...2l/.A$:.K.|
00002AC0: 44 AA 33 A4 44 AA 31 38 3A 99 C7 28 43 28 4B 29 |D.3.D.18:..(C(K)|
00002AD0: 29 3B 3A 82 3A 99 22 92 3F 22 3A 8D 33 31 30 00 |);:.:.".?":.310.|
00002AE0: F2 32 76 2F 8B 49 4E 24 B2 22 59 22 A7 31 32 33 |.2v/.IN$."Y".123|
00002AF0: 30 30 00 13 33 A8 2F 82 44 3A 54 B2 43 28 30 29 |00..3./.D:T.C(0)|
00002B00: 3A 53 B2 43 28 31 29 3A 8B 54 B2 44 49 A7 31 32 |:S.C(1):.T.DI.12|
00002B10: 30 39 35 00 50 33 B2 2F 99 22 93 46 49 4E 49 53 |095.P3./.".FINIS|
00002B20: 48 45 44 20 4C 4F 4F 4B 49 4E 47 2E 2E 22 3A 99 |HED LOOKING..":.|
00002B30: 22 11 11 12 52 45 54 55 52 4E 92 20 54 4F 20 43 |"...RETURN. TO C|
00002B40: 4F 4E 54 49 4E 55 45 2E 22 3A 8D 33 31 30 3A 8E |ONTINUE.":.310:.|
00002B50: 00 8E 33 0C 30 54 30 B2 54 3A 53 30 B2 53 3A 54 |..3.0T0.T:S0.S:T|
00002B60: B2 43 28 44 AA 31 29 3A 53 B2 43 28 44 AA 32 29 |.C(D.1):S.C(D.2)|
00002B70: 3A 42 30 B2 43 28 44 AA 32 38 29 AA 43 28 44 AA |:B0.C(D.28).C(D.|
00002B80: 32 39 29 AC 32 35 36 3A 99 C7 28 31 34 29 00 BC |29).256:..(14)..|
00002B90: 33 0D 30 99 22 93 11 11 12 C4 49 52 45 43 54 4F |3.0.".....IRECTO|
00002BA0: 52 59 20 C2 4C 4F 43 4B 20 C3 4F 55 4E 54 3D 22 |RY .LOCK .OUNT="|
00002BB0: 42 30 3A 4E 39 B2 31 3A 99 53 30 24 00 F4 33 0E |B0:N9.1:.S0$..3.|
00002BC0: 30 A0 33 3A A0 31 35 3A 9F 31 35 2C 38 2C 31 35 |0.3:.15:.15,8,15|
00002BD0: 3A 9F 33 2C 38 2C 33 2C 22 23 22 3A 8D 36 33 39 |:.3,8,3,"#":.639|
00002BE0: 30 30 3A A1 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 |00:.#3,BN$:BN..(|
00002BF0: 42 4E 24 29 00 10 34 0F 30 54 28 4E 39 29 B2 54 |BN$)..4.0T(N9).T|
00002C00: 3A 53 28 4E 39 29 B2 53 3A 4E 39 B2 4E 39 AA 31 |:S(N9).S:N9.N9.1|
00002C10: 00 27 34 11 30 98 31 35 2C 22 42 2D 52 22 3B 33 |.'4.0.15,"B-R";3|
00002C20: 3B 44 52 3B 54 3B 53 00 39 34 12 30 98 31 35 2C |;DR;T;S.94.0.15,|
00002C30: 22 42 2D 50 22 3B 33 3B 30 00 53 34 13 30 A1 23 |"B-P";3;0.S4.0.#|
00002C40: 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 C7 |3,Z$:.Z$."".Z$..|
00002C50: 28 30 29 00 72 34 14 30 54 28 4E 39 29 B2 C6 28 |(0).r4.0T(N9)..(|
00002C60: 5A 24 29 3A 8B 54 28 4E 39 29 B2 30 A7 31 32 33 |Z$):.T(N9).0.123|
00002C70: 31 34 00 8C 34 15 30 A1 23 33 2C 5A 24 3A 8B 5A |14..4.0.#3,Z$:.Z|
00002C80: 24 B2 22 22 A7 5A 24 B2 C7 28 30 29 00 9C 34 16 |$."".Z$..(0)..4.|
00002C90: 30 53 28 4E 39 29 B2 C6 28 5A 24 29 00 BA 34 17 |0S(N9)..(Z$)..4.|
00002CA0: 30 54 24 B2 CA 28 C4 28 54 29 2C 32 29 3A 53 24 |0T$..(.(T),2):S$|
00002CB0: B2 CA 28 C4 28 53 29 2C 32 29 00 CE 34 18 30 99 |..(.(S),2)..4.0.|
00002CC0: 22 28 22 54 24 22 2C 22 53 24 22 29 22 3B 00 F1 |"("T$","S$")";..|
00002CD0: 34 19 30 54 B2 54 28 4E 39 29 3A 53 B2 53 28 4E |4.0T.T(N9):S.S(N|
00002CE0: 39 29 3A 4E 39 B2 4E 39 AA 31 3A 89 31 32 33 30 |9):N9.N9.1:.1230|
00002CF0: 35 00 FF 34 1A 30 4E 39 B2 4E 39 AB 31 3A 99 00 |5..4.0N9.N9.1:..|
00002D00: 15 35 1B 30 99 22 11 12 22 4E 39 22 20 42 4C 4F |.5.0.".."N9" BLO|
00002D10: 43 4B 53 11 22 00 4B 35 3E 30 8B 4E 39 B3 B1 42 |CKS.".K5>0.N9..B|
00002D20: 30 A7 99 22 11 11 2A 2A 12 49 4E 43 4F 52 52 45 |0.."..**.INCORRE|
00002D30: 43 54 20 42 4C 4F 43 4B 20 43 4F 55 4E 54 92 2A |CT BLOCK COUNT.*|
00002D40: 2A 11 11 22 3A 8D 33 30 30 3A 8E 00 66 35 48 30 |*..":.300:..f5H0|
00002D50: 99 22 11 CC 4F 4F 4B 53 20 47 4F 4F 44 20 53 4F |."..OOKS GOOD SO|
00002D60: 20 46 41 52 2E 22 00 91 35 52 30 99 22 11 D3 48 | FAR."..5R0."..H|
00002D70: 41 4C 4C 20 57 45 20 50 52 4F 43 45 45 44 3F 22 |ALL WE PROCEED?"|
00002D80: 3A 8D 33 31 30 3A 8B 49 4E 24 B3 B1 22 59 22 A7 |:.310:.IN$.."Y".|
00002D90: 8E 00 BD 35 5C 30 99 22 93 11 11 D7 45 27 4C 4C |...5\0."....E'LL|
00002DA0: 20 43 48 45 43 4B 20 54 48 41 54 20 54 48 45 20 | CHECK THAT THE |
00002DB0: 41 42 4F 56 45 20 42 4C 4F 43 4B 53 22 00 E6 35 |ABOVE BLOCKS"..5|
00002DC0: 66 30 99 22 11 41 52 45 20 C6 D2 C5 C5 20 42 59 |f0.".ARE .... BY|
00002DD0: 20 4C 4F 4F 4B 49 4E 47 20 41 54 20 54 48 45 20 | LOOKING AT THE |
00002DE0: C2 C1 CD 2E 11 22 00 15 36 70 30 99 22 11 D4 48 |....."..6p0."..H|
00002DF0: 45 20 54 52 41 43 4B 2F 53 45 43 54 4F 52 53 20 |E TRACK/SECTORS |
00002E00: 46 4F 52 20 54 48 45 20 46 49 4C 45 20 57 49 4C |FOR THE FILE WIL|
00002E10: 4C 20 42 45 22 00 3F 36 7A 30 99 22 11 44 49 53 |L BE".?6z0.".DIS|
00002E20: 50 4C 41 59 45 44 2E 20 C9 46 20 41 20 42 4C 4F |PLAYED. .F A BLO|
00002E30: 43 4B 20 49 53 20 4F 43 43 55 50 49 45 44 22 00 |CK IS OCCUPIED".|
00002E40: 69 36 84 30 99 22 11 54 48 45 20 D5 CE D3 C3 D2 |i6.0.".THE .....|
00002E50: C1 D4 C3 C8 20 57 49 4C 4C 20 4E 4F 54 20 57 4F |.... WILL NOT WO|
00002E60: 52 4B 21 22 3A 8D 33 30 30 00 9B 36 85 30 A0 31 |RK!":.300..6.0.1|
00002E70: 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 |5:.15,8,15,"I".D|
00002E80: 52 24 3A 8D 36 33 39 30 30 3A 99 22 93 22 3A 99 |R$:.63900:.".":.|
00002E90: C7 28 31 34 32 29 3A 4B 31 B2 31 00 B5 36 86 30 |.(142):K1.1..6.0|
00002EA0: 9F 32 2C 38 2C 32 2C 22 24 22 AA 44 52 24 3A 8D |.2,8,2,"$".DR$:.|
00002EB0: 36 33 39 30 30 00 CF 36 87 30 96 20 A5 42 28 49 |63900..6.0. .B(I|
00002EC0: 29 B2 28 5A AF 50 28 49 29 29 AD 50 28 49 29 00 |).(Z.P(I)).P(I).|
00002ED0: EB 36 88 30 46 46 B2 44 31 AA 28 54 28 4B 31 29 |.6.0FF.D1.(T(K1)|
00002EE0: AB 31 29 AC 53 33 3A 50 50 B2 30 00 01 37 89 30 |.1).S3:PP.0..7.0|
00002EF0: 81 4B 32 B2 30 A4 46 46 3A A1 23 32 2C 41 24 3A |.K2.0.FF:.#2,A$:|
00002F00: 82 00 1E 37 98 30 54 B2 54 28 4B 31 29 3A 99 22 |...7.0T.T(K1):."|
00002F10: 93 22 3A 8D 36 34 30 30 3A 8D 36 35 38 30 00 42 |.":.6400:.6580.B|
00002F20: 37 A2 30 99 53 44 24 22 43 48 45 43 4B 20 54 48 |7.0.SD$"CHECK TH|
00002F30: 41 54 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 |AT THE FOLLOWING|
00002F40: 20 22 00 5D 37 A7 30 99 22 11 53 45 43 54 4F 52 | ".]7.0.".SECTOR|
00002F50: 53 20 41 52 45 20 46 52 45 45 3D D7 22 00 91 37 |S ARE FREE=."..7|
00002F60: AC 30 81 4B 32 B2 31 A4 4E 39 3A 8B 54 28 4B 32 |.0.K2.1.N9:.T(K2|
00002F70: 29 B2 54 A7 99 52 24 28 50 50 29 CA 28 C4 28 53 |).T..R$(PP).(.(S|
00002F80: 28 4B 32 29 29 2C 32 29 52 24 28 31 AB 50 50 29 |(K2)),2)R$(1.PP)|
00002F90: 3B 00 A1 37 B1 30 50 50 B2 31 AB 50 50 3A 82 3A |;..7.0PP.1.PP:.:|
00002FA0: 99 00 B2 37 B6 30 99 22 11 4F 4B 3F 22 3A 8D 33 |...7.0.".OK?":.3|
00002FB0: 31 30 00 DD 37 BB 30 8B 49 4E 24 B3 B1 22 59 22 |10..7.0.IN$.."Y"|
00002FC0: A7 99 22 93 53 4F 52 52 59 2E 2E 22 3A 99 C7 28 |..".SORRY..":..(|
00002FD0: 31 34 29 3A 8D 33 30 30 3A A0 32 3A 8E 00 F2 37 |14):.300:.2:...7|
00002FE0: C0 30 A0 32 3A 8B 4B 31 B1 B2 4E 39 A7 A0 31 35 |.0.2:.K1..N9..15|
00002FF0: 3A 8E 00 0D 38 CA 30 4B 31 B2 4B 31 AA 31 3A 8B |:...8.0K1.K1.1:.|
00003000: 54 28 4B 31 29 B2 30 A7 31 32 36 30 30 00 20 38 |T(K1).0.12600. 8|
00003010: D4 30 8B 54 28 4B 31 29 B2 54 A7 31 32 34 39 30 |.0.T(K1).T.12490|
00003020: 00 2B 38 D9 30 89 31 32 34 32 32 00 3B 38 38 31 |.+8.0.12422.;881|
00003030: 99 22 93 22 3A 99 C7 28 31 34 29 00 6B 38 42 31 |.".":..(14).k8B1|
00003040: 99 22 CE 4F 57 20 4D 4F 44 49 46 59 20 54 48 45 |.".OW MODIFY THE|
00003050: 20 12 4D 41 47 49 43 20 42 59 54 45 92 20 4F 4E | .MAGIC BYTE. ON|
00003060: 20 44 49 52 45 43 54 4F 52 59 22 00 86 38 4C 31 | DIRECTORY"..8L1|
00003070: 99 22 11 D4 52 41 43 4B 22 54 30 22 20 D3 45 43 |."..RACK"T0" .EC|
00003080: 54 4F 52 22 53 30 00 B7 38 56 31 99 22 11 D4 48 |TOR"S0..8V1."..H|
00003090: 45 4E 20 D7 52 49 54 45 20 54 48 45 20 42 4C 4F |EN .RITE THE BLO|
000030A0: 43 4B 20 42 41 43 4B 20 54 4F 20 28 22 54 30 22 |CK BACK TO ("T0"|
000030B0: 2C 22 53 30 22 29 22 00 DC 38 60 31 99 22 11 C6 |,"S0")"..8`1."..|
000030C0: 49 4E 41 4C 4C 59 20 12 D6 41 4C 49 44 41 54 45 |INALLY ..ALIDATE|
000030D0: 92 20 54 48 45 20 44 49 53 4B 21 22 00 E7 38 6A |. THE DISK!"..8j|
000030E0: 31 8D 33 30 30 3A 8E 00 F5 38 C8 32 54 B2 54 31 |1.300:...8.2T.T1|
000030F0: 3A 53 B2 53 31 00 01 39 C9 32 81 4A B2 31 A4 42 |:S.S1..9.2.J.1.B|
00003100: 30 00 39 39 CD 32 A0 33 3A A0 31 35 3A 9F 31 35 |0.99.2.3:.15:.15|
00003110: 2C 38 2C 31 35 3A 9F 33 2C 38 2C 33 2C 22 23 22 |,8,15:.3,8,3,"#"|
00003120: 3A 8D 36 33 39 30 30 3A A1 23 33 2C 42 4E 24 3A |:.63900:.#3,BN$:|
00003130: 42 4E B2 C6 28 42 4E 24 29 00 62 39 D2 32 42 4E |BN..(BN$).b9.2BN|
00003140: 24 B2 CA 28 42 4E 24 2C 32 29 3A 42 4D B2 42 4E |$..(BN$,2):BM.BN|
00003150: AA 31 37 AA 31 32 AC B5 28 28 42 4E AA 31 29 AD |.17.12..((BN.1).|
00003160: 34 29 00 87 39 DC 32 99 3A 99 22 28 22 54 22 2C |4)..9.2.:."("T",|
00003170: 22 53 22 29 5F 20 C6 C9 D2 D3 D4 20 C2 CC CF C3 |"S")_ ..... ....|
00003180: CB 22 3A 4E 39 B2 31 00 9E 39 E6 32 98 31 35 2C |.":N9.1..9.2.15,|
00003190: 22 42 2D 52 22 3B 33 3B 44 52 3B 54 3B 53 00 B0 |"B-R";3;DR;T;S..|
000031A0: 39 F0 32 98 31 35 2C 22 42 2D 50 22 3B 33 3B 30 |9.2.15,"B-P";3;0|
000031B0: 00 CA 39 FA 32 A1 23 33 2C 5A 24 3A 8B 5A 24 B2 |..9.2.#3,Z$:.Z$.|
000031C0: 22 22 A7 5A 24 B2 C7 28 30 29 00 E0 39 04 33 54 |"".Z$..(0)..9.3T|
000031D0: B2 C6 28 5A 24 29 3A 8B 54 B2 30 A7 37 32 30 30 |..(Z$):.T.0.7200|
000031E0: 00 FA 39 0E 33 A1 23 33 2C 5A 24 3A 8B 5A 24 B2 |..9.3.#3,Z$:.Z$.|
000031F0: 22 22 A7 5A 24 B2 C7 28 30 29 00 06 3A 18 33 53 |"".Z$..(0)..:.3S|
00003200: B2 C6 28 5A 24 29 00 24 3A 22 33 54 24 B2 CA 28 |..(Z$).$:"3T$..(|
00003210: C4 28 54 29 2C 32 29 3A 53 24 B2 CA 28 C4 28 53 |.(T),2):S$..(.(S|
00003220: 29 2C 32 29 00 38 3A 2C 33 99 22 28 22 54 24 22 |),2).8:,3."("T$"|
00003230: 2C 22 53 24 22 29 22 3B 00 3E 3A 36 33 82 00 54 |,"S$")";.>:63..T|
00003240: 3A 40 33 99 22 5F 20 CC C1 D3 D4 20 C2 CC CF C3 |:@3."_ .... ....|
00003250: CB 11 11 22 00 6B 3A 4A 33 99 4E 39 22 20 42 4C |...".k:J3.N9" BL|
00003260: 4F 43 4B 53 11 22 3A 8D 33 30 30 00 94 3A F7 33 |OCKS.":.300..:.3|
00003270: 42 4E 24 B2 CA 28 42 4E 24 2C 32 29 3A 42 4D B2 |BN$..(BN$,2):BM.|
00003280: 42 4E AA 31 37 AA 31 32 AC B5 28 28 42 4E AA 31 |BN.17.12..((BN.1|
00003290: 29 AD 34 29 00 B9 3A F8 33 99 3A 99 22 28 22 54 |).4)..:.3.:."("T|
000032A0: 22 2C 22 53 22 29 5F 20 C6 C9 D2 D3 D4 20 C2 CC |","S")_ ..... ..|
000032B0: CF C3 CB 22 3A 4E 39 B2 31 00 CC 3A 9C F9 84 31 |...":N9.1..:...1|
000032C0: 35 2C 45 2C 45 24 2C 45 31 2C 45 32 00 F6 3A 9D |5,E,E$,E1,E2..:.|
000032D0: F9 8B 45 B3 B1 30 A7 99 3A 99 22 2A 2A 12 44 49 |..E..0..:."**.DI|
000032E0: 53 4B 20 45 52 52 4F 52 92 2A 2A 22 45 2C 45 24 |SK ERROR.**"E,E$|
000032F0: 2C 45 31 2C 45 32 00 FC 3A 9E F9 8E 00 00 00 85 |,E1,E2..:.......|
00003300: 00 FF 43 |..C |
....... 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:..W....".TRACK V..
.";T:.(T.1).(T.TT).6280..... 15:.15,8,15
..... 2:.2,8,2,"#":.63900......15,"U1:";
2;DR;DI;0.M....15,"B-P";2;T.4......"..EN
TER NEGATIVE SECTOR TO QUIT.":.6400:.658
0.3.D.."..........CHANGE WHICH SECTOR
..V...";S.J.N..S.0.S..SC(T).6260.Z.X.
2: 15:.SD$......6620:.6480:.6580:.:.MD$"
.OK?.";:.310:.CL$......IN$."Y"..6730....
..MD$CL$SD$......6480:.6340.N....K.0.S2:
.#2,A$......A$."".A$.G(0).....B(K).F(A$)
.........P.. PRINT TRACK...Z..".........
...-.D..K.1.S1:Z.B(K).8.N..I.0.7.O.X.X..
B(I):.X$(X);:.I.V....K.S...Z.B(K):.I.0.S
C(T).SC(TT).....X..B(I):.X$(X);:.I:....
..".".22)"TRACK."T"..FREE="B(0).......G.
...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))./.R..S0$:..
C.... CHANGE SECTOR.W...."..............
R....S.8.Z.B(1):SS.S:.6670......S.16.Z.B
(2):SS.S.8:.6670.....Z.B(3):SS.S.16.....
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?.";:.3
10:.IN$;:.IN$.."Y"...V.^.."...CHANGING B
AM..";...H..3,8,3,"#":.63900...R..#3,BN$
:BN.F(BN$)...|.BM.BN.17.12..((BN.1).4).J
....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.2 L...J V..
"..........................RETURN. TO CO
NTINUE";:..~ X.. DISK COMMANDS.. Y.."...
............ Z..G(14).. ].."...1.:INITIA
LIZE".J ^.."..2.:VALIDATE".. _.."..3.:CH
ANGE DRIVE#..!`.."..4.:DISPLAY DIRECTORY
"..!A.."....9.:RETURN TO MENU".7!B..310:
.IN.1.IN.9.7000.G!G..".OK..":. IN .7020,
7030,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..".... "... TRAC
E BLOCKS.3"...".............^"A.."..STAR
TING TRACK,SECTOR. ....";T,S.."B..(T.1
).(T.TT).(S.0).(S.SC(T)).7110.."F. 3: 15
:.15,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":N
9.1."#P..15,"B-R";3;DR;T;S.4#Z..15,"B-P"
;3;0.N#...#3,Z$:.Z$."".Z$.G(0).D#..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$")";.N#..N9.N9.1:.7120..
# .."_ LAST BLOCK.."..#*..N9" BLOCKS.":.
300:...$L.. UNSCRATCH..$M.."..........=$
V..".WE'LL DO THE FOLLOWING:".L$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.".3%\.."..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".C%`.."
AS FOLLOWS:":.300..%T..".MODIFY THE BL
OCK SO THAT THE"..%Y..".MAGIC BYTE".(&~.
." WHICH OCCURS JUST .3. PLACES BEFORE"
.I&..." THE NAME IS AS FOLLOWS:"._&..."
129=SEQ FILE".V&..." 130=PROG FILE"..
&..." 131=USR FILE"..&..." 132=REL FIL
E".Q&...".EXAMPLE:TO UNSCRATCH A PROG FI
LE 'ABZ'"..&..."FIND IT'S NAME ON THE DI
RECTORY, AND".#'..."SELECT MENU ITEM=MOD
IFY BLOCK.".8'..."YOU WILL SEE:".H'D..".
.. 0. 0. 0. 0. 19. 3. 65. 66. 90....ETC"
..'N.." ^ ^ ^ ^ ^ ^"..'X.."
SHOULD BE .TRCK.A B Z".S'..." A 13
0 .&SEC.FILENAME(IN ASCII)"..'...300:.".
"S0$..(...".MODIFY THE BYTE WHICH IDENTI
FIES THE ".9(..."FILE TYPE..TO 130..SO I
T READS:".K(..."... 0. 0. 0. 130. 19. 3.
65. 66. 90....ETC"..(..."..4.:WRITE THE
BLOCK BACK TO THE DISK.".A(..."..5.:QUI
T AND VALIDATE THE DISK."..(..."
........"..(...".6.:PRAY..":.310..)H.
.".WANT TO TRY Y...";A$:.A$.."Y"...')R
..12000.>).. 15:.G(142):.".":..O)@.. INI
TIALIZE.`)A.."...........Q)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.Z)G..65
,17,20,24,18,30,17,35,16,0..)H..67,39,28
,53,26,64,24,77,22,0..*J.R$(0).".":R$(1)
.".".**T.SD$."...........".I*Y.MD$."....
................".M*C..".DRIVE. ....";
DR$:DR.E(DR$)..*H..15,8,15,"I".DR$:.6390
0..*R.K$." THIS BLOCK IS EMPTY ".F*|..
".WAIT...":.:WW.0:A0.1..*}..3,8,3,"$".DR
$:.63900..*~..#3,A$:A.F(A$.G(0))..+..DT
:.A.DT.8070.1+..WW.WW.1:.WW.3. .I.1.9:.D
T:.:.8063.Q+..."...***.NOT A RECOGNIZABL
E DISK.***": 3:."..WANT TO QUIT?"..+...3
10:.IN$."Y".7900..+...8110..+...DT.1.DT.
65.KK.143..+...DT.67.KK.5.C+...8200.V+..
.A1:.A1.0.8090..+...B1:.I.A0.A1:SC(I).B1
.1:.:A0.I:.8075.%,...DT.1.DT.65.D1.1:TT.
35:S2.3:DI.18.H,...DT.67.D1.257:TT.77:S2
.4:DI.39.\, .S1.S2.1:S3.S2.1.N,.. 3:.TT.
0.8065..,...I.0.7:P(I).2.I:...,..X$(0)."
Q":X$(1)."W".M,B.S0$."..................
...................."..,L.CL$."":.I.1.39
:CL$.CL$." ":...-V.S1$."^....^....^....^
....^....^....^....".F-..S2$.". .
. . . . .".Q-..S3$."0 5
10 15 20 25 30".W-.....-. .I.3
.KK:.#3,A$:.:.".";..-. .I.1.23:.#3,A$:A$
.A$.G(0):.A$;:...-. .:..Q-(#. DECIMAL_HE
X..-)#.".............--#M.E(M$):.M..0...
..2#M$.J(M$,2):M.0:LM.C(M$). .<#.CN.1.LM
.M.F#MM$.J(M$,CN,1):.9100:M.M.MM.16.(LM.
CN):..S.P#..G..#.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%:.:..%/.%.C
M%.10.MM$.G(CM%.48):..9/.%MM$.G(CM%.55):
..R/.'.SD$".......... "../.'.CRT.J,16
8: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
:..V/.'.CRT.J,172:J.J.1:.:.CRT.J.1,169..
08'.SD$"..........NOTE:.(TRACK,SECTOR) "
:...0.*:.@0.+.CRT.J,190:J.J.1:SV.C(I.2).
C(I.1).256:S$.J(D(SV),2).O0.+.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<":..K0... UNSCRATCH ROUT
INE..0..."...................0...G(142).
.1..."...THE SCRATCHED FILE NAMES WILL".
,1..."BE DISPLAYED.".R1./.".YOU MAY DECI
DE WHICH FILE YOU".J1./."WISH TO RECOVER
."..1./."...RETURN. TO CONTINUE":.310..1
&/."."..10/ 3: 15:.15,8,15.J1:/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.E2D/.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.12
200..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.P3./.".FINIS
HED 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,B
N$:BN.F(BN$)..4.0T(N9).T:S(N9).S:N9.N9.1
.'4.0.15,"B-R";3;DR;T;S.94.0.15,"B-P";3;
0.S4.0.#3,Z$:.Z$."".Z$.G(0).R4.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).N4.0."("T$","S$")";..4.0T.T(N
9):S.S(N9):N9.N9.1:.12305..4.0N9.N9.1:..
.5.0.".."N9" BLOCKS.".K5>0.N9..B0.."..**
.INCORRECT BLOCK COUNT.**..":.300:..F5H0
.".LOOKS GOOD SO FAR."..5R0.".SHALL WE P
ROCEED?":.310:.IN$.."Y"....5\0."...WE'LL
CHECK THAT THE ABOVE BLOCKS"..5F0.".ARE
FREE BY LOOKING AT THE BAM.."..6P0.".TH
E TRACK/SECTORS FOR THE FILE WILL BE".?6
Z0.".DISPLAYED. IF A BLOCK IS OCCUPIED".
I6.0.".THE UNSCRATCH WILL NOT WORK!":.30
0..6.0 15:.15,8,15,"I".DR$:.63900:.".":.
G(142):K1.1..6.0.2,8,2,"$".DR$:.63900.O6
.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.B7.0.SD$"CHECK TH
AT THE FOLLOWING ".]7.0.".SECTORS ARE FR
EE=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:...8J0K
1.K1.1:.T(K1).0.12600. 8T0.T(K1).T.12490
.+8Y0.12422.;881.".":.G(14).K8B1."NOW MO
DIFY THE .MAGIC BYTE. ON DIRECTORY"..8L1
.".TRACK"T0" SECTOR"S0..8V1.".THEN WRITE
THE BLOCK BACK TO ("T0","S0")"..8`1.".F
INALLY .VALIDATE. THE DISK!"..8J1.300:..
.8H2T.T1:S.S1..9I2.J.1.B0.99M2 3: 15:.15
,8,15:.3,8,3,"#":.63900:.#3,BN$:BN.F(BN$
).B9R2BN$.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
.J9.2.#3,Z$:.Z$."".Z$.G(0)..9.3T.F(Z$):.
T.0.7200..9.3.#3,Z$:.Z$."".Z$.G(0)..:.3S
.F(Z$).$:"3T$.J(D(T),2):S$.J(D(S),2).8:,
3."("T$","S$")";.>:63..T:@3."_ LAST BLOC
K..".K:J3.N9" BLOCKS.":.300..:.3BN$.J(BN
$,2):BM.BN.17.12..((BN.1).4)..:.3.:."("T
","S")_ FIRST BLOCK":N9.1.L:...15,E,E$,E
1,E2..:...E..0..:."**.DISK ERROR.**"E,E$
,E1,E2..:.........C
> CLICK IMAGE PREVIEW FOR FULL MODAL