Multiple names: FILE SCOUT, PROOFREADER

00000000: 01 08 1A 08 05 00 8F 20  2A 2A 2A 20 46 49 4C 45  |....... *** FILE|
00000010: 20 53 43 4F 55 54 20 2A  2A 2A 00 40 08 0A 00 97  | SCOUT ***.@....|
00000020: 35 33 32 38 30 2C 31 32  3A 97 35 33 32 38 31 2C  |53280,12:.53281,|
00000030: 30 3A 99 C7 28 31 34 37  29 C7 28 31 35 34 29 3B  |0:..(147).(154);|
00000040: 00 5A 08 10 00 48 24 B2  22 30 31 32 33 34 35 36  |.Z...H$."0123456|
00000050: 37 38 39 41 42 43 44 45  46 22 00 64 08 14 00 89  |789ABCDEF".d....|
00000060: 31 30 30 30 00 71 08 32  00 8F 20 4C 4F 43 41 54  |1000.q.2.. LOCAT|
00000070: 45 00 8E 08 33 00 97 32  31 34 2C 52 57 3A 97 32  |E...3..214,RW:.2|
00000080: 31 31 2C 43 4C 3A 9E 35  38 36 34 30 3A 8E 00 AE  |11,CL:.58640:...|
00000090: 08 3C 00 8F 20 53 45 54  20 52 4F 57 2C 20 43 4F  |.<.. SET ROW, CO|
000000A0: 4C 55 4D 4E 53 20 46 4F  52 20 53 43 41 4E 00 C1  |LUMNS FOR SCAN..|
000000B0: 08 3D 00 86 52 57 28 33  35 29 2C 43 4C 28 33 35  |.=..RW(35),CL(35|
000000C0: 29 00 E2 08 3E 00 81 49  B2 30 A4 31 36 3A 52 57  |)...>..I.0.16:RW|
000000D0: 28 49 29 B2 49 AA 36 3A  43 4C 28 49 29 B2 34 3A  |(I).I.6:CL(I).4:|
000000E0: 82 49 00 0A 09 3F 00 81  49 B2 31 37 A4 33 34 3A  |.I...?..I.17.34:|
000000F0: 52 57 28 49 29 B2 28 49  AA 36 29 AB 31 37 3A 43  |RW(I).(I.6).17:C|
00000100: 4C 28 49 29 B2 31 39 3A  82 49 00 10 09 41 00 8E  |L(I).19:.I...A..|
00000110: 00 16 09 63 00 3A 00 5F  09 64 00 8F 20 2A 2A 20  |...c.:._.d.. ** |
00000120: 43 4F 4C 4C 45 43 54 20  41 4C 4C 20 54 48 45 20  |COLLECT ALL THE |
00000130: 41 43 54 49 56 45 20 46  49 4C 45 53 20 41 4E 44  |ACTIVE FILES AND|
00000140: 20 54 48 45 49 52 20 46  49 52 53 54 20 54 52 41  | THEIR FIRST TRA|
00000150: 43 4B 20 26 20 53 45 43  54 4F 52 53 20 2A 2A 00  |CK & SECTORS **.|
00000160: 87 09 65 00 52 57 B2 35  3A 43 4C B2 36 3A 8D 35  |..e.RW.5:CL.6:.5|
00000170: 30 3A 99 22 52 45 41 44  49 4E 47 20 44 49 52 45  |0:."READING DIRE|
00000180: 43 54 4F 52 59 22 3B 00  99 09 69 00 9F 31 35 2C  |CTORY";...i..15,|
00000190: 38 2C 31 35 2C 22 55 3B  22 00 C6 09 6E 00 4E 31  |8,15,"U;"...n.N1|
000001A0: B2 31 34 34 3A 86 46 24  28 4E 31 29 2C 54 28 4E  |.144:.F$(N1),T(N|
000001B0: 31 29 2C 53 28 4E 31 29  2C 42 28 4E 31 29 2C 46  |1),S(N1),B(N1),F|
000001C0: 54 24 28 4E 31 29 00 D6  09 73 00 9F 32 2C 38 2C  |T$(N1)...s..2,8,|
000001D0: 32 2C 22 23 32 22 00 EA  09 78 00 54 44 B2 31 38  |2,"#2"...x.TD.18|
000001E0: 3A 54 53 B2 31 3A 4E 46  B2 30 00 01 0A 82 00 98  |:TS.1:NF.0......|
000001F0: 31 35 2C 22 55 31 3A 32  2C 38 2C 22 54 44 2C 54  |15,"U1:2,8,"TD,T|
00000200: 53 00 2F 0A 8C 00 A1 23  32 2C 41 24 3A 54 44 B2  |S./....#2,A$:TD.|
00000210: C6 28 41 24 AA C7 28 30  29 29 3A A1 23 32 2C 41  |.(A$..(0)):.#2,A|
00000220: 24 3A 54 53 B2 C6 28 41  24 AA C7 28 30 29 29 00  |$:TS..(A$..(0)).|
00000230: 3A 0A 91 00 81 4B B2 30  A4 37 00 5D 0A 96 00 A1  |:....K.0.7.]....|
00000240: 23 32 2C 41 24 3A 8B C6  28 41 24 AA C7 28 30 29  |#2,A$:..(A$..(0)|
00000250: 29 B2 30 A7 8D 33 30 30  3A 89 32 33 30 00 84 0A  |).0..300:.230...|
00000260: 97 00 41 B2 C6 28 41 24  29 3A 8B 28 41 AF 36 34  |..A..(A$):.(A.64|
00000270: 29 B2 30 A7 46 54 24 28  4E 46 29 B2 22 A0 22 3A  |).0.FT$(NF).".":|
00000280: 89 31 35 33 00 94 0A 98  00 46 54 24 28 4E 46 29  |.153.....FT$(NF)|
00000290: B2 22 3E 22 00 A7 0A 99  00 41 B2 28 41 AF 28 32  |.">".....A.(A.(2|
000002A0: 35 35 AB 36 34 29 29 00  C8 0A 9B 00 8B 41 B2 31  |55.64))......A.1|
000002B0: 32 39 A7 46 54 24 28 4E  46 29 B2 46 54 24 28 4E  |29.FT$(NF).FT$(N|
000002C0: 46 29 AA 22 53 45 51 22  00 E9 0A 9C 00 8B 41 B2  |F)."SEQ"......A.|
000002D0: 31 33 30 A7 46 54 24 28  4E 46 29 B2 46 54 24 28  |130.FT$(NF).FT$(|
000002E0: 4E 46 29 AA 22 50 52 47  22 00 0A 0B 9D 00 8B 41  |NF)."PRG"......A|
000002F0: B2 31 33 31 A7 46 54 24  28 4E 46 29 B2 46 54 24  |.131.FT$(NF).FT$|
00000300: 28 4E 46 29 AA 22 55 53  52 22 00 3E 0B A0 00 A1  |(NF)."USR".>....|
00000310: 23 32 2C 41 24 3A A1 23  32 2C 42 24 3A 54 28 4E  |#2,A$:.#2,B$:T(N|
00000320: 46 29 B2 C6 28 41 24 AA  C7 28 30 29 29 3A 53 28  |F)..(A$..(0)):S(|
00000330: 4E 46 29 B2 C6 28 42 24  AA C7 28 30 29 29 00 51  |NF)..(B$..(0)).Q|
00000340: 0B A5 00 81 4A B2 30 A4  31 35 3A A1 23 32 2C 41  |....J.0.15:.#2,A|
00000350: 24 00 65 0B AA 00 8B 41  24 B2 C7 28 31 36 30 29  |$.e....A$..(160)|
00000360: A7 89 31 39 30 00 7A 0B  B4 00 46 24 28 4E 46 29  |..190.z...F$(NF)|
00000370: B2 46 24 28 4E 46 29 AA  41 24 00 81 0B BE 00 82  |.F$(NF).A$......|
00000380: 4A 00 87 0B C7 00 3A 00  9C 0B C8 00 81 4A B2 30  |J.....:......J.0|
00000390: A4 38 3A A1 23 32 2C 41  24 3A 82 4A 00 DA 0B D2  |.8:.#2,A$:.J....|
000003A0: 00 A1 23 32 2C 41 24 3A  A1 23 32 2C 42 24 3A 42  |..#2,A$:.#2,B$:B|
000003B0: 28 4E 46 29 B2 C6 28 41  24 AA C7 28 30 29 29 AA  |(NF)..(A$..(0)).|
000003C0: C6 28 42 24 AA C7 28 30  29 29 AC 32 35 36 3A 42  |.(B$..(0)).256:B|
000003D0: 41 B2 42 41 AA 42 28 4E  46 29 00 E6 0B E0 00 4E  |A.BA.B(NF).....N|
000003E0: 46 B2 4E 46 AA 31 00 F8  0B E1 00 A1 23 32 2C 41  |F.NF.1......#2,A|
000003F0: 24 3A A1 23 32 2C 41 24  00 FF 0B E6 00 82 4B 00  |$:.#2,A$......K.|
00000400: 10 0C F0 00 8B 54 44 B3  B1 31 38 A7 89 32 34 35  |.....TD..18..245|
00000410: 00 25 0C F1 00 8B 54 53  B3 31 B0 54 53 B1 31 39  |.%....TS.1.TS.19|
00000420: A7 89 32 34 35 00 2E 0C  F2 00 89 31 33 30 00 46  |..245......130.F|
00000430: 0C F5 00 8B 4E 46 B2 30  A7 99 22 4E 4F 20 46 49  |....NF.0.."NO FI|
00000440: 4C 45 53 22 3A 80 00 59  0C F6 00 A0 32 3A 42 46  |LES":..Y....2:BF|
00000450: B2 36 36 34 AB 42 41 3A  8E 00 5F 0C 2B 01 3A 00  |.664.BA:.._.+.:.|
00000460: 6B 0C 2C 01 81 4A B2 30  A4 33 30 00 79 0C 36 01  |k.,..J.0.30.y.6.|
00000470: A1 23 32 2C 41 24 3A 82  4A 00 7F 0C 40 01 8E 00  |.#2,A$:.J...@...|
00000480: 85 0C 8F 01 3A 00 9A 0C  90 01 8F 20 53 43 41 4E  |....:...... SCAN|
00000490: 20 46 4F 52 20 54 20 26  20 53 00 B3 0C 95 01 52  | FOR T & S.....R|
000004A0: 57 B2 32 34 3A 43 4C B2  31 3A 8D 35 30 3A 99 42  |W.24:CL.1:.50:.B|
000004B0: 4C 24 3B 00 EB 0C 9A 01  52 57 B2 32 33 3A 43 4C  |L$;.....RW.23:CL|
000004C0: B2 32 3A 8D 35 30 3A 46  24 B2 22 22 3A 4B 31 B2  |.2:.50:F$."":K1.|
000004D0: AB 31 3A 99 C7 28 31 35  38 29 3B 3A 85 22 46 49  |.1:..(158);:."FI|
000004E0: 4C 45 20 4E 41 4D 45 22  3B 46 24 00 09 0D 9B 01  |LE NAME";F$.....|
000004F0: 8B 46 24 B2 22 22 A7 52  57 B2 32 33 3A 43 4C B2  |.F$."".RW.23:CL.|
00000500: 31 3A 99 42 4C 24 3B 3A  8E 00 3A 0D 9C 01 4C 4E  |1:.BL$;:..:...LN|
00000510: B2 C3 28 46 24 29 3A 8B  C9 28 46 24 2C 31 29 B2  |..(F$):..(F$,1).|
00000520: 22 2A 22 A7 4C 4E B2 C3  28 46 24 29 AB 31 3A 46  |"*".LN..(F$).1:F|
00000530: 24 B2 C8 28 46 24 2C 4C  4E 29 00 46 0D A4 01 81  |$..(F$,LN).F....|
00000540: 4B B2 30 A4 4E 46 00 57  0D A6 01 8B 4B 31 B3 B1  |K.0.NF.W....K1..|
00000550: AB 31 A7 89 34 33 30 00  70 0D A9 01 8B 46 24 B2  |.1..430.p....F$.|
00000560: C8 28 46 24 28 4B 29 2C  4C 4E 29 A7 4B 31 B2 4B  |.(F$(K),LN).K1.K|
00000570: 00 77 0D AE 01 82 4B 00  AC 0D AF 01 8B 4B 31 B2  |.w....K......K1.|
00000580: AB 31 A7 99 22 20 20 20  20 4E 4F 54 20 46 4F 55  |.1.."    NOT FOU|
00000590: 4E 44 22 3B 3A 81 4B B2  30 A4 32 30 30 30 3A 82  |ND";:.K.0.2000:.|
000005A0: 4B 3A 99 C7 28 31 35 34  29 3B 3A 8E 00 C2 0D B3  |K:..(154);:.....|
000005B0: 01 54 52 B2 54 28 4B 31  29 3A 53 43 B2 53 28 4B  |.TR.T(K1):SC.S(K|
000005C0: 31 29 00 DD 0D B8 01 42  43 B2 30 3A 43 B2 30 3A  |1).....BC.0:C.0:|
000005D0: 54 34 24 B2 22 54 52 4B  20 53 45 43 22 00 FA 0D  |T4$."TRK SEC"...|
000005E0: BD 01 98 31 35 2C 22 49  30 3A 22 3A A0 32 3A 9F  |...15,"I0:":.2:.|
000005F0: 32 2C 38 2C 32 2C 22 23  32 22 00 1B 0E C2 01 99  |2,8,2,"#2"......|
00000600: 48 44 24 3B 3A 52 57 B2  32 3A 43 4C B2 31 3A 8D  |HD$;:RW.2:CL.1:.|
00000610: 35 30 3A 99 46 24 28 4B  31 29 3B 00 33 0E C7 01  |50:.F$(K1);.3...|
00000620: 52 57 B2 34 3A 43 4C B2  36 3A 8D 35 30 3A 99 54  |RW.4:CL.6:.50:.T|
00000630: 34 24 3B 00 57 0E CC 01  52 57 B2 52 57 28 43 29  |4$;.W...RW.RW(C)|
00000640: 3A 43 4C B2 43 4C 28 43  29 3A 8D 35 30 3A 99 42  |:CL.CL(C):.50:.B|
00000650: 43 3B 54 52 3B 53 43 00  6B 0E D1 01 8D 35 39 30  |C;TR;SC.k....590|
00000660: 3A 8B 54 52 B2 30 A7 89  34 38 30 00 7D 0E D6 01  |:.TR.0..480.}...|
00000670: 42 43 B2 42 43 AA 31 3A  43 B2 43 AA 31 00 8C 0E  |BC.BC.1:C.C.1...|
00000680: DB 01 8B 43 B3 33 34 A7  89 34 36 30 00 BD 0E E0  |...C.34..460....|
00000690: 01 52 57 B2 32 34 3A 43  4C B2 31 30 3A 8D 35 30  |.RW.24:CL.10:.50|
000006A0: 3A 99 C7 28 35 29 22 4E  45 58 54 20 20 50 52 49  |:..(5)"NEXT  PRI|
000006B0: 4E 54 20 20 52 45 54 55  52 4E 20 22 3B 00 D1 0E  |NT  RETURN ";...|
000006C0: E2 01 8D 37 30 30 3A 99  41 24 C7 28 31 35 38 29  |...700:.A$.(158)|
000006D0: 3B 00 F1 0E EA 01 8B 41  24 B2 22 4E 22 AF 42 43  |;......A$."N".BC|
000006E0: B3 42 28 4B 31 29 AB 31  A7 43 B2 30 3A 89 34 35  |.B(K1).1.C.0:.45|
000006F0: 30 00 0D 0F EC 01 8B 41  24 B2 22 4E 22 AF 42 43  |0......A$."N".BC|
00000700: B2 42 28 4B 31 29 AB 31  A7 89 34 33 35 00 23 0F  |.B(K1).1..435.#.|
00000710: EF 01 8B 41 24 B2 22 50  22 A7 8D 35 30 30 3A 89  |...A$."P"..500:.|
00000720: 34 33 35 00 3D 0F F0 01  8B 41 24 B2 22 52 22 A7  |435.=....A$."R".|
00000730: A0 32 3A 99 C7 28 31 35  34 29 3B 3A 8E 00 46 0F  |.2:..(154);:..F.|
00000740: F1 01 89 34 38 32 00 4C  0F F3 01 3A 00 66 0F F4  |...482.L...:.f..|
00000750: 01 8F 20 50 52 49 4E 54  20 4F 55 54 20 46 4F 52  |.. PRINT OUT FOR|
00000760: 20 54 20 26 20 53 00 74  0F F9 01 9F 34 2C 34 3A  | T & S.t....4,4:|
00000770: 42 43 B2 30 00 82 0F FE  01 98 34 2C 46 24 28 4B  |BC.0......4,F$(K|
00000780: 31 29 00 98 0F 03 02 54  52 B2 54 28 4B 31 29 3A  |1).....TR.T(K1):|
00000790: 53 43 B2 53 28 4B 31 29  00 B7 0F 08 02 98 34 2C  |SC.S(K1)......4,|
000007A0: C7 28 31 33 29 C7 28 31  33 29 54 34 24 C7 28 31  |.(13).(13)T4$.(1|
000007B0: 33 29 C7 28 31 33 29 00  C7 0F 0D 02 98 34 2C 42  |3).(13)......4,B|
000007C0: 43 2C 54 52 2C 53 43 00  D8 0F 12 02 8D 35 39 30  |C,TR,SC......590|
000007D0: 3A 42 43 B2 42 43 AA 31  00 EA 0F 17 02 8B 54 52  |:BC.BC.1......TR|
000007E0: B2 30 A7 98 34 3A A0 34  3A 8E 00 F3 0F 1C 02 89  |.0..4:.4:.......|
000007F0: 35 32 35 00 0A 10 4E 02  98 31 35 2C 22 55 31 3A  |525...N..15,"U1:|
00000800: 32 2C 38 22 2C 54 52 2C  53 43 00 23 10 53 02 A1  |2,8",TR,SC.#.S..|
00000810: 23 32 2C 41 24 3A 54 52  B2 C6 28 41 24 AA C7 28  |#2,A$:TR..(A$..(|
00000820: 30 29 29 00 3C 10 54 02  A1 23 32 2C 41 24 3A 53  |0)).<.T..#2,A$:S|
00000830: 43 B2 C6 28 41 24 AA C7  28 30 29 29 00 42 10 55  |C..(A$..(0)).B.U|
00000840: 02 8E 00 48 10 57 02 3A  00 6C 10 58 02 8F 20 2A  |...H.W.:.l.X.. *|
00000850: 2A 20 47 45 54 20 4C 4F  41 44 20 41 44 44 52 20  |* GET LOAD ADDR |
00000860: 50 52 47 20 46 49 4C 45  53 20 2A 2A 00 81 10 5D  |PRG FILES **...]|
00000870: 02 86 20 4C 41 28 4E 31  29 2C 4C 48 24 28 4E 31  |.. LA(N1),LH$(N1|
00000880: 29 00 91 10 62 02 9F 32  2C 38 2C 32 2C 22 23 32  |)...b..2,8,2,"#2|
00000890: 22 00 9F 10 6C 02 81 49  B2 30 A4 4E 46 AB 31 00  |"...l..I.0.NF.1.|
000008A0: C5 10 71 02 8B C9 28 46  54 24 28 49 29 2C 33 29  |..q...(FT$(I),3)|
000008B0: B3 B1 22 50 52 47 22 A7  4C 41 28 49 29 B2 AB 31  |.."PRG".LA(I)..1|
000008C0: 3A 89 36 35 30 00 E0 10  76 02 98 31 35 2C 22 55  |:.650...v..15,"U|
000008D0: 31 3A 32 2C 38 2C 22 54  28 49 29 2C 53 28 49 29  |1:2,8,"T(I),S(I)|
000008E0: 00 F2 10 78 02 98 31 35  2C 22 42 2D 50 3A 22 32  |...x..15,"B-P:"2|
000008F0: 2C 30 00 12 11 7B 02 A1  23 32 2C 41 24 3A A1 23  |,0...{..#2,A$:.#|
00000900: 32 2C 41 24 3A A1 23 32  2C 41 24 3A A1 23 32 2C  |2,A$:.#2,A$:.#2,|
00000910: 42 24 00 30 11 7C 02 41  B2 C6 28 41 24 AA C7 28  |B$.0.|.A..(A$..(|
00000920: 30 29 29 3A 42 B2 C6 28  42 24 AA C7 28 30 29 29  |0)):B..(B$..(0))|
00000930: 00 42 11 80 02 4C 41 28  49 29 B2 41 AA 42 AC 32  |.B...LA(I).A.B.2|
00000940: 35 36 00 5E 11 81 02 42  48 B2 B5 28 42 AD 31 36  |56.^...BH..(B.16|
00000950: 29 3A 42 4C B2 42 AB 28  42 48 AC 31 36 29 00 7A  |):BL.B.(BH.16).z|
00000960: 11 82 02 41 48 B2 B5 28  41 AD 31 36 29 3A 41 4C  |...AH..(A.16):AL|
00000970: B2 41 AB 28 41 48 AC 31  36 29 00 9F 11 83 02 4C  |.A.(AH.16).....L|
00000980: 48 24 28 49 29 B2 CA 28  48 24 2C 42 48 AA 31 2C  |H$(I)..(H$,BH.1,|
00000990: 31 29 AA CA 28 48 24 2C  42 4C AA 31 2C 31 29 00  |1)..(H$,BL.1,1).|
000009A0: CF 11 84 02 4C 48 24 28  49 29 B2 22 24 22 AA 4C  |....LH$(I)."$".L|
000009B0: 48 24 28 49 29 AA CA 28  48 24 2C 41 48 AA 31 2C  |H$(I)..(H$,AH.1,|
000009C0: 31 29 AA CA 28 48 24 2C  41 4C AA 31 2C 31 29 00  |1)..(H$,AL.1,1).|
000009D0: D6 11 8A 02 82 49 00 DF  11 8F 02 A0 32 3A 8E 00  |.....I......2:..|
000009E0: E5 11 BB 02 3A 00 09 12  BC 02 8F 20 47 45 54 20  |....:...... GET |
000009F0: 43 48 41 52 20 46 52 4F  4D 20 4B 42 2C 20 57 49  |CHAR FROM KB, WI|
00000A00: 54 48 20 43 55 52 53 4F  52 00 1B 12 C1 02 97 31  |TH CURSOR......1|
00000A10: 39 38 2C 30 3A 97 32 30  34 2C 30 00 36 12 C6 02  |98,0:.204,0.6...|
00000A20: A1 41 24 3A 97 32 30 37  2C 30 3A 8B 41 24 B2 22  |.A$:.207,0:.A$."|
00000A30: 22 A7 89 37 31 30 00 4F  12 CB 02 97 32 30 34 2C  |"..710.O....204,|
00000A40: 31 3A 99 22 20 22 C7 28  31 35 37 29 3B 3A 8E 00  |1:." ".(157);:..|
00000A50: 66 12 D5 02 A0 31 35 3A  9F 31 35 2C 38 2C 31 35  |f....15:.15,8,15|
00000A60: 2C 22 49 30 3A 22 00 7E  12 DA 02 84 31 35 2C 41  |,"I0:".~....15,A|
00000A70: 24 2C 42 24 2C 43 24 2C  44 24 3A A0 31 35 00 8D  |$,B$,C$,D$:.15..|
00000A80: 12 DF 02 8B 41 24 B2 22  30 30 22 A7 8E 00 A5 12  |....A$."00".....|
00000A90: E4 02 99 3A 99 3A 99 22  44 49 53 4B 20 45 52 52  |...:.:."DISK ERR|
00000AA0: 4F 52 22 3A 90 00 AB 12  ED 02 3A 00 C4 12 EE 02  |OR":......:.....|
00000AB0: 8F 20 47 45 54 20 44 49  53 4B 20 4E 41 4D 45 20  |. GET DISK NAME |
00000AC0: 26 20 49 44 00 D6 12 F8  02 9F 31 35 2C 38 2C 31  |& ID......15,8,1|
00000AD0: 35 2C 22 55 3B 22 00 E6  12 02 03 9F 32 2C 38 2C  |5,"U;"......2,8,|
00000AE0: 32 2C 22 23 32 22 00 08  13 07 03 54 44 B2 31 38  |2,"#2".....TD.18|
00000AF0: 3A 54 53 B2 30 3A 98 31  35 2C 22 55 31 3A 32 2C  |:TS.0:.15,"U1:2,|
00000B00: 38 2C 22 54 44 2C 54 53  00 25 13 0C 03 98 31 35  |8,"TD,TS.%....15|
00000B10: 2C 22 4D 2D 52 22 C7 28  31 34 34 29 C7 28 35 29  |,"M-R".(144).(5)|
00000B20: C7 28 32 30 29 00 47 13  0E 03 81 49 B2 30 A4 31  |.(20).G....I.0.1|
00000B30: 39 3A A1 23 31 35 2C 41  24 3A 44 4E 24 B2 44 4E  |9:.#15,A$:DN$.DN|
00000B40: 24 AA 41 24 3A 82 49 00  54 13 1B 03 A0 32 3A A0  |$.A$:.I.T....2:.|
00000B50: 31 35 3A 8E 00 5A 13 1F  03 3A 00 6A 13 20 03 54  |15:..Z...:.j. .T|
00000B60: 31 24 B2 44 4E 24 AA 4E  46 24 00 A4 13 21 03 54  |1$.DN$.NF$...!.T|
00000B70: 32 24 B2 22 42 4C 4F 43  4B 53 20 41 4C 4C 4F 43  |2$."BLOCKS ALLOC|
00000B80: 3A A0 22 AA C4 28 42 41  29 AA 22 20 42 4C 4F 43  |:."..(BA)." BLOC|
00000B90: 4B 53 20 46 52 45 45 3A  20 22 AA C4 28 42 46 29  |KS FREE: "..(BF)|
00000BA0: AA 22 20 22 00 E9 13 22  03 54 33 24 B2 22 46 49  |." "...".T3$."FI|
00000BB0: 4C 45 20 20 20 20 20 20  20 20 20 20 20 20 54 59  |LE            TY|
00000BC0: 50 45 20 54 52 4B 20 53  45 43 20 42 4C 4B 20 41  |PE TRK SEC BLK A|
00000BD0: 44 44 52 2E 44 20 41 44  44 52 2E 48 22 3A 53 31  |DDR.D ADDR.H":S1|
00000BE0: 24 B2 22 20 20 20 20 20  22 00 F5 13 25 03 9F 34  |$."     "...%..4|
00000BF0: 2C 34 3A 9D 34 00 15 14  28 03 99 53 31 24 54 31  |,4:.4...(..S1$T1|
00000C00: 24 3A 99 53 31 24 54 32  24 3A 99 3A 99 53 31 24  |$:.S1$T2$:.:.S1$|
00000C10: 54 33 24 3A 99 00 23 14  2A 03 81 4B B2 30 A4 4E  |T3$:..#.*..K.0.N|
00000C20: 46 AB 31 00 55 14 34 03  99 53 31 24 46 24 28 4B  |F.1.U.4..S1$F$(K|
00000C30: 29 3B 3A 81 4A B2 30 A4  31 36 AB C3 28 46 24 28  |);:.J.0.16..(F$(|
00000C40: 4B 29 29 3A 99 22 20 22  3B 3A 82 4A 3A 99 46 54  |K)):." ";:.J:.FT|
00000C50: 24 28 4B 29 3B 00 66 14  3D 03 53 50 24 B2 22 20  |$(K);.f.=.SP$." |
00000C60: 20 20 20 20 20 22 00 8A  14 3E 03 41 24 B2 C4 28  |     "...>.A$..(|
00000C70: 54 28 4B 29 29 3A 41 24  B2 41 24 AA C9 28 53 50  |T(K)):A$.A$..(SP|
00000C80: 24 2C 33 AB C3 28 41 24  29 29 00 AE 14 3F 03 42  |$,3..(A$))...?.B|
00000C90: 24 B2 C4 28 53 28 4B 29  29 3A 42 24 B2 42 24 AA  |$..(S(K)):B$.B$.|
00000CA0: C9 28 53 50 24 2C 33 AB  C3 28 42 24 29 29 00 D2  |.(SP$,3..(B$))..|
00000CB0: 14 40 03 43 24 B2 C4 28  42 28 4B 29 29 3A 43 24  |.@.C$..(B(K)):C$|
00000CC0: B2 43 24 AA C9 28 53 50  24 2C 34 AB C3 28 43 24  |.C$..(SP$,4..(C$|
00000CD0: 29 29 00 FC 14 48 03 99  41 24 A6 31 29 42 24 A6  |))...H..A$.1)B$.|
00000CE0: 31 29 43 24 A6 31 29 3B  3A 8B 4C 41 28 4B 29 B3  |1)C$.1);:.LA(K).|
00000CF0: 30 A7 99 53 50 24 3B 3A  89 38 34 35 00 28 15 49  |0..SP$;:.845.(.I|
00000D00: 03 44 24 B2 C4 28 4C 41  28 4B 29 29 3A 44 24 B2  |.D$..(LA(K)):D$.|
00000D10: 44 24 AA C9 28 53 50 24  2C 36 AB C3 28 44 24 29  |D$..(SP$,6..(D$)|
00000D20: 29 3A 99 44 24 A6 31 29  00 34 15 4D 03 99 4C 48  |):.D$.1).4.M..LH|
00000D30: 24 28 4B 29 00 3B 15 52  03 82 4B 00 50 15 5C 03  |$(K).;.R..K.P.\.|
00000D40: 98 34 2C C7 28 31 33 29  3A 98 34 3A A0 34 3A 8E  |.4,.(13):.4:.4:.|
00000D50: 00 56 15 83 03 3A 00 6F  15 E8 03 8F 20 2A 2A 20  |.V...:.o.... ** |
00000D60: 4D 41 49 4E 20 52 4F 55  54 49 4E 45 20 2A 2A 00  |MAIN ROUTINE **.|
00000D70: 93 15 E9 03 52 30 24 B2  C7 28 31 34 36 29 3A 52  |....R0$..(146):R|
00000D80: 39 24 B2 C7 28 31 38 29  3A 43 4C 24 B2 C7 28 31  |9$..(18):CL$..(1|
00000D90: 34 37 29 00 C4 15 EA 03  42 4C 24 B2 22 20 20 20  |47).....BL$."   |
00000DA0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000DB0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000DC0: 20 20 20 22 00 03 16 EB  03 48 44 24 B2 43 4C 24  |   ".....HD$.CL$|
00000DD0: AA 52 39 24 AA 22 20 20  20 20 20 20 20 20 20 20  |.R9$."          |
00000DE0: 20 46 49 4C 45 20 53 43  4F 55 54 20 56 30 36 31  | FILE SCOUT V061|
00000DF0: 39 2F 38 35 20 20 20 20  20 20 20 20 20 20 22 AA  |9/85          ".|
00000E00: 52 30 24 00 11 16 EC 03  99 48 44 24 3B 3A 8D 36  |R0$......HD$;:.6|
00000E10: 30 00 42 16 ED 03 52 57  B2 33 3A 43 4C B2 31 3A  |0.B...RW.3:CL.1:|
00000E20: 8D 35 30 3A 99 22 49 4E  53 45 52 54 20 44 49 53  |.50:."INSERT DIS|
00000E30: 4B 20 41 4E 44 20 48 49  54 20 41 20 4B 45 59 20  |K AND HIT A KEY |
00000E40: 22 3B 00 55 16 EE 03 8D  37 30 30 3A 8D 37 32 35  |";.U....700:.725|
00000E50: 3A 8D 37 35 30 00 63 16  F2 03 8D 31 30 30 3A 8D  |:.750.c....100:.|
00000E60: 36 30 30 00 69 16 F7 03  99 00 80 16 78 05 4E 46  |600.i.......x.NF|
00000E70: 24 B2 C4 28 4E 46 29 3A  4C B2 C3 28 4E 46 24 29  |$..(NF):L..(NF$)|
00000E80: 00 93 16 79 05 46 4C 24  B2 C9 28 42 4C 24 2C 39  |...y.FL$..(BL$,9|
00000E90: AB 4C 29 00 B1 16 7D 05  4E 46 24 B2 22 20 23 20  |.L)...}.NF$." # |
00000EA0: 46 49 4C 45 53 20 3A 20  22 AA 4E 46 24 AA 46 4C  |FILES : ".NF$.FL|
00000EB0: 24 00 C9 16 82 05 54 48  24 B2 43 4C 24 AA 52 39  |$.....TH$.CL$.R9|
00000EC0: 24 AA 44 4E 24 AA 4E 46  24 00 01 17 DD 05 53 50  |$.DN$.NF$.....SP|
00000ED0: 24 B2 22 20 20 20 20 20  20 20 20 20 22 3A 4C B2  |$."         ":L.|
00000EE0: C3 28 C4 28 42 41 29 29  AA C3 28 C4 28 42 46 29  |.(.(BA))..(.(BF)|
00000EF0: 29 3A 46 4C 24 B2 C9 28  53 50 24 2C 31 34 AB 4C  |):FL$..(SP$,14.L|
00000F00: 29 00 3D 17 DE 05 54 4A  24 B2 52 39 24 AA 22 42  |).=...TJ$.R9$."B|
00000F10: 4C 4F 43 4B 53 20 41 4C  4C 4F 43 3A 22 AA C4 28  |LOCKS ALLOC:"..(|
00000F20: 42 41 29 AA 22 20 42 4C  4F 43 4B 53 20 46 52 45  |BA)." BLOCKS FRE|
00000F30: 45 3A 22 AA C4 28 42 46  29 AA 46 4C 24 00 7C 17  |E:"..(BF).FL$.|.|
00000F40: DF 05 54 4C 24 B2 52 39  24 AA 22 46 49 4C 45 20  |..TL$.R9$."FILE |
00000F50: 20 20 20 20 20 20 20 20  20 20 20 20 54 59 50 45  |            TYPE|
00000F60: 20 54 52 4B 20 53 45 43  20 42 4C 4B 20 41 44 44  | TRK SEC BLK ADD|
00000F70: 52 20 20 22 AA 52 30 24  3A 49 B2 30 00 92 17 E1  |R  ".R0$:I.0....|
00000F80: 05 99 54 48 24 3B 3A 99  54 4A 24 3A 99 54 4C 24  |..TH$;:.TJ$:.TL$|
00000F90: 3A 99 00 C1 17 F0 05 99  46 24 28 49 29 3B 3A 81  |:.......F$(I);:.|
00000FA0: 4A B2 30 A4 31 36 AB C3  28 46 24 28 49 29 29 3A  |J.0.16..(F$(I)):|
00000FB0: 99 22 20 22 3B 3A 82 4A  3A 99 46 54 24 28 49 29  |." ";:.J:.FT$(I)|
00000FC0: 3B 00 D2 17 F9 05 53 50  24 B2 22 20 20 20 20 20  |;.....SP$."     |
00000FD0: 20 22 00 F6 17 FA 05 41  24 B2 C4 28 54 28 49 29  | ".....A$..(T(I)|
00000FE0: 29 3A 41 24 B2 41 24 AA  C9 28 53 50 24 2C 33 AB  |):A$.A$..(SP$,3.|
00000FF0: C3 28 41 24 29 29 00 1A  18 FB 05 42 24 B2 C4 28  |.(A$)).....B$..(|
00001000: 53 28 49 29 29 3A 42 24  B2 42 24 AA C9 28 53 50  |S(I)):B$.B$..(SP|
00001010: 24 2C 33 AB C3 28 42 24  29 29 00 3E 18 FC 05 43  |$,3..(B$)).>...C|
00001020: 24 B2 C4 28 42 28 49 29  29 3A 43 24 B2 43 24 AA  |$..(B(I)):C$.C$.|
00001030: C9 28 53 50 24 2C 34 AB  C3 28 43 24 29 29 00 60  |.(SP$,4..(C$)).`|
00001040: 18 04 06 99 41 24 A6 31  29 42 24 A6 31 29 43 24  |....A$.1)B$.1)C$|
00001050: 3B 3A 8B 4C 41 28 49 29  B3 30 A7 89 31 35 34 35  |;:.LA(I).0..1545|
00001060: 00 6E 18 05 06 99 C4 28  4C 41 28 49 29 29 00 7E  |.n.....(LA(I)).~|
00001070: 18 09 06 99 A6 33 34 29  4C 48 24 28 49 29 00 94  |.....34)LH$(I)..|
00001080: 18 0A 06 49 B2 49 AA 31  3A 8B 49 B2 4E 46 A7 89  |...I.I.1:.I.NF..|
00001090: 31 35 34 38 00 AD 18 0B  06 8B 49 AD 38 AB B5 28  |1548......I.8..(|
000010A0: 49 AD 38 29 B3 B1 30 A7  89 31 35 32 30 00 E6 18  |I.8)..0..1520...|
000010B0: 0C 06 52 57 B2 32 34 3A  43 4C B2 35 3A 8D 35 30  |..RW.24:CL.5:.50|
000010C0: 3A 99 C7 28 35 29 22 20  4E 45 58 54 20 53 43 4F  |:..(5)" NEXT SCO|
000010D0: 55 54 20 50 52 49 4E 54  20 42 4F 4F 54 20 51 55  |UT PRINT BOOT QU|
000010E0: 49 54 3F A0 22 3B 00 FD  18 0D 06 8D 37 30 30 3A  |IT?.";......700:|
000010F0: 99 41 24 3B 3A 99 C7 28  31 35 34 29 3B 00 1C 19  |.A$;:..(154);...|
00001100: 0E 06 8B 41 24 B2 22 50  22 A7 8D 38 30 30 3A 99  |...A$."P"..800:.|
00001110: C7 28 32 30 29 3B 3A 89  31 35 34 38 00 33 19 13  |.(20);:.1548.3..|
00001120: 06 8B 41 24 B2 22 53 22  A7 8D 34 30 30 3A 89 31  |..A$."S"..400:.1|
00001130: 35 38 30 00 41 19 18 06  8B 41 24 B2 22 51 22 A7  |580.A....A$."Q".|
00001140: 90 00 53 19 1D 06 8B 41  24 B2 22 42 22 A7 9C 3A  |..S....A$."B"..:|
00001150: 89 31 30 00 66 19 22 06  8B 41 24 B3 B1 22 4E 22  |.10.f."..A$.."N"|
00001160: A7 89 31 35 34 38 00 76  19 27 06 8B 49 B3 4E 46  |..1548.v.'..I.NF|
00001170: A7 89 31 35 30 35 00 84  19 2C 06 49 B2 30 3A 89  |..1505...,.I.0:.|
00001180: 31 35 30 35 00 00 00                              |1505...         |

....... *** FILE SCOUT ***.@....53280,12
:.53281,0:.G(147)G(154);.Z...H$."0123456
789ABCDEF".D....1000.Q.2.. LOCATE...3..2
14,RW:.211,CL:.58640:....<.. SET ROW, CO
LUMNS FOR SCAN.A.=..RW(35),CL(35)...>..I
.0.16:RW(I).I.6:CL(I).4:.I...?..I.17.34:
RW(I).(I.6).17:CL(I).19:.I...A.....C.:._
.D.. ** COLLECT ALL THE ACTIVE FILES AND
 THEIR FIRST TRACK & SECTORS **...E.RW.5
:CL.6:.50:."READING DIRECTORY";...I..15,
8,15,"U;".F.N.N1.144:.F$(N1),T(N1),S(N1)
,B(N1),FT$(N1).V.S..2,8,2,"#2"...X.TD.18
:TS.1:NF.0......15,"U1:2,8,"TD,TS./....#
2,A$:TD.F(A$.G(0)):.#2,A$:TS.F(A$.G(0)).
:....K.0.7.]....#2,A$:.F(A$.G(0)).0..300
:.230.....A.F(A$):.(A.64).0.FT$(NF)." ":
.153.....FT$(NF).">".....A.(A.(255.64)).
H....A.129.FT$(NF).FT$(NF)."SEQ"......A.
130.FT$(NF).FT$(NF)."PRG"......A.131.FT$
(NF).FT$(NF)."USR".>. ..#2,A$:.#2,B$:T(N
F).F(A$.G(0)):S(NF).F(B$.G(0)).Q....J.0.
15:.#2,A$.E....A$.G(160)..190.Z...F$(NF)
.F$(NF).A$......J...G.:...H..J.0.8:.#2,A
$:.J.Z.R..#2,A$:.#2,B$:B(NF).F(A$.G(0)).
F(B$.G(0)).256:BA.BA.B(NF).....NF.NF.1..
....#2,A$:.#2,A$......K......TD..18..245
.%....TS.1.TS.19..245......130.F....NF.0
.."NO FILES":..Y... 2:BF.664.BA:.._.+.:.
K.,..J.0.30.Y.6..#2,A$:.J..@.......:...
... SCAN FOR T & S.....RW.24:CL.1:.50:.B
L$;.....RW.23:CL.2:.50:F$."":K1..1:.G(15
8);:."FILE NAME";F$......F$."".RW.23:CL.
1:.BL$;:..:...LN.C(F$):.I(F$,1)."*".LN.C
(F$).1:F$.H(F$,LN).F....K.0.NF.W....K1..
.1..430.P....F$.H(F$(K),LN).K1.K.W....K.
.....K1..1.."    NOT FOUND";:.K.0.2000:.
K:.G(154);:..B...TR.T(K1):SC.S(K1).....B
C.0:C.0:T4$."TRK SEC"......15,"I0:": 2:.
2,8,2,"#2"...B..HD$;:RW.2:CL.1:.50:.F$(K
1);.3.G.RW.4:CL.6:.50:.T4$;.W.L.RW.RW(C)
:CL.CL(C):.50:.BC;TR;SC.K.Q..590:.TR.0..
480.}.V.BC.BC.1:C.C.1......C.34..460....
.RW.24:CL.10:.50:.G(5)"NEXT  PRINT  RETU
RN ";.Q....700:.A$G(158);......A$."N".BC
.B(K1).1.C.0:.450......A$."N".BC.B(K1).1
..435.#....A$."P"..500:.435.=....A$."R".
 2:.G(154);:..F....482.L...:.F.... PRINT
 OUT FOR T & S.T....4,4:BC.0......4,F$(K
1).....TR.T(K1):SC.S(K1)......4,G(13)G(1
3)T4$G(13)G(13).G....4,BC,TR,SC.X....590
:BC.BC.1......TR.0..4: 4:.......525...N.
.15,"U1:2,8",TR,SC.#.S..#2,A$:TR.F(A$.G(
0)).<.T..#2,A$:SC.F(A$.G(0)).B.U...H.W.:
.L.X.. ** GET LOAD ADDR PRG FILES **...]
.. LA(N1),LH$(N1)...B..2,8,2,"#2"...L..I
.0.NF.1.E.Q..I(FT$(I),3).."PRG".LA(I)..1
:.650...V..15,"U1:2,8,"T(I),S(I)...X..15
,"B-P:"2,0...{..#2,A$:.#2,A$:.#2,A$:.#2,
B$.0.|.A.F(A$.G(0)):B.F(B$.G(0)).B...LA(
I).A.B.256.^...BH..(B.16):BL.B.(BH.16).Z
...AH..(A.16):AL.A.(AH.16).....LH$(I).J(
H$,BH.1,1).J(H$,BL.1,1).O...LH$(I)."$".L
H$(I).J(H$,AH.1,1).J(H$,AL.1,1).V....I..
... 2:......:...... GET CHAR FROM KB, WI
TH CURSOR...A..198,0:.204,0.6.F..A$:.207
,0:.A$.""..710.O.K..204,1:." "G(157);:..
F.U. 15:.15,8,15,"I0:".~.Z..15,A$,B$,C$,
D$: 15......A$."00"........:.:."DISK ERR
OR":......:.D.... GET DISK NAME & ID.V..
..15,8,15,"U;"......2,8,2,"#2".....TD.18
:TS.0:.15,"U1:2,8,"TD,TS.%....15,"M-R"G(
144)G(5)G(20).G....I.0.19:.#15,A$:DN$.DN
$.A$:.I.T... 2: 15:..Z...:.J. .T1$.DN$.N
F$...!.T2$."BLOCKS ALLOC: ".D(BA)." BLOC
KS FREE: ".D(BF)." "...".T3$."FILE      
      TYPE TRK SEC BLK ADDR.D ADDR.H":S1
$."     "...%..4,4:.4...(..S1$T1$:.S1$T2
$:.:.S1$T3$:..#.*..K.0.NF.1.U.4..S1$F$(K
);:.J.0.16.C(F$(K)):." ";:.J:.FT$(K);.F.
=.SP$."      "...>.A$.D(T(K)):A$.A$.I(SP
$,3.C(A$))...?.B$.D(S(K)):B$.B$.I(SP$,3.
C(B$)).R.@.C$.D(B(K)):C$.C$.I(SP$,4.C(C$
))...H..A$.1)B$.1)C$.1);:.LA(K).0..SP$;:
.845.(.I.D$.D(LA(K)):D$.D$.I(SP$,6.C(D$)
):.D$.1).4.M..LH$(K).;.R..K.P.\..4,G(13)
:.4: 4:..V...:.O.... ** MAIN ROUTINE **.
....R0$.G(146):R9$.G(18):CL$.G(147).D...
BL$."                                   
   ".....HD$.CL$.R9$."           FILE SC
OUT V0619/85          ".R0$......HD$;:.6
0.B...RW.3:CL.1:.50:."INSERT DISK AND HI
T A KEY ";.U....700:.725:.750.C....100:.
600.I.......X.NF$.D(NF):L.C(NF$)...Y.FL$
.I(BL$,9.L)...}.NF$." # FILES : ".NF$.FL
$.I...TH$.CL$.R9$.DN$.NF$.....SP$."     
    ":L.C(D(BA)).C(D(BF)):FL$.I(SP$,14.L
).=...TJ$.R9$."BLOCKS ALLOC:".D(BA)." BL
OCKS FREE:".D(BF).FL$.|...TL$.R9$."FILE 
            TYPE TRK SEC BLK ADDR  ".R0$
:I.0......TH$;:.TJ$:.TL$:..A....F$(I);:.
J.0.16.C(F$(I)):." ";:.J:.FT$(I);.R...SP
$."      ".....A$.D(T(I)):A$.A$.I(SP$,3.
C(A$)).....B$.D(S(I)):B$.B$.I(SP$,3.C(B$
)).>...C$.D(B(I)):C$.C$.I(SP$,4.C(C$)).`
....A$.1)B$.1)C$;:.LA(I).0..1545.N....D(
LA(I)).~.....34)LH$(I).....I.I.1:.I.NF..
1548......I.8..(I.8)..0..1520.....RW.24:
CL.5:.50:.G(5)" NEXT SCOUT PRINT BOOT QU
IT? ";......700:.A$;:.G(154);......A$."P
"..800:.G(20);:.1548.3....A$."S"..400:.1
580.A....A$."Q"...S....A$."B"..:.10.F.".
.A$.."N"..1548.V.'..I.NF..1505...,.I.0:.
1505...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL