/ Liren Large Software Subsidy 9 / 09.iso / l / l171 / 1.img / EXAMPLES / INDEX.BAS

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fc 00 04 00 0c 00 81 01 | 91 01 06 00 01 02 03 04 |........|........|
|00000010| 05 08 10 d1 ff ff 24 00 | ff ff b0 03 00 00 56 00 |......$.|......V.|
|00000020| 60 00 69 00 3d 01 c1 00 | 2e 01 4a 02 4a 01 f6 01 |`.i.=...|..J.J...|
|00000030| 71 00 e5 00 a3 02 00 00 | 88 01 8c 00 28 02 9a 02 |q.......|....(...|
|00000040| 9b 01 00 00 00 01 00 00 | db 00 00 00 41 02 fb 01 |........|....A...|
|00000050| 5b 00 00 00 00 00 a8 00 | 9b 00 6c 01 00 00 00 00 |[.......|..l.....|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ad 02 |........|........|
|00000070| 52 00 12 01 00 01 41 00 | 00 00 01 5a b4 00 00 05 |R.....A.|...Z....|
|00000080| 46 41 4c 53 45 7e 00 00 | 04 54 52 55 45 89 02 00 |FALSE~..|.TRUE...|
|00000090| 09 53 74 6f 63 6b 49 74 | 65 6d 1f 01 00 0a 50 61 |.StockIt|em....Pa|
|000000a0| 72 74 4e 75 6d 62 65 72 | e6 01 00 0b 44 65 73 63 |rtNumber|....Desc|
|000000b0| 72 69 70 74 69 6f 6e 00 | 00 00 09 55 6e 69 74 50 |ription.|...UnitP|
|000000c0| 72 69 63 65 d1 00 00 08 | 51 75 61 6e 74 69 74 79 |rice....|Quantity|
|000000d0| 7f 02 00 09 49 6e 64 65 | 78 54 79 70 65 f3 00 00 |....Inde|xType...|
|000000e0| 0c 52 65 63 6f 72 64 4e | 75 6d 62 65 72 90 02 00 |.RecordN|umber...|
|000000f0| 06 46 69 6c 74 65 72 00 | 00 00 06 50 72 6f 6d 70 |.Filter.|...Promp|
|00000100| 74 00 00 00 0a 46 69 6e | 64 52 65 63 6f 72 64 ce |t....Fin|dRecord.|
|00000110| 01 08 09 52 65 63 6f 72 | 64 56 61 72 92 01 40 0e |...Recor|dVar..@.|
|00000120| 49 6e 74 72 6f 64 75 63 | 74 69 6f 6e 32 33 00 00 |Introduc|tion23..|
|00000130| 40 09 41 64 64 52 65 63 | 6f 72 64 5d 01 40 0b 49 |@.AddRec|ord].@.I|
|00000140| 6e 70 75 74 52 65 63 6f | 72 64 da 01 40 0b 50 72 |nputReco|rd..@.Pr|
|00000150| 69 6e 74 52 65 63 6f 72 | 64 c8 01 40 09 53 6f 72 |intRecor|d..@.Sor|
|00000160| 74 49 6e 64 65 78 75 01 | 40 0f 53 68 6f 77 50 61 |tIndexu.|@.ShowPa|
|00000170| 72 74 4e 75 6d 62 65 72 | 73 00 00 08 0b 53 74 6f |rtNumber|s....Sto|
|00000180| 63 6b 52 65 63 6f 72 64 | 0b 02 08 05 49 6e 64 65 |ckRecord|....Inde|
|00000190| 78 58 02 00 0f 4e 75 6d | 62 65 72 4f 66 52 65 63 |xX...Num|berOfRec|
|000001a0| 6f 72 64 73 b2 01 00 06 | 43 68 6f 69 63 65 3c 02 |ords....|Choice<.|
|000001b0| 00 05 50 61 75 73 65 00 | 00 00 13 52 65 63 6f 72 |..Pause.|...Recor|
|000001c0| 64 56 61 72 2e 55 6e 69 | 74 50 72 69 63 65 00 00 |dVar.Uni|tPrice..|
|000001d0| 00 12 52 65 63 6f 72 64 | 56 61 72 2e 51 75 61 6e |..Record|Var.Quan|
|000001e0| 74 69 74 79 63 02 00 02 | 4f 4b 03 02 00 08 56 61 |tityc...|OK....Va|
|000001f0| 6c 54 65 6d 70 32 00 00 | 00 08 56 61 6c 54 65 6d |lTemp2..|..ValTem|
|00000200| 70 31 00 00 00 0c 53 74 | 72 69 6e 67 4c 65 6e 67 |p1....St|ringLeng|
|00000210| 74 68 18 02 00 01 49 00 | 00 00 04 43 68 61 72 34 |th....I.|...Char4|
|00000220| 02 00 04 50 61 72 74 00 | 00 00 09 54 6f 70 52 65 |...Part.|...TopRe|
|00000230| 63 6f 72 64 00 00 00 0c | 42 6f 74 74 6f 6d 52 65 |cord....|BottomRe|
|00000240| 63 6f 72 64 00 00 00 08 | 4d 69 64 70 6f 69 6e 74 |cord....|Midpoint|
|00000250| 00 00 00 04 54 65 73 74 | 00 00 00 01 54 00 00 00 |....Test|....T...|
|00000260| 05 54 69 74 6c 65 00 00 | 00 0a 4c 65 66 74 4d 61 |.Title..|..LeftMa|
|00000270| 72 67 69 6e 00 00 00 07 | 4e 55 4d 43 4f 4c 53 6f |rgin....|NUMCOLSo|
|00000280| 02 00 08 43 4f 4c 57 49 | 44 54 48 00 00 00 0c 43 |...COLWI|DTH....C|
|00000290| 6f 6c 75 6d 6e 4c 65 6e | 67 74 68 00 00 00 06 43 |olumnLen|gth....C|
|000002a0| 6f 6c 75 6d 6e 00 00 00 | 03 52 6f 77 00 00 00 06 |olumn...|.Row....|
|000002b0| 4f 66 66 73 65 74 00 00 | 00 05 4c 69 6d 69 74 00 |Offset..|..Limit.|
|000002c0| 00 00 06 53 77 69 74 63 | 68 00 00 00 00 00 00 00 |...Switc|h.......|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 8a 06 00 00 |........|........|
|000003d0| 1b 00 ff ff c1 ff ff ff | 00 00 00 00 97 00 3e 00 |........|......>.|
|000003e0| 00 00 20 44 65 66 69 6e | 65 20 74 68 65 20 73 79 |.. Defin|e the sy|
|000003f0| 6d 62 6f 6c 69 63 20 63 | 6f 6e 73 74 61 6e 74 73 |mbolic c|onstants|
|00000400| 20 75 73 65 64 20 67 6c | 6f 62 61 6c 6c 79 20 69 | used gl|obally i|
|00000410| 6e 20 74 68 65 20 70 72 | 6f 67 72 61 6d 3a 00 00 |n the pr|ogram:..|
|00000420| 23 00 64 01 0c 00 60 00 | 0b 00 60 00 74 01 0c 00 |#.d...`.|..`.t...|
|00000430| 69 00 00 00 00 00 97 00 | 35 00 00 00 20 44 65 66 |i.......|5... Def|
|00000440| 69 6e 65 20 61 20 72 65 | 63 6f 72 64 20 73 74 72 |ine a re|cord str|
|00000450| 75 63 74 75 72 65 20 66 | 6f 72 20 72 61 6e 64 6f |ucture f|or rando|
|00000460| 6d 2d 66 69 6c 65 20 72 | 65 63 6f 72 64 73 3a 20 |m-file r|ecords: |
|00000470| 00 00 20 00 e2 00 71 00 | 00 0c 19 00 7e 00 7c 01 |.. ...q.|....~.|.|
|00000480| 06 00 06 00 0f 00 00 0c | 19 00 8c 00 7c 01 06 00 |........|....|...|
|00000490| 14 00 0f 00 00 0c 19 00 | 9b 00 16 00 03 00 0f 00 |........|........|
|000004a0| 00 0c 19 00 a8 00 16 00 | 01 00 0f 00 00 00 1d 00 |........|........|
|000004b0| 2c 01 00 00 00 00 97 00 | 3b 00 00 00 20 44 65 66 |,.......|;... Def|
|000004c0| 69 6e 65 20 61 20 72 65 | 63 6f 72 64 20 73 74 72 |ine a re|cord str|
|000004d0| 75 63 74 75 72 65 20 66 | 6f 72 20 65 61 63 68 20 |ucture f|or each |
|000004e0| 65 6c 65 6d 65 6e 74 20 | 6f 66 20 74 68 65 20 69 |element |of the i|
|000004f0| 6e 64 65 78 3a 61 00 00 | 20 00 4e 01 b4 00 00 0c |ndex:a..| .N.....|
|00000500| 19 00 c1 00 16 00 01 00 | 10 00 00 0c 19 00 7e 00 |........|......~.|
|00000510| 7c 01 06 00 06 00 10 00 | 00 00 1d 00 ff ff 00 00 ||.......|........|
|00000520| 00 00 97 00 2a 00 00 00 | 20 44 65 63 6c 61 72 65 |....*...| Declare|
|00000530| 20 70 72 6f 63 65 64 75 | 72 65 73 20 74 68 61 74 | procedu|res that|
|00000540| 20 77 69 6c 6c 20 62 65 | 20 63 61 6c 6c 65 64 3a | will be| called:|
|00000550| 00 00 44 00 0c 00 d1 00 | 85 02 01 00 db 00 00 02 |..D.....|........|
|00000560| 05 00 00 00 44 00 12 00 | e5 00 81 02 02 00 7e 00 |....D...|......~.|
|00000570| 00 02 05 00 f3 00 00 20 | 71 00 00 00 00 00 44 00 |....... |q.....D.|
|00000580| 06 00 00 01 00 01 00 00 | 00 00 44 00 0c 00 12 01 |........|..D.....|
|00000590| 00 01 01 00 f3 00 00 20 | 71 00 00 00 44 00 0c 00 |....... |q...D...|
|000005a0| 1f 01 00 01 01 00 f3 00 | 00 20 71 00 00 00 44 00 |........|. q...D.|
|000005b0| 0c 00 2e 01 00 01 01 00 | f3 00 00 20 71 00 00 00 |........|... q...|
|000005c0| 44 00 06 00 3d 01 00 01 | 00 00 00 00 44 00 06 00 |D...=...|....D...|
|000005d0| 4a 01 00 01 00 00 00 00 | 00 00 97 00 31 00 00 00 |J.......|....1...|
|000005e0| 20 44 65 66 69 6e 65 20 | 61 20 62 75 66 66 65 72 | Define |a buffer|
|000005f0| 20 28 75 73 69 6e 67 20 | 74 68 65 20 53 74 6f 63 | (using |the Stoc|
|00000600| 6b 49 74 65 6d 20 74 79 | 70 65 29 20 61 6e 64 74 |kItem ty|pe) andt|
|00000610| 00 00 97 00 26 00 00 00 | 20 64 65 66 69 6e 65 20 |....&...| define |
|00000620| 26 20 64 69 6d 65 6e 73 | 69 6f 6e 20 74 68 65 20 |& dimens|ion the |
|00000630| 69 6e 64 65 78 20 61 72 | 72 61 79 3a 00 00 7d 01 |index ar|ray:..}.|
|00000640| 90 02 15 00 71 00 10 00 | 0d 00 5d 01 64 05 65 01 |....q...|..].d.e.|
|00000650| 64 00 15 00 b4 00 2e 00 | 10 00 02 00 6c 01 00 00 |d.......|....l...|
|00000660| 00 00 38 00 00 00 00 01 | 00 00 00 00 97 00 1f 00 |..8.....|........|
|00000670| 00 00 20 4f 70 65 6e 20 | 74 68 65 20 72 61 6e 64 |.. Open |the rand|
|00000680| 6f 6d 2d 61 63 63 65 73 | 73 20 66 69 6c 65 3a 20 |om-acces|s file: |
|00000690| 00 00 6d 01 0a 00 49 4e | 56 45 4e 54 2e 44 41 54 |..m...IN|VENT.DAT|
|000006a0| 64 05 8a 00 0b 00 5d 01 | 2d 01 20 00 ca 00 04 00 |d.....].|-. .....|
|000006b0| 00 00 00 00 97 00 2b 00 | 00 00 20 43 61 6c 63 75 |......+.|.. Calcu|
|000006c0| 6c 61 74 65 20 6e 75 6d | 62 65 72 20 6f 66 20 72 |late num|ber of r|
|000006d0| 65 63 6f 72 64 73 20 69 | 6e 20 74 68 65 20 66 69 |ecords i|n the fi|
|000006e0| 6c 65 3a 65 00 00 64 05 | 2f 01 0b 00 5d 01 2d 01 |le:e..d.|/...].-.|
|000006f0| 20 00 60 01 0c 00 75 01 | 00 00 00 00 97 00 37 00 | .`...u.|......7.|
|00000700| 00 00 20 49 66 20 74 68 | 65 72 65 20 61 72 65 20 |.. If th|ere are |
|00000710| 72 65 63 6f 72 64 73 2c | 20 72 65 61 64 20 74 68 |records,| read th|
|00000720| 65 6d 20 61 6e 64 20 62 | 75 69 6c 64 20 74 68 65 |em and b|uild the|
|00000730| 20 69 6e 64 65 78 3a 64 | 00 00 0b 00 75 01 64 01 | index:d|....u.d.|
|00000740| 71 01 61 00 80 04 00 0c | 0b 00 c1 00 64 05 0b 00 |q.a.....|....d...|
|00000750| 75 01 56 00 ff ff 48 04 | 00 00 00 18 97 00 2f 00 |u.V...H.|....../.|
|00000760| 06 00 20 52 65 61 64 20 | 74 68 65 20 64 61 74 61 |.. Read |the data|
|00000770| 20 66 72 6f 6d 20 61 20 | 6e 65 77 20 72 65 63 6f | from a |new reco|
|00000780| 72 64 20 69 6e 20 74 68 | 65 20 66 69 6c 65 3a 65 |rd in th|e file:e|
|00000790| 00 18 64 05 8a 00 0b 00 | c1 00 0b 00 5d 01 b3 00 |..d.....|....]...|
|000007a0| 20 00 00 00 00 18 97 00 | 30 00 06 00 20 50 6c 61 | .......|0... Pla|
|000007b0| 63 65 20 70 61 72 74 20 | 6e 75 6d 62 65 72 20 61 |ce part |number a|
|000007c0| 6e 64 20 72 65 63 6f 72 | 64 20 6e 75 6d 62 65 72 |nd recor|d number|
|000007d0| 20 69 6e 20 69 6e 64 65 | 78 3a 00 18 0b 00 c1 00 | in inde|x:......|
|000007e0| 0b 00 c1 00 0e 00 01 00 | 6c 01 12 00 c1 00 00 18 |........|l.......|
|000007f0| 0b 00 5d 01 11 00 7e 00 | 0b 00 c1 00 0e 00 01 00 |..]...~.|........|
|00000800| 6c 01 12 00 7e 00 00 0c | 65 00 ff ff 01 00 00 00 |l...~...|e.......|
|00000810| 00 0c 38 00 00 00 3d 01 | 97 00 23 00 18 00 20 53 |..8...=.|..#... S|
|00000820| 6f 72 74 20 69 6e 64 65 | 78 20 69 6e 20 70 61 72 |ort inde|x in par|
|00000830| 74 2d 6e 75 6d 62 65 72 | 20 6f 72 64 65 72 2e 20 |t-number| order. |
|00000840| 00 00 50 00 00 00 00 00 | 46 00 97 00 12 00 18 00 |..P.....|F.......|
|00000850| 20 4d 61 69 6e 2d 6d 65 | 6e 75 20 6c 6f 6f 70 2e | Main-me|nu loop.|
|00000860| 00 0c 73 01 a3 00 00 0c | 6d 01 0c 00 28 31 29 20 |..s.....|m...(1) |
|00000870| bc 57 a5 5b b0 4f bf fd | 96 00 00 0c 6d 01 0c 00 |.W.[.O..|....m...|
|00000880| 28 32 29 20 ac 64 b8 df | b0 4f bf fd 96 00 00 0c |(2) .d..|.O......|
|00000890| 6d 01 0c 00 28 33 29 20 | b5 b2 a7 f4 b5 7b a6 a1 |m...(3) |.....{..|
|000008a0| 96 00 00 0c 93 00 00 0c | 72 01 72 01 73 01 64 05 |........|r.r.s.d.|
|000008b0| c1 00 04 00 00 0c 6d 01 | 1b 00 bd d0 bf e9 a4 4a |......m.|.......J|
|000008c0| a7 41 aa ba bf ef be dc | 20 28 20 31 20 2d 20 33 |.A......| ( 1 - 3|
|000008d0| 20 29 20 3a 20 22 95 00 | 93 00 00 00 00 0c 97 00 | ) : "..|........|
|000008e0| 27 00 03 00 20 4c 6f 6f | 70 20 75 6e 74 69 6c 20 |'... Loo|p until |
|000008f0| 75 73 65 72 20 70 72 65 | 73 73 65 73 2c 20 31 2c |user pre|sses, 1,|
|00000900| 20 32 2c 20 6f 72 20 33 | 3a 72 00 0c 46 00 00 18 | 2, or 3|:r..F...|
|00000910| 64 05 22 01 59 01 0c 14 | 88 01 00 0c 6d 01 03 00 |d.".Y...|....m...|
|00000920| 31 32 33 22 0b 14 88 01 | 24 01 64 01 03 01 64 00 |123"....|$.d...d.|
|00000930| 4a 05 00 00 00 0c 97 00 | 1e 00 03 00 20 42 72 61 |J.......|.... Bra|
|00000940| 6e 63 68 20 61 63 63 6f | 72 64 69 6e 67 20 74 6f |nch acco|rding to|
|00000950| 20 63 68 6f 69 63 65 3a | 00 0c 0b 14 88 01 74 00 | choice:|......t.|
|00000960| a4 05 00 18 6d 01 01 00 | 31 22 3b 00 00 24 0b 00 |....m...|1";..$..|
|00000970| 5d 01 38 00 01 00 12 01 | 00 18 6d 01 01 00 32 22 |].8.....|..m...2"|
|00000980| 3b 00 00 24 0b 00 75 01 | 64 01 03 01 61 00 2e 06 |;..$..u.|d...a...|
|00000990| 00 30 93 00 06 00 6d 01 | 14 00 c0 c9 ae d7 a4 a4 |.0....m.|........|
|000009a0| c1 d9 a8 53 a6 b3 a5 f4 | a6 f3 b0 4f bf fd 96 00 |...S....|...O....|
|000009b0| 00 30 6d 01 14 00 ab f6 | a5 f4 b7 4e c1 e4 a5 69 |.0m.....|...N...i|
|000009c0| c4 7e c4 f2 20 2e 2e 2e | 2e 20 96 00 00 30 64 05 |.~.. ...|. ...0d.|
|000009d0| 22 01 0c 14 92 01 00 24 | 49 00 40 06 00 30 0b 00 |"......$|I.@..0..|
|000009e0| 5d 01 38 00 01 00 1f 01 | 00 24 50 00 00 18 6d 01 |].8.....|.$P...m.|
|000009f0| 01 00 33 22 3b 00 97 00 | 0e 00 18 00 20 45 6e 64 |..3";...|.... End|
|00000a00| 20 70 72 6f 67 72 61 6d | 00 0c 52 00 00 00 0b 14 | program|..R.....|
|00000a10| 88 01 6d 01 01 00 33 22 | 03 01 63 00 86 04 00 00 |..m...3"|..c.....|
|00000a20| 00 00 64 05 8a 00 a2 00 | 01 00 97 00 20 00 18 00 |..d.....|.... ...|
|00000a30| 20 41 6c 6c 20 64 6f 6e | 65 2c 20 63 6c 6f 73 65 | All don|e, close|
|00000a40| 20 66 69 6c 65 20 61 6e | 64 20 65 6e 64 2e 00 00 | file an|d end...|
|00000a50| 4e 00 00 00 09 00 08 00 | ff ff 04 00 a6 00 ff ff |N.......|........|
|00000a60| 5a 00 00 00 00 00 02 01 | 00 06 00 46 69 6c 74 65 |Z.......|...Filte|
|00000a70| 72 02 05 b8 96 03 00 00 | 1b 00 ff ff c1 ff ff ff |r.......|........|
|00000a80| 00 00 97 00 02 00 00 00 | 00 00 97 00 11 00 00 00 |........|........|
|00000a90| 20 0d 19 3d 20 46 49 4c | 54 45 52 20 0d 1b 3d 00 | ..= FIL|TER ..=.|
|00000aa0| 00 00 97 00 35 00 00 00 | 0d 07 20 46 69 6c 74 65 |....5...|.. Filte|
|00000ab0| 72 73 20 61 6c 6c 20 6e | 6f 6e 2d 6e 75 6d 65 72 |rs all n|on-numer|
|00000ac0| 69 63 20 63 68 61 72 61 | 63 74 65 72 73 20 66 72 |ic chara|cters fr|
|00000ad0| 6f 6d 20 61 20 73 74 72 | 69 6e 67 3d 00 00 97 00 |om a str|ing=....|
|00000ae0| 25 00 00 00 0d 07 20 61 | 6e 64 20 72 65 74 75 72 |%..... a|nd retur|
|00000af0| 6e 73 20 74 68 65 20 66 | 69 6c 74 65 72 65 64 20 |ns the f|iltered |
|00000b00| 73 74 72 69 6e 67 2e 72 | 00 00 97 00 06 00 00 00 |string.r|........|
|00000b10| 20 0d 3c 3d 00 00 97 00 | 02 00 00 00 00 00 58 00 | .<=....|......X.|
|00000b20| 0c 00 d1 00 85 02 01 00 | db 00 00 02 05 00 00 0c |........|........|
|00000b30| 6d 01 00 00 0c 14 ce 01 | 00 0c 0b 14 db 00 95 00 |m.......|........|
|00000b40| 93 00 97 00 1b 00 25 00 | 20 50 72 69 6e 74 20 74 |......%.| Print t|
|00000b50| 68 65 20 70 72 6f 6d 70 | 74 20 70 61 73 73 65 64 |he promp|t passed|
|00000b60| 2e 3d 00 0c 6d 01 00 00 | 89 00 02 00 05 03 0b 14 |.=..m...|........|
|00000b70| da 01 b6 00 88 00 97 00 | 14 00 25 00 20 49 6e 70 |........|..%. Inp|
|00000b80| 75 74 20 61 20 6e 75 6d | 62 65 72 20 61 73 01 00 |ut a num|ber as..|
|00000b90| 25 00 97 00 0c 00 25 00 | 20 61 20 73 74 72 69 6e |%.....%.| a strin|
|00000ba0| 67 2e 00 0c 0b 14 da 01 | 2d 01 05 a0 0c 00 e6 01 |g.......|-.......|
|00000bb0| 97 00 1b 00 25 00 20 47 | 65 74 20 74 68 65 20 73 |....%. G|et the s|
|00000bc0| 74 72 69 6e 67 27 73 20 | 6c 65 6e 67 74 68 2e 00 |tring's |length..|
|00000bd0| 00 0c 0b 04 f6 01 64 05 | 0b 00 e6 01 56 00 ff ff |......d.|....V...|
|00000be0| 64 03 97 00 19 00 25 00 | 20 47 6f 20 74 68 72 6f |d.....%.| Go thro|
|00000bf0| 75 67 68 20 74 68 65 20 | 73 74 72 69 6e 67 2c 00 |ugh the |string,.|
|00000c00| 00 18 0b 14 da 01 0b 04 | f6 01 64 05 33 01 0c 14 |........|..d.3...|
|00000c10| fb 01 97 00 1b 00 25 00 | 20 6f 6e 65 20 63 68 61 |......%.| one cha|
|00000c20| 72 61 63 74 65 72 20 61 | 74 20 61 20 74 69 6d 65 |racter a|t a time|
|00000c30| 2e 00 00 00 00 18 97 00 | 33 00 06 00 20 49 73 20 |........|3... Is |
|00000c40| 74 68 65 20 63 68 61 72 | 61 63 74 65 72 20 61 20 |the char|acter a |
|00000c50| 76 61 6c 69 64 20 70 61 | 72 74 20 6f 66 20 61 20 |valid pa|rt of a |
|00000c60| 6e 75 6d 62 65 72 20 28 | 69 2e 65 2e 2c 3d 00 18 |number (|i.e.,=..|
|00000c70| 97 00 32 00 06 00 20 61 | 20 64 69 67 69 74 20 6f |..2... a| digit o|
|00000c80| 72 20 61 20 64 65 63 69 | 6d 61 6c 20 70 6f 69 6e |r a deci|mal poin|
|00000c90| 74 29 3f 20 20 49 66 20 | 79 65 73 2c 20 61 64 64 |t)?  If |yes, add|
|00000ca0| 20 69 74 20 74 6f 00 18 | 97 00 1b 00 06 00 20 74 | it to..|...... t|
|00000cb0| 68 65 20 65 6e 64 20 6f | 66 20 61 20 6e 65 77 20 |he end o|f a new |
|00000cc0| 73 74 72 69 6e 67 3a 6e | 00 18 6d 01 0b 00 2e 30 |string:n|..m....0|
|00000cd0| 31 32 33 34 35 36 37 38 | 39 22 0b 14 fb 01 24 01 |12345678|9"....$.|
|00000ce0| 64 01 5f 01 61 00 14 03 | 00 24 0b 14 ce 01 0b 14 |d._.a...|.$......|
|00000cf0| fb 01 00 01 0c 14 ce 01 | 00 00 00 18 97 00 33 00 |........|......3.|
|00000d00| 06 00 20 4f 74 68 65 72 | 77 69 73 65 2c 20 63 68 |.. Other|wise, ch|
|00000d10| 65 63 6b 20 74 6f 20 73 | 65 65 20 69 66 20 69 74 |eck to s|ee if it|
|00000d20| 27 73 20 61 20 6c 6f 77 | 65 72 63 61 73 65 20 22 |'s a low|ercase "|
|00000d30| 6c 22 2c 00 00 18 97 00 | 32 00 06 00 20 73 69 6e |l",.....|2... sin|
|00000d40| 63 65 20 75 73 65 72 73 | 20 75 73 65 64 20 74 6f |ce users| used to|
|00000d50| 20 74 79 70 65 77 72 69 | 74 65 72 73 20 6d 61 79 | typewri|ters may|
|00000d60| 20 65 6e 74 65 72 20 61 | 20 6f 6e 65 00 18 97 00 | enter a| one....|
|00000d70| 12 00 06 00 20 76 61 6c | 75 65 20 74 68 61 74 20 |.... val|ue that |
|00000d80| 77 61 79 3a 00 18 0b 14 | fb 01 6d 01 01 00 6c 22 |way:....|..m...l"|
|00000d90| 03 01 4d 00 5a 03 00 24 | 0b 14 ce 01 6d 01 01 00 |..M.Z..$|....m...|
|00000da0| 31 22 00 01 0c 14 ce 01 | 97 00 1b 00 25 00 20 43 |1"......|....%. C|
|00000db0| 68 61 6e 67 65 20 74 68 | 65 20 22 6c 22 20 74 6f |hange th|e "l" to|
|00000dc0| 20 61 20 22 31 22 2e 72 | 00 18 50 00 00 0c 0b 04 | a "1".r|..P.....|
|00000dd0| f6 01 66 00 ff ff 01 00 | 00 00 00 0c 0b 14 ce 01 |..f.....|........|
|00000de0| 0c 14 d1 00 97 00 1a 00 | 21 00 20 52 65 74 75 72 |........|!. Retur|
|00000df0| 6e 20 66 69 6c 74 65 72 | 65 64 20 73 74 72 69 6e |n filter|ed strin|
|00000e00| 67 2e 00 00 00 00 51 00 | 09 00 08 00 ff ff 04 00 |g.....Q.|........|
|00000e10| ff ff ff ff 21 00 00 00 | 00 00 02 0c 00 0a 00 46 |....!...|.......F|
|00000e20| 69 6e 64 52 65 63 6f 72 | 64 02 01 b8 ee 03 00 00 |indRecor|d.......|
|00000e30| 1b 00 ff ff c1 ff ff ff | 00 00 97 00 02 00 00 00 |........|........|
|00000e40| 00 00 97 00 15 00 00 00 | 20 0d 17 3d 20 46 49 4e |........| ..= FIN|
|00000e50| 44 52 45 43 4f 52 44 20 | 0d 19 3d 00 00 00 97 00 |DRECORD |..=.....|
|00000e60| 3a 00 00 00 0d 05 20 55 | 73 65 73 20 61 20 62 69 |:..... U|ses a bi|
|00000e70| 6e 61 72 79 20 73 65 61 | 72 63 68 20 74 6f 20 6c |nary sea|rch to l|
|00000e80| 6f 63 61 74 65 20 61 20 | 72 65 63 6f 72 64 20 69 |ocate a |record i|
|00000e90| 6e 20 74 68 65 20 69 6e | 64 65 78 2e 00 00 97 00 |n the in|dex.....|
|00000ea0| 06 00 00 00 20 0d 3c 3d | 00 00 97 00 02 00 00 00 |.... .<=|........|
|00000eb0| 00 00 58 00 12 00 e5 00 | 81 02 02 00 03 02 00 02 |..X.....|........|
|00000ec0| 05 00 f3 00 00 20 71 00 | 00 0c 1e 00 b0 00 15 00 |..... q.|........|
|00000ed0| b4 00 12 00 10 00 00 00 | 6c 01 0d 00 75 01 00 00 |........|l...u...|
|00000ee0| 00 0c 97 00 27 00 03 00 | 20 53 65 74 20 74 6f 70 |....'...| Set top|
|00000ef0| 20 61 6e 64 20 62 6f 74 | 74 6f 6d 20 62 6f 75 6e | and bot|tom boun|
|00000f00| 64 73 20 6f 66 20 73 65 | 61 72 63 68 3a 3d 00 0c |ds of se|arch:=..|
|00000f10| 0b 00 75 01 0c 00 0b 02 | 00 0c 64 05 0c 00 18 02 |..u.....|..d.....|
|00000f20| 00 00 00 0c 97 00 31 00 | 03 00 20 53 65 61 72 63 |......1.|.. Searc|
|00000f30| 68 20 75 6e 74 69 6c 20 | 74 6f 70 20 6f 66 20 72 |h until |top of r|
|00000f40| 61 6e 67 65 20 69 73 20 | 6c 65 73 73 20 74 68 61 |ange is |less tha|
|00000f50| 6e 20 62 6f 74 74 6f 6d | 3a 3d 00 0c 0b 00 0b 02 |n bottom|:=......|
|00000f60| 0b 00 18 02 63 01 6e 01 | 47 00 e4 02 00 00 00 18 |....c.n.|G.......|
|00000f70| 97 00 13 00 06 00 20 43 | 68 6f 6f 73 65 20 6d 69 |...... C|hoose mi|
|00000f80| 64 70 6f 69 6e 74 3a 20 | 00 18 0b 00 0b 02 0b 00 |dpoint: |........|
|00000f90| 18 02 00 01 6e 01 64 09 | 60 01 0c 00 28 02 00 00 |....n.d.|`...(...|
|00000fa0| 00 18 97 00 35 00 06 00 | 20 54 65 73 74 20 74 6f |....5...| Test to|
|00000fb0| 20 73 65 65 20 69 66 20 | 69 74 27 73 20 74 68 65 | see if |it's the|
|00000fc0| 20 6f 6e 65 20 77 61 6e | 74 65 64 20 28 52 54 52 | one wan|ted (RTR|
|00000fd0| 49 4d 24 28 29 20 74 72 | 69 6d 73 3d 00 18 97 00 |IM$() tr|ims=....|
|00000fe0| 28 00 06 00 20 74 72 61 | 69 6c 69 6e 67 20 62 6c |(... tra|iling bl|
|00000ff0| 61 6e 6b 73 20 66 72 6f | 6d 20 61 20 66 69 78 65 |anks fro|m a fixe|
|00001000| 64 20 73 74 72 69 6e 67 | 29 3a 00 18 0b 00 28 02 |d string|):....(.|
|00001010| 0e 00 01 00 6c 01 11 00 | 7e 00 45 01 0c 14 34 02 |....l...|~.E...4.|
|00001020| 00 00 00 18 97 00 17 00 | 06 00 20 49 66 20 69 74 |........|.. If it|
|00001030| 20 69 73 2c 20 65 78 69 | 74 20 6c 6f 6f 70 3a 00 | is, exi|t loop:.|
|00001040| 00 18 0b 14 34 02 0b 14 | 03 02 03 01 61 00 82 02 |....4...|....a...|
|00001050| 00 24 53 00 e4 02 00 00 | 00 18 97 00 33 00 06 00 |.$S.....|....3...|
|00001060| 20 4f 74 68 65 72 77 69 | 73 65 2c 20 69 66 20 77 | Otherwi|se, if w|
|00001070| 68 61 74 20 77 65 27 72 | 65 20 6c 6f 6f 6b 69 6e |hat we'r|e lookin|
|00001080| 67 20 66 6f 72 20 69 73 | 20 67 72 65 61 74 65 72 |g for is| greater|
|00001090| 2c 6d 00 18 97 00 12 00 | 06 00 20 6d 6f 76 65 20 |,m......|.. move |
|000010a0| 62 6f 74 74 6f 6d 20 75 | 70 3a 00 18 0b 14 03 02 |bottom u|p:......|
|000010b0| 0b 14 34 02 5f 01 4d 00 | cc 02 00 24 0b 00 28 02 |..4._.M.|...$..(.|
|000010c0| 64 05 00 01 0c 00 18 02 | 00 00 00 18 97 00 20 00 |d.......|...... .|
|000010d0| 06 00 20 4f 74 68 65 72 | 77 69 73 65 2c 20 6d 6f |.. Other|wise, mo|
|000010e0| 76 65 20 74 68 65 20 74 | 6f 70 20 64 6f 77 6e 3a |ve the t|op down:|
|000010f0| 00 18 49 00 de 02 00 24 | 0b 00 28 02 64 05 77 01 |..I....$|..(.d.w.|
|00001100| 0c 00 0b 02 00 18 50 00 | 00 0c 62 00 2e 01 00 00 |......P.|..b.....|
|00001110| 00 0c 97 00 30 00 03 00 | 20 49 66 20 70 61 72 74 |....0...| If part|
|00001120| 20 77 61 73 20 66 6f 75 | 6e 64 2c 20 67 65 74 20 | was fou|nd, get |
|00001130| 72 65 63 6f 72 64 20 66 | 72 6f 6d 20 66 69 6c 65 |record f|rom file|
|00001140| 20 75 73 69 6e 67 00 0c | 97 00 30 00 03 00 20 70 | using..|..0... p|
|00001150| 6f 69 6e 74 65 72 20 69 | 6e 20 69 6e 64 65 78 20 |ointer i|n index |
|00001160| 61 6e 64 20 73 65 74 20 | 46 69 6e 64 52 65 63 6f |and set |FindReco|
|00001170| 72 64 25 20 74 6f 20 54 | 52 55 45 3a 00 0c 0b 14 |rd% to T|RUE:....|
|00001180| 34 02 0b 14 03 02 03 01 | 61 00 de 03 00 18 64 05 |4.......|a.....d.|
|00001190| 8a 00 0b 00 28 02 0e 00 | 01 00 6c 01 11 00 c1 00 |....(...|..l.....|
|000011a0| 0b 00 f3 00 b3 00 20 00 | 00 18 0b 00 69 00 0c 04 |...... .|....i...|
|000011b0| e5 00 00 00 00 0c 97 00 | 34 00 03 00 20 4f 74 68 |........|4... Oth|
|000011c0| 65 72 77 69 73 65 2c 20 | 69 66 20 70 61 72 74 20 |erwise, |if part |
|000011d0| 77 61 73 20 6e 6f 74 20 | 66 6f 75 6e 64 2c 20 73 |was not |found, s|
|000011e0| 65 74 20 46 69 6e 64 52 | 65 63 6f 72 64 25 00 0c |et FindR|ecord%..|
|000011f0| 97 00 0c 00 03 00 20 74 | 6f 20 46 41 4c 53 45 3a |...... t|o FALSE:|
|00001200| 00 0c 49 00 ec 03 00 18 | 0b 00 60 00 0c 04 e5 00 |..I.....|..`.....|
|00001210| 00 0c 50 00 00 00 51 00 | 09 00 08 00 ff ff 04 00 |..P...Q.|........|
|00001220| ff ff ff ff 32 00 00 00 | 00 00 02 0c 00 0e 00 49 |....2...|.......I|
|00001230| 6e 74 72 6f 64 75 63 74 | 69 6f 6e 32 33 01 00 38 |ntroduct|ion23..8|
|00001240| 66 03 00 00 1b 00 ff ff | c1 ff ff ff 00 00 76 00 |f.......|......v.|
|00001250| 06 00 00 01 00 01 00 00 | 00 08 64 29 0c 00 3c 02 |........|..d)..<.|
|00001260| 00 08 6d 01 15 00 20 20 | ae 77 20 20 20 a6 73 20 |..m...  |.w   .s |
|00001270| 20 20 ba de 20 20 20 b2 | 7a 20 20 22 0c 14 41 02 |  ..   .|z  "..A.|
|00001280| 00 08 65 01 50 00 0b 14 | 41 02 2d 01 05 a0 77 01 |..e.P...|A.-...w.|
|00001290| 6e 01 64 09 60 01 0c 00 | 4a 02 00 08 73 01 a3 00 |n.d.`...|J...s...|
|000012a0| 00 08 73 01 64 01 73 01 | 64 1d a4 00 04 00 00 08 |..s.d.s.|d.......|
|000012b0| 73 01 64 0d 73 01 0b 00 | 4a 02 73 01 64 05 73 01 |s.d.s...|J.s.d.s.|
|000012c0| 64 01 73 01 65 01 0c 00 | c1 00 0a 00 06 00 0b 14 |d.s.e...|........|
|000012d0| 41 02 96 00 00 08 73 01 | 64 1d 73 01 64 01 a4 00 |A.....s.|d.s.d...|
|000012e0| 04 00 00 08 73 01 64 1d | c1 00 02 00 00 08 0b 00 |....s.d.|........|
|000012f0| 3c 02 90 00 92 00 6d 01 | 36 00 a4 ba ae 65 bb a1 |<.....m.|6....e..|
|00001300| a9 fa 20 20 20 3a 20 b3 | 6f ac 4f ad d3 ae 77 a6 |..   : .|o.O...w.|
|00001310| 73 ba de b2 7a b5 7b a6 | a1 2c 20 b4 a3 a8 d1 aa |s...z.{.|., .....|
|00001320| ab ae c6 aa ba b5 6e bf | fd bb 50 ac 64 b8 df 2e |......n.|..P.d...|
|00001330| 96 00 00 08 93 00 00 08 | 0b 00 3c 02 90 00 92 00 |........|..<.....|
|00001340| 6d 01 0d 00 42 41 53 49 | 43 20 b1 d0 ab c7 20 3a |m...BASI|C .... :|
|00001350| 20 22 96 00 00 08 0b 00 | 3c 02 90 00 92 00 6d 01 | "......|<.....m.|
|00001360| 3b 00 20 20 20 20 20 20 | 20 20 20 20 31 29 20 b6 |;.      |    1) .|
|00001370| 7d b1 d2 2c 20 a6 73 a8 | fa 28 50 55 54 23 2f 47 |}.., .s.|.(PUT#/G|
|00001380| 45 54 23 29 2c 20 c3 f6 | b3 ac 27 c0 48 be f7 a6 |ET#), ..|..'.H...|
|00001390| 73 a8 fa c0 c9 27 aa ba | a7 de a5 a9 2e 22 96 00 |s....'..|....."..|
|000013a0| 00 08 0b 00 3c 02 90 00 | 92 00 6d 01 1c 00 20 20 |....<...|..m...  |
|000013b0| 20 20 20 20 20 20 20 20 | 32 29 20 bb 73 a7 40 af |        |2) .s.@.|
|000013c0| c1 a4 de aa ba a7 de a5 | a9 2e 96 00 00 08 0b 00 |........|........|
|000013d0| 3c 02 90 00 92 00 6d 01 | 33 00 20 20 20 20 20 20 |<.....m.|3.      |
|000013e0| 20 20 20 20 33 29 20 a5 | ce 27 a4 47 a4 c0 b7 6a |    3) .|.'.G...j|
|000013f0| b4 4d aa 6b 27 28 42 69 | 6e 61 72 79 20 53 65 61 |.M.k'(Bi|nary Sea|
|00001400| 72 63 68 29 b7 6a b4 4d | af c1 a4 de 2e 22 96 00 |rch).j.M|....."..|
|00001410| 00 08 0b 00 3c 02 90 00 | 92 00 6d 01 1c 00 20 20 |....<...|..m...  |
|00001420| 20 20 20 20 20 20 20 20 | 34 29 20 a6 72 a6 ea b3 |        |4) .r...|
|00001430| 42 b2 7a aa ba a7 de a5 | a9 2e 96 00 00 08 0b 00 |B.z.....|........|
|00001440| 3c 02 90 00 92 00 6d 01 | 32 00 20 20 20 20 20 20 |<.....m.|2.      |
|00001450| 20 20 20 20 35 29 20 a8 | cf a5 ce aa cc a6 db a9 |    5) .|........|
|00001460| 77 b8 ea ae c6 ab ac ba | 41 27 52 45 43 4f 52 44 |w.......|A'RECORD|
|00001470| 27 aa ba ab c5 a7 69 a4 | e8 a6 a1 2e 96 00 00 08 |'.....i.|........|
|00001480| 0b 00 3c 02 90 00 92 00 | 6d 01 20 00 20 20 20 20 |..<.....|m. .    |
|00001490| 20 20 20 20 20 20 36 29 | 20 bf e9 a5 58 ae e6 a6 |      6)| ...X...|
|000014a0| a1 aa ba c0 b3 a5 ce a7 | de a5 a9 2e 96 00 00 08 |........|........|
|000014b0| 93 00 00 08 0b 00 3c 02 | 90 00 92 00 6d 01 0d 00 |......<.|....m...|
|000014c0| b3 d0 b7 4e ae c9 b6 a1 | 20 20 20 3a 20 22 96 00 |...N....|   : "..|
|000014d0| 00 08 0b 00 3c 02 90 00 | 92 00 6d 01 3b 00 20 20 |....<...|..m.;.  |
|000014e0| 20 20 20 20 20 20 20 20 | 31 29 20 a7 41 a5 69 a5 |        |1) .A.i.|
|000014f0| 48 b0 d1 a6 d2 be c7 a8 | ec aa ba c0 c9 ae d7 b3 |H.......|........|
|00001500| 42 b2 7a a7 de a5 a9 2c | 20 bc 57 a5 5b 27 ad d7 |B.z....,| .W.['..|
|00001510| a7 ef b0 4f bf fd 27 a4 | ce 22 96 00 00 08 0b 00 |...O..'.|."......|
|00001520| 3c 02 90 00 92 00 6d 01 | 1e 00 20 20 20 20 20 20 |<.....m.|..      |
|00001530| 20 20 20 20 20 20 20 27 | a7 52 b0 a3 b0 4f bf fd |       '|.R...O..|
|00001540| 27 aa ba a5 5c af e0 2e | 96 00 00 08 73 01 65 01 |'...\...|....s.e.|
|00001550| 17 00 c1 00 02 00 00 08 | 0b 00 3c 02 90 00 92 00 |........|..<.....|
|00001560| 6d 01 26 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |m.&.    |        |
|00001570| 20 bd d0 ab f6 a5 f4 b7 | 4e c1 e4 2c 20 b1 d2 b0 | .......|N.., ...|
|00001580| ca b5 7b a6 a1 20 2e 2e | 2e 20 95 00 93 00 00 08 |..{.. ..|. ......|
|00001590| 46 00 06 00 20 01 6d 01 | 00 00 03 01 64 00 50 03 |F... .m.|....d.P.|
|000015a0| 00 00 51 00 09 00 08 00 | ff ff 04 00 ff ff ff ff |..Q.....|........|
|000015b0| 1b 00 00 00 ff ff 02 0c | 00 09 00 41 64 64 52 65 |........|...AddRe|
|000015c0| 63 6f 72 64 01 00 b8 fc | 01 00 00 1b 00 ff ff c1 |cord....|........|
|000015d0| ff ff ff 00 00 97 00 02 | 00 00 00 00 00 97 00 14 |........|........|
|000015e0| 00 00 00 20 0d 18 3d 20 | 41 44 44 52 45 43 4f 52 |... ..= |ADDRECOR|
|000015f0| 44 20 0d 19 3d 00 00 97 | 00 3e 00 00 00 20 20 41 |D ..=...|.>...  A|
|00001600| 64 64 73 20 72 65 63 6f | 72 64 73 20 74 6f 20 74 |dds reco|rds to t|
|00001610| 68 65 20 66 69 6c 65 20 | 66 72 6f 6d 20 69 6e 70 |he file |from inp|
|00001620| 75 74 20 74 79 70 65 64 | 20 61 74 20 74 68 65 20 |ut typed| at the |
|00001630| 6b 65 79 62 6f 61 72 64 | 2e 00 00 97 00 06 00 00 |keyboard|........|
|00001640| 00 20 0d 3c 3d 00 00 97 | 00 02 00 00 00 00 00 76 |. .<=...|.......v|
|00001650| 00 0c 00 12 01 00 01 01 | 00 f3 00 00 20 71 00 00 |........|.... q..|
|00001660| 0c 1e 00 ac 00 15 00 b4 | 00 12 00 10 00 00 00 6c |........|.......l|
|00001670| 01 0d 00 75 01 00 0c 46 | 00 00 18 73 01 a3 00 00 |...u...F|...s....|
|00001680| 18 6d 01 0b 00 b9 73 a5 | f3 bd 73 b8 b9 20 3a 20 |.m....s.|..s.. : |
|00001690| 22 89 00 02 00 05 03 0b | 00 f3 00 11 00 7e 00 b6 |".......|.....~..|
|000016a0| 00 88 00 00 18 6d 01 0b | 00 b9 73 a5 f3 a6 57 ba |.....m..|..s...W.|
|000016b0| d9 20 3a 20 22 89 00 02 | 00 05 03 0b 00 f3 00 11 |. : "...|........|
|000016c0| 00 8c 00 b6 00 88 00 00 | 18 6d 01 07 00 b3 e6 bb |........|.m......|
|000016d0| f9 20 3a 20 22 0e 14 01 | 00 d1 00 5a 01 0b 00 f3 |. : "...|...Z....|
|000016e0| 00 12 00 9b 00 00 18 6d | 01 07 00 bc c6 b6 71 20 |.......m|......q |
|000016f0| 3a 20 22 0e 14 01 00 d1 | 00 5a 01 0b 00 f3 00 12 |: ".....|.Z......|
|00001700| 00 a8 00 00 00 00 18 0b | 00 75 01 64 05 00 01 0c |........|.u.d....|
|00001710| 00 75 01 00 00 00 18 64 | 05 8a 00 0b 00 75 01 0b |.u.....d|.....u..|
|00001720| 00 f3 00 df 00 20 00 00 | 00 00 18 0b 00 75 01 0b |..... ..|.....u..|
|00001730| 00 75 01 0e 00 01 00 6c | 01 12 00 c1 00 00 18 0b |.u.....l|........|
|00001740| 00 f3 00 11 00 7e 00 0b | 00 75 01 0e 00 01 00 6c |.....~..|.u.....l|
|00001750| 01 12 00 7e 00 00 18 93 | 00 06 00 6d 01 17 00 c4 |...~....|...m....|
|00001760| 7e c4 f2 b7 73 bc 57 b0 | 4f bf fd b6 dc 20 3f 20 |~...s.W.|O.... ? |
|00001770| 28 59 2f 4e 29 20 22 95 | 00 93 00 00 18 64 05 22 |(Y/N) ".|.....d."|
|00001780| 01 59 01 0c 14 c8 01 00 | 0c 0b 14 c8 01 6d 01 01 |.Y......|.....m..|
|00001790| 00 59 22 03 01 64 00 b0 | 00 00 00 00 0c 38 00 00 |.Y"..d..|.....8..|
|000017a0| 00 3d 01 97 00 16 00 18 | 00 20 52 65 2d 73 6f 72 |.=......|. Re-sor|
|000017b0| 74 20 69 6e 64 65 78 20 | 66 69 6c 65 2e 00 00 51 |t index |file...Q|
|000017c0| 00 09 00 08 00 ff ff 04 | 00 ff ff ff ff 1b 00 00 |........|........|
|000017d0| 00 15 00 02 0c 00 0b 00 | 49 6e 70 75 74 52 65 63 |........|InputRec|
|000017e0| 6f 72 64 01 00 b8 2c 03 | 00 00 1b 00 ff ff c1 ff |ord...,.|........|
|000017f0| ff ff 00 00 97 00 02 00 | 00 00 00 00 97 00 16 00 |........|........|
|00001800| 00 00 20 0d 17 3d 20 49 | 4e 50 55 54 52 45 43 4f |.. ..= I|NPUTRECO|
|00001810| 52 44 20 0d 18 3d 00 00 | 97 00 34 00 00 00 0d 04 |RD ..=..|..4.....|
|00001820| 20 46 69 72 73 74 2c 20 | 49 4e 50 55 54 52 45 43 | First, |INPUTREC|
|00001830| 4f 52 44 20 63 61 6c 6c | 73 20 53 48 4f 57 50 41 |ORD call|s SHOWPA|
|00001840| 52 54 4e 55 4d 42 45 52 | 53 2c 20 77 68 69 63 68 |RTNUMBER|S, which|
|00001850| 00 00 97 00 3c 00 00 00 | 0d 04 20 70 72 69 6e 74 |....<...|.. print|
|00001860| 73 20 61 20 6d 65 6e 75 | 20 6f 66 20 70 61 72 74 |s a menu| of part|
|00001870| 20 6e 75 6d 62 65 72 73 | 20 6f 6e 20 74 68 65 20 | numbers| on the |
|00001880| 74 6f 70 20 6f 66 20 74 | 68 65 20 73 63 72 65 65 |top of t|he scree|
|00001890| 6e 2e 00 00 97 00 37 00 | 00 00 0d 04 20 4e 65 78 |n.....7.|.... Nex|
|000018a0| 74 2c 20 49 4e 50 55 54 | 52 45 43 4f 52 44 20 70 |t, INPUT|RECORD p|
|000018b0| 72 6f 6d 70 74 73 20 74 | 68 65 20 75 73 65 72 20 |rompts t|he user |
|000018c0| 74 6f 20 65 6e 74 65 72 | 20 61 20 70 61 72 74 72 |to enter| a partr|
|000018d0| 00 00 97 00 3d 00 00 00 | 0d 04 20 6e 75 6d 62 65 |....=...|.. numbe|
|000018e0| 72 2e 20 46 69 6e 61 6c | 6c 79 2c 20 69 74 20 63 |r. Final|ly, it c|
|000018f0| 61 6c 6c 73 20 74 68 65 | 20 46 49 4e 44 52 45 43 |alls the| FINDREC|
|00001900| 4f 52 44 20 61 6e 64 20 | 50 52 49 4e 54 52 45 43 |ORD and |PRINTREC|
|00001910| 4f 52 44 00 00 00 97 00 | 33 00 00 00 0d 04 20 70 |ORD.....|3..... p|
|00001920| 72 6f 63 65 64 75 72 65 | 73 20 74 6f 20 66 69 6e |rocedure|s to fin|
|00001930| 64 20 61 6e 64 20 70 72 | 69 6e 74 20 74 68 65 20 |d and pr|int the |
|00001940| 67 69 76 65 6e 20 72 65 | 63 6f 72 64 2e 52 00 00 |given re|cord.R..|
|00001950| 97 00 06 00 00 00 20 0d | 3c 3d 00 00 97 00 02 00 |...... .|<=......|
|00001960| 00 00 00 00 76 00 0c 00 | 1f 01 00 01 01 00 f3 00 |....v...|........|
|00001970| 00 20 71 00 00 0c 73 01 | a3 00 00 0c 38 00 00 00 |. q...s.|....8...|
|00001980| 4a 01 97 00 20 00 18 00 | 20 43 61 6c 6c 20 74 68 |J... ...| Call th|
|00001990| 65 20 53 68 6f 77 50 61 | 72 74 4e 75 6d 62 65 72 |e ShowPa|rtNumber|
|000019a0| 73 20 53 55 42 2e 00 00 | 00 0c 97 00 32 00 03 00 |s SUB...|....2...|
|000019b0| 20 50 72 69 6e 74 20 64 | 61 74 61 20 66 72 6f 6d | Print d|ata from|
|000019c0| 20 73 70 65 63 69 66 69 | 65 64 20 72 65 63 6f 72 | specifi|ed recor|
|000019d0| 64 73 20 6f 6e 20 74 68 | 65 20 62 6f 74 74 6f 6d |ds on th|e bottom|
|000019e0| 00 0c 97 00 16 00 03 00 | 20 70 61 72 74 20 6f 66 |........| part of|
|000019f0| 20 74 68 65 20 73 63 72 | 65 65 6e 3a 00 0c 46 00 | the scr|een:..F.|
|00001a00| 00 18 6d 01 17 00 bd d0 | bf e9 a4 4a a4 57 a6 43 |..m.....|...J.W.C|
|00001a10| b9 73 a5 f3 bd 73 b8 b9 | a4 a7 a4 40 20 22 95 00 |.s...s..|...@ "..|
|00001a20| 93 00 00 18 6d 01 25 00 | 20 28 a9 ce ab f6 20 51 |....m.%.| (.... Q|
|00001a30| 20 aa ed a5 dc b5 b2 a7 | f4 29 20 a8 c3 ab f6 20 | .......|.) .... |
|00001a40| 3c 45 4e 54 45 52 3e 20 | c1 e4 20 3a 20 22 89 00 |<ENTER> |.. : "..|
|00001a50| 02 00 05 00 0b 14 03 02 | b6 00 88 00 00 18 0b 14 |........|........|
|00001a60| 03 02 59 01 6d 01 01 00 | 51 22 71 01 61 00 d2 02 |..Y.m...|Q"q.a...|
|00001a70| 00 24 0b 14 03 02 0b 00 | f3 00 0e 00 02 00 e5 00 |.$......|........|
|00001a80| 61 00 b6 02 00 30 0b 00 | f3 00 38 00 01 00 2e 01 |a....0..|..8.....|
|00001a90| 00 24 49 00 ce 02 00 30 | 6d 01 0a 00 b0 4f bf fd |.$I....0|m....O..|
|00001aa0| a5 bc a7 e4 a8 ec 96 00 | 00 24 50 00 00 18 50 00 |........|.$P...P.|
|00001ab0| 00 18 65 01 28 00 6d 01 | 01 00 5f 22 53 01 96 00 |..e.(.m.|.._"S...|
|00001ac0| 00 0c 0b 14 03 02 59 01 | 6d 01 01 00 51 22 71 01 |......Y.|m...Q"q.|
|00001ad0| 64 00 18 02 00 00 00 0c | f5 00 97 00 2e 00 10 00 |d.......|........|
|00001ae0| 20 52 65 73 74 6f 72 65 | 20 74 68 65 20 74 65 78 | Restore| the tex|
|00001af0| 74 20 76 69 65 77 70 6f | 72 74 20 74 6f 20 65 6e |t viewpo|rt to en|
|00001b00| 74 69 72 65 20 73 63 72 | 65 65 6e 2e 00 00 51 00 |tire scr|een...Q.|
|00001b10| 09 00 08 00 ff ff 04 00 | ff ff ff ff 1f 00 00 00 |........|........|
|00001b20| 0c 00 02 0c 00 0b 00 50 | 72 69 6e 74 52 65 63 6f |.......P|rintReco|
|00001b30| 72 64 01 00 b8 00 01 00 | 00 1b 00 ff ff c1 ff ff |rd......|........|
|00001b40| ff 00 00 97 00 02 00 00 | 00 00 00 97 00 16 00 00 |........|........|
|00001b50| 00 20 0d 17 3d 20 50 52 | 49 4e 54 52 45 43 4f 52 |. ..= PR|INTRECOR|
|00001b60| 44 20 0d 18 3d 00 00 97 | 00 22 00 00 00 0d 10 20 |D ..=...|."..... |
|00001b70| 50 72 69 6e 74 73 20 61 | 20 72 65 63 6f 72 64 20 |Prints a| record |
|00001b80| 6f 6e 20 74 68 65 20 73 | 63 72 65 65 6e 00 00 97 |on the s|creen...|
|00001b90| 00 06 00 00 00 20 0d 3c | 3d 00 00 97 00 02 00 00 |..... .<|=.......|
|00001ba0| 00 00 00 76 00 0c 00 2e | 01 00 01 01 00 f3 00 00 |...v....|........|
|00001bb0| 20 71 00 00 0c 6d 01 09 | 00 ae c6 20 20 b8 b9 20 | q...m..|...  .. |
|00001bc0| 3a 20 22 95 00 0b 00 f3 | 00 11 00 7e 00 96 00 00 |: ".....|...~....|
|00001bd0| 0c 6d 01 09 00 bb a1 20 | 20 a9 fa 20 3a 20 22 95 |.m..... | .. : ".|
|00001be0| 00 0b 00 f3 00 11 00 8c | 00 96 00 00 0c 6d 01 16 |........|.....m..|
|00001bf0| 00 b3 e6 20 20 bb f9 20 | 3a 20 4e 54 24 20 23 23 |...  .. |: NT$ ##|
|00001c00| 23 23 23 23 2e 23 23 ff | 00 0b 00 f3 00 11 00 9b |####.##.|........|
|00001c10| 00 96 00 00 0c 6d 01 09 | 00 bc c6 20 20 b6 71 20 |.....m..|...  .q |
|00001c20| 3a 20 22 95 00 0b 00 f3 | 00 11 00 a8 00 96 00 00 |: ".....|........|
|00001c30| 00 51 00 09 00 08 00 ff | ff 04 00 ff ff ff ff 0c |.Q......|........|
|00001c40| 00 00 00 ff ff 02 0c 00 | 09 00 53 6f 72 74 49 6e |........|..SortIn|
|00001c50| 64 65 78 01 00 b8 d4 02 | 00 00 1b 00 ff ff c1 ff |dex.....|........|
|00001c60| ff ff 00 00 97 00 02 00 | 00 00 00 00 97 00 14 00 |........|........|
|00001c70| 00 00 20 0d 19 3d 20 53 | 4f 52 54 49 4e 44 45 58 |.. ..= S|ORTINDEX|
|00001c80| 20 0d 18 3d 00 00 97 00 | 23 00 00 00 0d 10 20 53 | ..=....|#..... S|
|00001c90| 6f 72 74 73 20 74 68 65 | 20 69 6e 64 65 78 20 62 |orts the| index b|
|00001ca0| 79 20 70 61 72 74 20 6e | 75 6d 62 65 72 3d 00 00 |y part n|umber=..|
|00001cb0| 97 00 06 00 00 00 20 0d | 3c 3d 00 00 97 00 02 00 |...... .|<=......|
|00001cc0| 00 00 00 00 76 00 06 00 | 3d 01 00 01 00 00 00 0c |....v...|=.......|
|00001cd0| 1e 00 8c 00 15 00 b4 00 | 12 00 10 00 00 00 6c 01 |........|......l.|
|00001ce0| 0d 00 75 01 00 00 00 0c | 97 00 36 00 03 00 20 53 |..u.....|..6... S|
|00001cf0| 65 74 20 63 6f 6d 70 61 | 72 69 73 6f 6e 20 6f 66 |et compa|rison of|
|00001d00| 66 73 65 74 20 74 6f 20 | 68 61 6c 66 20 74 68 65 |fset to |half the|
|00001d10| 20 6e 75 6d 62 65 72 20 | 6f 66 20 72 65 63 6f 72 | number |of recor|
|00001d20| 64 73 00 0c 97 00 0c 00 | 03 00 20 69 6e 20 69 6e |ds......|.. in in|
|00001d30| 64 65 78 3a 00 0c 0b 00 | 75 01 64 09 60 01 0c 00 |dex:....|u.d.`...|
|00001d40| 90 02 00 00 00 0c 97 00 | 22 00 03 00 20 4c 6f 6f |........|"... Loo|
|00001d50| 70 20 75 6e 74 69 6c 20 | 6f 66 66 73 65 74 20 67 |p until |offset g|
|00001d60| 65 74 73 20 74 6f 20 7a | 65 72 6f 3a 00 0c 0b 00 |ets to z|ero:....|
|00001d70| 90 02 64 01 5f 01 48 00 | cc 02 00 18 0b 00 75 01 |..d._.H.|......u.|
|00001d80| 0b 00 90 02 77 01 0c 00 | 9a 02 00 18 46 00 00 00 |....w...|....F...|
|00001d90| 00 24 97 00 25 00 09 00 | 20 41 73 73 75 6d 65 20 |.$..%...| Assume |
|00001da0| 6e 6f 20 73 77 69 74 63 | 68 65 73 20 61 74 20 74 |no switc|hes at t|
|00001db0| 68 69 73 20 6f 66 66 73 | 65 74 3a 6e 00 24 0b 00 |his offs|et:n.$..|
|00001dc0| 60 00 0c 00 a3 02 00 00 | 00 24 97 00 31 00 09 00 |`.......|.$..1...|
|00001dd0| 20 43 6f 6d 70 61 72 65 | 20 65 6c 65 6d 65 6e 74 | Compare| element|
|00001de0| 73 20 61 6e 64 20 73 77 | 69 74 63 68 20 6f 6e 65 |s and sw|itch one|
|00001df0| 73 20 6f 75 74 20 6f 66 | 20 6f 72 64 65 72 3a 63 |s out of| order:c|
|00001e00| 00 24 0b 00 f6 01 64 05 | 0b 00 9a 02 56 00 ff ff |.$....d.|....V...|
|00001e10| 1c 02 00 30 0b 00 f6 01 | 0e 00 01 00 6c 01 11 00 |...0....|....l...|
|00001e20| 7e 00 0b 00 f6 01 0b 00 | 90 02 00 01 0e 00 01 00 |~.......|........|
|00001e30| 6c 01 11 00 7e 00 5f 01 | 61 00 12 02 00 3c 0b 00 |l...~._.|a....<..|
|00001e40| f6 01 0e 00 01 00 6c 01 | 0b 00 f6 01 0b 00 90 02 |......l.|........|
|00001e50| 00 01 0e 00 01 00 6c 01 | ed 00 08 00 00 3c 0b 00 |......l.|.....<..|
|00001e60| f6 01 0c 00 a3 02 00 30 | 50 00 00 24 0b 00 f6 01 |.......0|P..$....|
|00001e70| 66 00 ff ff 01 00 00 00 | 00 24 97 00 27 00 09 00 |f.......|.$..'...|
|00001e80| 20 53 6f 72 74 20 6f 6e | 20 6e 65 78 74 20 70 61 | Sort on| next pa|
|00001e90| 73 73 20 6f 6e 6c 79 20 | 74 6f 20 77 68 65 72 65 |ss only |to where|
|00001ea0| 20 6c 61 73 74 20 00 24 | 97 00 13 00 09 00 20 73 | last .$|...... s|
|00001eb0| 77 69 74 63 68 20 77 61 | 73 20 6d 61 64 65 3a 73 |witch wa|s made:s|
|00001ec0| 00 24 0b 00 a3 02 0c 00 | 9a 02 00 18 0b 00 a3 02 |.$......|........|
|00001ed0| 64 00 36 01 00 00 00 18 | 97 00 33 00 06 00 20 4e |d.6.....|..3... N|
|00001ee0| 6f 20 73 77 69 74 63 68 | 65 73 20 61 74 20 6c 61 |o switch|es at la|
|00001ef0| 73 74 20 6f 66 66 73 65 | 74 2c 20 74 72 79 20 6f |st offse|t, try o|
|00001f00| 6e 65 20 68 61 6c 66 20 | 61 73 20 62 69 67 3a 00 |ne half |as big:.|
|00001f10| 00 18 0b 00 90 02 64 09 | 60 01 0c 00 90 02 00 0c |......d.|`.......|
|00001f20| 62 00 16 01 00 00 51 00 | 09 00 08 00 ff ff 04 00 |b.....Q.|........|
|00001f30| ff ff ff ff 26 00 00 00 | 24 00 02 0c 00 0f 00 53 |....&...|$......S|
|00001f40| 68 6f 77 50 61 72 74 4e | 75 6d 62 65 72 73 01 00 |howPartN|umbers..|
|00001f50| b8 86 03 00 00 1b 00 ff | ff c1 ff ff ff 00 00 97 |........|........|
|00001f60| 00 02 00 00 00 00 00 97 | 00 1a 00 00 00 20 0d 15 |........|..... ..|
|00001f70| 3d 20 53 48 4f 57 50 41 | 52 54 4e 55 4d 42 45 52 |= SHOWPA|RTNUMBER|
|00001f80| 53 20 0d 16 3d 00 00 97 | 00 3d 00 00 00 20 20 50 |S ..=...|.=...  P|
|00001f90| 72 69 6e 74 73 20 61 6e | 20 69 6e 64 65 78 20 6f |rints an| index o|
|00001fa0| 66 20 61 6c 6c 20 74 68 | 65 20 70 61 72 74 20 6e |f all th|e part n|
|00001fb0| 75 6d 62 65 72 73 20 69 | 6e 20 74 68 65 20 75 70 |umbers i|n the up|
|00001fc0| 70 65 72 20 70 61 72 74 | 3d 00 00 97 00 12 00 00 |per part|=.......|
|00001fd0| 00 20 20 6f 66 20 74 68 | 65 20 73 63 72 65 65 6e |.  of th|e screen|
|00001fe0| 2e 00 00 97 00 06 00 00 | 00 20 0d 3c 3d 00 00 97 |........|. .<=...|
|00001ff0| 00 02 00 00 00 00 00 76 | 00 06 00 4a 01 00 01 00 |.......v|...J....|
|00002000| 00 00 0c 1e 00 c4 00 15 | 00 b4 00 12 00 10 00 00 |........|........|
|00002010| 00 6c 01 0d 00 75 01 00 | 00 00 0c 23 00 64 21 0c |.l...u..|...#.d!.|
|00002020| 00 58 02 65 01 50 00 0b | 00 58 02 60 01 0c 00 63 |.X.e.P..|.X.`...c|
|00002030| 02 00 00 00 0c 97 00 36 | 00 03 00 20 41 74 20 74 |.......6|... At t|
|00002040| 68 65 20 74 6f 70 20 6f | 66 20 74 68 65 20 73 63 |he top o|f the sc|
|00002050| 72 65 65 6e 2c 20 70 72 | 69 6e 74 20 61 20 6d 65 |reen, pr|int a me|
|00002060| 6e 75 20 69 6e 64 65 78 | 69 6e 67 20 61 6c 6c 00 |nu index|ing all.|
|00002070| 0c 97 00 3a 00 03 00 20 | 74 68 65 20 70 61 72 74 |...:... |the part|
|00002080| 20 6e 75 6d 62 65 72 73 | 20 66 6f 72 20 72 65 63 | numbers| for rec|
|00002090| 6f 72 64 73 20 69 6e 20 | 74 68 65 20 66 69 6c 65 |ords in |the file|
|000020a0| 2e 20 20 54 68 69 73 20 | 6d 65 6e 75 20 69 73 00 |.  This |menu is.|
|000020b0| 0c 97 00 3a 00 03 00 20 | 70 72 69 6e 74 65 64 20 |...:... |printed |
|000020c0| 69 6e 20 63 6f 6c 75 6d | 6e 73 20 6f 66 20 65 71 |in colum|ns of eq|
|000020d0| 75 61 6c 20 6c 65 6e 67 | 74 68 20 28 65 78 63 65 |ual leng|th (exce|
|000020e0| 70 74 20 70 6f 73 73 69 | 62 6c 79 20 74 68 65 00 |pt possi|bly the.|
|000020f0| 0c 97 00 36 00 03 00 20 | 6c 61 73 74 20 63 6f 6c |...6... |last col|
|00002100| 75 6d 6e 2c 20 77 68 69 | 63 68 20 6d 61 79 20 62 |umn, whi|ch may b|
|00002110| 65 20 73 68 6f 72 74 65 | 72 20 74 68 61 6e 20 74 |e shorte|r than t|
|00002120| 68 65 20 6f 74 68 65 72 | 73 29 3a 00 0c 0b 00 75 |he other|s):....u|
|00002130| 01 0c 00 6f 02 00 0c 0b | 00 6f 02 0b 00 58 02 6f |...o....|.o...X.o|
|00002140| 01 48 00 06 02 00 18 0b | 00 6f 02 64 05 00 01 0c |.H......|.o.d....|
|00002150| 00 6f 02 00 0c 62 00 e4 | 01 00 0c 0b 00 6f 02 0b |.o...b..|.....o..|
|00002160| 00 58 02 60 01 0c 00 6f | 02 00 0c 64 05 0c 00 7f |.X.`...o|...d....|
|00002170| 02 00 0c 64 05 0c 00 c1 | 00 00 0c 0b 00 c1 00 0b |...d....|........|
|00002180| 00 75 01 5f 01 47 00 b0 | 02 00 18 0b 00 89 02 64 |.u._.G..|.......d|
|00002190| 05 0b 00 6f 02 56 00 ff | ff 98 02 00 24 73 01 0b |...o.V..|....$s..|
|000021a0| 00 89 02 73 01 0b 00 7f | 02 c1 00 04 00 00 24 0b |...s....|......$.|
|000021b0| 00 c1 00 0e 00 01 00 6c | 01 11 00 7e 00 96 00 00 |.......l|...~....|
|000021c0| 24 0b 00 c1 00 64 05 00 | 01 0c 00 c1 00 00 24 0b |$....d..|......$.|
|000021d0| 00 c1 00 0b 00 75 01 5f | 01 5d 00 8e 02 54 00 9a |.....u._|.]...T..|
|000021e0| 02 00 18 0b 00 89 02 66 | 00 ff ff 01 00 00 18 0b |.......f|........|
|000021f0| 00 7f 02 0b 00 63 02 00 | 01 0c 00 7f 02 00 0c 62 |.....c..|.......b|
|00002200| 00 28 02 00 00 00 0c 73 | 01 0b 00 6f 02 64 05 00 |.(.....s|...o.d..|
|00002210| 01 73 01 64 05 c1 00 04 | 00 00 0c 65 01 50 00 6d |.s.d....|...e.P.m|
|00002220| 01 01 00 5f 22 53 01 96 | 00 97 00 18 00 20 00 20 |..._"S..|..... . |
|00002230| 50 72 69 6e 74 20 73 65 | 70 61 72 61 74 6f 72 20 |Print se|parator |
|00002240| 6c 69 6e 65 2e 00 00 00 | 0c 97 00 39 00 03 00 20 |line....|...9... |
|00002250| 53 63 72 6f 6c 6c 20 69 | 6e 66 6f 72 6d 61 74 69 |Scroll i|nformati|
|00002260| 6f 6e 20 61 62 6f 75 74 | 20 72 65 63 6f 72 64 73 |on about| records|
|00002270| 20 62 65 6c 6f 77 20 74 | 68 65 20 70 61 72 74 2d | below t|he part-|
|00002280| 6e 75 6d 62 65 72 65 00 | 0c 97 00 34 00 03 00 20 |numbere.|...4... |
|00002290| 6d 65 6e 75 20 28 74 68 | 69 73 20 77 61 79 2c 20 |menu (th|is way, |
|000022a0| 74 68 65 20 70 61 72 74 | 20 6e 75 6d 62 65 72 73 |the part| numbers|
|000022b0| 20 61 72 65 20 6e 6f 74 | 20 65 72 61 73 65 64 29 | are not| erased)|
|000022c0| 3a 00 0c 0b 00 6f 02 64 | 09 00 01 65 01 18 00 f6 |:....o.d|...e....|
|000022d0| 00 00 00 51 00 09 00 08 | 00 ff ff 04 00 ff ff ff |...Q....|........|
|000022e0| ff 28 00 00 00 00 00 02 | 0c                      |.(......|.       |
+--------+-------------------------+-------------------------+--------+--------+