_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

DIR. REPAIR

FILE INFORMATION

FILENAME(S): DIR. REPAIR

FILE TYPE(S): PRG

FILE SIZE: 9.9K

FIRST SEEN: 2025-11-30 16:59:27

APPEARS ON: 1 disk(s)

FILE HASH

ce7e2f73a01ad770e2e61c71417a322cc320178a3b2120f9ea04483c6f28f39e

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
BACKUP 01 B DIR. REPAIR PRG High Voltage Complete C64 Collection 23 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 27 08 64 00 8F 20  21 2D 2D 2D 2D 2D 2D 2D  |..'.d.. !-------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000020: 2D 2D 2D 2D 2D 2D 21 00  4D 08 6E 00 8F 20 21 20  |------!.M.n.. ! |
00000030: 41 52 56 45 45 27 53 20  44 49 52 45 43 54 4F 52  |ARVEE'S DIRECTOR|
00000040: 59 20 52 45 50 41 49 52  4D 41 4E 20 21 00 73 08  |Y REPAIRMAN !.s.|
00000050: 78 00 8F 20 21 20 20 20  20 20 20 20 20 20 20 20  |x.. !           |
00000060: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000070: 20 20 21 00 99 08 82 00  8F 20 21 20 20 20 20 43  |  !...... !    C|
00000080: 2D 31 39 38 37 20 20 57  48 49 54 41 4B 45 52 20  |-1987  WHITAKER |
00000090: 4C 41 42 53 20 20 20 20  21 00 BF 08 8C 00 8F 20  |LABS    !...... |
000000A0: 21 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |!               |
000000B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 21 00  |              !.|
000000C0: E5 08 96 00 8F 20 21 20  20 42 52 4F 55 47 48 54  |..... !  BROUGHT|
000000D0: 20 54 4F 20 59 4F 55 20  42 59 20 53 43 4F 52 4D  | TO YOU BY SCORM|
000000E0: 55 53 20 20 21 00 0B 09  A0 00 8F 20 21 2D 2D 2D  |US  !...... !---|
000000F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000100: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 21 00 11 09 AA 00  |----------!.....|
00000110: 3A 00 2F 09 B4 00 8F 20  50 52 4F 54 45 43 54 20  |:./.... PROTECT |
00000120: 47 45 4F 53 20 46 52 4F  4D 20 42 41 53 49 43 00  |GEOS FROM BASIC.|
00000130: 48 09 BE 00 8B C2 28 35  36 29 B1 31 32 36 A7 97  |H.....(56).126..|
00000140: 35 36 2C 31 32 36 3A 9C  00 4E 09 C8 00 3A 00 74  |56,126:..N...:.t|
00000150: 09 D2 00 8F 20 44 49 4D  53 20 46 4C 47 53 20 56  |.... DIMS FLGS V|
00000160: 41 52 53 20 43 4F 4E 53  54 4E 54 53 20 53 54 52  |ARS CONSTNTS STR|
00000170: 49 4E 47 53 00 85 09 DC  00 8F 20 44 49 4D 45 4E  |INGS...... DIMEN|
00000180: 53 49 4F 4E 53 00 A7 09  E6 00 86 20 42 46 28 32  |SIONS...... BF(2|
00000190: 33 29 3A 8F 20 42 4C 4B  53 20 46 52 45 45 20 43  |3):. BLKS FREE C|
000001A0: 4F 4D 50 55 54 45 44 00  C8 09 F0 00 86 20 42 44  |OMPUTED...... BD|
000001B0: 28 32 30 29 3A 8F 20 44  49 52 20 42 4C 4B 53 20  |(20):. DIR BLKS |
000001C0: 46 4F 4C 4C 4F 57 45 44  00 DC 09 FA 00 86 20 4D  |FOLLOWED...... M|
000001D0: 24 28 31 31 29 3A 8F 20  4D 53 47 53 00 F6 09 04  |$(11):. MSGS....|
000001E0: 01 86 20 46 24 28 37 29  20 3A 8F 20 46 49 4C 45  |.. F$(7) :. FILE|
000001F0: 20 4E 41 4D 45 53 00 1A  0A 0E 01 86 20 42 4D 28  | NAMES...... BM(|
00000200: 32 29 20 3A 8F 20 42 41  4D 20 54 45 4D 50 20 30  |2) :. BAM TEMP 0|
00000210: 2D 37 2F 38 2D 46 2F 31  30 2B 00 20 0A 18 01 3A  |-7/8-F/10+. ...:|
00000220: 00 2C 0A 22 01 8F 20 46  4C 41 47 53 00 4B 0A 2C  |.,.".. FLAGS.K.,|
00000230: 01 50 45 B2 30 3A 8F 20  50 52 4E 54 20 45 52 52  |.PE.0:. PRNT ERR|
00000240: 20 43 48 4E 20 31 3D 50  52 4E 54 00 64 0A 36 01  | CHN 1=PRNT.d.6.|
00000250: 49 53 B2 30 3A 8F 20 49  4C 4C 45 47 41 4C 20 53  |IS.0:. ILLEGAL S|
00000260: 45 43 54 52 00 7D 0A 40  01 42 44 B2 30 3A 8F 20  |ECTR.}.@.BD.0:. |
00000270: 42 41 44 20 44 49 52 45  43 54 4F 52 59 00 92 0A  |BAD DIRECTORY...|
00000280: 4A 01 42 42 B2 30 3A 8F  20 42 41 44 20 42 4C 4F  |J.BB.0:. BAD BLO|
00000290: 43 4B 00 A9 0A 54 01 42  50 B2 30 3A 8F 20 42 41  |CK...T.BP.0:. BA|
000002A0: 44 20 50 4F 49 4E 54 45  52 00 C2 0A 5E 01 4E 46  |D POINTER...^.NF|
000002B0: B2 30 3A 8F 20 44 49 52  20 4E 4F 54 20 46 49 58  |.0:. DIR NOT FIX|
000002C0: 45 44 00 D7 0A 68 01 42  54 B2 30 3A 8F 20 4F 46  |ED...h.BT.0:. OF|
000002D0: 46 20 54 52 20 31 38 00  DD 0A 72 01 3A 00 ED 0A  |F TR 18...r.:...|
000002E0: 7C 01 8F 20 56 41 52 49  41 42 4C 45 53 00 09 0B  ||.. VARIABLES...|
000002F0: 86 01 58 B2 30 3A 59 B2  30 3A 54 B2 30 3A 8F 20  |..X.0:Y.0:T.0:. |
00000300: 4C 4F 4F 50 20 56 41 52  53 00 28 0B 90 01 54 52  |LOOP VARS.(...TR|
00000310: B2 31 38 3A 53 45 B2 30  3A 8F 20 44 45 46 41 55  |.18:SE.0:. DEFAU|
00000320: 4C 54 20 54 52 2F 53 45  00 48 0B 9A 01 54 56 B2  |LT TR/SE.H...TV.|
00000330: 31 38 3A 53 56 B2 30 3A  8F 20 54 52 2F 53 45 20  |18:SV.0:. TR/SE |
00000340: 50 4E 54 52 20 56 41 4C  00 6F 0B A4 01 41 4C B2  |PNTR VAL.o...AL.|
00000350: 35 35 35 33 37 20 3A 8F  20 43 4F 4C 4F 52 20 50  |55537 :. COLOR P|
00000360: 4F 4B 45 20 50 53 45 55  44 4F 20 42 41 53 45 00  |OKE PSEUDO BASE.|
00000370: 96 0B AE 01 4D 20 B2 30  3A 44 B2 30 20 3A 8F 20  |....M .0:D.0 :. |
00000380: 4D 45 53 53 41 47 45 20  23 2F 23 20 4C 49 4E 45  |MESSAGE #/# LINE|
00000390: 53 20 44 4F 57 4E 00 BC  0B B8 01 43 46 B2 30 3A  |S DOWN.....CF.0:|
000003A0: 42 4C B2 30 3A 8F 20 43  4F 4D 50 2F 41 43 54 55  |BL.0:. COMP/ACTU|
000003B0: 41 4C 20 42 4C 4B 53 20  46 52 45 45 00 D9 0B C2  |AL BLKS FREE....|
000003C0: 01 4E 44 B2 30 3A 45 B2  30 20 3A 8F 20 4E 45 57  |.ND.0:E.0 :. NEW|
000003D0: 20 44 4F 53 20 56 45 52  53 00 FC 0B CC 01 43 54  | DOS VERS.....CT|
000003E0: B2 30 20 20 20 20 20 3A  8F 20 23 20 4F 46 20 4D  |.0     :. # OF M|
000003F0: 49 53 41 4C 4C 4F 43 20  42 4C 4B 53 00 1B 0C D6  |ISALLOC BLKS....|
00000400: 01 50 20 B2 30 20 20 20  20 20 3A 8F 20 42 55 46  |.P .0     :. BUF|
00000410: 46 45 52 20 50 4F 49 4E  54 45 52 00 21 0C E0 01  |FER POINTER.!...|
00000420: 3A 00 2F 0C EA 01 8F 20  53 54 52 49 4E 47 53 00  |:./.... STRINGS.|
00000430: 55 0C F4 01 41 24 B2 22  22 3A 42 24 B2 22 22 3A  |U...A$."":B$."":|
00000440: 43 24 B2 22 22 3A 44 24  B2 22 22 3A 8F 20 54 4D  |C$."":D$."":. TM|
00000450: 50 20 53 54 52 00 70 0C  FE 01 57 50 24 B2 22 22  |P STR.p...WP$.""|
00000460: 3A 8F 20 57 52 49 54 45  20 50 52 4F 54 45 43 54  |:. WRITE PROTECT|
00000470: 00 84 0C 08 02 4E 4C 24  B2 C7 28 30 29 3A 8F 20  |.....NL$..(0):. |
00000480: 4E 55 4C 4C 00 A1 0C 12  02 4C 24 B2 22 C0 C0 C0  |NULL.....L$."...|
00000490: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000004A0: 22 00 BF 0C 1C 02 4C 32  24 B2 22 1F 20 C0 C0 C0  |".....L2$.". ...|
000004B0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 22 00  |..............".|
000004C0: DD 0C 26 02 52 31 24 B2  22 1C 1D 1D 1D 1D 1D 1D  |..&.R1$.".......|
000004D0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 22 00 02 0D  |............"...|
000004E0: 30 02 52 32 24 B2 22 9C  1D 1D 1D 1D 1D 1D 1D 1D  |0.R2$.".........|
000004F0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
00000500: 1D 22 00 08 0D 3A 02 3A  00 26 0D 44 02 8F 20 47  |."...:.:.&.D.. G|
00000510: 45 4F 53 20 53 50 45 43  49 46 49 43 20 43 4F 4E  |EOS SPECIFIC CON|
00000520: 53 54 41 4E 54 53 00 4C  0D 4E 02 44 41 B2 33 33  |STANTS.L.N.DA.33|
00000530: 39 33 38 3A 8F 20 44 49  53 4B 20 54 55 52 42 4F  |938:. DISK TURBO|
00000540: 20 46 4C 47 20 44 52 49  56 45 20 41 00 72 0D 58  | FLG DRIVE A.r.X|
00000550: 02 44 42 B2 33 33 39 33  39 3A 8F 20 44 49 53 4B  |.DB.33939:. DISK|
00000560: 20 54 55 52 42 4F 20 46  4C 47 20 44 52 49 56 45  | TURBO FLG DRIVE|
00000570: 20 42 00 94 0D 62 02 56  32 B2 34 39 38 39 33 3A  | B...b.V2.49893:|
00000580: 8F 20 56 45 52 53 20 31  2E 32 20 53 45 54 55 50  |. VERS 1.2 SETUP|
00000590: 20 53 59 53 00 B6 0D 6C  02 56 33 B2 34 39 37 30  | SYS...l.V3.4970|
000005A0: 38 3A 8F 20 56 45 52 53  20 31 2E 32 2F 33 20 52  |8:. VERS 1.2/3 R|
000005B0: 45 53 54 41 52 54 00 DC  0D 76 02 56 4C B2 34 39  |ESTART...v.VL.49|
000005C0: 31 35 38 3A 8F 20 47 45  4F 53 20 42 4F 4F 54 20  |158:. GEOS BOOT |
000005D0: 26 20 56 45 52 53 20 23  20 4C 4F 43 00 FD 0D 80  |& VERS # LOC....|
000005E0: 02 81 58 B2 30 A4 38 3A  8F 20 43 48 45 43 4B 20  |..X.0.8:. CHECK |
000005F0: 46 4F 52 20 47 45 4F 53  A4 42 4F 4F 54 00 1D 0E  |FOR GEOS.BOOT...|
00000600: 8A 02 47 42 24 B2 47 42  24 AA C7 28 C2 28 56 4C  |..GB$.GB$..(.(VL|
00000610: AA 58 29 29 3A 8F 20 53  54 52 49 4E 47 00 3E 0E  |.X)):. STRING.>.|
00000620: 94 02 82 3A 8F 20 46 4F  52 20 50 4F 53 53 20 44  |...:. FOR POSS D|
00000630: 45 53 4B 54 4F 50 20 52  45 45 4E 54 52 59 00 5B  |ESKTOP REENTRY.[|
00000640: 0E 9E 02 56 45 B2 C2 28  56 4C AA 58 29 3A 8F 20  |...VE..(VL.X):. |
00000650: 47 45 4F 53 20 56 45 52  53 20 23 00 61 0E A8 02  |GEOS VERS #.a...|
00000660: 3A 00 70 0E B2 02 8F 20  4D 45 53 53 41 47 45 53  |:.p.... MESSAGES|
00000670: 00 9E 0E BC 02 4D 24 28  30 29 B2 22 9A 1D 1D 1D  |.....M$(0)."....|
00000680: 1D 1D 1D 1D 1D 3C 3C 20  D0 52 45 53 53 20 CB 45  |.....<< .RESS .E|
00000690: 59 20 C6 4F 52 20 CD 45  4E 55 A0 3E 3E 22 00 CB  |Y .OR .ENU.>>"..|
000006A0: 0E C6 02 4D 24 28 31 29  B2 22 9A 1D 1D 1D 1D 1D  |...M$(1)."......|
000006B0: 1D 1D 1D 3C 3C 20 D0 52  45 53 53 20 CB 45 59 20  |...<< .RESS .EY |
000006C0: D4 4F 20 C2 4F 4F 54 20  3E 3E 22 00 00 0F D0 02  |.O .OOT >>".....|
000006D0: 4D 24 28 32 29 B2 22 96  1D 3C 3C 20 D7 C1 D2 CE  |M$(2)."..<< ....|
000006E0: C9 CE C7 A0 21 21 21 A0  A0 CD C9 D3 C1 CC CC CF  |....!!!.........|
000006F0: C3 C1 D4 C5 C4 20 C2 CC  CF C3 CB D3 20 3E 3E 22  |..... ...... >>"|
00000700: 00 33 0F DA 02 4D 24 28  33 29 B2 22 1D 1D 3C 3C  |.3...M$(3)."..<<|
00000710: 20 CF 50 45 52 41 54 49  4F 4E 20 C1 42 4F 52 54  | .PERATION .BORT|
00000720: 45 44 20 2E 2E 20 C8 49  54 20 41 20 CB 45 59 20  |ED .. .IT A .EY |
00000730: 3E 3E 22 00 65 0F E4 02  4D 24 28 34 29 B2 22 1C  |>>".e...M$(4).".|
00000740: 1D 1D 1D 1D 3C 3C 20 D7  C1 D2 CE C9 CE C7 20 21  |....<< ....... !|
00000750: 21 21 20 20 C2 C1 C4 A0  C4 C9 D2 C5 C3 D4 CF D2  |!!  ............|
00000760: D9 20 3E 3E 22 00 96 0F  EE 02 4D 24 28 35 29 B2  |. >>".....M$(5).|
00000770: 22 96 1D 1D 1D 1D 1D 3C  3C 20 D7 C1 D2 CE C9 CE  |"......<< ......|
00000780: C7 20 21 21 21 20 20 C2  C1 C4 A0 C5 CE C4 A0 D0  |. !!!  .........|
00000790: D4 D2 20 3E 3E 22 00 C8  0F F8 02 4D 24 28 36 29  |.. >>".....M$(6)|
000007A0: B2 22 1D 1D 1D 1D 1D 1D  3C 3C 20 CF 50 45 52 41  |."......<< .PERA|
000007B0: 54 49 4F 4E 20 C6 41 49  4C 45 44 20 2E 2E 20 D2  |TION .AILED .. .|
000007C0: 45 54 52 59 20 3E 3E 22  00 F0 0F 02 03 4D 24 28  |ETRY >>".....M$(|
000007D0: 37 29 B2 22 9A 1D 1D 1D  3C 3C 20 D0 52 45 53 53  |7)."....<< .RESS|
000007E0: 20 CB 45 59 20 46 4F 52  20 CD 45 4E 55 20 3E 3E  | .EY FOR .ENU >>|
000007F0: 00 1C 10 0C 03 4D 24 28  38 29 B2 22 9A 1D 1D 1D  |.....M$(8)."....|
00000800: 1D 1D 1D 1D 1D 3C 3C 20  D7 D0 20 D3 54 41 54 55  |.....<< .. .TATU|
00000810: 53 20 C3 48 41 4E 47 45  44 20 3E 3E 00 51 10 16  |S .HANGED >>.Q..|
00000820: 03 4D 24 28 39 29 B2 22  1C 1D 3C 3C 20 C9 CC CC  |.M$(9)."..<< ...|
00000830: C5 C7 C1 CC 20 CF C6 C6  20 D0 C1 C7 C5 20 C4 C9  |.... ... .... ..|
00000840: D2 C5 C3 D4 CF D2 D9 20  C2 CC CF C3 CB 20 3E 3E  |....... ..... >>|
00000850: 22 00 86 10 20 03 4D 24  28 31 30 29 B2 22 96 1D  |"... .M$(10)."..|
00000860: 1D 3C 3C 20 C4 C5 D3 CB  D4 CF D0 A0 C2 CF D2 C4  |.<< ............|
00000870: C5 D2 20 C8 C1 D3 A0 C2  C5 C5 CE A0 C5 D2 C1 D3  |.. .............|
00000880: C5 C4 20 3E 3E 22 00 BC  10 2A 03 4D 24 28 31 31  |.. >>"...*.M$(11|
00000890: 29 B2 22 1C 1D 3C 3C 20  D7 C1 D2 CE C9 CE C7 20  |)."..<< ....... |
000008A0: 21 21 21 20 C4 C9 D2 C5  C3 D4 CF D2 D9 A0 CF C6  |!!! ............|
000008B0: C6 A0 D4 D2 CB A0 31 38  20 3E 3E 22 00 C2 10 34  |......18 >>"...4|
000008C0: 03 3A 00 E5 10 3E 03 8F  20 54 49 54 4C 45 20 53  |.:...>.. TITLE S|
000008D0: 43 52 45 45 4E 20 26 20  47 45 54 20 52 4F 55 54  |CREEN & GET ROUT|
000008E0: 49 4E 45 20 23 00 01 11  48 03 97 35 33 32 38 30  |INE #...H..53280|
000008F0: 2C 31 31 3A 8F 20 47 52  45 59 20 42 4F 52 44 45  |,11:. GREY BORDE|
00000900: 52 00 1E 11 52 03 97 35  33 32 38 31 2C 20 30 3A  |R...R..53281, 0:|
00000910: 8F 20 42 4C 41 43 4B 20  53 43 52 45 45 4E 00 24  |. BLACK SCREEN.$|
00000920: 11 5C 03 3A 00 4F 11 66  03 99 22 93 92 1C 0E 11  |.\.:.O.f..".....|
00000930: 20 20 20 20 20 20 20 20  B0 C0 C0 C0 C0 C0 C0 C0  |        ........|
00000940: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 AE 00  |................|
00000950: 77 11 70 03 99 22 20 20  20 20 20 20 20 20 DD 20  |w.p.."        . |
00000960: 9C C4 C9 D2 C5 C3 D4 CF  D2 D9 A0 D2 C5 D0 C1 C9  |................|
00000970: D2 CD C1 CE 20 1C DD 00  9D 11 7A 03 99 22 20 20  |.... .....z.."  |
00000980: 20 20 20 20 20 20 AD C0  C0 C0 C0 C0 C0 C0 C0 C0  |      ..........|
00000990: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 BD 00 C6 11  |................|
000009A0: 84 03 99 22 11 20 20 20  20 20 20 20 20 20 97 28  |...".         .(|
000009B0: 9E D7 97 29 9A 52 49 54  45 20 D0 52 4F 54 45 43  |...).RITE .ROTEC|
000009C0: 54 20 C4 49 53 4B 00 ED  11 8E 03 99 22 11 20 20  |T .ISK......".  |
000009D0: 20 20 20 20 20 20 20 97  28 9E D5 97 29 9A 4E 20  |       .(...).N |
000009E0: D7 52 49 54 45 20 D0 52  4F 54 45 43 54 00 14 12  |.RITE .ROTECT...|
000009F0: 98 03 99 22 11 20 20 20  20 20 20 20 20 20 97 28  |...".         .(|
00000A00: 9E C4 97 29 9A 45 53 4B  20 C2 4F 52 44 45 52 20  |...).ESK .ORDER |
00000A10: C9 4E 46 4F 00 3B 12 A2  03 99 22 11 20 20 20 20  |.NFO.;....".    |
00000A20: 20 20 20 20 20 97 28 9E  C1 97 29 9A 4E 41 4C 59  |     .(...).NALY|
00000A30: 5A 45 20 D4 52 41 43 4B  20 31 38 00 62 12 AC 03  |ZE .RACK 18.b...|
00000A40: 99 22 11 20 20 20 20 20  20 20 20 20 97 28 9E D2  |.".         .(..|
00000A50: 97 29 9A 45 50 41 49 52  20 C4 49 52 45 43 54 4F  |.).EPAIR .IRECTO|
00000A60: 52 59 00 89 12 B6 03 99  22 11 20 20 20 20 20 20  |RY......".      |
00000A70: 20 20 20 20 20 20 20 1E  C1 4C 4C 4F 43 41 54 45  |       ..LLOCATE|
00000A80: 20 54 52 41 43 4B 20 31  38 00 AD 12 C0 03 99 22  | TRACK 18......"|
00000A90: 20 20 20 20 20 20 20 20  20 20 20 20 20 C6 4F 4C  |             .OL|
00000AA0: 4C 4F 57 20 44 49 52 20  43 48 41 49 4E 00 D1 12  |LOW DIR CHAIN...|
00000AB0: CA 03 99 22 20 20 20 20  20 20 20 20 20 20 20 20  |..."            |
00000AC0: 20 C6 49 58 20 4C 41 53  54 20 50 4F 49 4E 54 45  | .IX LAST POINTE|
00000AD0: 52 00 F5 12 D4 03 99 22  20 20 20 20 20 20 20 20  |R......"        |
00000AE0: 20 20 20 20 20 C6 52 45  45 20 55 4E 55 53 45 44  |     .REE UNUSED|
00000AF0: 20 42 4C 4B 53 00 11 13  DE 03 99 22 11 20 20 20  | BLKS......".   |
00000B00: 20 20 20 20 20 20 97 28  9E C2 97 29 9A 41 53 49  |      .(...).ASI|
00000B10: 43 00 2C 13 E8 03 99 22  11 20 20 20 20 20 20 20  |C.,....".       |
00000B20: 20 20 97 28 9E C7 97 29  9A C5 CF D3 00 32 13 F2  |  .(...).....2..|
00000B30: 03 3A 00 48 13 FC 03 97  31 39 38 2C 30 3A 92 31  |.:.H....198,0:.1|
00000B40: 39 38 2C 31 3A A1 41 24  00 66 13 06 04 8B 41 24  |98,1:.A$.f....A$|
00000B50: B2 22 44 22 A7 20 33 37  35 30 3A 8F 20 47 45 4F  |."D". 3750:. GEO|
00000B60: 53 20 49 4E 46 4F 00 82  13 10 04 8B 41 24 B2 22  |S INFO......A$."|
00000B70: 41 22 A7 20 32 30 34 30  3A 8F 20 41 4E 41 4C 59  |A". 2040:. ANALY|
00000B80: 5A 45 00 9D 13 1A 04 8B  41 24 B2 22 52 22 A7 20  |ZE......A$."R". |
00000B90: 32 39 31 30 3A 8F 20 52  45 50 41 49 52 00 BC 13  |2910:. REPAIR...|
00000BA0: 24 04 8B 41 24 B2 22 57  22 A7 20 33 35 30 30 3A  |$..A$."W". 3500:|
00000BB0: 8F 20 57 52 49 54 45 20  50 52 4F 54 00 D6 13 2E  |. WRITE PROT....|
00000BC0: 04 8B 41 24 B2 22 55 22  A7 20 33 35 31 30 3A 8F  |..A$."U". 3510:.|
00000BD0: 20 55 4E 20 57 50 00 ED  13 38 04 8B 41 24 B2 22  | UN WP...8..A$."|
00000BE0: 42 22 A7 20 99 22 91 91  91 9A 22 3A 80 00 09 14  |B". ."....":....|
00000BF0: 42 04 8B 41 24 B2 22 47  22 A7 20 31 31 31 30 3A  |B..A$."G". 1110:|
00000C00: 8F 20 47 4F 20 47 45 4F  53 00 13 14 4C 04 89 31  |. GO GEOS...L..1|
00000C10: 30 32 30 00 2D 14 56 04  8F 20 47 45 4F 53 20 44  |020.-.V.. GEOS D|
00000C20: 45 53 4B 54 4F 50 20 52  45 54 55 52 4E 00 4B 14  |ESKTOP RETURN.K.|
00000C30: 60 04 8B 20 47 42 24 B3  B1 22 47 45 4F 53 20 42  |`.. GB$.."GEOS B|
00000C40: 4F 4F 54 22 20 A7 20 31  31 37 30 00 69 14 6A 04  |OOT" . 1170.i.j.|
00000C50: 97 20 44 41 2C 30 3A 97  20 44 42 2C 30 3A 8F 20  |. DA,0:. DB,0:. |
00000C60: 54 55 52 42 4F 20 4F 46  46 00 81 14 74 04 8B 20  |TURBO OFF...t.. |
00000C70: 56 45 B2 31 38 20 A7 20  9E 20 56 32 3A 9E 20 56  |VE.18 . . V2:. V|
00000C80: 33 00 94 14 7E 04 8B 20  56 45 B2 31 39 20 A7 20  |3...~.. VE.19 . |
00000C90: 9E 20 56 33 00 A4 14 88  04 8F 20 42 4F 4F 54 20  |. V3...... BOOT |
00000CA0: 47 45 4F 53 00 D6 14 92  04 99 22 93 11 11 11 11  |GEOS......".....|
00000CB0: 11 11 11 11 1C 20 20 20  20 20 20 20 B0 C0 C0 C0  |.....       ....|
00000CC0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000CD0: C0 C0 C0 C0 AE 22 00 02  15 9C 04 99 20 20 22 20  |....."......  " |
00000CE0: 20 20 20 20 20 20 DD 20  9C C9 CE D3 C5 D2 D4 A0  |      . ........|
00000CF0: C7 C5 CF D3 A0 C2 CF CF  D4 A0 C4 C9 D3 CB 20 1C  |.............. .|
00000D00: DD 22 00 2E 15 A6 04 99  20 20 22 20 20 20 20 20  |."......  "     |
00000D10: 20 20 AD C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |  ..............|
00000D20: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 BD 11 9A 22 00 41  |.............".A|
00000D30: 15 B0 04 4D B2 31 3A 44  B2 31 35 3A 8D 31 32 36  |...M.1:D.15:.126|
00000D40: 30 00 64 15 BA 04 99 22  93 4C 4F 41 44 22 C7 28  |0.d....".LOAD".(|
00000D50: 33 34 29 22 47 45 4F 53  22 C7 28 33 34 29 22 2C  |34)"GEOS".(34)",|
00000D60: 38 2C 31 22 00 73 15 C4  04 99 20 22 11 11 11 11  |8,1".s.... "....|
00000D70: 52 55 4E 00 98 15 CE 04  97 31 39 38 2C 33 3A 97  |RUN......198,3:.|
00000D80: 36 33 31 2C 31 39 3A 97  36 33 32 2C 31 33 3A 97  |631,19:.632,13:.|
00000D90: 36 33 33 2C 31 33 3A 90  00 9E 15 D8 04 3A 00 BD  |633,13:......:..|
00000DA0: 15 E2 04 8F 20 46 4C 41  53 48 20 4D 45 53 53 41  |.... FLASH MESSA|
00000DB0: 47 45 20 23 20 4D 20 44  4F 57 4E 20 44 00 D6 15  |GE # M DOWN D...|
00000DC0: EC 04 99 22 13 22 3B 3A  81 58 B2 30 A4 44 3A 99  |...".";:.X.0.D:.|
00000DD0: 22 11 22 3B 3A 82 00 E1  15 F6 04 97 31 39 38 2C  |".";:.......198,|
00000DE0: 30 00 EC 15 00 05 81 58  B2 31 A4 32 00 F6 15 0A  |0......X.1.2....|
00000DF0: 05 99 22 92 91 22 00 05  16 14 05 8B 58 B2 32 A7  |..".."......X.2.|
00000E00: 99 22 12 22 3B 00 12 16  1E 05 99 20 4D 24 28 4D  |.".";...... M$(M|
00000E10: 29 3B 00 23 16 28 05 81  59 B2 31 A4 31 30 30 3A  |);.#.(..Y.1.100:|
00000E20: A1 41 24 00 3A 16 32 05  8B 20 41 24 B2 22 22 A7  |.A$.:.2.. A$."".|
00000E30: 20 82 3A 82 3A 89 31 32  38 30 00 4A 16 3C 05 8B  | .:.:.1280.J.<..|
00000E40: 20 41 24 B2 22 5F 22 A7  20 8A 00 56 16 46 05 99  | A$."_". ..V.F..|
00000E50: 22 92 22 3B 3A 8E 00 5C  16 50 05 3A 00 71 16 5A  |".";:..\.P.:.q.Z|
00000E60: 05 8F 20 43 48 45 43 4B  20 44 45 56 20 50 52 45  |.. CHECK DEV PRE|
00000E70: 53 00 86 16 64 05 A0 31  35 3A 9F 31 35 2C 38 2C  |S...d..15:.15,8,|
00000E80: 31 35 3A A0 31 35 00 97  16 6E 05 8B 20 53 54 20  |15:.15...n.. ST |
00000E90: B2 20 30 20 A7 20 8E 00  B9 16 78 05 99 22 20 C4  |. 0 . ....x.." .|
00000EA0: 45 56 49 43 45 20 CE 4F  54 20 D0 52 45 53 45 4E  |EVICE .OT .RESEN|
00000EB0: 54 11 11 11 11 11 11 11  22 00 CE 16 82 05 4D B2  |T.......".....M.|
00000EC0: 33 3A 44 B2 32 33 3A 8D  31 32 36 30 3A 8A 00 D4  |3:D.23:.1260:...|
00000ED0: 16 8C 05 3A 00 E5 16 96  05 8F 20 49 4E 49 54 49  |...:...... INITI|
00000EE0: 41 4C 49 5A 45 00 00 17  A0 05 8D 31 36 36 30 3A  |ALIZE......1660:|
00000EF0: 9F 31 35 2C 38 2C 31 35  2C 22 49 30 3A 22 3A 8E  |.15,8,15,"I0:":.|
00000F00: 00 06 17 AA 05 3A 00 20  17 B4 05 8F 20 43 48 45  |.....:. .... CHE|
00000F10: 43 4B 20 45 52 52 4F 52  20 43 48 41 4E 4E 45 4C  |CK ERROR CHANNEL|
00000F20: 00 40 17 BE 05 8F 20 43  4C 4F 53 45 20 41 4C 4C  |.@.... CLOSE ALL|
00000F30: 2F 4F 50 45 4E 2F 52 45  41 44 2F 50 52 49 4E 54  |/OPEN/READ/PRINT|
00000F40: 00 53 17 C8 05 8D 31 36  36 30 3A 9F 31 35 2C 38  |.S....1660:.15,8|
00000F50: 2C 31 35 00 64 17 D2 05  8F 20 52 45 41 44 2F 50  |,15.d.... READ/P|
00000F60: 52 49 4E 54 00 78 17 DC  05 50 45 B2 31 3A 8F 20  |RINT.x...PE.1:. |
00000F70: 50 52 4E 54 20 46 4C 47  00 88 17 E6 05 8F 20 52  |PRNT FLG...... R|
00000F80: 45 41 44 20 4F 4E 4C 59  00 A0 17 F0 05 84 31 35  |EAD ONLY......15|
00000F90: 2C 45 4E 24 2C 45 4D 24  2C 45 54 24 2C 45 53 24  |,EN$,EM$,ET$,ES$|
00000FA0: 00 BF 17 FA 05 8B 45 4E  24 B3 B1 22 30 30 22 A7  |......EN$.."00".|
00000FB0: 99 3A 99 22 11 11 1D 1D  1D 1D 1D 1D 1D 22 3B 00  |.:.".........";.|
00000FC0: E7 17 04 06 8B 20 50 45  B2 31 20 A7 99 45 4E 24  |..... PE.1 ..EN$|
00000FD0: 22 2C 22 45 4D 24 22 2C  22 45 54 24 22 2C 22 45  |","EM$","ET$","E|
00000FE0: 53 24 3A 50 45 B2 30 00  F9 17 0E 06 8B 20 45 4E  |S$:PE.0...... EN|
00000FF0: 24 B2 22 30 30 22 A7 20  8E 00 03 18 18 06 89 31  |$."00". .......1|
00001000: 34 31 30 00 09 18 22 06  3A 00 1B 18 2C 06 8F 20  |410...".:...,.. |
00001010: 49 4E 49 54 20 46 4F 52  20 49 4F 00 3A 18 36 06  |INIT FOR IO.:.6.|
00001020: 8D 31 33 38 30 3A 8F 20  43 48 4B 20 44 45 56 49  |.1380:. CHK DEVI|
00001030: 43 45 20 50 52 45 53 45  4E 54 00 57 18 40 06 8D  |CE PRESENT.W.@..|
00001040: 31 34 34 30 3A 8F 20 49  4E 49 54 49 41 4C 49 5A  |1440:. INITIALIZ|
00001050: 45 20 44 52 49 56 45 00  6C 18 4A 06 8D 31 35 32  |E DRIVE.l.J..152|
00001060: 30 3A 8F 20 52 45 41 44  20 45 52 52 00 8A 18 54  |0:. READ ERR...T|
00001070: 06 8D 31 36 39 30 3A 8F  20 41 4C 4C 4F 43 20 44  |..1690:. ALLOC D|
00001080: 49 53 4B 20 42 55 46 46  45 52 00 90 18 5E 06 8E  |ISK BUFFER...^..|
00001090: 00 96 18 68 06 3A 00 A9  18 72 06 8F 20 44 4F 4E  |...h.:...r.. DON|
000010A0: 45 20 57 49 54 48 20 49  4F 00 BC 18 7C 06 81 58  |E WITH IO...|..X|
000010B0: B2 31 A4 31 35 3A A0 58  3A 82 3A 8E 00 C2 18 86  |.1.15:.X:.:.....|
000010C0: 06 3A 00 DF 18 90 06 8F  20 41 4C 4C 4F 43 41 54  |.:...... ALLOCAT|
000010D0: 45 20 41 20 44 49 53 4B  20 42 55 46 46 45 52 00  |E A DISK BUFFER.|
000010E0: F0 18 9A 06 9F 32 2C 38  2C 32 2C 22 23 22 3A 8E  |.....2,8,2,"#":.|
000010F0: 00 F6 18 A4 06 3A 00 09  19 AE 06 8F 20 52 45 41  |.....:...... REA|
00001100: 44 20 20 42 55 46 46 45  52 00 22 19 B8 06 98 31  |D  BUFFER."....1|
00001110: 35 2C 22 55 31 22 3B 32  3B 30 3B 54 52 3B 53 45  |5,"U1";2;0;TR;SE|
00001120: 3A 8E 00 28 19 C2 06 3A  00 3B 19 CC 06 8F 20 57  |:..(...:.;.... W|
00001130: 52 49 54 45 20 42 55 46  46 45 52 00 54 19 D6 06  |RITE BUFFER.T...|
00001140: 98 31 35 2C 22 55 32 22  3B 32 3B 30 3B 54 52 3B  |.15,"U2";2;0;TR;|
00001150: 53 45 3A 8E 00 5A 19 E0  06 3A 00 6F 19 EA 06 8F  |SE:..Z...:.o....|
00001160: 20 42 55 46 46 45 52 20  50 4F 49 4E 54 45 52 00  | BUFFER POINTER.|
00001170: 83 19 F4 06 98 31 35 2C  22 42 2D 50 22 3B 32 3B  |.....15,"B-P";2;|
00001180: 50 3A 8E 00 89 19 FE 06  3A 00 A8 19 08 07 8F 20  |P:......:...... |
00001190: 43 48 45 43 4B 20 49 46  20 53 45 43 54 4F 52 20  |CHECK IF SECTOR |
000011A0: 49 53 20 4C 45 47 41 4C  00 C0 19 12 07 49 53 B2  |IS LEGAL.....IS.|
000011B0: 30 3A 8F 20 53 45 43 54  4F 52 20 49 53 20 4F 4B  |0:. SECTOR IS OK|
000011C0: 00 D2 19 1C 07 8B 20 53  45 B3 30 20 A7 20 31 38  |...... SE.0 . 18|
000011D0: 38 30 00 E4 19 26 07 8B  20 54 52 B3 30 20 A7 20  |80...&.. TR.0 . |
000011E0: 31 38 38 30 00 FE 19 30  07 8B 20 54 52 B3 31 38  |1880...0.. TR.18|
000011F0: 20 A7 20 8B 20 53 45 B3  32 31 20 A7 20 8E 00 18  | . . SE.21 . ...|
00001200: 1A 3A 07 8B 20 54 52 B3  32 35 20 A7 20 8B 20 53  |.:.. TR.25 . . S|
00001210: 45 B3 31 39 20 A7 20 8E  00 32 1A 44 07 8B 20 54  |E.19 . ..2.D.. T|
00001220: 52 B3 33 31 20 A7 20 8B  20 53 45 B3 31 38 20 A7  |R.31 . . SE.18 .|
00001230: 20 8E 00 4C 1A 4E 07 8B  20 54 52 B3 33 36 20 A7  | ..L.N.. TR.36 .|
00001240: 20 8B 20 53 45 B3 31 37  20 A7 20 8E 00 65 1A 58  | . SE.17 . ..e.X|
00001250: 07 49 53 B2 31 3A 8F 20  53 45 43 54 4F 52 20 4E  |.IS.1:. SECTOR N|
00001260: 4F 54 20 4F 4B 00 6B 1A  62 07 8E 00 71 1A 6C 07  |OT OK.k.b...q.l.|
00001270: 3A 00 81 1A 76 07 8F 20  4A 4F 42 20 51 55 45 55  |:...v.. JOB QUEU|
00001280: 45 00 A5 1A 80 07 98 31  35 2C 22 4D 2D 57 22 C7  |E......15,"M-W".|
00001290: 28 38 29 C7 28 30 29 C7  28 32 29 C7 28 54 52 29  |(8).(0).(2).(TR)|
000012A0: C7 28 53 45 29 00 C5 1A  8A 07 98 31 35 2C 22 4D  |.(SE)......15,"M|
000012B0: 2D 57 22 C7 28 31 29 C7  28 30 29 C7 28 31 29 C7  |-W".(1).(0).(1).|
000012C0: 28 4A 4F 42 29 00 D2 1A  94 07 81 54 B2 30 A4 35  |(JOB)......T.0.5|
000012D0: 30 30 00 ED 1A 9E 07 97  35 33 32 38 30 2C 28 C2  |00......53280,(.|
000012E0: 28 35 33 32 38 30 29 AA  31 29 AF 31 35 00 03 1B  |(53280).1).15...|
000012F0: A8 07 98 31 35 2C 22 4D  2D 52 22 C7 28 31 29 C7  |...15,"M-R".(1).|
00001300: 28 30 29 00 1B 1B B2 07  A1 23 31 35 2C 45 24 3A  |(0)......#15,E$:|
00001310: 45 B2 C6 28 45 24 AA 4E  4C 24 29 00 2D 1B BC 07  |E..(E$.NL$).-...|
00001320: 8B 20 45 B1 31 32 37 20  A7 20 82 20 54 00 3C 1B  |. E.127 . . T.<.|
00001330: C6 07 97 35 33 32 38 30  2C 31 31 3A 00 4A 1B D0  |...53280,11:.J..|
00001340: 07 8B 20 45 B2 31 20 A7  20 8E 00 63 1B DA 07 A0  |.. E.1 . ..c....|
00001350: 31 35 3A 4D B2 36 3A 44  B2 32 33 3A 8D 31 32 36  |15:M.6:D.23:.126|
00001360: 30 3A 8A 00 69 1B E4 07  3A 00 84 1B EE 07 8F 20  |0:..i...:...... |
00001370: 44 49 53 50 4C 41 59 20  54 52 41 43 4B 20 31 38  |DISPLAY TRACK 18|
00001380: 20 42 41 4D 00 AE 1B F8  07 99 22 93 1C 20 20 20  | BAM......"..   |
00001390: 20 20 20 20 B0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |    ............|
000013A0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 AE 22 00 D8  |............."..|
000013B0: 1B 02 08 99 22 20 20 20  20 20 20 20 DD 20 9C C1  |...."       . ..|
000013C0: CE C1 CC D9 DA C5 20 C4  C9 D2 C5 C3 D4 CF D2 D9  |...... .........|
000013D0: A0 C2 C1 CD 20 1C DD 22  00 01 1C 0C 08 99 22 20  |.... .."......" |
000013E0: 20 20 20 20 20 20 AD C0  C0 C0 C0 C0 C0 C0 C0 C0  |      ..........|
000013F0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 BD 9A  |................|
00001400: 22 00 15 1C 16 08 8D 31  35 39 30 3A 8F 20 49 4E  |"......1590:. IN|
00001410: 49 54 20 49 4F 00 39 1C  20 08 42 44 B2 30 3A 42  |IT IO.9. .BD.0:B|
00001420: 50 B2 30 3A 42 42 B2 30  3A 42 54 B2 30 3A 8F 20  |P.0:BB.0:BT.0:. |
00001430: 53 45 54 20 46 4C 41 47  53 00 57 1C 2A 08 43 46  |SET FLAGS.W.*.CF|
00001440: B2 30 3A 8F 20 43 4F 4D  50 55 54 45 44 20 46 52  |.0:. COMPUTED FR|
00001450: 45 45 20 42 4C 4B 53 00  71 1C 34 08 54 52 B2 31  |EE BLKS.q.4.TR.1|
00001460: 38 3A 53 45 B2 30 3A 8F  20 44 45 46 41 55 4C 54  |8:SE.0:. DEFAULT|
00001470: 53 00 86 1C 3E 08 8F 20  49 4E 50 55 54 20 42 41  |S...>.. INPUT BA|
00001480: 4D 20 49 4E 46 4F 00 A7  1C 48 08 99 22 11 11 11  |M INFO...H.."...|
00001490: D2 45 41 44 49 4E 47 20  C2 C1 CD 20 2E 2E 2E 2E  |.EADING ... ....|
000014A0: 2E 2E 2E 2E 20 22 3B 00  B6 1C 52 08 8D 31 37 32  |.... ";...R..172|
000014B0: 30 3A 8F 20 55 31 00 CD  1C 5C 08 8D 31 35 30 30  |0:. U1...\..1500|
000014C0: 3A 8F 20 52 45 41 44 2F  50 52 49 4E 54 00 E1 1C  |:. READ/PRINT...|
000014D0: 66 08 50 B2 32 3A 8D 31  37 38 30 3A 8F 20 42 2D  |f.P.2:.1780:. B-|
000014E0: 50 00 FA 1C 70 08 A1 23  32 2C 41 24 3A 4F 44 56  |P...p..#2,A$:ODV|
000014F0: B2 C6 28 41 24 AA 4E 4C  24 29 00 1C 1D 7A 08 57  |..(A$.NL$)...z.W|
00001500: 50 24 B2 22 CF CE 22 3A  8B 20 4F 44 56 B2 36 35  |P$."..":. ODV.65|
00001510: 20 A7 20 57 50 24 B2 22  CF C6 C6 22 00 31 1D 84  | . WP$."...".1..|
00001520: 08 50 B2 37 32 3A 8D 31  37 38 30 3A 8F 20 42 2D  |.P.72:.1780:. B-|
00001530: 50 00 45 1D 8E 08 A1 23  32 2C 41 24 2C 42 24 2C  |P.E....#2,A$,B$,|
00001540: 43 24 2C 44 24 00 59 1D  98 08 8D 31 36 36 30 3A  |C$,D$.Y....1660:|
00001550: 8F 20 44 4F 4E 45 20 49  4F 00 7C 1D A2 08 42 4C  |. DONE IO.|...BL|
00001560: B2 C6 28 41 24 AA 4E 4C  24 29 20 20 20 20 20 20  |..(A$.NL$)      |
00001570: 3A 8F 20 46 52 45 45 20  42 4C 4B 53 00 9F 1D AC  |:. FREE BLKS....|
00001580: 08 42 4D 28 30 29 B2 C6  28 42 24 AA 4E 4C 24 29  |.BM(0)..(B$.NL$)|
00001590: 20 20 20 3A 8F 20 42 41  4D 20 20 30 2D 20 37 00  |   :. BAM  0- 7.|
000015A0: C2 1D B6 08 42 4D 28 31  29 B2 C6 28 43 24 AA 4E  |....BM(1)..(C$.N|
000015B0: 4C 24 29 20 20 20 3A 8F  20 42 41 4D 20 20 38 2D  |L$)   :. BAM  8-|
000015C0: 31 35 00 E5 1D C0 08 42  4D 28 32 29 B2 C6 28 44  |15.....BM(2)..(D|
000015D0: 24 AA 4E 4C 24 29 20 20  20 3A 8F 20 42 41 4D 20  |$.NL$)   :. BAM |
000015E0: 31 36 2D 31 38 00 02 1E  CA 08 8F 20 43 4F 4D 50  |16-18...... COMP|
000015F0: 55 54 45 2F 44 49 53 50  20 42 4C 4B 53 20 46 52  |UTE/DISP BLKS FR|
00001600: 45 45 00 14 1E D4 08 81  58 B2 30 A4 32 3A 81 59  |EE......X.0.2:.Y|
00001610: B2 30 A4 37 00 38 1E DE  08 42 46 28 20 28 38 AC  |.0.7.8...BF( (8.|
00001620: 58 29 AA 59 20 29 B2 28  42 4D 28 58 29 20 AF 20  |X).Y ).(BM(X) . |
00001630: 32 AE 59 29 AD 32 AE 59  00 3F 1E E8 08 82 59 00  |2.Y).2.Y.?....Y.|
00001640: 46 1E F2 08 82 58 00 58  1E FC 08 99 22 1E 91 91  |F....X.X...."...|
00001650: 91 91 20 22 4C 24 4C 24  00 87 1E 06 09 99 22 9A  |.. "L$L$......".|
00001660: 20 20 20 20 D4 52 41 43  4B 20 31 38 20 C2 C1 CD  |    .RACK 18 ...|
00001670: 20 20 20 20 20 20 C2 4C  4F 43 4B 53 20 20 C3 4F  |      .LOCKS  .O|
00001680: 4D 50 55 54 45 44 22 00  B3 1E 10 09 99 22 20 30  |MPUTED"......" 0|
00001690: 2E 2E 2E 2E 35 2E 2E 2E  2E 30 2E 2E 2E 2E 35 2E  |....5....0....5.|
000016A0: 2E 38 20 20 20 C6 52 45  45 20 20 20 20 20 C6 52  |.8   .REE     .R|
000016B0: 45 45 22 00 BD 1E 1A 09  99 22 20 22 3B 00 CA 1E  |EE"......" ";...|
000016C0: 24 09 81 58 B2 30 A4 31  38 3A 00 EB 1E 2E 09 8B  |$..X.0.18:......|
000016D0: 20 42 46 28 58 29 20 B2  20 30 20 A7 20 99 20 22  | BF(X) . 0 . . "|
000016E0: 2A 22 3B 3A 82 3A 89 32  33 38 30 00 F7 1E 38 09  |*";:.:.2380...8.|
000016F0: 43 46 B2 43 46 AA 31 00  03 1F 42 09 99 22 2D 22  |CF.CF.1...B.."-"|
00001700: 3B 3A 82 00 1C 1F 4C 09  99 22 20 20 20 22 3B 3A  |;:....L.."   ";:|
00001710: 8B 42 4C B3 31 30 A7 99  22 20 22 3B 00 25 1F 56  |.BL.10.." ";.%.V|
00001720: 09 99 42 4C 3B 00 35 1F  60 09 99 22 9D 20 20 20  |..BL;.5.`..".   |
00001730: 20 20 20 22 3B 00 46 1F  6A 09 8B 43 46 B3 31 30  |   ";.F.j..CF.10|
00001740: A7 99 22 20 22 3B 00 54  1F 74 09 99 43 46 22 9D  |.." ";.T.t..CF".|
00001750: 20 20 20 22 00 67 1F 7E  09 8B 20 43 46 B2 42 4C  |   ".g.~.. CF.BL|
00001760: 20 A7 20 32 34 35 30 00  86 1F 88 09 42 44 B2 31  | . 2450.....BD.1|
00001770: 3A 99 22 1E 91 91 91 91  20 22 4C 24 22 1C 22 4C  |:."..... "L$"."L|
00001780: 24 22 11 11 11 22 00 A0  1F 92 09 99 22 1E 20 22  |$"..."......". "|
00001790: 4C 24 3B 3A 8B 42 44 B2  31 A7 99 22 1C 22 3B 3A  |L$;:.BD.1..".";:|
000017A0: 00 A8 1F 9C 09 99 4C 24  00 C2 1F A6 09 54 56 B2  |......L$.....TV.|
000017B0: 31 38 3A 53 56 B2 30 20  3A 8F 20 31 53 54 20 42  |18:SV.0 :. 1ST B|
000017C0: 4C 4B 00 D6 1F B0 09 8D  31 35 39 30 3A 8F 20 49  |LK......1590:. I|
000017D0: 4E 49 54 20 49 4F 00 F0  1F BA 09 99 22 9A 20 D4  |NIT IO......". .|
000017E0: D2 20 20 D3 C5 20 20 20  20 D0 4F 49 4E 54 45 52  |.  ..    .OINTER|
000017F0: 00 F9 1F C4 09 99 4C 32  24 00 14 20 CE 09 53 45  |......L2$.. ..SE|
00001800: B2 53 56 3A 54 52 B2 54  56 3A 8B 4E 46 B2 31 A7  |.SV:TR.TV:.NF.1.|
00001810: 32 37 31 30 00 26 20 D8  09 8B 20 54 56 B2 30 20  |2710.& ... TV.0 |
00001820: A7 20 32 37 31 30 00 37  20 E2 09 8F 20 43 48 41  |. 2710.7 ... CHA|
00001830: 49 4E 20 4E 45 58 54 00  40 20 EC 09 4E 46 B2 30  |IN NEXT.@ ..NF.0|
00001840: 00 4F 20 F6 09 8D 31 37  32 30 3A 8F 20 55 31 00  |.O ...1720:. U1.|
00001850: 64 20 00 0A 8D 31 35 32  30 3A 8F 20 52 45 41 44  |d ...1520:. READ|
00001860: 20 45 52 52 00 78 20 0A  0A 50 B2 30 3A 8D 31 37  | ERR.x ..P.0:.17|
00001870: 38 30 3A 8F 20 42 2D 50  00 88 20 14 0A A1 23 32  |80:. B-P.. ...#2|
00001880: 2C 54 52 24 2C 53 45 24  00 9A 20 1E 0A 54 56 B2  |,TR$,SE$.. ..TV.|
00001890: C6 28 54 52 24 AA 4E 4C  24 29 00 AC 20 28 0A 53  |.(TR$.NL$).. (.S|
000018A0: 56 B2 C6 28 53 45 24 AA  4E 4C 24 29 00 CF 20 32  |V..(SE$.NL$).. 2|
000018B0: 0A 8D 31 38 31 30 3A 4E  46 B2 49 53 3A 8F 20 43  |..1810:NF.IS:. C|
000018C0: 48 4B 20 4C 45 47 41 4C  20 53 45 43 54 4F 52 00  |HK LEGAL SECTOR.|
000018D0: E2 20 3C 0A 42 44 28 53  45 29 B2 31 3A 99 22 9A  |. <.BD(SE).1:.".|
000018E0: 22 3B 00 0A 21 46 0A 8B  42 46 28 53 45 29 B3 B1  |";..!F..BF(SE)..|
000018F0: 30 A7 99 22 1C 22 3B 3A  42 44 B2 31 3A 42 42 B2  |0..".";:BD.1:BB.|
00001900: 31 3A 97 41 4C AA 53 45  2C 32 00 25 21 50 0A 8B  |1:.AL.SE,2.%!P..|
00001910: 20 54 56 B1 30 20 B0 20  53 56 B2 32 35 35 20 A7  | TV.0 . SV.255 .|
00001920: 20 32 36 36 30 00 46 21  5A 0A 99 22 1C 22 52 31  | 2660.F!Z.."."R1|
00001930: 24 22 5F C2 C1 C4 20 D0  D4 D2 91 22 3A 42 50 B2  |$"_... ....":BP.|
00001940: 31 3A 42 42 B2 30 00 72  21 64 0A 8B 54 52 B3 B1  |1:BB.0.r!d..TR..|
00001950: 31 38 A7 8B 54 52 B3 B1  30 A7 42 54 B2 31 3A 99  |18..TR..0.BT.1:.|
00001960: 22 1C 20 22 4C 24 22 9D  9D 20 20 22 3A 89 32 36  |". "L$"..  ":.26|
00001970: 38 30 00 90 21 6E 0A 8B  42 42 A7 99 52 31 24 22  |80..!n..BB..R1$"|
00001980: 5F C1 CC CC CF C3 C1 D4  C5 91 22 3A 42 42 B2 30  |_.........":BB.0|
00001990: 00 A1 21 78 0A 99 54 52  3B 53 45 2C 54 56 3B 53  |..!x..TR;SE,TV;S|
000019A0: 56 00 B3 21 82 0A 8B 20  54 56 B2 30 20 A7 20 99  |V..!... TV.0 . .|
000019B0: 4C 32 24 00 BD 21 8C 0A  89 32 35 31 30 00 D1 21  |L2$..!...2510..!|
000019C0: 96 0A 8D 31 36 36 30 3A  8F 20 44 4F 4E 45 20 49  |...1660:. DONE I|
000019D0: 4F 00 ED 21 A0 0A 8F 20  44 49 53 50 4C 41 59 20  |O..!... DISPLAY |
000019E0: 4D 49 53 41 4C 4C 4F 43  20 42 4C 4B 53 00 09 22  |MISALLOC BLKS.."|
000019F0: AA 0A 81 58 B2 30 A4 31  38 3A 8B 20 42 44 28 58  |...X.0.18:. BD(X|
00001A00: 29 B2 31 A7 20 32 38 31  30 00 1E 22 B4 0A 8B 20  |).1. 2810.."... |
00001A10: 42 46 28 58 29 B1 30 20  A7 20 32 38 31 30 00 36  |BF(X).0 . 2810.6|
00001A20: 22 BE 0A 43 54 B2 43 54  AA 31 3A 8B 43 54 B1 31  |"..CT.CT.1:.CT.1|
00001A30: 34 A7 32 38 30 30 00 59  22 C8 0A 99 22 13 11 11  |4.2800.Y"..."...|
00001A40: 11 11 11 11 11 11 22 52  32 24 22 D5 CE D5 D3 C5  |......"R2$".....|
00001A50: C4 A0 D3 C5 C3 D4 CF D2  D3 00 72 22 D2 0A 99 52  |..........r"...R|
00001A60: 32 24 22 C1 D2 C5 A0 C1  CC CC CF C3 C1 D4 C5 C4  |2$".............|
00001A70: 91 91 00 82 22 DC 0A 81  59 B2 30 A4 43 54 3A 99  |...."...Y.0.CT:.|
00001A80: 3A 82 00 9D 22 E6 0A 99  52 32 24 22 1C 1D 1D 1D  |:..."...R2$"....|
00001A90: D3 45 43 54 4F 52 20 22  20 58 22 91 22 00 AA 22  |.ECTOR " X".".."|
00001AA0: F0 0A 97 20 41 4C AA 58  2C 32 00 B1 22 FA 0A 82  |... AL.X,2.."...|
00001AB0: 58 00 E1 22 04 0B 99 22  13 11 1D 1D 1D 97 D7 D0  |X.."..."........|
00001AC0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
00001AD0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 22 57 50  |............."WP|
00001AE0: 24 00 F1 22 0E 0B 8F 20  57 48 49 43 48 20 4D 53  |$.."... WHICH MS|
00001AF0: 47 00 10 23 18 0B 4D B2  30 3A 8B 20 42 44 B2 31  |G..#..M.0:. BD.1|
00001B00: 20 A7 20 4D B2 34 3A 8F  20 42 41 44 20 44 49 52  | . M.4:. BAD DIR|
00001B10: 00 30 23 22 0B 8B 20 43  54 B1 30 20 A7 20 4D B2  |.0#".. CT.0 . M.|
00001B20: 32 3A 8F 20 4D 49 53 41  4C 4F 43 20 42 4C 4B 53  |2:. MISALOC BLKS|
00001B30: 00 4F 23 2C 0B 8B 20 42  50 B2 31 20 A7 20 4D B2  |.O#,.. BP.1 . M.|
00001B40: 35 3A 8F 20 42 41 44 20  45 4E 44 20 50 54 52 00  |5:. BAD END PTR.|
00001B50: 6F 23 36 0B 8B 20 42 54  B2 31 20 A7 20 4D B2 31  |o#6.. BT.1 . M.1|
00001B60: 31 3A 8F 20 44 49 52 20  4F 46 46 20 54 52 4B 00  |1:. DIR OFF TRK.|
00001B70: 80 23 40 0B 44 B2 32 33  3A 8D 31 32 36 30 3A 8A  |.#@.D.23:.1260:.|
00001B80: 00 86 23 4A 0B 3A 00 94  23 54 0B 8F 20 46 49 58  |..#J.:..#T.. FIX|
00001B90: 20 44 49 52 00 B8 23 5E  0B 99 22 93 1C 20 20 20  | DIR..#^.."..   |
00001BA0: 20 B0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  | ...............|
00001BB0: C0 C0 C0 C0 C0 C0 C0 AE  00 DC 23 68 0B 99 22 20  |..........#h.." |
00001BC0: 20 20 20 DD 20 9C C6 CF  CC CC CF D7 C9 CE C7 A0  |   . ...........|
00001BD0: C4 C9 D2 C5 C3 D4 CF D2  D9 20 1C DD 00 00 24 72  |......... ....$r|
00001BE0: 0B 99 22 20 20 20 20 AD  C0 C0 C0 C0 C0 C0 C0 C0  |.."    .........|
00001BF0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 BD 11 9A  |................|
00001C00: 00 0F 24 7C 0B 54 52 B2  31 38 3A 53 45 B2 30 00  |..$|.TR.18:SE.0.|
00001C10: 23 24 86 0B 8D 31 35 39  30 3A 8F 20 49 4E 49 54  |#$...1590:. INIT|
00001C20: 20 49 4F 00 29 24 90 0B  3A 00 35 24 9A 0B 42 46  | IO.)$..:.5$..BF|
00001C30: 28 30 29 B2 31 00 44 24  A4 0B 8D 31 37 32 30 3A  |(0).1.D$...1720:|
00001C40: 8F 20 55 31 00 59 24 AE  0B 8D 31 35 32 30 3A 8F  |. U1.Y$...1520:.|
00001C50: 20 52 45 41 44 20 45 52  52 00 6D 24 B8 0B 50 B2  | READ ERR.m$..P.|
00001C60: 30 3A 8D 31 37 38 30 3A  8F 20 42 2D 50 00 7D 24  |0:.1780:. B-P.}$|
00001C70: C2 0B A1 23 32 2C 54 52  24 2C 53 45 24 00 8F 24  |...#2,TR$,SE$..$|
00001C80: CC 0B 54 56 B2 C6 28 54  52 24 AA 4E 4C 24 29 00  |..TV..(TR$.NL$).|
00001C90: A1 24 D6 0B 53 56 B2 C6  28 53 45 24 AA 4E 4C 24  |.$..SV..(SE$.NL$|
00001CA0: 29 00 C1 24 E0 0B 8B 54  56 B2 31 38 A7 42 46 28  |)..$...TV.18.BF(|
00001CB0: 53 56 29 B2 31 3A 53 45  B2 53 56 3A 89 32 39 38  |SV).1:SE.SV:.298|
00001CC0: 30 00 DF 24 EA 0B 8B 20  54 56 B3 B1 30 20 A7 20  |0..$... TV..0 . |
00001CD0: 42 54 B2 31 3A 4E 46 B2  31 3A 89 33 33 38 30 00  |BT.1:NF.1:.3380.|
00001CE0: 0F 25 F4 0B 8B 20 53 56  B2 32 35 35 20 A7 20 99  |.%... SV.255 . .|
00001CF0: 22 11 CC 41 53 54 20 C4  49 52 20 D3 45 43 54 4F  |"..AST .IR .ECTO|
00001D00: 52 20 CF CB 20 20 20 22  3B 3A 89 33 31 31 30 00  |R ..   ";:.3110.|
00001D10: 3D 25 FE 0B 99 20 20 20  20 20 20 20 20 20 20 20  |=%...           |
00001D20: 20 20 20 20 22 11 C6 49  58 49 4E 47 20 CC 41 53  |    "..IXING .AS|
00001D30: 54 20 D3 45 43 54 4F 52  20 2E 20 22 3B 00 51 25  |T .ECTOR . ";.Q%|
00001D40: 08 0C 50 B2 31 3A 8D 31  37 38 30 3A 8F 20 42 2D  |..P.1:.1780:. B-|
00001D50: 50 00 60 25 12 0C 98 32  2C C7 28 32 35 35 29 3B  |P.`%...2,.(255);|
00001D60: 00 7D 25 1C 0C 50 B2 30  3A 8D 31 37 38 30 3A 8D  |.}%..P.0:.1780:.|
00001D70: 31 37 35 30 3A 8F 20 42  2D 50 2F 55 32 00 94 25  |1750:. B-P/U2..%|
00001D80: 26 0C 8D 31 35 30 30 3A  8F 20 52 45 41 44 2F 50  |&..1500:. READ/P|
00001D90: 52 49 4E 54 00 9A 25 30  0C 3A 00 B5 25 3A 0C 8F  |RINT..%0.:..%:..|
00001DA0: 20 41 4C 4C 4F 43 20 41  4C 4C 20 42 4C 4B 53 20  | ALLOC ALL BLKS |
00001DB0: 54 52 20 31 38 00 D6 25  44 0C 54 52 B2 31 38 3A  |TR 18..%D.TR.18:|
00001DC0: 53 45 B2 30 3A 8D 31 35  39 30 3A 8F 20 52 45 49  |SE.0:.1590:. REI|
00001DD0: 4E 49 54 20 49 4F 00 F5  25 4E 0C 99 22 11 D2 45  |NIT IO..%N.."..E|
00001DE0: 41 44 49 4E 47 20 C2 C1  CD 20 2E 2E 2E 2E 2E 2E  |ADING ... ......|
00001DF0: 2E 2E 20 22 3B 00 04 26  58 0C 8D 31 37 32 30 3A  |.. ";..&X..1720:|
00001E00: 8F 20 55 31 00 1B 26 62  0C 8D 31 35 30 30 3A 8F  |. U1..&b..1500:.|
00001E10: 20 52 45 41 44 2F 50 52  49 4E 54 00 30 26 6C 0C  | READ/PRINT.0&l.|
00001E20: 50 B2 37 32 3A 8D 31 37  38 30 3A 8F 20 42 2D 50  |P.72:.1780:. B-P|
00001E30: 00 50 26 76 0C 98 32 2C  4E 4C 24 3B 4E 4C 24 3B  |.P&v..2,NL$;NL$;|
00001E40: 4E 4C 24 3B 4E 4C 24 3B  3A 8F 20 30 20 42 41 4D  |NL$;NL$;:. 0 BAM|
00001E50: 00 64 26 80 0C 50 B2 30  3A 8D 31 37 38 30 3A 8F  |.d&..P.0:.1780:.|
00001E60: 20 42 2D 50 00 83 26 8A  0C 99 22 11 D7 52 49 54  | B-P..&..."..RIT|
00001E70: 49 4E 47 20 C2 C1 CD 20  2E 2E 2E 2E 2E 2E 2E 2E  |ING ... ........|
00001E80: 20 22 3B 00 92 26 94 0C  8D 31 37 35 30 3A 8F 20  | ";..&...1750:. |
00001E90: 55 32 00 A9 26 9E 0C 8D  31 35 30 30 3A 8F 20 52  |U2..&...1500:. R|
00001EA0: 45 41 44 2F 50 52 49 4E  54 00 CC 26 A8 0C 99 22  |EAD/PRINT..&..."|
00001EB0: 11 1C 20 20 20 20 20 B0  C0 C0 C0 C0 C0 C0 C0 C0  |..     .........|
00001EC0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 AE 22 00 EE 26 B2  |..........."..&.|
00001ED0: 0C 99 22 20 20 20 20 20  DD 20 9C D4 D2 CB 20 31  |.."     . .... 1|
00001EE0: 38 20 C1 CC CC CF C3 C1  D4 C5 C4 20 1C DD 00 10  |8 ......... ....|
00001EF0: 27 BC 0C 99 22 20 20 20  20 20 AD C0 C0 C0 C0 C0  |'..."     ......|
00001F00: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 BD 9A 22  |..............."|
00001F10: 00 16 27 C6 0C 3A 00 2F  27 D0 0C 8F 20 46 52 45  |..'..:./'... FRE|
00001F20: 45 20 55 4E 55 53 45 44  20 42 4C 4F 43 4B 53 00  |E UNUSED BLOCKS.|
00001F30: 45 27 DA 0C 8D 31 35 39  30 3A 8F 20 52 45 49 4E  |E'...1590:. REIN|
00001F40: 49 54 20 49 4F 00 64 27  E4 0C 99 22 11 C4 45 41  |IT IO.d'..."..EA|
00001F50: 4C 4C 4F 43 41 54 49 4E  47 20 42 4C 4B 53 20 2E  |LLOCATING BLKS .|
00001F60: 2E 20 22 3B 00 70 27 EE  0C 81 58 B2 30 A4 31 38  |. ";.p'...X.0.18|
00001F70: 00 83 27 F8 0C 8B 20 42  46 28 58 29 20 A7 20 33  |..'... BF(X) . 3|
00001F80: 33 36 30 00 98 27 02 0D  98 31 35 2C 22 42 2D 46  |360..'...15,"B-F|
00001F90: 22 3B 30 3B 31 38 3B 58  00 B7 27 0C 0D 84 31 35  |";0;18;X..'...15|
00001FA0: 2C 45 4E 2C 45 4D 24 2C  45 54 2C 45 53 3A 8F 20  |,EN,EM$,ET,ES:. |
00001FB0: 45 52 52 20 43 48 4E 00  E9 27 16 0D 8B 20 45 4E  |ERR CHN..'... EN|
00001FC0: 24 B3 B1 22 30 30 22 20  A7 20 99 20 22 C5 52 52  |$.."00" . . ".RR|
00001FD0: 4F 52 20 49 4E 20 D3 45  43 54 4F 52 22 58 3A 8D  |OR IN .ECTOR"X:.|
00001FE0: 31 35 35 30 3A 4E 46 B2  31 00 F0 27 20 0D 82 58  |1550:NF.1..' ..X|
00001FF0: 00 12 28 2A 0D 8D 31 34  38 30 3A 8F 20 43 4C 4F  |..(*..1480:. CLO|
00002000: 53 45 2F 4F 50 45 4E 2F  52 45 41 44 2F 50 52 49  |SE/OPEN/READ/PRI|
00002010: 4E 54 00 26 28 34 0D 8D  31 36 36 30 3A 8F 20 44  |NT.&(4..1660:. D|
00002020: 4F 4E 45 20 49 4F 00 36  28 3E 0D 8B 20 4E 46 20  |ONE IO.6(>.. NF |
00002030: A7 20 33 34 34 30 00 59  28 48 0D 99 22 11 1C 20  |. 3440.Y(H..".. |
00002040: 20 20 20 B0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |   .............|
00002050: C0 C0 C0 C0 C0 C0 C0 C0  AE 00 7C 28 52 0D 99 22  |..........|(R.."|
00002060: 20 20 20 20 DD 20 9C C4  C9 D2 C5 C3 D4 CF D2 D9  |    . ..........|
00002070: A0 D2 C5 D0 C1 C9 D2 C5  C4 20 1C DD 00 9E 28 5C  |......... ....(\|
00002080: 0D 99 22 20 20 20 20 AD  C0 C0 C0 C0 C0 C0 C0 C0  |.."    .........|
00002090: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 BD 9A 00 B3  |................|
000020A0: 28 66 0D 4D B2 37 3A 44  B2 32 31 3A 8D 31 32 36  |(f.M.7:D.21:.126|
000020B0: 30 3A 8A 00 D5 28 70 0D  99 22 11 1C 20 20 20 20  |0:...(p.."..    |
000020C0: 20 B0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  | ...............|
000020D0: C0 C0 C0 C0 AE 00 F7 28  7A 0D 99 22 20 20 20 20  |.......(z.."    |
000020E0: 20 DD 20 9C D2 C5 D0 C1  C9 D2 D3 20 C6 C1 C9 CC  | . ........ ....|
000020F0: C5 C4 20 21 20 1C DD 00  18 29 84 0D 99 22 20 20  |.. ! ....)..."  |
00002100: 20 20 20 AD C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |   .............|
00002110: C0 C0 C0 C0 C0 C0 BD 9A  00 36 29 8E 0D 4D B2 36  |.........6)..M.6|
00002120: 3A 44 B2 32 31 3A 4D B2  4D AA 42 54 AC 35 3A 8D  |:D.21:M.M.BT.5:.|
00002130: 31 32 36 30 3A 8A 00 3C  29 98 0D 3A 00 53 29 A2  |1260:..<)..:.S).|
00002140: 0D 8F 20 45 44 49 54 20  44 4F 53 20 56 45 52 53  |.. EDIT DOS VERS|
00002150: 49 4F 4E 00 6C 29 AC 0D  4E 44 56 B2 36 36 3A 89  |ION.l)..NDV.66:.|
00002160: 33 35 32 30 3A 8F 20 57  50 20 4F 4E 00 88 29 B6  |3520:. WP ON..).|
00002170: 0D 4E 44 56 B2 36 35 3A  8F 20 57 52 49 54 45 20  |.NDV.65:. WRITE |
00002180: 50 52 4F 54 20 4F 46 46  00 BA 29 C0 0D 99 22 93  |PROT OFF..)...".|
00002190: 1C 11 11 11 11 11 11 11  11 11 11 20 20 20 20 20  |...........     |
000021A0: 20 20 20 B0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |   .............|
000021B0: C0 C0 C0 C0 C0 C0 C0 C0  C0 AE 00 E2 29 CA 0D 99  |............)...|
000021C0: 22 20 20 20 20 20 20 20  20 DD 20 9C C5 C4 C9 D4  |"        . .....|
000021D0: C9 CE C7 A0 C4 CF D3 A0  D6 C5 D2 D3 C9 CF CE 20  |............... |
000021E0: 1C DD 00 09 2A D4 0D 99  22 20 20 20 20 20 20 20  |....*..."       |
000021F0: 20 AD C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  | ...............|
00002200: C0 C0 C0 C0 C0 C0 C0 BD  9A 00 2D 2A DE 0D 8F 20  |..........-*... |
00002210: 4E 44 56 3D 4E 45 57 20  44 4F 53 20 56 45 52 53  |NDV=NEW DOS VERS|
00002220: 49 4F 4E 20 31 35 34 31  20 3D 3E 20 41 00 44 2A  |ION 1541 => A.D*|
00002230: E8 0D 8F 20 57 50 20 4F  46 46 3D 36 35 20 20 4F  |... WP OFF=65  O|
00002240: 4E 3D 36 36 00 58 2A F2  0D 8D 31 35 39 30 3A 8F  |N=66.X*...1590:.|
00002250: 20 49 4E 49 54 20 49 4F  00 7A 2A FC 0D 54 52 B2  | INIT IO.z*..TR.|
00002260: 31 38 3A 53 45 B2 30 20  20 20 20 20 20 20 3A 8F  |18:SE.0       :.|
00002270: 20 42 41 4D 20 54 52 41  43 4B 00 93 2A 06 0E 4A  | BAM TRACK..*..J|
00002280: 4F 42 B2 31 37 36 3A 8D  31 39 32 30 3A 8F 20 53  |OB.176:.1920:. S|
00002290: 45 45 4B 00 AC 2A 10 0E  4A 4F 42 B2 31 32 38 3A  |EEK..*..JOB.128:|
000022A0: 8D 31 39 32 30 3A 8F 20  52 45 41 44 00 CC 2A 1A  |.1920:. READ..*.|
000022B0: 0E 98 31 35 2C 22 4D 2D  57 22 C7 28 32 29 C7 28  |..15,"M-W".(2).(|
000022C0: 34 29 C7 28 31 29 C7 28  4E 44 56 29 00 E6 2A 24  |4).(1).(NDV)..*$|
000022D0: 0E 4A 4F 42 B2 31 34 34  3A 8D 31 39 32 30 3A 8F  |.JOB.144:.1920:.|
000022E0: 20 57 52 49 54 45 00 FA  2A 2E 0E 8D 31 36 36 30  | WRITE..*...1660|
000022F0: 3A 8F 20 44 4F 4E 45 20  49 4F 00 19 2B 38 0E 8D  |:. DONE IO..+8..|
00002300: 31 35 39 30 3A 8D 31 36  36 30 3A 8F 20 49 4E 49  |1590:.1660:. INI|
00002310: 54 2F 44 4F 4E 45 20 49  4F 00 2E 2B 42 0E 4D B2  |T/DONE IO..+B.M.|
00002320: 38 3A 44 B2 31 34 3A 8D  31 32 36 30 3A 8A 00 34  |8:D.14:.1260:..4|
00002330: 2B 4C 0E 3A 00 57 2B 56  0E 8F 20 47 45 54 20 44  |+L.:.W+V.. GET D|
00002340: 4F 53 20 57 52 49 54 45  20 50 52 4F 54 45 43 54  |OS WRITE PROTECT|
00002350: 20 53 54 41 54 55 53 00  6B 2B 60 0E 8D 31 35 39  | STATUS.k+`..159|
00002360: 30 3A 8F 20 49 4E 49 54  20 49 4F 00 81 2B 6A 0E  |0:. INIT IO..+j.|
00002370: 98 31 35 2C 22 4D 2D 52  22 C7 28 31 29 C7 28 31  |.15,"M-R".(1).(1|
00002380: 29 00 96 2B 74 0E A1 23  31 35 2C 41 24 3A 57 50  |)..+t..#15,A$:WP|
00002390: 24 B2 22 CF CE 22 00 B0  2B 7E 0E 8B 20 41 24 B2  |$.".."..+~.. A$.|
000023A0: C7 28 36 35 29 A7 20 57  50 24 B2 22 CF C6 C6 22  |.(65). WP$."..."|
000023B0: 00 C4 2B 88 0E 8D 31 36  36 30 3A 8F 20 44 4F 4E  |..+...1660:. DON|
000023C0: 45 20 49 4F 00 CA 2B 92  0E 3A 00 ED 2B 9C 0E 8F  |E IO..+..:..+...|
000023D0: 20 47 45 54 20 47 45 4F  53 20 46 4F 52 4D 41 54  | GET GEOS FORMAT|
000023E0: 20 48 45 41 44 45 52 20  53 54 55 46 46 00 18 2C  | HEADER STUFF..,|
000023F0: A6 0E 99 22 93 1C 11 11  20 20 20 20 20 20 20 20  |..."....        |
00002400: B0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00002410: C0 C0 C0 C0 C0 C0 C0 AE  00 41 2C B0 0E 99 22 20  |.........A,..." |
00002420: 20 20 20 20 20 20 20 DD  20 9C C7 C5 CF 2D C4 C9  |       . ....-..|
00002430: D3 CB A0 C9 CE C6 CF D2  CD C1 D4 C9 CF CE 20 1C  |.............. .|
00002440: DD 00 69 2C BA 0E 99 22  20 20 20 20 20 20 20 20  |..i,..."        |
00002450: AD C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00002460: C0 C0 C0 C0 C0 C0 C0 BD  9A 00 7D 2C C4 0E 54 52  |..........},..TR|
00002470: B2 31 38 3A 53 45 B2 30  3A 43 54 B2 30 00 91 2C  |.18:SE.0:CT.0..,|
00002480: CE 0E 8D 31 35 39 30 3A  8F 20 49 4E 49 54 20 49  |...1590:. INIT I|
00002490: 4F 00 A0 2C D8 0E 8D 31  37 32 30 3A 8F 20 55 31  |O..,...1720:. U1|
000024A0: 00 B6 2C E2 0E 50 B2 31  37 31 3A 8D 31 37 38 30  |..,..P.171:.1780|
000024B0: 3A 8F 20 42 2D 50 00 CC  2C EC 0E A1 23 32 2C 41  |:. B-P..,...#2,A|
000024C0: 24 2C 42 24 3A 8F 20 54  52 2F 53 45 00 0C 2D F6  |$,B$:. TR/SE..-.|
000024D0: 0E 49 44 24 B2 22 22 3A  81 58 B2 31 37 33 20 A4  |.ID$."":.X.173 .|
000024E0: 20 31 38 38 3A A1 23 32  2C 43 24 3A 49 44 24 B2  | 188:.#2,C$:ID$.|
000024F0: 49 44 24 AA 43 24 3A 82  3A 8F 20 47 45 4F 53 46  |ID$.C$:.:. GEOSF|
00002500: 4F 52 4D 41 54 20 53 54  52 49 4E 47 00 2E 2D 00  |ORMAT STRING..-.|
00002510: 0F A1 23 32 2C 44 24 3A  8F 20 4D 41 53 54 45 52  |..#2,D$:. MASTER|
00002520: 2F 42 4F 4F 54 2F 57 4F  52 4B 20 46 4C 47 00 42  |/BOOT/WORK FLG.B|
00002530: 2D 0A 0F 8D 31 36 36 30  3A 8F 20 44 4F 4E 45 20  |-...1660:. DONE |
00002540: 49 4F 00 5E 2D 14 0F 8B  20 C8 28 49 44 24 2C 34  |IO.^-... .(ID$,4|
00002550: 29 B2 22 47 45 4F 53 22  A7 20 33 39 31 30 00 87  |)."GEOS". 3910..|
00002560: 2D 1E 0F 99 22 1C 11 20  20 20 20 20 20 20 20 B0  |-..."..        .|
00002570: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00002580: C0 C0 C0 C0 C0 C0 AE 00  B0 2D 28 0F 99 22 20 20  |.........-(.."  |
00002590: 20 20 20 20 20 20 DD 20  9C CE CF D4 A0 C1 20 C7  |      . ...... .|
000025A0: C5 CF D3 A0 D4 D9 D0 C5  A0 C4 C9 D3 CB A0 1C DD  |................|
000025B0: 00 D8 2D 32 0F 99 22 20  20 20 20 20 20 20 20 AD  |..-2.."        .|
000025C0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
000025D0: C0 C0 C0 C0 C0 C0 BD 9A  00 ED 2D 3C 0F 4D B2 30  |..........-<.M.0|
000025E0: 3A 44 B2 31 32 3A 8D 31  32 36 30 3A 8A 00 0B 2E  |:D.12:.1260:....|
000025F0: 46 0F 54 52 B2 C6 28 41  24 AA 4E 4C 24 29 3A 53  |F.TR..(A$.NL$):S|
00002600: 45 B2 C6 28 42 24 AA 4E  4C 24 29 00 25 2E 50 0F  |E..(B$.NL$).%.P.|
00002610: 99 22 11 20 20 20 20 9A  22 49 44 24 22 20 20 2D  |.".    ."ID$"  -|
00002620: 2D 20 20 22 3B 00 3E 2E  5A 0F 8B 44 24 B2 22 42  |-  ";.>.Z..D$."B|
00002630: 22 A7 99 22 9E C2 4F 4F  54 20 C4 49 53 4B 00 59  |".."..OOT .ISK.Y|
00002640: 2E 64 0F 8B 44 24 B2 22  50 22 A7 99 22 9E CD 41  |.d..D$."P".."..A|
00002650: 53 54 45 52 20 C4 49 53  4B 00 72 2E 6E 0F 8B 44  |STER .ISK.r.n..D|
00002660: 24 B2 22 22 20 A7 99 22  9E D7 4F 52 4B 20 C4 49  |$."" .."..ORK .I|
00002670: 53 4B 00 81 2E 78 0F 99  22 11 1E 20 22 4C 24 4C  |SK...x..".. "L$L|
00002680: 24 00 A1 2E 82 0F 99 22  9A 20 20 C4 45 53 4B 54  |$......".  .ESKT|
00002690: 4F 50 A0 C2 4F 52 44 45  52 A0 D0 47 20 20 20 22  |OP..ORDER..G   "|
000026A0: 3B 00 BC 2E 8C 0F 99 22  D4 D2 A0 3D 22 54 52 22  |;......"...="TR"|
000026B0: 9D 22 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |."..............|
000026C0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000026D0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000026E0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000026F0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00002700: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00002710: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00002720: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00002730: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00002740: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00002750: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00002760: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00002770: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00002780: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00002790: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000027A0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000027B0: 00                                                |.               |
..'.D.. !-----------------------------!.
M.N.. ! ARVEE'S DIRECTORY REPAIRMAN !.S.
X.. !                             !.....
. !    C-1987  WHITAKER LABS    !...... 
!                             !...... ! 
 BROUGHT TO YOU BY SCORMUS  !... .. !---
--------------------------!.....:./.... 
PROTECT GEOS FROM BASIC.H....B(56).126..
56,126:..N.H.:.T.R.. DIMS FLGS VARS CONS
TNTS STRINGS...... DIMENSIONS...... BF(2
3):. BLKS FREE COMPUTED.H.... BD(20):. D
IR BLKS FOLLOWED...... M$(11):. MSGS....
.. F$(7) :. FILE NAMES...... BM(2) :. BA
M TEMP 0-7/8-F/10+. ...:.,.".. FLAGS.K.,
.PE.0:. PRNT ERR CHN 1=PRNT.D.6.IS.0:. I
LLEGAL SECTR.}.@.BD.0:. BAD DIRECTORY...
J.BB.0:. BAD BLOCK...T.BP.0:. BAD POINTE
R.B.^.NF.0:. DIR NOT FIXED.W.H.BT.0:. OF
F TR 18...R.:...|.. VARIABLES.....X.0:Y.
0:T.0:. LOOP VARS.(...TR.18:SE.0:. DEFAU
LT TR/SE.H...TV.18:SV.0:. TR/SE PNTR VAL
.O...AL.55537 :. COLOR POKE PSEUDO BASE.
....M .0:D.0 :. MESSAGE #/# LINES DOWN..
...CF.0:BL.0:. COMP/ACTUAL BLKS FREE.Y.B
.ND.0:E.0 :. NEW DOS VERS...L.CT.0     :
. # OF MISALLOC BLKS...V.P .0     :. BUF
FER POINTER.!...:./.... STRINGS.U...A$."
":B$."":C$."":D$."":. TMP STR.P...WP$.""
:. WRITE PROTECT.....NL$.G(0):. NULL....
.L$."...................".....L2$.". ...
.............."...&.R1$."...............
...."...0.R2$.".........................
."...:.:.&.D.. GEOS SPECIFIC CONSTANTS.L
.N.DA.33938:. DISK TURBO FLG DRIVE A.R.X
.DB.33939:. DISK TURBO FLG DRIVE B...B.V
2.49893:. VERS 1.2 SETUP SYS...L.V3.4970
8:. VERS 1.2/3 RESTART...V.VL.49158:. GE
OS BOOT & VERS # LOC......X.0.8:. CHECK 
FOR GEOS.BOOT.....GB$.GB$.G(B(VL.X)):. S
TRING.>....:. FOR POSS DESKTOP REENTRY.[
...VE.B(VL.X):. GEOS VERS #.A...:.P.... 
MESSAGES.....M$(0).".........<< PRESS KE
Y FOR MENU >>".K.F.M$(1).".........<< PR
ESS KEY TO BOOT >>"...P.M$(2)."..<< WARN
ING !!!  MISALLOCATED BLOCKS >>".3.Z.M$(
3)."..<< OPERATION ABORTED .. HIT A KEY 
>>".E...M$(4).".....<< WARNING !!!  BAD 
DIRECTORY >>".....M$(5)."......<< WARNIN
G !!!  BAD END PTR >>".H...M$(6)."......
<< OPERATION FAILED .. RETRY >>".....M$(
7)."....<< PRESS KEY FOR MENU >>.....M$(
8).".........<< WP STATUS CHANGED >>.Q..
.M$(9)."..<< ILLEGAL OFF PAGE DIRECTORY 
BLOCK >>"... .M$(10)."...<< DESKTOP BORD
ER HAS BEEN ERASED >>"...*.M$(11)."..<< 
WARNING !!! DIRECTORY OFF TRK 18 >>".B.4
.:...>.. TITLE SCREEN & GET ROUTINE #...
H..53280,11:. GREY BORDER...R..53281, 0:
. BLACK SCREEN.$.\.:.O.F..".....        
........................W.P.."        . 
.DIRECTORY REPAIRMAN .....Z.."        ..
......................F....".         .(
.W.).RITE PROTECT DISK......".         .
(.U.).N WRITE PROTECT......".         .(
.D.).ESK BORDER INFO.;....".         .(.
A.).NALYZE TRACK 18.B....".         .(.R
.).EPAIR DIRECTORY......".             .
ALLOCATE TRACK 18......"             FOL
LOW DIR CHAIN.Q.J.."             FIX LAS
T POINTER...T.."             FREE UNUSED
 BLKS......".         .(.B.).ASIC.,...."
.         .(.G.).EOS.2...:.H....198,0:.1
98,1:.A$.F....A$."D". 3750:. GEOS INFO..
....A$."A". 2040:. ANALYZE......A$."R". 
2910:. REPAIR...$..A$."W". 3500:. WRITE 
PROT.V....A$."U". 3510:. UN WP...8..A$."
B". ."....":....B..A$."G". 1110:. GO GEO
S...L..1020.-.V.. GEOS DESKTOP RETURN.K.
`.. GB$.."GEOS BOOT" . 1170.I.J.. DA,0:.
 DB,0:. TURBO OFF...T.. VE.18 . . V2:. V
3...~.. VE.19 . . V3...... BOOT GEOS.V..
.."..........       ....................
....."......  "       . .INSERT GEOS BOO
T DISK .."......  "       ..............
.............".A...M.1:D.15:.1260.D...."
.LOAD"G(34)"GEOS"G(34)",8,1".S.D.. "....
RUN...N..198,3:.631,19:.632,13:.633,13:.
...X.:...... FLASH MESSAGE # M DOWN D.V.
...".";:.X.0.D:.".";:.......198,0......X
.1.2......".."......X.2..".";...... M$(M
);.#.(..Y.1.100:.A$.:.2.. A$."". .:.:.12
80.J.<.. A$."_". ..V.F..".";:..\.P.:.Q.Z
.. CHECK DEV PRES...D. 15:.15,8,15: 15..
.N.. ST . 0 . ....X.." DEVICE NOT PRESEN
T.......".N...M.3:D.23:.1260:..T...:....
.. INITIALIZE... ..1660:.15,8,15,"I0:":.
.....:. .... CHECK ERROR CHANNEL.@.... C
LOSE ALL/OPEN/READ/PRINT.S.H..1660:.15,8
,15.D.R.. READ/PRINT.X...PE.1:. PRNT FLG
...... READ ONLY. ....15,EN$,EM$,ET$,ES$
......EN$.."00"..:.".........";...... PE
.1 ..EN$","EM$","ET$","ES$:PE.0...... EN
$."00". .......1410...".:...,.. INIT FOR
 IO.:.6..1380:. CHK DEVICE PRESENT.W.@..
1440:. INITIALIZE DRIVE.L.J..1520:. READ
 ERR...T..1690:. ALLOC DISK BUFFER...^..
...H.:...R.. DONE WITH IO...|..X.1.15: X
:.:..B...:...... ALLOCATE A DISK BUFFER.
.....2,8,2,"#":......:...... READ  BUFFE
R."....15,"U1";2;0;TR;SE:..(.B.:.;.L.. W
RITE BUFFER.T.V..15,"U2";2;0;TR;SE:..Z..
.:.O.... BUFFER POINTER......15,"B-P";2;
P:......:...... CHECK IF SECTOR IS LEGAL
.....IS.0:. SECTOR IS OK.R.... SE.0 . 18
80...&.. TR.0 . 1880...0.. TR.18 . . SE.
21 . ....:.. TR.25 . . SE.19 . ..2.D.. T
R.31 . . SE.18 . ..L.N.. TR.36 . . SE.17
 . ..E.X.IS.1:. SECTOR NOT OK.K.B...Q.L.
:...V.. JOB QUEUE......15,"M-W"G(8)G(0)G
(2)G(TR)G(SE).E....15,"M-W"G(1)G(0)G(1)G
(JOB).R....T.0.500......53280,(B(53280).
1).15......15,"M-R"G(1)G(0)......#15,E$:
E.F(E$.NL$).-.... E.127 . . T.<.F..53280
,11:.J.P.. E.1 . ..C.Z. 15:M.6:D.23:.126
0:..I...:...... DISPLAY TRACK 18 BAM....
.."..       .........................".X
...."       . .ANALYZE DIRECTORY BAM .."
......"       ..........................
"......1590:. INIT IO.9. .BD.0:BP.0:BB.0
:BT.0:. SET FLAGS.W.*.CF.0:. COMPUTED FR
EE BLKS.Q.4.TR.18:SE.0:. DEFAULTS...>.. 
INPUT BAM INFO...H.."...READING BAM ....
.... ";...R..1720:. U1.M.\..1500:. READ/
PRINT...F.P.2:.1780:. B-P...P..#2,A$:ODV
.F(A$.NL$)...Z.WP$."ON":. ODV.65 . WP$."
OFF".1...P.72:.1780:. B-P.E....#2,A$,B$,
C$,D$.Y....1660:. DONE IO.|...BL.F(A$.NL
$)      :. FREE BLKS.....BM(0).F(B$.NL$)
   :. BAM  0- 7.B...BM(1).F(C$.NL$)   :.
 BAM  8-15.....BM(2).F(D$.NL$)   :. BAM 
16-18...J.. COMPUTE/DISP BLKS FREE...T..
X.0.2:.Y.0.7.8...BF( (8.X).Y ).(BM(X) . 
2.Y).2.Y.?....Y.F....X.X...."..... "L$L$
......".    TRACK 18 BAM      BLOCKS  CO
MPUTED"......" 0....5....0....5..8   FRE
E     FREE"......" ";.J.$..X.0.18:......
 BF(X) . 0 . . "*";:.:.2380...8.CF.CF.1.
..B.."-";:....L.."   ";:.BL.10.." ";.%.V
..BL;.5.`..".      ";.F.J..CF.10.." ";.T
.T..CF".   ".G.~.. CF.BL . 2450.....BD.1
:."..... "L$"."L$"...". ....". "L$;:.BD.
1..".";:......L$.B...TV.18:SV.0 :. 1ST B
LK.V....1590:. INIT IO......". TR  SE   
 POINTER...D..L2$.. N.SE.SV:TR.TV:.NF.1.
2710.& X.. TV.0 . 2710.7 ... CHAIN NEXT.
@ ..NF.0.O ...1720:. U1.D ...1520:. READ
 ERR.X ..P.0:.1780:. B-P.. ...#2,TR$,SE$
.. ..TV.F(TR$.NL$).. (.SV.F(SE$.NL$).O 2
..1810:NF.IS:. CHK LEGAL SECTOR.. <.BD(S
E).1:.".";..!F..BF(SE)..0..".";:BD.1:BB.
1:.AL.SE,2.%!P.. TV.0 . SV.255 . 2660.F!
Z.."."R1$"_BAD PTR.":BP.1:BB.0.R!D..TR..
18..TR..0.BT.1:.". "L$"..  ":.2680..!N..
BB..R1$"_ALLOCATE.":BB.0..!X..TR;SE,TV;S
V..!... TV.0 . .L2$..!...2510.Q!...1660:
. DONE IO..! .. DISPLAY MISALLOC BLKS.."
...X.0.18:. BD(X).1. 2810.."... BF(X).0 
. 2810.6"..CT.CT.1:.CT.14.2800.Y"H.."...
......"R2$"UNUSED SECTORS.R"R..R2$"ARE A
LLOCATED...."...Y.0.CT:.:..."...R2$"....
SECTOR " X".".."... AL.X,2.."...X.."..."
......WP............................."WP
$.."... WHICH MSG..#..M.0:. BD.1 . M.4:.
 BAD DIR.0#".. CT.0 . M.2:. MISALOC BLKS
.O#,.. BP.1 . M.5:. BAD END PTR.O#6.. BT
.1 . M.11:. DIR OFF TRK..#@.D.23:.1260:.
..#J.:..#T.. FIX DIR..#^.."..    .......
..................#H.."    . .FOLLOWING 
DIRECTORY ....$R.."    .................
..........$|.TR.18:SE.0.#$...1590:. INIT
 IO.)$..:.5$..BF(0).1.D$...1720:. U1.Y$.
..1520:. READ ERR.M$..P.0:.1780:. B-P.}$
B..#2,TR$,SE$..$L.TV.F(TR$.NL$)..$V.SV.F
(SE$.NL$).A$...TV.18.BF(SV).1:SE.SV:.298
0..$... TV..0 . BT.1:NF.1:.3380..%... SV
.255 . .".LAST DIR SECTOR OK   ";:.3110.
=%...               ".FIXING LAST SECTOR
 . ";.Q%..P.1:.1780:. B-P.`%...2,G(255);
.}%..P.0:.1780:.1750:. B-P/U2..%&..1500:
. READ/PRINT..%0.:..%:.. ALLOC ALL BLKS 
TR 18.V%D.TR.18:SE.0:.1590:. REINIT IO..
%N..".READING BAM ........ ";..&X..1720:
. U1..&B..1500:. READ/PRINT.0&L.P.72:.17
80:. B-P.P&V..2,NL$;NL$;NL$;NL$;:. 0 BAM
.D&..P.0:.1780:. B-P..&...".WRITING BAM 
........ ";..&...1750:. U2..&...1500:. R
EAD/PRINT.L&..."..     .................
..."..&..."     . .TRK 18 ALLOCATED ....
'..."     ....................."..'F.:./
'P.. FREE UNUSED BLOCKS.E'Z..1590:. REIN
IT IO.D'...".DEALLOCATING BLKS .. ";.P'.
..X.0.18..'... BF(X) . 3360..'...15,"B-F
";0;18;X..'...15,EN,EM$,ET,ES:. ERR CHN.
.'... EN$.."00" . . "ERROR IN SECTOR"X:.
1550:NF.1..' ..X..(*..1480:. CLOSE/OPEN/
READ/PRINT.&(4..1660:. DONE IO.6(>.. NF 
. 3440.Y(H.."..    .....................
..|(R.."    . .DIRECTORY REPAIRED ....(\
.."    .........................(F.M.7:D
.21:.1260:..U(P.."..     ...............
.......(Z.."     . .REPAIRS FAILED ! ...
.)..."     ......................6)..M.6
:D.21:M.M.BT.5:.1260:..<)..:.S)... EDIT 
DOS VERSION.L)..NDV.66:.3520:. WP ON..).
.NDV.65:. WRITE PROT OFF..)...".........
...        .........................)J..
"        . .EDITING DOS VERSION ....*T..
"        .........................-*... 
NDV=NEW DOS VERSION 1541 => A.D*... WP O
FF=65  ON=66.X*...1590:. INIT IO.Z*..TR.
18:SE.0       :. BAM TRACK..*..JOB.176:.
1920:. SEEK..*..JOB.128:.1920:. READ.L*.
..15,"M-W"G(2)G(4)G(1)G(NDV)..*$.JOB.144
:.1920:. WRITE..*...1660:. DONE IO..+8..
1590:.1660:. INIT/DONE IO..+B.M.8:D.14:.
1260:..4+L.:.W+V.. GET DOS WRITE PROTECT
 STATUS.K+`..1590:. INIT IO..+J..15,"M-R
"G(1)G(1)..+T..#15,A$:WP$."ON"..+~.. A$.
G(65). WP$."OFF".D+...1660:. DONE IO.J+.
.:..+... GET GEOS FORMAT HEADER STUFF..,
..."....        ........................
.A,..."        . .GEO-DISK INFORMATION .
..I,..."        ........................
..},D.TR.18:SE.0:CT.0..,N..1590:. INIT I
O. ,X..1720:. U1..,..P.171:.1780:. B-P.L
,...#2,A$,B$:. TR/SE..-..ID$."":.X.173 .
 188:.#2,C$:ID$.ID$.C$:.:. GEOSFORMAT ST
RING..-...#2,D$:. MASTER/BOOT/WORK FLG.B
-...1660:. DONE IO.^-... H(ID$,4)."GEOS"
. 3910..-..."..        .................
.........-(.."        . .NOT A GEOS TYPE
 DISK ...X-2.."        .................
..........-<.M.0:D.12:.1260:....F.TR.F(A
$.NL$):SE.F(B$.NL$).%.P..".    ."ID$"  -
-  ";.>.Z..D$."B"..".BOOT DISK.Y.D..D$."
P"..".MASTER DISK.R.N..D$."" ..".WORK DI
SK...X..".. "L$L$......".  DESKTOP BORDE
R PG   ";......"TR ="TR"."..............
........................................
........................................
........................................
........................................
........................................
........................................
.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL