/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLCOD / ADVANCED.COD

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0b 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 1b 46 6f 78 50 72 6f 20 | 41 64 76 61 6e 63 65 64 |.FoxPro |Advanced|
|00000030| 20 41 70 70 6c 69 63 61 | 74 69 6f 6e 00 00 00 00 | Applica|tion....|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000070| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000080| 1e a3 6f 15 01 00 00 1a | 00 04 04 00 0d 0d 1e 91 |..o.....|........|
|00000090| 00 1d 00 00 00 18 01 44 | 17 01 21 00 18 01 44 19 |.......D|..!...D.|
|000000a0| 00 04 04 00 16 01 10 15 | 01 44 00 17 01 18 00 16 |........|.D......|
|000000b0| 05 00 1e b5 00 1d 00 01 | 00 17 01 22 00 1a 00 04 |........|..."....|
|000000c0| 04 00 19 00 04 04 00 15 | 01 44 00 17 01 18 00 16 |........|.D......|
|000000d0| 05 00 1e d5 00 1d 00 00 | 00 19 00 08 04 00 17 02 |........|........|
|000000e0| 13 00 1a 01 08 07 00 1a | 01 08 08 00 1a 01 08 09 |........|........|
|000000f0| 00 15 02 0c 00 2a 20 50 | 72 6f 67 72 61 6d 2e 3a |.....* P|rogram.:|
|00000100| 20 17 02 16 00 19 01 08 | 08 00 17 02 16 00 15 02 | .......|........|
|00000110| 01 00 2e 17 02 16 00 19 | 01 08 09 00 17 02 17 00 |........|........|
|00000120| 15 02 0c 00 2a 20 44 61 | 74 65 2e 2e 2e 2e 3a 20 |....* Da|te....: |
|00000130| 17 02 16 00 18 02 3a 17 | 02 17 00 15 02 20 00 2a |......:.|..... .*|
|00000140| 20 56 65 72 73 69 6f 6e | 2e 3a 20 46 6f 78 50 72 | Version|.: FoxPr|
|00000150| 6f 2c 20 72 65 76 69 73 | 69 6f 6e 20 31 2e 30 17 |o, revis|ion 1.0.|
|00000160| 02 17 00 15 02 0c 00 2a | 20 4e 6f 74 65 73 2e 2e |.......*| Notes..|
|00000170| 2e 3a 20 17 02 16 00 19 | 00 08 05 00 17 02 17 00 |.: .....|........|
|00000180| 15 02 1b 00 2a 20 41 75 | 74 68 6f 72 2e 2e 3a 20 |....* Au|thor..: |
|00000190| 59 4f 55 52 20 4e 41 4d | 45 20 48 45 52 45 21 17 |YOUR NAM|E HERE!.|
|000001a0| 02 17 00 15 02 01 00 2a | 17 02 17 00 16 05 00 1e |.......*|........|
|000001b0| b2 01 1d 00 00 00 19 00 | 08 04 00 16 02 5b 15 01 |........|.....[..|
|000001c0| 00 00 16 01 1e 1f f4 01 | 1b 01 1c d5 00 19 00 08 |........|........|
|000001d0| 04 00 1a 00 1c 04 00 19 | 00 08 05 00 1a 00 1c 05 |........|........|
|000001e0| 00 1b 05 00 d5 00 15 03 | 01 00 17 03 01 00 16 05 |........|........|
|000001f0| 00 1e ff 01 15 03 00 00 | 17 03 01 00 16 05 00 16 |........|........|
|00000200| 05 00 0d 0d 0d 1e 08 02 | 1d 00 06 00 15 02 17 00 |........|........|
|00000210| 4e 20 2c 42 55 2c 47 20 | 2c 42 47 2c 52 20 2c 42 |N ,BU,G |,BG,R ,B|
|00000220| 52 2c 47 52 2c 57 20 1a | 00 08 07 00 19 00 04 04 |R,GR,W .|........|
|00000230| 00 15 01 08 00 16 01 1b | 15 01 08 00 16 01 1e 1f |........|........|
|00000240| 4c 02 15 02 01 00 2b 1a | 00 08 05 00 19 00 04 04 |L.....+.|........|
|00000250| 00 15 01 80 00 16 01 1b | 15 01 80 00 16 01 1e 1f |........|........|
|00000260| 6c 02 15 02 01 00 2a 1a | 00 08 06 00 19 00 04 04 |l.....*.|........|
|00000270| 00 15 01 07 00 16 01 1b | 1a 00 04 0a 00 19 00 04 |........|........|
|00000280| 04 00 15 01 04 00 16 01 | 16 15 01 07 00 16 01 1b |........|........|
|00000290| 1a 00 04 09 00 19 00 08 | 07 00 19 00 04 0a 00 15 |........|........|
|000002a0| 01 03 00 16 01 12 15 01 | 01 00 16 01 10 15 01 02 |........|........|
|000002b0| 00 16 02 62 16 02 6c 19 | 00 08 06 00 16 02 10 19 |...b..l.|........|
|000002c0| 00 08 05 00 16 02 10 15 | 02 01 00 2f 16 02 10 1a |........|.../....|
|000002d0| 00 08 08 00 19 00 08 08 | 00 19 00 08 07 00 19 00 |........|........|
|000002e0| 04 09 00 15 01 03 00 16 | 01 12 15 01 01 00 16 01 |........|........|
|000002f0| 10 15 01 02 00 16 02 62 | 16 02 6c 16 02 10 1a 00 |.......b|..l.....|
|00000300| 08 08 00 19 00 08 08 00 | 17 02 01 00 16 05 00 16 |........|........|
|00000310| 05 00 1e 15 03 1d 00 04 | 00 15 01 01 00 1a 00 04 |........|........|
|00000320| 05 00 17 04 07 00 15 01 | 00 00 1a 00 04 06 00 17 |........|........|
|00000330| 04 11 00 1a 00 04 07 00 | 15 01 01 00 1c 00 04 06 |........|........|
|00000340| 00 19 00 04 06 00 19 00 | 04 07 00 16 01 21 1f 8a |........|.....!..|
|00000350| 04 19 00 04 06 00 17 04 | 06 00 18 02 0d 16 02 18 |........|........|
|00000360| 18 03 07 16 03 1c 16 03 | 1b 1f 87 04 18 02 11 15 |........|........|
|00000370| 02 01 00 42 16 02 1e 1f | 7e 04 18 02 17 16 02 6c |...B....|~......l|
|00000380| 16 02 64 15 01 00 00 16 | 01 22 1f 7e 04 1b 01 1c |..d.....|.".~....|
|00000390| 08 02 18 01 09 1b 04 00 | 08 02 17 02 02 00 1a 00 |........|........|
|000003a0| 08 04 00 15 02 0e 00 44 | 45 46 49 4e 45 20 57 49 |.......D|EFINE WI|
|000003b0| 4e 44 4f 57 20 17 02 16 | 00 18 02 17 15 02 01 00 |NDOW ...|........|
|000003c0| 31 16 02 10 17 02 16 00 | 15 02 06 00 20 46 52 4f |1.......|.... FRO|
|000003d0| 4d 20 17 02 16 00 18 01 | 02 17 01 16 00 15 02 01 |M ......|........|
|000003e0| 00 2c 17 02 16 00 18 01 | 03 17 01 16 00 15 02 04 |.,......|........|
|000003f0| 00 20 54 4f 20 17 02 16 | 00 18 01 02 18 01 0f 16 |. TO ...|........|
|00000400| 01 10 17 01 16 00 15 02 | 01 00 2c 17 02 16 00 18 |........|..,.....|
|00000410| 01 03 18 01 0e 16 01 10 | 17 01 16 00 15 02 2b 00 |........|......+.|
|00000420| 20 44 4f 55 42 4c 45 20 | 43 4c 4f 53 45 20 5a 4f | DOUBLE |CLOSE ZO|
|00000430| 4f 4d 20 46 4c 4f 41 54 | 20 47 52 4f 57 20 53 48 |OM FLOAT| GROW SH|
|00000440| 41 44 4f 57 20 43 4f 4c | 4f 52 20 17 02 16 00 19 |ADOW COL|OR .....|
|00000450| 00 08 04 00 17 02 16 00 | 15 02 07 00 20 54 49 54 |........|.... TIT|
|00000460| 4c 45 20 17 02 16 00 15 | 02 01 00 22 18 02 17 16 |LE .....|..."....|
|00000470| 02 10 15 02 01 00 22 16 | 02 10 17 02 17 00 15 01 |......".|........|
|00000480| 01 00 1c 00 04 05 00 1e | 38 03 17 04 06 00 16 05 |........|8.......|
|00000490| 00 1e 94 04 1d 00 05 00 | 15 01 01 00 1a 00 04 06 |........|........|
|000004a0| 00 17 04 07 00 15 01 00 | 00 1a 00 04 07 00 17 04 |........|........|
|000004b0| 11 00 1a 00 04 08 00 15 | 01 01 00 1c 00 04 07 00 |........|........|
|000004c0| 19 00 04 07 00 19 00 04 | 08 00 16 01 21 1f ba 06 |........|....!...|
|000004d0| 19 00 04 07 00 17 04 06 | 00 18 02 0d 16 02 18 18 |........|........|
|000004e0| 03 07 16 03 1c 16 03 1b | 1f b7 06 18 02 11 15 02 |........|........|
|000004f0| 01 00 42 16 02 1e 1f 0f | 06 18 02 17 15 02 00 00 |..B.....|........|
|00000500| 16 02 1e 1f 0c 06 18 02 | 0d 1a 00 08 04 00 1b 01 |........|........|
|00000510| 1c 08 02 18 01 09 1b 04 | 00 08 02 17 02 02 00 1a |........|........|
|00000520| 00 08 05 00 15 02 06 00 | 20 20 20 20 40 20 17 02 |........|    @ ..|
|00000530| 16 00 18 01 02 17 01 16 | 00 15 02 01 00 2c 17 02 |........|.....,..|
|00000540| 16 00 18 01 03 17 01 16 | 00 15 02 01 00 2c 17 02 |........|.....,..|
|00000550| 16 00 18 01 02 18 01 0f | 16 01 10 17 01 16 00 15 |........|........|
|00000560| 02 01 00 2c 17 02 16 00 | 18 01 03 18 01 0e 16 01 |...,....|........|
|00000570| 10 17 01 16 00 15 02 06 | 00 20 42 4f 58 20 27 17 |........|. BOX '.|
|00000580| 02 16 00 19 00 08 04 00 | 15 01 01 00 15 01 03 00 |........|........|
|00000590| 16 02 62 17 02 16 00 19 | 00 08 04 00 15 01 05 00 |..b.....|........|
|000005a0| 15 01 01 00 16 02 62 17 | 02 16 00 19 00 08 04 00 |......b.|........|
|000005b0| 15 01 08 00 15 01 01 00 | 16 02 62 17 02 16 00 19 |........|..b.....|
|000005c0| 00 08 04 00 15 01 07 00 | 15 01 01 00 16 02 62 17 |........|......b.|
|000005d0| 02 16 00 19 00 08 04 00 | 15 01 06 00 15 01 01 00 |........|........|
|000005e0| 16 02 62 17 02 16 00 19 | 00 08 04 00 15 01 04 00 |..b.....|........|
|000005f0| 15 01 01 00 16 02 62 17 | 02 16 00 15 02 01 00 27 |......b.|.......'|
|00000600| 17 02 17 00 15 02 00 00 | 17 02 17 00 1e ae 06 15 |........|........|
|00000610| 02 06 00 20 20 20 20 40 | 20 17 02 16 00 18 01 02 |...    @| .......|
|00000620| 17 01 16 00 15 02 01 00 | 2c 17 02 16 00 18 01 03 |........|,.......|
|00000630| 17 01 16 00 15 02 06 00 | 20 53 41 59 20 27 17 02 |........| SAY '..|
|00000640| 16 00 18 02 0d 17 02 16 | 00 15 02 01 00 27 17 02 |........|.....'..|
|00000650| 16 00 1b 01 1c 08 02 18 | 01 09 1b 04 00 08 02 17 |........|........|
|00000660| 02 02 00 1a 00 08 05 00 | 18 02 28 16 02 6a 15 01 |........|..(..j..|
|00000670| 01 00 15 02 01 00 2c 18 | 02 28 16 02 63 16 02 62 |......,.|.(..c..b|
|00000680| 19 00 08 05 00 16 02 6a | 16 02 1f 1f a6 06 15 02 |.......j|........|
|00000690| 07 00 20 43 4f 4c 4f 52 | 20 17 02 16 00 19 00 08 |.. COLOR| .......|
|000006a0| 05 00 17 02 16 00 15 02 | 00 00 17 02 17 00 15 01 |........|........|
|000006b0| 01 00 1c 00 04 06 00 1e | b7 04 17 04 06 00 16 05 |........|........|
|000006c0| 00 1e c4 06 1d 00 01 00 | 18 02 12 16 02 18 1f f6 |........|........|
|000006d0| 06 15 02 0a 00 20 50 49 | 43 54 55 52 45 20 27 17 |..... PI|CTURE '.|
|000006e0| 02 16 00 18 02 12 17 02 | 16 00 15 02 01 00 27 17 |........|......'.|
|000006f0| 02 16 00 1e 5f 07 18 02 | 11 15 02 01 00 4e 16 02 |...._...|.....N..|
|00000700| 1e 1f 5f 07 15 02 01 00 | 39 18 01 0e 16 02 72 1a |.._.....|9.....r.|
|00000710| 00 08 04 00 18 01 0f 16 | 01 18 1f 38 07 18 01 0e |........|...8....|
|00000720| 18 01 0f 16 01 11 15 02 | 01 00 2e 19 00 08 04 00 |........|........|
|00000730| 16 02 84 1a 00 08 04 00 | 15 02 0a 00 20 50 49 43 |........|.... PIC|
|00000740| 54 55 52 45 20 27 17 02 | 16 00 19 00 08 04 00 17 |TURE '..|........|
|00000750| 02 16 00 15 02 01 00 27 | 17 02 16 00 1e f3 06 16 |.......'|........|
|00000760| 05 00 1e 65 07 1d 00 00 | 00 18 02 13 16 02 18 1f |...e....|........|
|00000770| 88 07 15 02 07 00 20 52 | 41 4e 47 45 20 17 02 16 |...... R|ANGE ...|
|00000780| 00 18 02 13 17 02 16 00 | 16 05 00 1e 8e 07 1d 00 |........|........|
|00000790| 03 00 15 01 01 00 1a 00 | 04 04 00 17 04 07 00 15 |........|........|
|000007a0| 01 00 00 1a 00 04 05 00 | 17 04 11 00 1a 00 04 06 |........|........|
|000007b0| 00 15 01 01 00 1c 00 04 | 05 00 19 00 04 05 00 19 |........|........|
|000007c0| 00 04 06 00 16 01 21 1f | d2 08 19 00 04 05 00 17 |......!.|........|
|000007d0| 04 06 00 18 03 06 18 02 | 11 15 02 04 00 43 44 4c |........|.....CDL|
|000007e0| 4e 16 02 3c 16 03 1b 1f | cf 08 18 02 01 15 02 01 |N..<....|........|
|000007f0| 00 4d 16 02 1e 1f c6 08 | 18 02 15 16 02 6c 16 02 |.M......|.....l..|
|00000800| 64 15 01 00 00 16 01 1f | 1f 27 08 18 02 10 17 02 |d.......|.'......|
|00000810| 16 00 15 02 03 00 20 3d | 20 17 02 16 00 18 02 15 |...... =| .......|
|00000820| 17 02 17 00 1e c6 08 18 | 02 11 15 02 01 00 43 16 |........|......C.|
|00000830| 02 1e 1f 61 08 18 02 10 | 17 02 16 00 15 02 09 00 |...a....|........|
|00000840| 20 3d 20 53 50 41 43 45 | 28 18 01 0e 16 02 66 16 | = SPACE|(.....f.|
|00000850| 02 10 15 02 01 00 29 16 | 02 10 17 02 17 00 1e 24 |......).|.......$|
|00000860| 08 18 02 11 15 02 01 00 | 4e 16 02 1e 1f 88 08 18 |........|N.......|
|00000870| 02 10 17 02 16 00 15 02 | 07 00 20 3d 20 30 2e 30 |........|.. = 0.0|
|00000880| 30 17 02 17 00 1e 24 08 | 18 02 11 15 02 01 00 44 |0.....$.|.......D|
|00000890| 16 02 1e 1f b1 08 18 02 | 10 17 02 16 00 15 02 09 |........|........|
|000008a0| 00 20 3d 20 44 41 54 45 | 28 29 17 02 17 00 1e 24 |. = DATE|().....$|
|000008b0| 08 18 02 10 17 02 16 00 | 15 02 06 00 20 3d 20 2e |........|.... = .|
|000008c0| 46 2e 17 02 17 00 15 01 | 01 00 1c 00 04 04 00 1e |F.......|........|
|000008d0| b1 07 17 04 06 00 16 05 | 00 1e dc 08 1d 00 00 00 |........|........|
|000008e0| 18 02 14 16 02 18 1f ff | 08 15 02 07 00 20 56 41 |........|..... VA|
|000008f0| 4c 49 44 20 17 02 16 00 | 18 02 14 17 02 16 00 16 |LID ....|........|
|00000900| 05 00 1e 05 09 1d 00 06 | 00 15 01 40 00 1a 00 04 |........|...@....|
|00000910| 06 00 15 01 01 00 1a 00 | 04 07 00 17 04 07 00 15 |........|........|
|00000920| 01 00 00 1a 00 04 08 00 | 17 04 11 00 1a 00 04 09 |........|........|
|00000930| 00 15 01 01 00 1c 00 04 | 08 00 19 00 04 08 00 19 |........|........|
|00000940| 00 04 09 00 16 01 21 1f | 58 0b 19 00 04 08 00 17 |......!.|X.......|
|00000950| 04 06 00 18 03 06 18 02 | 11 15 02 05 00 43 44 4c |........|.....CDL|
|00000960| 4e 4d 16 02 3c 16 03 1b | 1f 55 0b 18 02 11 15 02 |NM..<...|.U......|
|00000970| 01 00 4d 16 02 1e 1f d7 | 09 18 02 17 16 02 6c 16 |..M.....|......l.|
|00000980| 02 6a 15 02 04 00 4f 50 | 45 4e 16 02 1e 1f d7 09 |.j....OP|EN......|
|00000990| 15 02 14 00 20 20 20 20 | 41 43 54 49 56 41 54 45 |....    |ACTIVATE|
|000009a0| 20 57 49 4e 44 4f 57 20 | 17 02 16 00 18 02 10 15 | WINDOW |........|
|000009b0| 02 01 00 31 16 02 10 17 | 02 17 00 15 02 14 00 20 |...1....|....... |
|000009c0| 20 20 20 41 43 54 49 56 | 41 54 45 20 53 43 52 45 |   ACTIV|ATE SCRE|
|000009d0| 45 4e 20 17 02 17 00 18 | 03 08 1f 31 0a 15 02 06 |EN .....|...1....|
|000009e0| 00 20 20 20 20 40 20 17 | 02 16 00 18 01 02 17 01 |.    @ .|........|
|000009f0| 16 00 15 02 01 00 2c 17 | 02 16 00 18 01 03 18 02 |......,.|........|
|00000a00| 0d 16 02 64 16 01 10 17 | 01 16 00 15 02 05 00 20 |...d....|....... |
|00000a10| 47 45 54 20 17 02 16 00 | 18 02 01 15 02 02 00 2d |GET ....|.......-|
|00000a20| 3e 16 02 10 18 02 10 16 | 02 10 17 02 16 00 1e 80 |>.......|........|
|00000a30| 0a 15 02 06 00 20 20 20 | 20 40 20 17 02 16 00 18 |.....   | @ .....|
|00000a40| 01 02 15 01 01 00 16 01 | 10 17 01 16 00 15 02 01 |........|........|
|00000a50| 00 2c 17 02 16 00 18 01 | 03 17 01 16 00 15 02 05 |.,......|........|
|00000a60| 00 20 47 45 54 20 17 02 | 16 00 18 02 01 15 02 02 |. GET ..|........|
|00000a70| 00 2d 3e 16 02 10 18 02 | 10 16 02 10 17 02 16 00 |.->.....|........|
|00000a80| 18 02 11 15 02 01 00 4d | 16 02 1e 1f 03 0b 18 02 |.......M|........|
|00000a90| 17 16 02 6c 16 02 6a 15 | 02 04 00 4f 50 45 4e 16 |...l..j.|...OPEN.|
|00000aa0| 02 1e 1f c9 0a 15 02 0d | 00 20 4f 50 45 4e 20 57 |........|. OPEN W|
|00000ab0| 49 4e 44 4f 57 20 17 02 | 16 00 18 02 10 15 02 01 |INDOW ..|........|
|00000ac0| 00 31 16 02 10 17 02 16 | 00 18 02 17 16 02 6c 16 |.1......|......l.|
|00000ad0| 02 6a 15 02 05 00 43 4c | 4f 53 45 16 02 1e 1f 00 |.j....CL|OSE.....|
|00000ae0| 0b 15 02 08 00 20 57 49 | 4e 44 4f 57 20 17 02 16 |..... WI|NDOW ...|
|00000af0| 00 18 02 10 15 02 01 00 | 31 16 02 10 17 02 16 00 |........|1.......|
|00000b00| 1e 12 0b 1b 01 14 c4 06 | 1b 01 14 65 07 1b 01 14 |........|...e....|
|00000b10| dc 08 1b 01 1c 08 02 18 | 01 0a 1b 04 00 08 02 17 |........|........|
|00000b20| 02 02 00 16 02 6c 1a 00 | 08 05 00 15 02 08 00 20 |.....l..|....... |
|00000b30| 43 4f 4c 4f 52 20 2c 17 | 02 16 00 19 00 08 05 00 |COLOR ,.|........|
|00000b40| 17 02 16 00 15 02 00 00 | 17 02 17 00 15 01 01 00 |........|........|
|00000b50| 1c 00 04 07 00 1e 31 09 | 17 04 06 00 16 05 00 1e |......1.|........|
|00000b60| 62 0b 1d 00 03 00 15 01 | 01 00 1a 00 04 04 00 17 |b.......|........|
|00000b70| 04 07 00 15 01 00 00 1a | 00 04 05 00 17 04 11 00 |........|........|
|00000b80| 1a 00 04 06 00 15 01 01 | 00 1c 00 04 05 00 19 00 |........|........|
|00000b90| 04 05 00 19 00 04 06 00 | 16 01 21 1f 38 0c 19 00 |........|..!.8...|
|00000ba0| 04 05 00 17 04 06 00 18 | 03 06 18 02 11 15 02 05 |........|........|
|00000bb0| 00 43 44 4c 4e 4d 16 02 | 3c 16 03 1b 1f 35 0c 18 |.CDLNM..|<....5..|
|00000bc0| 02 01 15 02 01 00 4d 16 | 02 1f 1f 2c 0c 15 02 02 |......M.|...,....|
|00000bd0| 00 40 20 17 02 16 00 15 | 02 01 00 30 17 02 16 00 |.@ .....|...0....|
|00000be0| 15 02 01 00 2c 17 02 16 | 00 15 02 01 00 30 17 02 |....,...|.....0..|
|00000bf0| 16 00 15 02 05 00 20 47 | 45 54 20 17 02 16 00 18 |...... G|ET .....|
|00000c00| 02 01 15 02 02 00 2d 3e | 16 02 10 18 02 10 16 02 |......->|........|
|00000c10| 10 17 02 16 00 1b 01 14 | c4 06 1b 01 14 65 07 1b |........|.....e..|
|00000c20| 01 14 dc 08 15 02 00 00 | 17 02 17 00 15 01 01 00 |........|........|
|00000c30| 1c 00 04 04 00 1e 85 0b | 17 04 06 00 16 05 00 0d |........|........|
|00000c40| 0d 0d 1e 45 0c 1d 00 06 | 00 0d 2a 20 2d 2d 2d 20 |...E....|..* --- |
|00000c50| 54 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 69 |This pro|cedure i|
|00000c60| 73 20 63 61 6c 6c 65 64 | 20 77 68 65 6e 20 47 6f |s called| when Go|
|00000c70| 74 6f 2e 2e 2e 20 69 73 | 20 73 65 6c 65 63 74 65 |to... is| selecte|
|00000c80| 64 20 66 72 6f 6d 20 74 | 68 65 20 47 6f 20 6d 65 |d from t|he Go me|
|00000c90| 6e 75 0d 0d 03 11 20 64 | 6f 67 6f 74 6f 0d 77 68 |nu.... d|ogoto.wh|
|00000ca0| 65 72 65 20 3d 20 30 0d | 72 65 63 6e 75 6d 20 3d |ere = 0.|recnum =|
|00000cb0| 20 30 0d 6f 6b 63 61 6e | 63 65 6c 20 3d 20 30 0d | 0.okcan|cel = 0.|
|00000cc0| 67 65 74 6e 75 6d 20 3d | 20 2e 46 2e 0d 0d 2a 20 |getnum =| .F...* |
|00000cd0| 2d 2d 2d 20 44 65 66 69 | 6e 65 20 61 6e 64 20 61 |--- Defi|ne and a|
|00000ce0| 63 74 69 76 61 74 65 20 | 47 6f 74 6f 20 6f 70 74 |ctivate |Goto opt|
|00000cf0| 69 6f 6e 73 0d 0d 40 20 | 31 2c 32 20 04 20 20 27 |ions..@ |1,2 .  '|
|00000d00| 47 6f 74 6f 3a 20 27 0d | 40 20 30 2c 31 30 20 04 |Goto: '.|@ 0,10 .|
|00000d10| 09 20 39 2c 32 36 0d 40 | 20 31 2c 31 33 20 50 52 |. 9,26.@| 1,13 PR|
|00000d20| 4f 4d 50 54 20 27 20 5c | 3c 54 6f 70 20 20 20 20 |OMPT ' \|<Top    |
|00000d30| 20 27 0d 40 20 33 2c 31 | 33 20 50 52 4f 4d 50 54 | '.@ 3,1|3 PROMPT|
|00000d40| 20 27 20 5c 3c 42 6f 74 | 74 6f 6d 20 20 27 0d 40 | ' \<Bot|tom  '.@|
|00000d50| 20 35 2c 31 33 20 50 52 | 4f 4d 50 54 20 27 20 5c | 5,13 PR|OMPT ' \|
|00000d60| 3c 52 65 63 6f 72 64 20 | 20 27 0d 40 20 37 2c 31 |<Record | '.@ 7,1|
|00000d70| 33 20 50 52 4f 4d 50 54 | 20 27 20 5c 3c 53 6b 69 |3 PROMPT| ' \<Ski|
|00000d80| 70 20 20 20 20 27 0d 4d | 45 4e 55 20 04 09 20 77 |p    '.M|ENU .. w|
|00000d90| 68 65 72 65 0d 04 06 20 | 03 65 0d 0d 01 04 2a 2d |here... |.e....*-|
|00000da0| 2d 2d 20 45 73 63 61 70 | 65 20 6f 75 74 20 6f 66 |-- Escap|e out of|
|00000db0| 20 64 69 61 6c 6f 67 0d | 01 04 03 65 20 77 68 65 | dialog.|...e whe|
|00000dc0| 72 65 20 3d 20 30 0d 01 | 08 03 a0 0d 0d 01 04 2a |re = 0..|.......*|
|00000dd0| 2d 2d 2d 20 47 6f 74 6f | 20 66 69 72 73 74 20 72 |--- Goto| first r|
|00000de0| 65 63 6f 72 64 0d 01 04 | 03 65 20 77 68 65 72 65 |ecord...|.e where|
|00000df0| 20 3d 20 31 0d 01 08 47 | 4f 20 04 0f 0d 0d 01 04 | = 1...G|O ......|
|00000e00| 2a 2d 2d 2d 20 47 6f 74 | 6f 20 6c 61 73 74 20 72 |*--- Got|o last r|
|00000e10| 65 63 6f 72 64 0d 01 04 | 03 65 20 77 68 65 72 65 |ecord...|.e where|
|00000e20| 20 3d 20 32 0d 01 08 47 | 4f 20 03 8e 0d 0d 01 04 | = 2...G|O ......|
|00000e30| 2a 2d 2d 2d 20 47 6f 74 | 6f 20 73 70 65 63 69 66 |*--- Got|o specif|
|00000e40| 69 65 64 20 72 65 63 6f | 72 64 20 6e 75 6d 62 65 |ied reco|rd numbe|
|00000e50| 72 0d 01 04 03 65 20 77 | 68 65 72 65 20 3d 20 33 |r....e w|here = 3|
|00000e60| 0d 01 08 72 65 63 6e 75 | 6d 20 3d 20 30 0d 01 08 |...recnu|m = 0...|
|00000e70| 40 20 35 2c 32 39 20 04 | 02 20 72 65 63 6e 75 6d |@ 5,29 .|. recnum|
|00000e80| 20 03 18 20 27 40 5a 20 | 39 39 39 39 39 39 39 39 | .. '@Z |99999999|
|00000e90| 27 0d 01 08 03 43 0d 01 | 08 44 45 41 43 54 49 56 |'....C..|.DEACTIV|
|00000ea0| 41 54 45 20 03 45 20 04 | 01 0d 01 08 04 19 20 72 |ATE .E .|...... r|
|00000eb0| 65 63 6e 75 6d 20 3c 20 | 31 0d 01 0c 03 a0 0d 01 |ecnum < |1.......|
|00000ec0| 08 03 8b 0d 01 08 04 19 | 20 72 65 63 6e 75 6d 20 |........| recnum |
|00000ed0| 3e 20 03 13 28 29 0d 01 | 0c 04 06 20 61 6c 65 72 |> ..()..|... aler|
|00000ee0| 74 20 03 3f 20 6d 73 67 | 5f 72 61 6e 67 65 0d 01 |t .? msg|_range..|
|00000ef0| 08 03 5b 0d 01 0c 47 4f | 20 72 65 63 6e 75 6d 0d |..[...GO| recnum.|
|00000f00| 01 08 03 8b 0d 0d 01 04 | 2a 2d 2d 2d 20 53 6b 69 |........|*--- Ski|
|00000f10| 70 20 73 70 65 63 69 66 | 69 65 64 20 6e 75 6d 62 |p specif|ied numb|
|00000f20| 65 72 20 6f 66 20 72 65 | 63 6f 72 64 73 0d 01 04 |er of re|cords...|
|00000f30| 03 65 20 77 68 65 72 65 | 20 3d 20 34 0d 01 08 72 |.e where| = 4...r|
|00000f40| 65 63 6e 75 6d 20 3d 20 | 30 0d 01 08 40 20 37 2c |ecnum = |0...@ 7,|
|00000f50| 32 39 20 04 02 20 72 65 | 63 6e 75 6d 20 03 18 20 |29 .. re|cnum .. |
|00000f60| 27 40 5a 20 39 39 39 39 | 39 39 39 39 27 0d 01 08 |'@Z 9999|9999'...|
|00000f70| 03 43 0d 01 08 44 45 41 | 43 54 49 56 41 54 45 20 |.C...DEA|CTIVATE |
|00000f80| 03 45 20 04 01 0d 01 08 | 6d 72 65 63 6e 6f 20 3d |.E .....|mrecno =|
|00000f90| 20 03 4c 28 29 0d 01 08 | 03 55 20 72 65 63 6e 75 | .L()...|.U recnu|
|00000fa0| 6d 0d 01 08 04 19 20 04 | 0e 28 29 20 2e 4f 52 2e |m..... .|.() .OR.|
|00000fb0| 20 04 27 28 29 0d 01 0c | 04 06 20 61 6c 65 72 74 | .'()...|.. alert|
|00000fc0| 20 03 3f 20 6d 73 67 5f | 72 61 6e 67 65 0d 01 0c | .? msg_|range...|
|00000fd0| 03 08 20 6d 72 65 63 6e | 6f 0d 01 08 03 8b 0d 03 |.. mrecn|o.......|
|00000fe0| 91 0d 03 a0 0d 0d 2a 20 | 2d 2d 2d 01 02 54 68 69 |......* |---..Thi|
|00000ff0| 73 20 70 72 6f 63 65 64 | 75 72 65 20 69 73 20 63 |s proced|ure is c|
|00001000| 61 6c 6c 65 64 20 74 6f | 20 64 69 73 70 6c 61 79 |alled to| display|
|00001010| 20 61 20 6d 65 73 73 61 | 67 65 0d 0d 03 11 20 61 | a messa|ge.... a|
|00001020| 6c 65 72 74 0d 03 6f 20 | 6d 65 73 73 0d 3d 53 59 |lert..o |mess.=SY|
|00001030| 53 28 32 30 30 32 29 0d | 41 43 54 49 56 41 54 45 |S(2002).|ACTIVATE|
|00001040| 20 03 45 20 61 6c 65 72 | 74 0d 03 48 0d 40 20 32 | .E aler|t..H.@ 2|
|00001050| 2c 30 20 04 20 20 50 41 | 44 43 28 6d 65 73 73 2c |,0 .  PA|DC(mess,|
|00001060| 57 43 4f 4c 53 28 29 29 | 0d 03 26 20 27 27 0d 44 |WCOLS())|..& ''.D|
|00001070| 45 41 43 54 49 56 41 54 | 45 20 03 45 20 61 6c 65 |EACTIVAT|E .E ale|
|00001080| 72 74 0d 3d 53 59 53 28 | 32 30 30 32 2c 31 29 0d |rt.=SYS(|2002,1).|
|00001090| 03 a0 0d 0d 2a 20 2d 2d | 2d 20 50 72 6f 63 65 64 |....* --|- Proced|
|000010a0| 75 72 65 20 63 61 6c 6c | 65 64 20 77 68 65 6e 20 |ure call|ed when |
|000010b0| 61 20 59 65 73 2f 4e 6f | 20 72 65 73 70 6f 6e 73 |a Yes/No| respons|
|000010c0| 65 20 69 73 20 6e 65 65 | 64 65 64 0d 0d 03 11 20 |e is nee|ded.... |
|000010d0| 61 6c 65 72 74 32 0d 03 | 6f 20 61 6e 73 77 65 72 |alert2..|o answer|
|000010e0| 2c 6d 65 73 73 31 0d 41 | 43 54 49 56 41 54 45 20 |,mess1.A|CTIVATE |
|000010f0| 03 45 20 61 6c 65 72 74 | 0d 03 48 0d 40 20 31 2c |.E alert|..H.@ 1,|
|00001100| 30 20 04 20 20 50 41 44 | 43 28 6d 65 73 73 31 2c |0 .  PAD|C(mess1,|
|00001110| 57 43 4f 4c 53 28 29 29 | 0d 04 06 20 03 7b 20 2e |WCOLS())|... .{ .|
|00001120| 54 2e 0d 01 04 40 20 33 | 2c 33 20 50 52 4f 4d 50 |T....@ 3|,3 PROMP|
|00001130| 54 20 27 3c 20 20 20 5c | 3c 59 65 73 20 20 20 20 |T '<   \|<Yes    |
|00001140| 3e 27 0d 01 04 40 20 33 | 2c 33 34 20 50 52 4f 4d |>'...@ 3|,34 PROM|
|00001150| 50 54 20 04 1d 28 31 37 | 34 29 2b 27 20 20 20 20 |PT ..(17|4)+'    |
|00001160| 5c 3c 4e 6f 20 20 20 20 | 27 2b 04 1d 28 31 37 35 |\<No    |'+..(175|
|00001170| 29 0d 01 04 4d 45 4e 55 | 20 04 09 20 61 6e 73 77 |)...MENU| .. answ|
|00001180| 65 72 0d 01 04 04 19 20 | 61 6e 73 77 65 72 20 3c |er..... |answer <|
|00001190| 3e 20 30 0d 01 08 03 73 | 0d 01 04 03 8b 0d 03 0a |> 0....s|........|
|000011a0| 0d 44 45 41 43 54 49 56 | 41 54 45 20 03 45 20 61 |.DEACTIV|ATE .E a|
|000011b0| 6c 65 72 74 0d 03 a0 0d | 0d 2a 20 2d 2d 2d 20 50 |lert....|.* --- P|
|000011c0| 72 6f 63 65 64 75 72 65 | 20 63 61 6c 6c 65 64 20 |rocedure| called |
|000011d0| 77 68 65 6e 20 61 20 70 | 72 6f 67 72 61 6d 20 69 |when a p|rogram i|
|000011e0| 73 20 62 75 73 79 20 70 | 72 6f 63 65 73 73 69 6e |s busy p|rocessin|
|000011f0| 67 0d 0d 03 11 20 77 6f | 72 6b 69 6e 67 0d 03 6f |g.... wo|rking..o|
|00001200| 20 6d 73 74 61 74 75 73 | 0d 04 19 20 6d 73 74 61 | mstatus|... msta|
|00001210| 74 75 73 0d 01 04 04 24 | 20 42 4c 49 4e 4b 20 04 |tus....$| BLINK .|
|00001220| 0c 0d 01 04 04 24 20 03 | 27 20 04 09 20 26 6d 66 |.....$ .|' .. &mf|
|00001230| 6c 61 73 68 0d 01 04 40 | 20 32 34 2c 37 30 20 04 |lash...@| 24,70 .|
|00001240| 20 20 27 20 57 6f 72 6b | 69 6e 67 2e 2e 27 0d 01 |  ' Work|ing..'..|
|00001250| 04 04 24 20 03 27 20 04 | 09 0d 03 5b 0d 01 04 04 |..$ .' .|...[....|
|00001260| 24 20 42 4c 49 4e 4b 20 | 04 29 0d 01 04 40 20 32 |$ BLINK |.)...@ 2|
|00001270| 34 2c 37 30 0d 03 8b 0d | 03 a0 0d 0d 2a 20 2d 2d |4,70....|....* --|
|00001280| 2d 20 50 72 6f 63 65 64 | 75 72 65 20 63 61 6c 6c |- Proced|ure call|
|00001290| 65 64 20 77 68 65 6e 20 | 74 68 65 20 4c 6f 63 61 |ed when |the Loca|
|000012a0| 74 65 20 6f 70 74 69 6f | 6e 20 69 73 20 73 65 6c |te optio|n is sel|
|000012b0| 65 63 74 65 64 20 66 72 | 6f 6d 20 74 68 65 20 47 |ected fr|om the G|
|000012c0| 6f 20 6d 65 6e 75 0d 0d | 03 11 20 64 6f 6c 6f 63 |o menu..|.. doloc|
|000012d0| 61 74 65 0d 03 6f 20 65 | 78 70 72 0d 03 5a 20 6f |ate..o e|xpr..Z o|
|000012e0| 6c 64 72 65 63 6e 75 6d | 0d 04 19 20 04 0e 28 29 |ldrecnum|... ..()|
|000012f0| 0d 01 04 03 55 20 2d 20 | 31 0d 03 8b 0d 6f 6c 64 |....U - |1....old|
|00001300| 72 65 63 6e 75 6d 20 3d | 20 03 4c 28 29 0d 03 3c |recnum =| .L()..<|
|00001310| 20 04 18 20 26 65 78 70 | 72 0d 04 19 20 04 0e 28 | .. &exp|r... ..(|
|00001320| 29 0d 01 04 04 06 20 61 | 6c 65 72 74 20 03 3f 20 |)..... a|lert .? |
|00001330| 6d 73 67 5f 6c 6f 63 31 | 0d 01 04 03 08 20 6f 6c |msg_loc1|..... ol|
|00001340| 64 72 65 63 6e 75 6d 0d | 01 04 63 6f 6e 74 69 6e |drecnum.|..contin|
|00001350| 75 65 6f 6e 20 3d 20 2e | 46 2e 0d 01 04 65 78 70 |ueon = .|F....exp|
|00001360| 72 20 3d 20 27 27 0d 03 | 5b 0d 01 04 63 6f 6e 74 |r = ''..|[...cont|
|00001370| 69 6e 75 65 6f 6e 20 3d | 20 2e 54 2e 0d 03 8b 0d |inueon =| .T.....|
|00001380| 03 a0 0d 0d 2a 20 2d 2d | 2d 20 50 72 6f 63 65 64 |....* --|- Proced|
|00001390| 75 72 65 20 63 61 6c 6c | 65 64 20 77 68 65 6e 20 |ure call|ed when |
|000013a0| 43 6f 6e 74 69 6e 75 65 | 20 69 73 20 63 68 6f 73 |Continue| is chos|
|000013b0| 65 6e 20 66 72 6f 6d 20 | 74 68 65 20 47 6f 20 6d |en from |the Go m|
|000013c0| 65 6e 75 0d 0d 03 11 20 | 64 6f 63 6f 6e 74 0d 03 |enu.... |docont..|
|000013d0| 5a 20 6f 6c 64 72 65 63 | 6e 75 6d 0d 6f 6c 64 72 |Z oldrec|num.oldr|
|000013e0| 65 63 6e 75 6d 20 3d 20 | 03 4c 28 29 0d 03 0b 0d |ecnum = |.L()....|
|000013f0| 04 19 20 04 0e 28 29 0d | 01 04 04 06 20 61 6c 65 |.. ..().|.... ale|
|00001400| 72 74 20 03 3f 20 6d 73 | 67 5f 65 6f 66 0d 01 04 |rt .? ms|g_eof...|
|00001410| 03 08 20 6f 6c 64 72 65 | 63 6e 75 6d 0d 01 04 63 |.. oldre|cnum...c|
|00001420| 6f 6e 74 69 6e 75 65 6f | 6e 20 3d 20 2e 46 2e 0d |ontinueo|n = .F..|
|00001430| 03 5b 0d 01 04 63 6f 6e | 74 69 6e 75 65 6f 6e 20 |.[...con|tinueon |
|00001440| 3d 20 2e 54 2e 0d 03 8b | 0d 03 a0 0d 0d 2a 20 2d |= .T....|.....* -|
|00001450| 2d 2d 20 50 72 6f 63 65 | 64 75 72 65 20 63 61 6c |-- Proce|dure cal|
|00001460| 6c 65 64 20 77 68 65 6e | 20 61 6e 20 65 78 65 63 |led when| an exec|
|00001470| 75 74 69 6f 6e 20 65 72 | 72 6f 72 20 6f 63 63 75 |ution er|ror occu|
|00001480| 72 73 0d 0d 03 11 20 64 | 6f 65 72 72 6f 72 0d 03 |rs.... d|oerror..|
|00001490| 6f 20 65 72 72 6e 75 6d | 2c 65 72 72 6d 65 73 0d |o errnum|,errmes.|
|000014a0| 19 01 0c 12 00 1f bf 14 | 74 65 6d 70 61 72 65 61 |........|temparea|
|000014b0| 20 3d 20 04 1c 28 64 62 | 66 61 72 65 61 29 0d 61 | = ..(db|farea).a|
|000014c0| 6e 73 77 65 72 20 3d 20 | 31 0d 73 74 65 72 72 6e |nswer = |1.sterrn|
|000014d0| 75 6d 20 3d 20 03 5f 28 | 31 29 2b 41 4c 4c 54 52 |um = ._(|1)+ALLTR|
|000014e0| 49 4d 28 04 1c 28 65 72 | 72 6e 75 6d 29 29 2b 03 |IM(..(er|rnum))+.|
|000014f0| 5f 28 31 29 0d 04 06 20 | 03 65 0d 0d 01 04 2a 2d |_(1)... |.e....*-|
|00001500| 2d 2d 20 4e 6f 6e 2d 63 | 72 69 74 69 63 61 6c 20 |-- Non-c|ritical |
|00001510| 65 72 72 6f 72 73 0d 01 | 04 03 65 20 73 74 65 72 |errors..|..e ster|
|00001520| 72 6e 75 6d 20 24 20 27 | 20 31 20 35 30 20 35 34 |rnum $ '| 1 50 54|
|00001530| 20 31 32 34 20 31 32 35 | 20 31 31 30 35 20 31 31 | 124 125| 1105 11|
|00001540| 31 32 20 27 20 2e 4f 52 | 2e 20 28 65 72 72 6e 75 |12 ' .OR|. (errnu|
|00001550| 6d 20 3e 20 31 32 34 30 | 20 2e 04 1b 2e 20 65 72 |m > 1240| .... er|
|00001560| 72 6e 75 6d 20 3c 20 31 | 32 34 37 29 0d 01 08 04 |rnum < 1|247)....|
|00001570| 06 20 61 6c 65 72 74 20 | 03 3f 20 65 72 72 6d 65 |. alert |.? errme|
|00001580| 73 0d 01 08 03 a0 0d 0d | 01 04 2a 2d 2d 2d 20 45 |s.......|..*--- E|
|00001590| 4f 46 20 65 72 72 6f 72 | 0d 01 04 03 65 20 65 72 |OF error|....e er|
|000015a0| 72 6e 75 6d 20 3d 20 34 | 0d 15 01 01 00 1a 00 04 |rnum = 4|........|
|000015b0| 04 00 17 09 07 00 15 01 | 00 00 1a 00 04 05 00 15 |........|........|
|000015c0| 01 0a 00 1a 00 04 06 00 | 15 01 01 00 1c 00 04 05 |........|........|
|000015d0| 00 19 00 04 05 00 19 00 | 04 06 00 16 01 21 1f e3 |........|.....!..|
|000015e0| 17 19 00 04 05 00 17 09 | 06 00 17 09 08 00 1f e0 |........|........|
|000015f0| 17 01 08 04 19 20 03 13 | 28 05 01 2c 29 20 3d 20 |..... ..|(..,) = |
|00001600| 30 0d 01 0c 61 6e 73 77 | 65 72 20 3d 20 31 0d 01 |0...answ|er = 1..|
|00001610| 0c 04 06 20 61 6c 65 72 | 74 32 20 03 3f 20 61 6e |... aler|t2 .? an|
|00001620| 73 77 65 72 2c 04 13 28 | 05 01 2c 29 2b 20 6d 73 |swer,..(|..,)+ ms|
|00001630| 67 5f 61 64 64 72 65 63 | 0d 01 0c 04 19 20 61 6e |g_addrec|..... an|
|00001640| 73 77 65 72 20 3d 20 31 | 0d 19 01 0c 12 00 1f 5a |swer = 1|.......Z|
|00001650| 16 01 10 03 1c 20 05 01 | 2c 0d 01 10 03 9b 20 03 |..... ..|,..... .|
|00001660| 97 0d 19 01 0c 12 00 1f | 79 16 01 10 03 1c 20 26 |........|y..... &|
|00001670| 74 65 6d 70 61 72 65 61 | 0d 01 10 03 1b 0d 01 0b |temparea|........|
|00001680| 03 5b 0d 01 10 04 06 20 | 61 6c 65 72 74 20 03 3f |.[..... |alert .?|
|00001690| 20 6d 73 67 5f 66 61 74 | 61 6c 0d 01 10 6d 65 78 | msg_fat|al...mex|
|000016a0| 69 74 20 3d 20 2e 54 2e | 0d 01 10 04 06 20 63 6c |it = .T.|..... cl|
|000016b0| 6f 73 65 64 6f 77 6e 0d | 01 10 03 7f 0d 01 0b 03 |osedown.|........|
|000016c0| 8b 0d 01 08 03 8b 0d 15 | 01 01 00 1a 00 04 07 00 |........|........|
|000016d0| 17 0b 07 00 15 01 00 00 | 1a 00 04 08 00 15 01 0a |........|........|
|000016e0| 00 1a 00 04 09 00 15 01 | 01 00 1c 00 04 08 00 19 |........|........|
|000016f0| 00 04 08 00 19 00 04 09 | 00 16 01 21 1f d3 17 19 |........|...!....|
|00001700| 00 04 08 00 17 0b 06 00 | 17 0b 08 00 1f d0 17 01 |........|........|
|00001710| 08 04 19 20 04 0e 28 22 | 05 02 25 22 29 0d 01 0c |... ..("|..%")...|
|00001720| 61 6e 73 77 65 72 20 3d | 20 31 0d 01 0c 04 06 20 |answer =| 1..... |
|00001730| 61 6c 65 72 74 32 20 03 | 3f 20 61 6e 73 77 65 72 |alert2 .|? answer|
|00001740| 2c 20 27 4e 6f 20 6d 61 | 74 63 68 69 6e 67 20 72 |, 'No ma|tching r|
|00001750| 65 63 6f 72 64 20 69 6e | 20 27 2b 04 13 28 22 05 |ecord in| '+..(".|
|00001760| 02 25 22 29 2b 27 20 61 | 64 64 20 3f 27 0d 01 0c |.%")+' a|dd ?'...|
|00001770| 04 19 20 61 6e 73 77 65 | 72 20 3d 20 31 0d 01 10 |.. answe|r = 1...|
|00001780| 03 1c 20 05 02 25 0d 01 | 10 03 9b 20 03 97 0d 01 |.. ..%..|... ....|
|00001790| 10 03 1c 20 26 74 65 6d | 70 61 72 65 61 0d 01 10 |... &tem|parea...|
|000017a0| 03 1b 0d 01 0c 03 8b 0d | 01 0c 03 48 20 03 1e 0d |........|...H ...|
|000017b0| 01 0c 44 45 41 43 54 49 | 56 41 54 45 20 4d 45 4e |..DEACTI|VATE MEN|
|000017c0| 55 0d 01 08 03 8b 0d 15 | 01 01 00 1c 00 04 07 00 |U.......|........|
|000017d0| 1e e6 16 17 0b 06 00 15 | 01 01 00 1c 00 04 04 00 |........|........|
|000017e0| 1e c8 15 17 09 06 00 01 | 08 44 45 41 43 54 49 56 |........|.DEACTIV|
|000017f0| 41 54 45 20 4d 45 4e 55 | 0d 0d 01 04 2a 2d 2d 2d |ATE MENU|....*---|
|00001800| 20 43 72 69 74 69 63 61 | 6c 20 65 72 72 6f 72 73 | Critica|l errors|
|00001810| 20 63 61 75 73 69 6e 67 | 20 70 72 6f 67 72 61 6d | causing| program|
|00001820| 20 74 65 72 6d 69 6e 61 | 74 69 6f 6e 0d 0d 01 04 | termina|tion....|
|00001830| 03 89 0d 0d 01 08 04 06 | 20 61 6c 65 72 74 20 03 |........| alert .|
|00001840| 3f 20 6d 73 67 5f 66 61 | 74 61 6c 0d 0d 01 08 2a |? msg_fa|tal....*|
|00001850| 20 2d 2d 2d 20 52 65 73 | 74 6f 72 65 20 69 6e 69 | --- Res|tore ini|
|00001860| 74 69 61 6c 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |tial env|ironment|
|00001870| 0d 01 08 04 06 20 63 6c | 6f 73 65 64 6f 77 6e 0d |..... cl|osedown.|
|00001880| 01 08 03 7f 0d 03 91 0d | 0d 2a 20 2d 2d 2d 20 50 |........|.* --- P|
|00001890| 72 6f 63 65 64 75 72 65 | 20 63 61 6c 6c 65 64 20 |rocedure| called |
|000018a0| 77 68 65 6e 20 74 68 65 | 20 45 73 63 20 6b 65 79 |when the| Esc key|
|000018b0| 20 69 73 20 70 72 65 73 | 73 65 64 3b 20 79 6f 75 | is pres|sed; you|
|000018c0| 20 61 72 65 20 67 69 76 | 65 6e 20 74 68 65 20 6f | are giv|en the o|
|000018d0| 70 74 69 6f 6e 0d 2a 20 | 2d 2d 2d 20 74 6f 20 71 |ption.* |--- to q|
|000018e0| 75 69 74 20 74 68 69 73 | 20 70 72 6f 67 72 61 6d |uit this| program|
|000018f0| 0d 0d 03 11 20 64 6f 65 | 73 63 61 70 65 0d 61 6e |.... doe|scape.an|
|00001900| 73 77 65 72 20 3d 20 31 | 0d 04 06 20 61 6c 65 72 |swer = 1|... aler|
|00001910| 74 32 20 03 3f 20 61 6e | 73 77 65 72 2c 20 6d 73 |t2 .? an|swer, ms|
|00001920| 67 5f 73 74 6f 70 0d 04 | 19 20 61 6e 73 77 65 72 |g_stop..|. answer|
|00001930| 20 3d 20 31 0d 01 03 04 | 06 20 63 6c 6f 73 65 64 | = 1....|. closed|
|00001940| 6f 77 6e 0d 01 03 03 7f | 0d 03 8b 0d 41 43 54 49 |own.....|....ACTI|
|00001950| 56 41 54 45 20 03 46 0d | 03 a0 0d 0d 2a 20 2d 2d |VATE .F.|....* --|
|00001960| 2d 20 72 65 73 74 6f 72 | 65 20 65 6e 76 69 72 6f |- restor|e enviro|
|00001970| 6e 6d 65 6e 74 20 73 65 | 74 74 69 6e 67 73 20 62 |nment se|ttings b|
|00001980| 65 66 6f 72 65 20 71 75 | 69 74 74 69 6e 67 0d 0d |efore qu|itting..|
|00001990| 03 11 20 63 6c 6f 73 65 | 64 6f 77 6e 0d 04 0c 20 |.. close|down... |
|000019a0| 03 2d 0d 04 0c 20 03 3d | 0d 03 23 20 04 01 0d 04 |.-... .=|..# ....|
|000019b0| 24 20 03 1f 20 04 09 0d | 04 24 20 03 27 20 04 09 |$ .. ...|.$ .' ..|
|000019c0| 0d 03 48 0d 03 48 20 57 | 49 4e 44 4f 57 53 0d 04 |..H..H W|INDOWS..|
|000019d0| 24 20 03 11 20 04 09 0d | 04 24 20 03 62 20 26 6d |$ .. ...|.$ .b &m|
|000019e0| 65 6e 76 5f 73 61 66 65 | 0d 04 24 20 03 06 20 26 |env_safe|..$ .. &|
|000019f0| 6d 65 6e 76 5f 62 65 6c | 6c 0d 04 24 20 03 1f 20 |menv_bel|l..$ .. |
|00001a00| 26 6d 65 6e 76 5f 68 65 | 6c 70 0d 04 24 20 03 77 |&menv_he|lp..$ .w|
|00001a10| 20 26 6d 65 6e 76 5f 73 | 74 61 74 0d 04 24 20 46 | &menv_s|tat..$ F|
|00001a20| 55 4c 4c 50 41 54 48 20 | 26 6d 65 6e 76 5f 66 75 |ULLPATH |&menv_fu|
|00001a30| 6c 6c 0d 04 24 20 03 2d | 20 26 6d 65 6e 76 5f 65 |ll..$ .-| &menv_e|
|00001a40| 73 63 61 0d 04 24 20 44 | 45 4c 45 54 45 44 20 26 |sca..$ D|ELETED &|
|00001a50| 6d 65 6e 76 5f 64 65 6c | 65 0d 04 24 20 43 4c 4f |menv_del|e..$ CLO|
|00001a60| 43 4b 20 26 6d 65 6e 76 | 5f 63 6c 6f 63 0d 04 24 |CK &menv|_cloc..$|
|00001a70| 20 03 74 20 26 6d 65 6e | 76 5f 65 63 68 6f 0d 04 | .t &men|v_echo..|
|00001a80| 24 20 03 94 20 26 6d 65 | 6e 76 5f 74 61 6c 6b 0d |$ .. &me|nv_talk.|
|00001a90| 04 24 20 44 45 42 55 47 | 20 26 6d 65 6e 76 5f 64 |.$ DEBUG| &menv_d|
|00001aa0| 65 62 75 0d 04 24 20 03 | 27 20 4f 46 20 53 43 48 |ebu..$ .|' OF SCH|
|00001ab0| 45 4d 45 20 32 20 04 09 | 0d 03 a0 0d 0d 2a 20 2d |EME 2 ..|.....* -|
|00001ac0| 2d 2d 20 52 65 6d 6f 76 | 65 73 20 61 6c 6c 20 6e |-- Remov|es all n|
|00001ad0| 6f 6e 2d 61 6c 70 68 61 | 20 63 68 61 72 61 63 74 |on-alpha| charact|
|00001ae0| 65 72 73 20 66 72 6f 6d | 20 61 20 73 74 72 69 6e |ers from| a strin|
|00001af0| 67 20 72 65 70 6c 61 63 | 69 6e 67 20 74 68 65 6d |g replac|ing them|
|00001b00| 0d 2a 20 2d 2d 2d 20 77 | 69 74 68 20 61 20 73 70 |.* --- w|ith a sp|
|00001b10| 61 63 65 0d 0d 03 0d 20 | 61 6c 70 68 61 6f 6e 6c |ace.... |alphaonl|
|00001b20| 79 0d 03 6f 20 6d 73 6f | 75 72 63 65 0d 6d 6c 65 |y..o mso|urce.mle|
|00001b30| 6e 20 3d 20 04 03 28 6d | 73 6f 75 72 63 65 29 0d |n = ..(m|source).|
|00001b40| 6d 74 61 72 67 65 74 20 | 3d 20 27 27 0d 04 18 20 |mtarget |= ''... |
|00001b50| 6d 73 20 3d 20 31 20 04 | 09 20 6d 6c 65 6e 0d 01 |ms = 1 .|. mlen..|
|00001b60| 04 6d 74 61 72 67 65 74 | 20 3d 20 6d 74 61 72 67 |.mtarget| = mtarg|
|00001b70| 65 74 20 2b 20 04 11 28 | 03 2a 28 03 14 28 6d 73 |et + ..(|.*(..(ms|
|00001b80| 6f 75 72 63 65 2c 6d 73 | 2c 31 29 29 2c 03 14 28 |ource,ms|,1)),..(|
|00001b90| 6d 73 6f 75 72 63 65 2c | 6d 73 2c 31 29 2c 27 20 |msource,|ms,1),' |
|00001ba0| 27 29 0d 45 4e 44 46 4f | 52 0d 03 a0 20 6d 74 61 |').ENDFO|R... mta|
|00001bb0| 72 67 65 74 0d 0d 2a 20 | 2d 2d 2d 20 54 68 69 73 |rget..* |--- This|
|00001bc0| 20 70 72 6f 63 65 64 75 | 72 65 20 62 75 69 6c 64 | procedu|re build|
|00001bd0| 73 20 74 68 65 20 6f 6e | 6c 69 6e 65 20 48 65 6c |s the on|line Hel|
|00001be0| 70 20 66 69 6c 65 20 69 | 66 20 6f 6e 65 20 69 73 |p file i|f one is|
|00001bf0| 20 6e 6f 74 20 70 72 65 | 73 65 6e 74 0d 0d 03 11 | not pre|sent....|
|00001c00| 20 64 6f 6d 65 6d 6f 0d | 03 5a 20 6d 66 74 65 6d | domemo.|.Z mftem|
|00001c10| 70 0d 6d 66 74 65 6d 70 | 20 3d 20 53 59 53 28 33 |p.mftemp| = SYS(3|
|00001c20| 29 2b 27 2e 44 42 46 27 | 0d 03 60 20 04 09 20 26 |)+'.DBF'|..` .. &|
|00001c30| 6d 66 74 65 6d 70 20 03 | 81 20 45 58 54 45 4e 44 |mftemp .|. EXTEND|
|00001c40| 45 44 0d 04 28 20 28 6d | 66 74 65 6d 70 29 20 03 |ED..( (m|ftemp) .|
|00001c50| 34 0d 04 04 0d 03 9b 20 | 03 97 0d 03 22 20 66 69 |4...... |...." fi|
|00001c60| 65 6c 64 5f 6e 61 6d 65 | 20 03 3f 20 27 54 4f 50 |eld_name| .? 'TOP|
|00001c70| 49 43 27 2c 66 69 65 6c | 64 5f 74 79 70 65 20 03 |IC',fiel|d_type .|
|00001c80| 3f 20 27 43 68 61 72 61 | 63 74 65 72 27 2c 66 69 |? 'Chara|cter',fi|
|00001c90| 65 6c 64 5f 6c 65 6e 20 | 03 3f 20 33 30 0d 03 9b |eld_len |.? 30...|
|00001ca0| 20 03 97 0d 03 22 20 66 | 69 65 6c 64 5f 6e 61 6d | ...." f|ield_nam|
|00001cb0| 65 20 03 3f 20 27 44 45 | 54 41 49 4c 53 27 2c 66 |e .? 'DE|TAILS',f|
|00001cc0| 69 65 6c 64 5f 74 79 70 | 65 20 03 3f 20 27 4d 65 |ield_typ|e .? 'Me|
|00001cd0| 6d 6f 27 2c 66 69 65 6c | 64 5f 6c 65 6e 20 03 3f |mo',fiel|d_len .?|
|00001ce0| 20 31 30 0d 04 28 0d 03 | 8c 20 19 01 08 0f 00 17 | 10..(..|. ......|
|00001cf0| 02 03 00 5f 68 65 6c 70 | 2e 64 62 66 20 03 04 20 |..._help|.dbf .. |
|00001d00| 26 6d 66 74 65 6d 70 0d | 44 45 4c 45 54 45 20 03 |&mftemp.|DELETE .|
|00001d10| 72 20 28 6d 66 74 65 6d | 70 29 0d 04 28 20 19 01 |r (mftem|p)..( ..|
|00001d20| 08 0f 00 17 02 03 00 5f | 68 65 6c 70 0d 6d 68 65 |......._|help.mhe|
|00001d30| 6c 70 6e 6f 20 3d 20 32 | 33 0d 44 49 4d 45 4e 53 |lpno = 2|3.DIMENS|
|00001d40| 49 4f 4e 20 68 6c 70 5f | 74 65 78 74 5b 6d 68 65 |ION hlp_|text[mhe|
|00001d50| 6c 70 6e 6f 2c 32 5d 0d | 68 6c 70 5f 74 65 78 74 |lpno,2].|hlp_text|
|00001d60| 5b 31 2c 31 5d 20 3d 20 | 27 20 20 20 3c 3c 3c 20 |[1,1] = |'   <<< |
|00001d70| 46 49 4c 45 20 4d 45 4e | 55 20 3e 3e 3e 20 27 0d |FILE MEN|U >>> '.|
|00001d80| 68 6c 70 5f 74 65 78 74 | 5b 31 2c 32 5d 20 3d 20 |hlp_text|[1,2] = |
|00001d90| 27 54 68 65 20 46 69 6c | 65 20 6d 65 6e 75 20 63 |'The Fil|e menu c|
|00001da0| 6f 6e 74 61 69 6e 73 20 | 48 65 6c 70 2c 20 44 61 |ontains |Help, Da|
|00001db0| 74 61 62 61 73 65 2c 20 | 61 6e 64 20 51 75 69 74 |tabase, |and Quit|
|00001dc0| 20 6f 70 74 69 6f 6e 73 | 2e 20 20 46 6f 72 20 6d | options|.  For m|
|00001dd0| 6f 72 65 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |ore info|rmation |
|00001de0| 6f 6e 20 74 68 65 73 65 | 20 6f 70 74 69 6f 6e 73 |on these| options|
|00001df0| 2c 20 63 68 6f 6f 73 65 | 20 74 68 65 20 61 70 70 |, choose| the app|
|00001e00| 72 6f 70 72 69 61 74 65 | 20 74 6f 70 69 63 20 69 |ropriate| topic i|
|00001e10| 6e 20 74 68 69 73 20 48 | 65 6c 70 20 66 61 63 69 |n this H|elp faci|
|00001e20| 6c 69 74 79 2e 27 0d 68 | 6c 70 5f 74 65 78 74 5b |lity.'.h|lp_text[|
|00001e30| 32 2c 31 5d 20 3d 20 27 | 20 2d 20 48 65 6c 70 27 |2,1] = '| - Help'|
|00001e40| 0d 68 6c 70 5f 74 65 78 | 74 5b 32 2c 32 5d 20 3d |.hlp_tex|t[2,2] =|
|00001e50| 20 27 43 68 6f 6f 73 69 | 6e 67 20 48 65 6c 70 20 | 'Choosi|ng Help |
|00001e60| 64 69 73 70 6c 61 79 73 | 20 74 68 65 20 48 65 6c |displays| the Hel|
|00001e70| 70 20 77 69 6e 64 6f 77 | 20 77 69 74 68 20 61 20 |p window| with a |
|00001e80| 6c 69 73 74 20 6f 66 20 | 61 76 61 69 6c 61 62 6c |list of |availabl|
|00001e90| 65 20 68 65 6c 70 20 74 | 6f 70 69 63 73 2e 20 20 |e help t|opics.  |
|00001ea0| 43 68 6f 6f 73 65 20 61 | 20 74 6f 70 69 63 20 74 |Choose a| topic t|
|00001eb0| 6f 20 73 65 65 20 6d 6f | 72 65 20 69 6e 66 6f 72 |o see mo|re infor|
|00001ec0| 6d 61 74 69 6f 6e 20 6f | 6e 20 74 68 61 74 20 74 |mation o|n that t|
|00001ed0| 6f 70 69 63 2e 27 0d 68 | 6c 70 5f 74 65 78 74 5b |opic.'.h|lp_text[|
|00001ee0| 33 2c 31 5d 20 3d 20 27 | 20 2d 20 44 61 74 61 62 |3,1] = '| - Datab|
|00001ef0| 61 73 65 27 0d 68 6c 70 | 5f 74 65 78 74 5b 33 2c |ase'.hlp|_text[3,|
|00001f00| 32 5d 20 3d 20 27 54 68 | 69 73 20 6f 70 74 69 6f |2] = 'Th|is optio|
|00001f10| 6e 20 69 73 20 65 6e 61 | 62 6c 65 64 20 77 68 65 |n is ena|bled whe|
|00001f20| 6e 20 79 6f 75 20 68 61 | 76 65 20 6d 6f 72 65 20 |n you ha|ve more |
|00001f30| 74 68 61 6e 20 6f 6e 65 | 20 64 61 74 61 62 61 73 |than one| databas|
|00001f40| 65 20 6f 70 65 6e 2e 20 | 20 57 68 65 6e 20 79 6f |e open. | When yo|
|00001f50| 75 20 63 68 6f 6f 73 65 | 20 74 68 65 20 44 61 74 |u choose| the Dat|
|00001f60| 61 62 61 73 65 2e 2e 2e | 20 6f 70 74 69 6f 6e 20 |abase...| option |
|00001f70| 61 20 6c 69 73 74 20 6f | 66 20 6f 70 65 6e 20 64 |a list o|f open d|
|00001f80| 61 74 61 62 61 73 65 73 | 20 69 73 20 64 69 73 70 |atabases| is disp|
|00001f90| 6c 61 79 65 64 2e 20 20 | 53 65 6c 65 63 74 20 74 |layed.  |Select t|
|00001fa0| 68 65 20 64 61 74 61 62 | 61 73 65 20 79 6f 75 20 |he datab|ase you |
|00001fb0| 77 69 73 68 20 74 6f 20 | 6d 61 6b 65 20 61 63 74 |wish to |make act|
|00001fc0| 69 76 65 2e 27 0d 68 6c | 70 5f 74 65 78 74 5b 34 |ive.'.hl|p_text[4|
|00001fd0| 2c 31 5d 20 3d 20 27 20 | 2d 20 51 75 69 74 20 27 |,1] = ' |- Quit '|
|00001fe0| 0d 68 6c 70 5f 74 65 78 | 74 5b 34 2c 32 5d 20 3d |.hlp_tex|t[4,2] =|
|00001ff0| 20 27 45 78 69 74 20 74 | 68 69 73 20 70 72 6f 67 | 'Exit t|his prog|
|00002000| 72 61 6d 2e 20 27 0d 68 | 6c 70 5f 74 65 78 74 5b |ram. '.h|lp_text[|
|00002010| 35 2c 31 5d 20 3d 20 27 | 20 20 20 3c 3c 3c 20 47 |5,1] = '|   <<< G|
|00002020| 4f 20 4d 45 4e 55 20 3e | 3e 3e 27 0d 68 6c 70 5f |O MENU >|>>'.hlp_|
|00002030| 74 65 78 74 5b 35 2c 32 | 5d 20 3d 20 27 54 68 65 |text[5,2|] = 'The|
|00002040| 20 47 6f 20 6d 65 6e 75 | 20 63 6f 6e 74 61 69 6e | Go menu| contain|
|00002050| 73 20 53 65 65 6b 2c 20 | 47 6f 74 6f 2c 20 4c 6f |s Seek, |Goto, Lo|
|00002060| 63 61 74 65 2c 20 43 6f | 6e 74 69 6e 75 65 2c 20 |cate, Co|ntinue, |
|00002070| 4e 65 78 74 2c 20 50 72 | 69 6f 72 2c 20 54 6f 70 |Next, Pr|ior, Top|
|00002080| 20 61 6e 64 20 42 6f 74 | 74 6f 6d 20 6f 70 74 69 | and Bot|tom opti|
|00002090| 6f 6e 73 2e 20 20 46 6f | 72 20 6d 6f 72 65 20 69 |ons.  Fo|r more i|
|000020a0| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 6f 6e 20 6f 6e |nformati|on on on|
|000020b0| 65 20 6f 66 20 74 68 65 | 73 65 20 6f 70 74 69 6f |e of the|se optio|
|000020c0| 6e 73 2c 20 63 68 6f 6f | 73 65 20 74 68 65 20 61 |ns, choo|se the a|
|000020d0| 70 70 72 6f 70 72 69 61 | 74 65 20 74 6f 70 69 63 |ppropria|te topic|
|000020e0| 20 69 6e 20 74 68 69 73 | 20 48 65 6c 70 20 66 61 | in this| Help fa|
|000020f0| 63 69 6c 69 74 79 2e 27 | 0d 68 6c 70 5f 74 65 78 |cility.'|.hlp_tex|
|00002100| 74 5b 36 2c 31 5d 20 3d | 20 27 20 2d 20 53 65 65 |t[6,1] =| ' - See|
|00002110| 6b 27 0d 68 6c 70 5f 74 | 65 78 74 5b 36 2c 32 5d |k'.hlp_t|ext[6,2]|
|00002120| 20 3d 20 27 53 65 65 6b | 20 69 73 20 65 6e 61 62 | = 'Seek| is enab|
|00002130| 6c 65 64 20 77 68 65 6e | 20 61 6e 20 69 6e 64 65 |led when| an inde|
|00002140| 78 20 69 73 20 61 63 74 | 69 76 65 2e 20 20 54 68 |x is act|ive.  Th|
|00002150| 69 73 20 6f 70 74 69 6f | 6e 20 73 65 61 72 63 68 |is optio|n search|
|00002160| 65 73 20 74 68 65 20 64 | 61 74 61 62 61 73 65 20 |es the d|atabase |
|00002170| 66 6f 72 20 61 20 72 65 | 63 6f 72 64 20 74 68 61 |for a re|cord tha|
|00002180| 74 20 6d 61 74 63 68 65 | 73 20 74 68 65 20 65 78 |t matche|s the ex|
|00002190| 70 72 65 73 73 69 6f 6e | 20 79 6f 75 20 63 72 65 |pression| you cre|
|000021a0| 61 74 65 2e 27 0d 68 6c | 70 5f 74 65 78 74 5b 37 |ate.'.hl|p_text[7|
|000021b0| 2c 31 5d 20 3d 20 27 20 | 2d 20 47 6f 74 6f 27 0d |,1] = ' |- Goto'.|
|000021c0| 68 6c 70 5f 74 65 78 74 | 5b 37 2c 32 5d 20 3d 20 |hlp_text|[7,2] = |
|000021d0| 27 57 68 65 6e 20 79 6f | 75 20 63 68 6f 6f 73 65 |'When yo|u choose|
|000021e0| 20 47 6f 74 6f 2e 2e 2e | 2c 20 61 20 64 69 61 6c | Goto...|, a dial|
|000021f0| 6f 67 20 61 70 70 65 61 | 72 73 20 73 6f 20 79 6f |og appea|rs so yo|
|00002200| 75 20 63 61 6e 20 6d 6f | 76 65 20 74 68 65 20 72 |u can mo|ve the r|
|00002210| 65 63 6f 72 64 20 70 6f | 69 6e 74 65 72 20 74 6f |ecord po|inter to|
|00002220| 20 74 68 65 20 74 6f 70 | 20 6f 72 20 62 6f 74 74 | the top| or bott|
|00002230| 6f 6d 20 6f 66 20 74 68 | 65 20 61 63 74 69 76 65 |om of th|e active|
|00002240| 20 64 61 74 61 62 61 73 | 65 20 6f 72 20 74 6f 20 | databas|e or to |
|00002250| 61 20 73 70 65 63 69 66 | 69 63 20 72 65 63 6f 72 |a specif|ic recor|
|00002260| 64 20 6e 75 6d 62 65 72 | 2e 27 0d 68 6c 70 5f 74 |d number|.'.hlp_t|
|00002270| 65 78 74 5b 38 2c 31 5d | 20 3d 20 27 20 2d 20 4c |ext[8,1]| = ' - L|
|00002280| 6f 63 61 74 65 27 0d 68 | 6c 70 5f 74 65 78 74 5b |ocate'.h|lp_text[|
|00002290| 38 2c 32 5d 20 3d 20 27 | 54 68 65 20 64 61 74 61 |8,2] = '|The data|
|000022a0| 62 61 73 65 20 77 69 6c | 6c 20 62 65 20 73 65 61 |base wil|l be sea|
|000022b0| 72 63 68 65 64 20 66 6f | 72 20 61 20 72 65 63 6f |rched fo|r a reco|
|000022c0| 72 64 20 74 68 61 74 20 | 6d 61 74 63 68 65 73 20 |rd that |matches |
|000022d0| 74 68 65 20 65 78 70 72 | 65 73 73 69 6f 6e 20 79 |the expr|ession y|
|000022e0| 6f 75 20 63 72 65 61 74 | 65 20 69 6e 20 74 68 65 |ou creat|e in the|
|000022f0| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 62 75 69 6c | express|ion buil|
|00002300| 64 65 72 2e 20 20 54 68 | 65 20 65 78 70 72 65 73 |der.  Th|e expres|
|00002310| 73 69 6f 6e 20 6d 75 73 | 74 20 62 65 20 6c 6f 67 |sion mus|t be log|
|00002320| 69 63 61 6c 2c 20 61 6e | 64 20 74 68 65 20 64 61 |ical, an|d the da|
|00002330| 74 61 62 61 73 65 20 6e | 65 65 64 20 6e 6f 74 20 |tabase n|eed not |
|00002340| 62 65 20 69 6e 64 65 78 | 65 64 2e 27 0d 68 6c 70 |be index|ed.'.hlp|
|00002350| 5f 74 65 78 74 5b 39 2c | 31 5d 20 3d 20 27 20 2d |_text[9,|1] = ' -|
|00002360| 20 43 6f 6e 74 69 6e 75 | 65 27 0d 68 6c 70 5f 74 | Continu|e'.hlp_t|
|00002370| 65 78 74 5b 39 2c 32 5d | 20 3d 20 27 49 66 20 61 |ext[9,2]| = 'If a|
|00002380| 20 4c 6f 63 61 74 65 20 | 69 73 20 73 75 63 63 65 | Locate |is succe|
|00002390| 73 73 66 75 6c 2c 20 74 | 68 65 20 43 6f 6e 74 69 |ssful, t|he Conti|
|000023a0| 6e 75 65 20 6f 70 74 69 | 6f 6e 20 77 69 6c 6c 20 |nue opti|on will |
|000023b0| 62 65 20 61 76 61 69 6c | 61 62 6c 65 2e 20 20 59 |be avail|able.  Y|
|000023c0| 6f 75 20 6d 61 79 20 74 | 68 65 6e 20 73 65 61 72 |ou may t|hen sear|
|000023d0| 63 68 20 66 6f 72 20 74 | 68 65 20 6e 65 78 74 20 |ch for t|he next |
|000023e0| 72 65 63 6f 72 64 20 74 | 68 61 74 20 6d 61 74 63 |record t|hat matc|
|000023f0| 68 65 73 20 74 68 65 20 | 65 78 70 72 65 73 73 69 |hes the |expressi|
|00002400| 6f 6e 20 79 6f 75 20 63 | 72 65 61 74 65 64 20 77 |on you c|reated w|
|00002410| 69 74 68 20 74 68 65 20 | 4c 6f 63 61 74 65 20 6f |ith the |Locate o|
|00002420| 70 74 69 6f 6e 2e 27 0d | 68 6c 70 5f 74 65 78 74 |ption.'.|hlp_text|
|00002430| 5b 31 30 2c 31 5d 20 3d | 20 27 20 2d 20 4e 65 78 |[10,1] =| ' - Nex|
|00002440| 74 27 0d 68 6c 70 5f 74 | 65 78 74 5b 31 30 2c 32 |t'.hlp_t|ext[10,2|
|00002450| 5d 20 3d 20 27 43 68 6f | 6f 73 65 20 74 68 69 73 |] = 'Cho|ose this|
|00002460| 20 6f 70 74 69 6f 6e 20 | 74 6f 20 6d 6f 76 65 20 | option |to move |
|00002470| 74 68 65 20 72 65 63 6f | 72 64 20 70 6f 69 6e 74 |the reco|rd point|
|00002480| 65 72 20 74 6f 20 74 68 | 65 20 6e 65 78 74 20 72 |er to th|e next r|
|00002490| 65 63 6f 72 64 20 69 6e | 20 74 68 65 20 64 61 74 |ecord in| the dat|
|000024a0| 61 62 61 73 65 2e 27 0d | 68 6c 70 5f 74 65 78 74 |abase.'.|hlp_text|
|000024b0| 5b 31 31 2c 31 5d 20 3d | 20 27 20 2d 20 50 72 69 |[11,1] =| ' - Pri|
|000024c0| 6f 72 27 0d 68 6c 70 5f | 74 65 78 74 5b 31 31 2c |or'.hlp_|text[11,|
|000024d0| 32 5d 20 3d 20 27 43 68 | 6f 6f 73 65 20 74 68 69 |2] = 'Ch|oose thi|
|000024e0| 73 20 6f 70 74 69 6f 6e | 20 74 6f 20 6d 6f 76 65 |s option| to move|
|000024f0| 20 74 68 65 20 72 65 63 | 6f 72 64 20 70 6f 69 6e | the rec|ord poin|
|00002500| 74 65 72 20 74 6f 20 74 | 68 65 20 70 72 65 76 69 |ter to t|he previ|
|00002510| 6f 75 73 20 72 65 63 6f | 72 64 20 69 6e 20 74 68 |ous reco|rd in th|
|00002520| 65 20 64 61 74 61 62 61 | 73 65 2e 27 0d 68 6c 70 |e databa|se.'.hlp|
|00002530| 5f 74 65 78 74 5b 31 32 | 2c 31 5d 20 3d 20 27 20 |_text[12|,1] = ' |
|00002540| 2d 20 54 6f 70 27 0d 68 | 6c 70 5f 74 65 78 74 5b |- Top'.h|lp_text[|
|00002550| 31 32 2c 32 5d 20 3d 20 | 27 43 68 6f 6f 73 65 20 |12,2] = |'Choose |
|00002560| 74 68 69 73 20 6f 70 74 | 69 6f 6e 20 74 6f 20 6d |this opt|ion to m|
|00002570| 6f 76 65 20 74 68 65 20 | 72 65 63 6f 72 64 20 70 |ove the |record p|
|00002580| 6f 69 6e 74 65 72 20 74 | 6f 20 74 68 65 20 74 6f |ointer t|o the to|
|00002590| 70 20 6f 66 20 74 68 65 | 20 64 61 74 61 62 61 73 |p of the| databas|
|000025a0| 65 2e 27 0d 68 6c 70 5f | 74 65 78 74 5b 31 33 2c |e.'.hlp_|text[13,|
|000025b0| 31 5d 20 3d 20 27 20 2d | 20 42 6f 74 74 6f 6d 27 |1] = ' -| Bottom'|
|000025c0| 0d 68 6c 70 5f 74 65 78 | 74 5b 31 33 2c 32 5d 20 |.hlp_tex|t[13,2] |
|000025d0| 3d 20 27 43 68 6f 6f 73 | 65 20 74 68 69 73 20 6f |= 'Choos|e this o|
|000025e0| 70 74 69 6f 6e 20 74 6f | 20 6d 6f 76 65 20 74 68 |ption to| move th|
|000025f0| 65 20 72 65 63 6f 72 64 | 20 70 6f 69 6e 74 65 72 |e record| pointer|
|00002600| 20 74 6f 20 74 68 65 20 | 6c 61 73 74 20 72 65 63 | to the |last rec|
|00002610| 6f 72 64 20 69 6e 20 74 | 68 65 20 64 61 74 61 62 |ord in t|he datab|
|00002620| 61 73 65 2e 27 0d 68 6c | 70 5f 74 65 78 74 5b 31 |ase.'.hl|p_text[1|
|00002630| 34 2c 31 5d 20 3d 20 27 | 20 20 20 3c 3c 3c 20 52 |4,1] = '|   <<< R|
|00002640| 45 43 4f 52 44 20 4d 45 | 4e 55 20 3e 3e 3e 27 0d |ECORD ME|NU >>>'.|
|00002650| 68 6c 70 5f 74 65 78 74 | 5b 31 34 2c 32 5d 20 3d |hlp_text|[14,2] =|
|00002660| 20 27 54 68 65 20 52 65 | 63 6f 72 64 20 6d 65 6e | 'The Re|cord men|
|00002670| 75 20 63 6f 6e 74 61 69 | 6e 73 20 74 68 65 20 45 |u contai|ns the E|
|00002680| 64 69 74 2c 20 41 64 64 | 2c 20 42 72 6f 77 73 65 |dit, Add|, Browse|
|00002690| 20 61 6e 64 20 44 65 6c | 65 74 65 20 6f 70 74 69 | and Del|ete opti|
|000026a0| 6f 6e 73 2e 20 20 46 6f | 72 20 6d 6f 72 65 20 69 |ons.  Fo|r more i|
|000026b0| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 6f 6e 20 6f 6e |nformati|on on on|
|000026c0| 65 20 6f 66 20 74 68 65 | 73 65 20 6f 70 74 69 6f |e of the|se optio|
|000026d0| 6e 73 2c 20 63 68 6f 6f | 73 65 20 74 68 65 20 61 |ns, choo|se the a|
|000026e0| 70 70 72 6f 70 72 69 61 | 74 65 20 74 6f 70 69 63 |ppropria|te topic|
|000026f0| 20 69 6e 20 74 68 69 73 | 20 48 65 6c 70 20 66 61 | in this| Help fa|
|00002700| 63 69 6c 69 74 79 2e 27 | 0d 68 6c 70 5f 74 65 78 |cility.'|.hlp_tex|
|00002710| 74 5b 31 35 2c 31 5d 20 | 3d 20 27 20 2d 20 45 64 |t[15,1] |= ' - Ed|
|00002720| 69 74 27 0d 68 6c 70 5f | 74 65 78 74 5b 31 35 2c |it'.hlp_|text[15,|
|00002730| 32 5d 20 3d 20 27 43 68 | 6f 6f 73 65 20 74 68 69 |2] = 'Ch|oose thi|
|00002740| 73 20 6f 70 74 69 6f 6e | 20 74 6f 20 65 64 69 74 |s option| to edit|
|00002750| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 72 65 63 | the cur|rent rec|
|00002760| 6f 72 64 2e 27 0d 68 6c | 70 5f 74 65 78 74 5b 31 |ord.'.hl|p_text[1|
|00002770| 36 2c 31 5d 20 3d 20 27 | 20 2d 20 41 64 64 27 0d |6,1] = '| - Add'.|
|00002780| 68 6c 70 5f 74 65 78 74 | 5b 31 36 2c 32 5d 20 3d |hlp_text|[16,2] =|
|00002790| 20 27 54 68 69 73 20 6f | 70 74 69 6f 6e 20 61 6c | 'This o|ption al|
|000027a0| 6c 6f 77 73 20 79 6f 75 | 20 74 6f 20 61 64 64 20 |lows you| to add |
|000027b0| 61 20 62 6c 61 6e 6b 20 | 72 65 63 6f 72 64 20 74 |a blank |record t|
|000027c0| 6f 20 74 68 65 20 64 61 | 74 61 62 61 73 65 2e 27 |o the da|tabase.'|
|000027d0| 0d 68 6c 70 5f 74 65 78 | 74 5b 31 37 2c 31 5d 20 |.hlp_tex|t[17,1] |
|000027e0| 3d 20 27 20 2d 20 42 72 | 6f 77 73 65 27 0d 68 6c |= ' - Br|owse'.hl|
|000027f0| 70 5f 74 65 78 74 5b 31 | 37 2c 32 5d 20 3d 20 27 |p_text[1|7,2] = '|
|00002800| 43 68 6f 6f 73 69 6e 67 | 20 74 68 65 20 42 72 6f |Choosing| the Bro|
|00002810| 77 73 65 20 6f 70 74 69 | 6f 6e 20 6f 70 65 6e 73 |wse opti|on opens|
|00002820| 20 61 20 42 72 6f 77 73 | 65 20 77 69 6e 64 6f 77 | a Brows|e window|
|00002830| 20 66 6f 72 20 74 68 65 | 20 64 61 74 61 62 61 73 | for the| databas|
|00002840| 65 2e 20 20 49 6e 20 42 | 72 6f 77 73 65 20 79 6f |e.  In B|rowse yo|
|00002850| 75 20 6d 61 79 20 76 69 | 65 77 20 61 6e 64 20 65 |u may vi|ew and e|
|00002860| 64 69 74 20 72 65 63 6f | 72 64 73 2c 20 61 6e 64 |dit reco|rds, and|
|00002870| 20 61 64 64 20 61 6e 64 | 20 64 65 6c 65 74 65 20 | add and| delete |
|00002880| 72 65 63 6f 72 64 73 2e | 27 0d 68 6c 70 5f 74 65 |records.|'.hlp_te|
|00002890| 78 74 5b 31 38 2c 31 5d | 20 3d 20 27 20 2d 20 44 |xt[18,1]| = ' - D|
|000028a0| 65 6c 65 74 65 20 52 65 | 63 61 6c 6c 27 0d 68 6c |elete Re|call'.hl|
|000028b0| 70 5f 74 65 78 74 5b 31 | 38 2c 32 5d 20 3d 20 27 |p_text[1|8,2] = '|
|000028c0| 59 6f 75 20 6d 61 79 20 | 64 65 6c 65 74 65 20 74 |You may |delete t|
|000028d0| 68 65 20 63 75 72 72 65 | 6e 74 20 72 65 63 6f 72 |he curre|nt recor|
|000028e0| 64 20 62 79 20 63 68 6f | 6f 73 69 6e 67 20 74 68 |d by cho|osing th|
|000028f0| 69 73 20 6f 70 74 69 6f | 6e 2e 20 20 57 68 65 6e |is optio|n.  When|
|00002900| 20 61 20 72 65 63 6f 72 | 64 20 69 73 20 6d 61 72 | a recor|d is mar|
|00002910| 6b 65 64 20 66 6f 72 20 | 64 65 6c 65 74 69 6f 6e |ked for |deletion|
|00002920| 2c 20 74 68 69 73 20 6f | 70 74 69 6f 6e 20 63 68 |, this o|ption ch|
|00002930| 61 6e 67 65 73 20 74 6f | 20 52 65 63 61 6c 6c 2c |anges to| Recall,|
|00002940| 20 61 6e 64 20 74 68 65 | 20 72 65 63 6f 72 64 20 | and the| record |
|00002950| 6d 61 79 20 74 68 65 6e | 20 62 65 20 72 65 61 63 |may then| be reac|
|00002960| 74 69 76 61 74 65 64 2e | 27 0d 68 6c 70 5f 74 65 |tivated.|'.hlp_te|
|00002970| 78 74 5b 31 39 2c 31 5d | 20 3d 20 27 20 20 20 3c |xt[19,1]| = '   <|
|00002980| 3c 3c 20 55 54 49 4c 49 | 54 49 45 53 20 4d 45 4e |<< UTILI|TIES MEN|
|00002990| 55 20 3e 3e 3e 27 0d 68 | 6c 70 5f 74 65 78 74 5b |U >>>'.h|lp_text[|
|000029a0| 31 39 2c 32 5d 20 3d 20 | 27 54 68 65 20 55 74 69 |19,2] = |'The Uti|
|000029b0| 6c 69 74 69 65 73 20 6d | 65 6e 75 20 63 6f 6e 74 |lities m|enu cont|
|000029c0| 61 69 6e 73 20 74 68 65 | 20 52 65 70 6f 72 74 2c |ains the| Report,|
|000029d0| 20 4c 61 62 65 6c 2c 20 | 50 61 63 6b 20 61 6e 64 | Label, |Pack and|
|000029e0| 20 52 65 69 6e 64 65 78 | 20 6f 70 74 69 6f 6e 73 | Reindex| options|
|000029f0| 2e 20 20 46 6f 72 20 6d | 6f 72 65 20 69 6e 66 6f |.  For m|ore info|
|00002a00| 72 6d 61 74 69 6f 6e 20 | 6f 6e 20 6f 6e 65 20 6f |rmation |on one o|
|00002a10| 66 20 74 68 65 73 65 20 | 6f 70 74 69 6f 6e 73 2c |f these |options,|
|00002a20| 20 63 68 6f 6f 73 65 20 | 74 68 65 20 61 70 70 72 | choose |the appr|
|00002a30| 6f 70 72 69 61 74 65 20 | 74 6f 70 69 63 20 69 6e |opriate |topic in|
|00002a40| 20 74 68 69 73 20 48 65 | 6c 70 20 66 61 63 69 6c | this He|lp facil|
|00002a50| 69 74 79 2e 27 0d 68 6c | 70 5f 74 65 78 74 5b 32 |ity.'.hl|p_text[2|
|00002a60| 30 2c 31 5d 20 3d 20 27 | 20 2d 20 52 65 70 6f 72 |0,1] = '| - Repor|
|00002a70| 74 27 0d 68 6c 70 5f 74 | 65 78 74 5b 32 30 2c 32 |t'.hlp_t|ext[20,2|
|00002a80| 5d 20 3d 20 27 59 6f 75 | 20 6d 61 79 20 63 72 65 |] = 'You| may cre|
|00002a90| 61 74 65 2c 20 6d 6f 64 | 69 66 79 2c 20 6f 72 20 |ate, mod|ify, or |
|00002aa0| 70 72 69 6e 74 20 61 20 | 72 65 70 6f 72 74 20 62 |print a |report b|
|00002ab0| 79 20 63 68 6f 6f 73 69 | 6e 67 20 74 68 69 73 20 |y choosi|ng this |
|00002ac0| 6f 70 74 69 6f 6e 2e 20 | 20 41 20 52 65 70 6f 72 |option. | A Repor|
|00002ad0| 74 20 6c 61 79 6f 75 74 | 20 77 69 6e 64 6f 77 20 |t layout| window |
|00002ae0| 69 73 20 6f 70 65 6e 65 | 64 20 77 68 65 72 65 20 |is opene|d where |
|00002af0| 79 6f 75 20 6d 61 79 20 | 73 65 74 20 75 70 20 6f |you may |set up o|
|00002b00| 72 20 6d 6f 64 69 66 79 | 20 61 20 72 65 70 6f 72 |r modify| a repor|
|00002b10| 74 2e 27 0d 68 6c 70 5f | 74 65 78 74 5b 32 31 2c |t.'.hlp_|text[21,|
|00002b20| 31 5d 20 3d 20 27 20 2d | 20 4c 61 62 65 6c 27 0d |1] = ' -| Label'.|
|00002b30| 68 6c 70 5f 74 65 78 74 | 5b 32 31 2c 32 5d 20 3d |hlp_text|[21,2] =|
|00002b40| 20 27 59 6f 75 20 6d 61 | 79 20 63 72 65 61 74 65 | 'You ma|y create|
|00002b50| 2c 20 6d 6f 64 69 66 79 | 2c 20 6f 72 20 70 72 69 |, modify|, or pri|
|00002b60| 6e 74 20 6c 61 62 65 6c | 73 20 62 79 20 63 68 6f |nt label|s by cho|
|00002b70| 6f 73 69 6e 67 20 74 68 | 69 73 20 6f 70 74 69 6f |osing th|is optio|
|00002b80| 6e 2e 20 20 41 20 4c 61 | 62 65 6c 20 6c 61 79 6f |n.  A La|bel layo|
|00002b90| 75 74 20 77 69 6e 64 6f | 77 20 69 73 20 6f 70 65 |ut windo|w is ope|
|00002ba0| 6e 65 64 20 77 68 65 72 | 65 20 79 6f 75 20 6d 61 |ned wher|e you ma|
|00002bb0| 79 20 73 65 74 20 75 70 | 20 6f 72 20 6d 6f 64 69 |y set up| or modi|
|00002bc0| 66 79 20 6c 61 62 65 6c | 73 2e 27 0d 68 6c 70 5f |fy label|s.'.hlp_|
|00002bd0| 74 65 78 74 5b 32 32 2c | 31 5d 20 3d 20 27 20 2d |text[22,|1] = ' -|
|00002be0| 20 50 61 63 6b 27 0d 68 | 6c 70 5f 74 65 78 74 5b | Pack'.h|lp_text[|
|00002bf0| 32 32 2c 32 5d 20 3d 20 | 27 43 68 6f 6f 73 69 6e |22,2] = |'Choosin|
|00002c00| 67 20 74 68 65 20 50 61 | 63 6b 20 6f 70 74 69 6f |g the Pa|ck optio|
|00002c10| 6e 20 72 65 6d 6f 76 65 | 73 20 61 6c 6c 20 72 65 |n remove|s all re|
|00002c20| 63 6f 72 64 73 20 66 72 | 6f 6d 20 74 68 65 20 63 |cords fr|om the c|
|00002c30| 75 72 72 65 6e 74 20 64 | 61 74 61 62 61 73 65 20 |urrent d|atabase |
|00002c40| 74 68 61 74 20 61 72 65 | 20 6d 61 72 6b 65 64 20 |that are| marked |
|00002c50| 66 6f 72 20 64 65 6c 65 | 74 69 6f 6e 2e 20 20 59 |for dele|tion.  Y|
|00002c60| 6f 75 20 6d 61 79 20 6d | 61 72 6b 20 72 65 63 6f |ou may m|ark reco|
|00002c70| 72 64 73 20 74 6f 20 62 | 65 20 64 65 6c 65 74 65 |rds to b|e delete|
|00002c80| 64 20 77 69 74 68 20 74 | 68 65 20 44 65 6c 65 74 |d with t|he Delet|
|00002c90| 65 20 6f 70 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |e option| of the |
|00002ca0| 52 65 63 6f 72 64 20 6d | 65 6e 75 2e 27 0d 68 6c |Record m|enu.'.hl|
|00002cb0| 70 5f 74 65 78 74 5b 32 | 33 2c 31 5d 20 3d 20 27 |p_text[2|3,1] = '|
|00002cc0| 20 2d 20 52 65 69 6e 64 | 65 78 27 0d 68 6c 70 5f | - Reind|ex'.hlp_|
|00002cd0| 74 65 78 74 5b 32 33 2c | 32 5d 20 3d 20 27 54 68 |text[23,|2] = 'Th|
|00002ce0| 65 20 52 65 69 6e 64 65 | 78 20 6f 70 74 69 6f 6e |e Reinde|x option|
|00002cf0| 20 69 73 20 75 73 65 64 | 20 74 6f 20 75 70 64 61 | is used| to upda|
|00002d00| 74 65 20 69 6e 64 65 78 | 65 73 20 74 68 61 74 20 |te index|es that |
|00002d10| 77 65 72 65 20 6e 6f 74 | 20 6f 70 65 6e 20 77 68 |were not| open wh|
|00002d20| 65 6e 20 72 65 63 6f 72 | 64 73 20 77 65 72 65 20 |en recor|ds were |
|00002d30| 61 64 64 65 64 20 6f 72 | 20 64 65 6c 65 74 65 64 |added or| deleted|
|00002d40| 20 66 72 6f 6d 20 61 20 | 64 61 74 61 62 61 73 65 | from a |database|
|00002d50| 20 66 69 6c 65 2e 27 0d | 2a 20 2d 2d 2d 20 62 75 | file.'.|* --- bu|
|00002d60| 69 6c 64 20 64 61 74 61 | 62 61 73 65 20 66 72 6f |ild data|base fro|
|00002d70| 6d 20 61 72 72 61 79 0d | 04 18 20 6d 78 20 3d 20 |m array.|.. mx = |
|00002d80| 31 20 04 09 20 6d 68 65 | 6c 70 6e 6f 0d 01 04 03 |1 .. mhe|lpno....|
|00002d90| 9b 20 03 97 0d 01 04 03 | 22 20 74 6f 70 69 63 20 |. ......|" topic |
|00002da0| 03 3f 20 68 6c 70 5f 74 | 65 78 74 5b 6d 78 2c 31 |.? hlp_t|ext[mx,1|
|00002db0| 5d 2c 3b 0d 01 04 64 65 | 74 61 69 6c 73 20 03 3f |],;...de|tails .?|
|00002dc0| 20 41 4c 4c 54 52 49 4d | 28 41 4c 50 48 41 4f 4e | ALLTRIM|(ALPHAON|
|00002dd0| 4c 59 28 50 52 4f 50 45 | 52 28 68 6c 70 5f 74 65 |LY(PROPE|R(hlp_te|
|00002de0| 78 74 5b 6d 78 2c 31 5d | 29 29 29 2b 04 1d 28 31 |xt[mx,1]|)))+..(1|
|00002df0| 33 29 2b 68 6c 70 5f 74 | 65 78 74 5b 6d 78 2c 32 |3)+hlp_t|ext[mx,2|
|00002e00| 5d 0d 4e 45 58 54 0d 03 | a0 0d 0d 16 05 00 0d 0d |].NEXT..|........|
|00002e10| 1e 13 2e 1d 00 07 00 19 | 00 04 04 00 17 0a 06 00 |........|........|
|00002e20| 18 02 34 17 02 13 00 1a | 00 08 06 00 1a 00 08 07 |..4.....|........|
|00002e30| 00 1a 00 08 08 00 15 02 | 01 00 22 19 00 08 07 00 |........|..".....|
|00002e40| 16 02 10 15 02 01 00 2e | 16 02 10 19 00 08 08 00 |........|........|
|00002e50| 16 02 10 15 02 01 00 22 | 16 02 10 1a 00 08 05 00 |......."|........|
|00002e60| 15 01 01 00 1a 00 04 09 | 00 17 0a 07 00 15 01 00 |........|........|
|00002e70| 00 1a 00 04 0a 00 15 01 | 0a 00 1a 00 04 0b 00 15 |........|........|
|00002e80| 01 01 00 1c 00 04 0a 00 | 19 00 04 0a 00 19 00 04 |........|........|
|00002e90| 0b 00 16 01 21 1f 12 2f | 19 00 04 0a 00 17 0a 06 |....!../|........|
|00002ea0| 00 17 0a 08 00 1f 0f 2f | 18 01 32 19 00 04 04 00 |......./|..2.....|
|00002eb0| 16 01 1f 1f 06 2f 18 02 | 34 17 02 13 00 1a 00 08 |...../..|4.......|
|00002ec0| 06 00 1a 00 08 07 00 1a | 00 08 08 00 19 00 08 05 |........|........|
|00002ed0| 00 15 02 01 00 2c 16 02 | 10 15 02 01 00 22 16 02 |.....,..|....."..|
|00002ee0| 10 19 00 08 07 00 16 02 | 10 15 02 01 00 2e 16 02 |........|........|
|00002ef0| 10 19 00 08 08 00 16 02 | 10 15 02 01 00 22 16 02 |........|....."..|
|00002f00| 10 1a 00 08 05 00 15 01 | 01 00 1c 00 04 09 00 1e |........|........|
|00002f10| 7f 2e 17 0a 06 00 19 00 | 08 05 00 17 02 01 00 16 |........|........|
|00002f20| 05 00 16 05 00 0d 1e 29 | 2f 1d 00 00 00 0d 2a 20 |.......)|/.....* |
|00002f30| 2d 2d 2d 20 50 72 6f 63 | 65 64 75 72 65 20 63 61 |--- Proc|edure ca|
|00002f40| 6c 6c 65 64 20 77 68 65 | 6e 20 53 65 65 6b 20 69 |lled whe|n Seek i|
|00002f50| 73 20 63 68 6f 73 65 6e | 20 66 72 6f 6d 20 74 68 |s chosen| from th|
|00002f60| 65 20 47 6f 20 6d 65 6e | 75 0d 0d 03 11 20 19 01 |e Go men|u.... ..|
|00002f70| 08 0f 00 17 02 03 00 5f | 73 65 65 6b 0d 03 5a 20 |......._|seek..Z |
|00002f80| 73 65 65 6b 65 78 70 72 | 0d 04 19 20 2e 04 1a 2e |seekexpr|... ....|
|00002f90| 20 68 61 73 69 6e 64 65 | 78 28 64 62 66 61 72 65 | hasinde|x(dbfare|
|00002fa0| 61 29 0d 01 04 04 06 20 | 61 6c 65 72 74 20 03 3f |a)..... |alert .?|
|00002fb0| 20 22 4e 6f 20 4f 72 64 | 65 72 20 53 65 74 2e 20 | "No Ord|er Set. |
|00002fc0| 43 61 6e 27 74 20 53 65 | 65 6b 2e 22 0d 01 04 03 |Can't Se|ek."....|
|00002fd0| a0 0d 03 8b 0d 6e 64 78 | 6b 65 79 20 3d 20 53 59 |.....ndx|key = SY|
|00002fe0| 53 28 31 34 2c 31 2c 64 | 62 66 61 72 65 61 29 0d |S(14,1,d|bfarea).|
|00002ff0| 6e 64 78 74 79 70 65 20 | 3d 20 54 59 50 45 28 6e |ndxtype |= TYPE(n|
|00003000| 64 78 6b 65 79 29 0d 04 | 19 20 6e 64 78 74 79 70 |dxkey)..|. ndxtyp|
|00003010| 65 20 3c 3e 20 27 55 27 | 0d 01 04 47 45 54 45 58 |e <> 'U'|...GETEX|
|00003020| 50 52 20 22 56 61 6c 75 | 65 20 74 6f 20 53 45 45 |PR "Valu|e to SEE|
|00003030| 4b 20 3c 65 78 70 63 3e | 20 28 69 6e 64 65 78 20 |K <expc>| (index |
|00003040| 3d 20 22 20 2b 6e 64 78 | 6b 65 79 20 2b 20 22 29 |= " +ndx|key + ")|
|00003050| 22 20 04 09 20 73 65 65 | 6b 65 78 70 72 20 54 59 |" .. see|kexpr TY|
|00003060| 50 45 20 6e 64 78 74 79 | 70 65 0d 01 04 04 19 20 |PE ndxty|pe..... |
|00003070| 27 27 20 3c 3e 20 03 0e | 28 73 65 65 6b 65 78 70 |'' <> ..|(seekexp|
|00003080| 72 29 0d 01 08 6d 72 65 | 63 6e 6f 20 3d 20 03 4c |r)...mre|cno = .L|
|00003090| 28 29 0d 01 08 03 4d 20 | 26 73 65 65 6b 65 78 70 |()....M |&seekexp|
|000030a0| 72 0d 01 08 04 19 20 04 | 0e 28 29 0d 01 0c 04 06 |r..... .|.().....|
|000030b0| 20 61 6c 65 72 74 20 03 | 3f 20 6d 73 67 5f 6e 6f | alert .|? msg_no|
|000030c0| 66 69 6e 64 0d 01 0c 03 | 08 20 6d 72 65 63 6e 6f |find....|. mrecno|
|000030d0| 0d 01 08 03 8b 0d 01 04 | 03 8b 0d 03 5b 0d 01 04 |........|....[...|
|000030e0| 04 06 20 61 6c 65 72 74 | 20 03 3f 20 6d 73 67 5f |.. alert| .? msg_|
|000030f0| 69 6c 6c 6b 65 79 0d 03 | 8b 0d 03 a0 0d 16 05 00 |illkey..|........|
|00003100| 0d 1e 04 31 1d 00 00 00 | 15 01 00 00 17 00 06 00 |...1....|........|
|00003110| 18 01 33 15 01 00 00 16 | 01 22 1f 22 31 1b 01 14 |..3.....|."."1...|
|00003120| 29 2f 16 05 00 0d 0d 0d | 0d 0d 0d 0d 1e 2f 31 1d |)/......|...../1.|
|00003130| 00 07 00 0d 03 23 20 04 | 01 0d 03 48 20 04 01 0d |.....# .|...H ...|
|00003140| 03 48 0d 0d 2a 2d 2d 2d | 20 53 61 76 65 20 65 78 |.H..*---| Save ex|
|00003150| 69 73 74 69 6e 67 20 46 | 6f 78 50 72 6f 20 65 6e |isting F|oxPro en|
|00003160| 76 69 72 6f 6e 6d 65 6e | 74 0d 0d 04 24 20 03 52 |vironmen|t...$ .R|
|00003170| 20 04 29 0d 6d 65 6e 76 | 5f 74 61 6c 6b 20 3d 20 | .).menv|_talk = |
|00003180| 04 24 28 27 54 41 4c 4b | 27 29 0d 6d 65 6e 76 5f |.$('TALK|').menv_|
|00003190| 73 74 61 74 20 3d 20 04 | 24 28 27 53 54 41 54 27 |stat = .|$('STAT'|
|000031a0| 29 0d 6d 65 6e 76 5f 68 | 65 6c 70 20 3d 20 04 24 |).menv_h|elp = .$|
|000031b0| 28 27 48 45 4c 50 27 29 | 0d 6d 65 6e 76 5f 62 65 |('HELP')|.menv_be|
|000031c0| 6c 6c 20 3d 20 04 24 28 | 27 42 45 4c 4c 27 29 0d |ll = .$(|'BELL').|
|000031d0| 6d 65 6e 76 5f 66 75 6c | 6c 20 3d 20 04 24 28 27 |menv_ful|l = .$('|
|000031e0| 46 55 4c 4c 27 29 0d 6d | 65 6e 76 5f 73 61 66 65 |FULL').m|env_safe|
|000031f0| 20 3d 20 04 24 28 27 53 | 41 46 45 27 29 0d 6d 65 | = .$('S|AFE').me|
|00003200| 6e 76 5f 65 73 63 61 20 | 3d 20 04 24 28 27 45 53 |nv_esca |= .$('ES|
|00003210| 43 41 27 29 0d 6d 65 6e | 76 5f 64 65 6c 65 20 3d |CA').men|v_dele =|
|00003220| 20 04 24 28 27 44 45 4c | 45 27 29 0d 6d 65 6e 76 | .$('DEL|E').menv|
|00003230| 5f 63 6c 6f 63 20 3d 20 | 04 24 28 27 43 4c 4f 43 |_cloc = |.$('CLOC|
|00003240| 27 29 0d 6d 65 6e 76 5f | 65 63 68 6f 20 3d 20 04 |').menv_|echo = .|
|00003250| 24 28 27 45 43 48 4f 27 | 29 0d 6d 65 6e 76 5f 64 |$('ECHO'|).menv_d|
|00003260| 65 62 75 20 3d 20 04 24 | 28 27 44 45 42 55 47 27 |ebu = .$|('DEBUG'|
|00003270| 29 0d 04 24 20 03 52 20 | 04 0c 0d 0d 2a 2d 2d 2d |)..$ .R |....*---|
|00003280| 20 45 73 74 61 62 6c 69 | 73 68 20 50 72 6f 67 72 | Establi|sh Progr|
|00003290| 61 6d 20 45 6e 76 69 72 | 6f 6e 6d 65 6e 74 0d 0d |am Envir|onment..|
|000032a0| 04 24 20 03 94 20 04 29 | 0d 04 24 20 03 77 20 04 |.$ .. .)|..$ .w .|
|000032b0| 29 0d 04 24 20 03 1f 20 | 04 0c 0d 04 24 20 03 06 |)..$ .. |....$ ..|
|000032c0| 20 04 0c 0d 04 24 20 46 | 55 4c 4c 50 41 54 48 20 | ....$ F|ULLPATH |
|000032d0| 04 29 0d 04 24 20 03 62 | 20 04 29 0d 04 24 20 03 |.)..$ .b| .)..$ .|
|000032e0| 2d 20 04 0c 0d 04 24 20 | 44 45 4c 45 54 45 20 04 |- ....$ |DELETE .|
|000032f0| 29 0d 04 24 20 43 4c 4f | 43 4b 20 04 09 20 30 2c |)..$ CLO|CK .. 0,|
|00003300| 36 39 0d 04 24 20 43 4c | 4f 43 4b 20 04 0c 0d 04 |69..$ CL|OCK ....|
|00003310| 24 20 03 74 20 04 29 0d | 04 24 20 44 45 42 55 47 |$ .t .).|.$ DEBUG|
|00003320| 20 04 29 0d 04 24 20 03 | 27 20 4f 46 20 53 43 48 | .)..$ .|' OF SCH|
|00003330| 45 4d 45 20 32 20 04 09 | 20 53 43 48 45 4d 45 20 |EME 2 ..| SCHEME |
|00003340| 34 0d 04 24 20 52 45 50 | 52 4f 43 45 53 53 20 04 |4..$ REP|ROCESS .|
|00003350| 09 20 41 55 54 4f 4d 41 | 54 49 43 0d 04 24 20 52 |. AUTOMA|TIC..$ R|
|00003360| 45 46 52 45 53 48 20 04 | 09 20 31 30 0d 0d 2a 20 |EFRESH .|. 10..* |
|00003370| 2d 2d 2d 20 44 65 63 6c | 61 72 65 20 47 6c 6f 62 |--- Decl|are Glob|
|00003380| 61 6c 20 6d 65 6d 6f 72 | 79 20 76 61 72 69 61 62 |al memor|y variab|
|00003390| 6c 65 73 2e 0d 0d 03 47 | 3b 0d 01 02 64 62 66 61 |les....G|;...dbfa|
|000033a0| 72 65 61 2c 63 68 6f 69 | 63 65 2c 65 78 70 72 2c |rea,choi|ce,expr,|
|000033b0| 62 79 65 2c 6d 64 65 6c | 65 74 65 2c 64 62 6e 61 |bye,mdel|ete,dbna|
|000033c0| 6d 65 28 31 30 29 2c 6d | 63 6f 75 6e 74 2c 68 61 |me(10),m|count,ha|
|000033d0| 73 69 6e 64 65 78 28 31 | 30 29 2c 74 69 6e 64 65 |sindex(1|0),tinde|
|000033e0| 78 0d 0d 15 01 00 00 17 | 00 06 00 0d 2a 20 2d 2d |x.......|....* --|
|000033f0| 2d 49 6e 69 74 69 61 6c | 69 7a 65 20 47 6c 6f 62 |-Initial|ize Glob|
|00003400| 61 6c 20 6d 65 6d 6f 72 | 79 20 76 61 72 69 61 62 |al memor|y variab|
|00003410| 6c 65 73 2e 0d 0d 64 62 | 66 61 72 65 61 20 3d 20 |les...db|farea = |
|00003420| 31 0d 65 78 70 72 20 3d | 20 27 27 0d 65 78 70 72 |1.expr =| ''.expr|
|00003430| 32 20 3d 20 27 27 0d 68 | 61 73 69 6e 64 65 78 20 |2 = ''.h|asindex |
|00003440| 3d 20 2e 46 2e 0d 6d 73 | 67 5f 65 6f 66 20 3d 20 |= .F..ms|g_eof = |
|00003450| 27 54 68 69 73 20 69 73 | 20 74 68 65 20 6c 61 73 |'This is| the las|
|00003460| 74 20 72 65 63 6f 72 64 | 2e 27 0d 6d 73 67 5f 62 |t record|.'.msg_b|
|00003470| 6f 66 20 3d 20 27 54 68 | 69 73 20 69 73 20 74 68 |of = 'Th|is is th|
|00003480| 65 20 66 69 72 73 74 20 | 72 65 63 6f 72 64 2e 27 |e first |record.'|
|00003490| 0d 6d 73 67 5f 6c 6f 63 | 31 20 3d 20 27 4e 6f 20 |.msg_loc|1 = 'No |
|000034a0| 6d 61 74 63 68 69 6e 67 | 20 72 65 63 6f 72 64 73 |matching| records|
|000034b0| 20 66 6f 75 6e 64 2e 27 | 0d 6d 73 67 5f 6c 6f 63 | found.'|.msg_loc|
|000034c0| 32 20 3d 20 27 4e 6f 20 | 6d 6f 72 65 20 6d 61 74 |2 = 'No |more mat|
|000034d0| 63 68 69 6e 67 20 72 65 | 63 6f 72 64 73 20 66 6f |ching re|cords fo|
|000034e0| 75 6e 64 2e 27 0d 6d 73 | 67 5f 70 61 63 6b 20 3d |und.'.ms|g_pack =|
|000034f0| 20 27 4e 4f 54 20 55 4e | 44 4f 41 42 4c 45 21 20 | 'NOT UN|DOABLE! |
|00003500| 2d 20 52 65 6d 6f 76 65 | 20 61 6c 6c 20 64 65 6c |- Remove| all del|
|00003510| 65 74 65 64 20 72 65 63 | 6f 72 64 73 3f 27 0d 6d |eted rec|ords?'.m|
|00003520| 73 67 5f 73 74 6f 70 20 | 3d 20 27 44 6f 20 79 6f |sg_stop |= 'Do yo|
|00003530| 75 20 77 61 6e 74 20 74 | 6f 20 73 74 6f 70 20 72 |u want t|o stop r|
|00003540| 75 6e 6e 69 6e 67 20 74 | 68 69 73 20 70 72 6f 67 |unning t|his prog|
|00003550| 72 61 6d 3f 27 0d 6d 73 | 67 5f 66 61 74 61 6c 20 |ram?'.ms|g_fatal |
|00003560| 3d 20 27 43 61 6e 6e 6f | 74 20 63 6f 6e 74 69 6e |= 'Canno|t contin|
|00003570| 75 65 20 72 75 6e 6e 69 | 6e 67 20 70 72 6f 67 72 |ue runni|ng progr|
|00003580| 61 6d 2e 27 0d 6d 73 67 | 5f 72 65 69 6e 64 20 3d |am.'.msg|_reind =|
|00003590| 20 27 52 65 62 75 69 6c | 64 20 49 6e 64 65 78 20 | 'Rebuil|d Index |
|000035a0| 66 69 6c 65 73 20 66 6f | 72 20 63 75 72 72 65 6e |files fo|r curren|
|000035b0| 74 20 64 61 74 61 62 61 | 73 65 3f 27 0d 6d 73 67 |t databa|se?'.msg|
|000035c0| 5f 72 61 6e 67 65 20 3d | 20 27 52 65 63 6f 72 64 |_range =| 'Record|
|000035d0| 20 6f 75 74 20 6f 66 20 | 72 61 6e 67 65 2e 27 0d | out of |range.'.|
|000035e0| 6d 73 67 5f 6e 6f 66 69 | 6c 65 20 3d 20 27 46 69 |msg_nofi|le = 'Fi|
|000035f0| 6c 65 20 64 6f 65 73 20 | 6e 6f 74 20 65 78 69 73 |le does |not exis|
|00003600| 74 2e 27 0d 6d 73 67 5f | 6e 6f 66 69 6e 64 20 3d |t.'.msg_|nofind =|
|00003610| 20 27 52 65 63 6f 72 64 | 20 6e 6f 74 20 66 6f 75 | 'Record| not fou|
|00003620| 6e 64 2e 27 0d 6d 73 67 | 5f 69 6c 6c 6b 65 79 20 |nd.'.msg|_illkey |
|00003630| 3d 20 27 49 6c 6c 65 67 | 61 6c 20 4b 65 79 20 45 |= 'Illeg|al Key E|
|00003640| 78 70 72 65 73 73 69 6f | 6e 20 54 79 70 65 2e 27 |xpressio|n Type.'|
|00003650| 0d 6d 73 67 5f 63 72 5f | 69 64 78 20 3d 20 27 20 |.msg_cr_|idx = ' |
|00003660| 6e 6f 74 20 66 6f 75 6e | 64 2c 20 63 72 65 61 74 |not foun|d, creat|
|00003670| 65 20 69 6e 64 65 78 3f | 27 0d 6d 73 67 5f 61 64 |e index?|'.msg_ad|
|00003680| 64 72 65 63 20 3d 20 27 | 20 65 6d 70 74 79 2e 20 |drec = '| empty. |
|00003690| 20 41 64 64 20 61 20 72 | 65 63 6f 72 64 3f 27 0d | Add a r|ecord?'.|
|000036a0| 6d 73 67 5f 65 78 63 6c | 75 20 3d 20 27 46 69 6c |msg_excl|u = 'Fil|
|000036b0| 65 20 6d 75 73 74 20 62 | 65 20 6f 70 65 6e 65 64 |e must b|e opened|
|000036c0| 20 65 78 63 6c 75 73 69 | 76 65 6c 79 20 74 6f 20 | exclusi|vely to |
|000036d0| 72 65 69 6e 64 65 78 2e | 27 0d 18 01 33 15 01 00 |reindex.|'...3...|
|000036e0| 00 16 01 22 1f f9 36 6e | 64 78 6f 72 64 65 72 20 |..."..6n|dxorder |
|000036f0| 3d 20 27 31 27 0d 1e 07 | 37 6e 64 78 6f 72 64 65 |= '1'...|7ndxorde|
|00003700| 72 20 3d 20 27 27 0d 19 | 01 0c 12 00 1f 44 37 6d |r = ''..|.....D7m|
|00003710| 75 6c 74 69 64 62 66 20 | 3d 20 2e 54 2e 0d 6f 6c |ultidbf |= .T..ol|
|00003720| 64 61 72 65 61 20 3d 20 | 64 62 66 61 72 65 61 0d |darea = |dbfarea.|
|00003730| 63 6f 6e 74 69 6e 75 65 | 6f 6e 20 3d 20 2e 46 2e |continue|on = .F.|
|00003740| 0d 1e 53 37 6d 75 6c 74 | 69 64 62 66 20 3d 20 2e |..S7mult|idbf = .|
|00003750| 46 2e 0d 03 05 20 2e 46 | 2e 20 04 09 20 62 79 65 |F.... .F|. .. bye|
|00003760| 2c 6e 6f 6f 70 65 6e 2c | 6d 65 64 69 74 2c 6d 65 |,noopen,|medit,me|
|00003770| 78 69 74 2c 63 6f 6e 74 | 69 6e 75 65 6f 6e 0d 0d |xit,cont|inueon..|
|00003780| 2a 20 2d 2d 2d 20 41 63 | 74 69 76 61 74 65 20 4f |* --- Ac|tivate O|
|00003790| 4e 20 45 52 52 4f 52 20 | 61 6e 64 20 4f 4e 20 45 |N ERROR |and ON E|
|000037a0| 53 43 41 50 45 20 72 6f | 75 74 69 6e 65 73 0d 0d |SCAPE ro|utines..|
|000037b0| 6d 64 65 6c 65 74 65 20 | 3d 20 27 20 5c 3c 44 65 |mdelete |= ' \<De|
|000037c0| 6c 65 74 65 20 20 20 27 | 0d 44 45 46 49 4e 45 20 |lete   '|.DEFINE |
|000037d0| 03 45 20 61 6c 65 72 74 | 20 03 04 20 31 35 2c 31 |.E alert| .. 15,1|
|000037e0| 35 20 04 09 20 32 31 2c | 36 35 20 44 4f 55 42 4c |5 .. 21,|65 DOUBL|
|000037f0| 45 20 53 48 41 44 4f 57 | 01 02 03 27 20 53 43 48 |E SHADOW|...' SCH|
|00003800| 45 4d 45 20 37 0d 04 0c | 20 03 3d 20 04 06 20 64 |EME 7...| .= .. d|
|00003810| 6f 65 72 72 6f 72 20 03 | 3f 20 03 3d 28 29 2c 20 |oerror .|? .=(), |
|00003820| 03 93 28 29 0d 04 0c 20 | 03 2d 20 04 06 20 64 6f |..()... |.- .. do|
|00003830| 65 73 63 61 70 65 0d 0d | 2a 20 2d 2d 2d 53 65 74 |escape..|* ---Set|
|00003840| 20 74 68 65 20 63 6f 6c | 6f 72 20 65 6e 76 69 72 | the col|or envir|
|00003850| 6f 6e 6d 65 6e 74 20 61 | 6e 64 20 64 65 66 69 6e |onment a|nd defin|
|00003860| 65 20 61 6c 6c 20 77 69 | 6e 64 6f 77 73 0d 0d 1b |e all wi|ndows...|
|00003870| 01 14 15 03 44 45 46 49 | 4e 45 20 03 45 20 6d 62 |....DEFI|NE .E mb|
|00003880| 72 6f 77 73 65 20 03 04 | 20 34 2c 31 35 20 74 6f |rowse ..| 4,15 to|
|00003890| 20 32 30 2c 36 35 20 50 | 41 4e 45 4c 20 53 48 41 | 20,65 P|ANEL SHA|
|000038a0| 44 4f 57 20 03 23 20 46 | 4c 4f 41 54 20 47 52 4f |DOW .# F|LOAT GRO|
|000038b0| 57 20 5a 4f 4f 4d 20 03 | 27 20 53 43 48 45 4d 45 |W ZOOM .|' SCHEME|
|000038c0| 20 31 30 0d 18 02 28 15 | 02 01 00 2f 18 02 28 16 | 10...(.|.../..(.|
|000038d0| 02 63 15 01 01 00 16 01 | 10 15 02 01 00 2c 18 02 |.c......|.....,..|
|000038e0| 28 16 02 63 15 02 01 00 | 2f 18 02 28 16 02 63 16 |(..c....|/..(..c.|
|000038f0| 01 11 15 01 01 00 16 01 | 11 16 02 62 1a 00 08 04 |........|...b....|
|00003900| 00 19 00 08 04 00 15 02 | 02 00 2a 2f 16 02 10 18 |........|..*/....|
|00003910| 02 28 15 01 01 00 15 02 | 01 00 2f 18 02 28 16 02 |.(......|../..(..|
|00003920| 63 15 01 01 00 16 01 11 | 16 02 62 16 02 10 1a 00 |c.......|..b.....|
|00003930| 08 04 00 19 00 08 04 00 | 15 02 01 00 2b 19 00 08 |........|....+...|
|00003940| 04 00 16 02 63 15 01 01 | 00 15 02 00 00 16 02 65 |....c...|.......e|
|00003950| 1a 00 08 04 00 6d 66 6c | 61 73 68 20 3d 20 27 19 |.....mfl|ash = '.|
|00003960| 00 08 04 00 17 02 03 00 | 27 0d 73 63 68 6d 31 20 |........|'.schm1 |
|00003970| 3d 20 27 47 42 2f 57 2c | 4e 2f 57 2c 4e 2f 57 2c |= 'GB/W,|N/W,N/W,|
|00003980| 57 2b 2f 57 2c 57 2b 2f | 57 2c 4e 2f 47 42 2c 57 |W+/W,W+/|W,N/GB,W|
|00003990| 2b 2f 57 2c 57 2b 2f 57 | 2c 57 2b 2f 47 42 2c 57 |+/W,W+/W|,W+/GB,W|
|000039a0| 2b 2f 57 27 0d 73 63 68 | 6d 32 20 3d 20 27 47 42 |+/W'.sch|m2 = 'GB|
|000039b0| 2f 57 2c 57 2b 2f 42 52 | 2b 2c 57 2f 42 52 2b 2c |/W,W+/BR|+,W/BR+,|
|000039c0| 2c 2c 57 2b 2f 42 2c 47 | 52 2b 2f 42 52 2b 27 0d |,,W+/B,G|R+/BR+'.|
|000039d0| 73 63 68 6d 33 20 3d 20 | 27 2c 57 2b 2f 52 2c 2c |schm3 = |',W+/R,,|
|000039e0| 2c 2c 57 2f 4e 2c 47 52 | 2b 2f 52 27 0d 74 62 61 |,,W/N,GR|+/R'.tba|
|000039f0| 72 20 3d 01 02 27 47 42 | 2b 2f 57 27 0d 44 45 46 |r =..'GB|+/W'.DEF|
|00003a00| 49 4e 45 20 03 45 20 6d | 65 6e 74 65 72 32 20 03 |INE .E m|enter2 .|
|00003a10| 04 20 37 2c 31 30 20 74 | 6f 20 31 39 2c 37 30 20 |. 7,10 t|o 19,70 |
|00003a20| 44 4f 55 42 4c 45 20 53 | 48 41 44 4f 57 20 03 27 |DOUBLE S|HADOW .'|
|00003a30| 20 53 43 48 45 4d 45 20 | 35 0d 44 45 46 49 4e 45 | SCHEME |5.DEFINE|
|00003a40| 20 03 45 20 6d 65 6e 74 | 65 72 20 03 04 20 38 2c | .E ment|er .. 8,|
|00003a50| 32 30 20 74 6f 20 31 38 | 2c 36 30 20 44 4f 55 42 |20 to 18|,60 DOUB|
|00003a60| 4c 45 20 53 48 41 44 4f | 57 20 4e 4f 43 4c 4f 53 |LE SHADO|W NOCLOS|
|00003a70| 45 20 4e 4f 46 4c 4f 41 | 54 20 4e 4f 47 52 4f 57 |E NOFLOA|T NOGROW|
|00003a80| 20 4e 4f 5a 4f 4f 4d 01 | 02 03 27 20 53 43 48 45 | NOZOOM.|..' SCHE|
|00003a90| 4d 45 20 37 0d 64 62 6e | 61 6d 65 20 3d 20 27 5c |ME 7.dbn|ame = '\|
|00003aa0| 27 0d 0d 2a 20 2d 2d 2d | 20 52 6f 75 74 69 6e 65 |'..* ---| Routine|
|00003ab0| 20 74 6f 20 6f 70 65 6e | 20 64 61 74 61 62 61 73 | to open| databas|
|00003ac0| 65 20 61 6e 64 20 69 6e | 64 65 78 20 66 69 6c 65 |e and in|dex file|
|00003ad0| 73 0d 2a 20 2d 2d 2d 20 | 49 66 20 75 6e 61 62 6c |s.* --- |If unabl|
|00003ae0| 65 20 74 6f 20 6f 70 65 | 6e 20 66 69 6c 65 73 2c |e to ope|n files,|
|00003af0| 20 70 72 6f 67 72 61 6d | 20 65 78 69 74 73 0d 0d | program| exits..|
|00003b00| 04 06 20 19 01 08 0f 00 | 17 02 03 00 5f 6f 70 65 |.. .....|...._ope|
|00003b10| 6e 0d 04 19 20 6e 6f 6f | 70 65 6e 0d 01 04 04 06 |n... noo|pen.....|
|00003b20| 20 61 6c 65 72 74 20 03 | 3f 20 6d 73 67 5f 66 61 | alert .|? msg_fa|
|00003b30| 74 61 6c 0d 01 04 04 06 | 20 63 6c 6f 73 65 64 6f |tal.....| closedo|
|00003b40| 77 6e 0d 01 04 03 a0 0d | 03 8b 0d 0d 2a 20 2d 2d |wn......|....* --|
|00003b50| 2d 20 4f 70 65 6e 20 74 | 68 65 20 6f 6e 2d 6c 69 |- Open t|he on-li|
|00003b60| 6e 65 20 48 65 6c 70 20 | 66 69 6c 65 0d 0d 04 24 |ne Help |file...$|
|00003b70| 20 03 1f 20 04 09 20 19 | 01 08 0f 00 17 02 03 00 | .. .. .|........|
|00003b80| 5f 68 65 6c 70 0d 0d 2a | 20 2d 2d 2d 44 65 66 69 |_help..*| ---Defi|
|00003b90| 6e 65 20 6d 65 6e 75 20 | 62 61 72 20 61 6e 64 20 |ne menu |bar and |
|00003ba0| 70 6f 70 75 70 20 6d 65 | 6e 75 73 0d 0d 44 45 46 |popup me|nus..DEF|
|00003bb0| 49 4e 45 20 4d 45 4e 55 | 01 02 6d 62 61 72 74 6f |INE MENU|..mbarto|
|00003bc0| 70 31 0d 44 45 46 49 4e | 45 20 50 41 44 20 6d 62 |p1.DEFIN|E PAD mb|
|00003bd0| 61 72 30 20 4f 46 20 6d | 62 61 72 74 6f 70 31 20 |ar0 OF m|bartop1 |
|00003be0| 41 54 20 30 2c 30 01 02 | 50 52 4f 4d 50 54 20 27 |AT 0,0..|PROMPT '|
|00003bf0| 5c 3c 46 69 6c 65 27 0d | 44 45 46 49 4e 45 20 50 |\<File'.|DEFINE P|
|00003c00| 41 44 20 6d 62 61 72 31 | 20 4f 46 20 6d 62 61 72 |AD mbar1| OF mbar|
|00003c10| 74 6f 70 31 20 41 54 20 | 30 2c 36 01 02 50 52 4f |top1 AT |0,6..PRO|
|00003c20| 4d 50 54 20 27 5c 3c 50 | 6f 73 69 74 69 6f 6e 27 |MPT '\<P|osition'|
|00003c30| 0d 44 45 46 49 4e 45 20 | 50 41 44 20 6d 62 61 72 |.DEFINE |PAD mbar|
|00003c40| 32 20 4f 46 20 6d 62 61 | 72 74 6f 70 31 20 41 54 |2 OF mba|rtop1 AT|
|00003c50| 20 30 2c 31 36 20 50 52 | 4f 4d 50 54 20 27 5c 3c | 0,16 PR|OMPT '\<|
|00003c60| 52 65 63 6f 72 64 27 0d | 44 45 46 49 4e 45 20 50 |Record'.|DEFINE P|
|00003c70| 41 44 20 6d 62 61 72 33 | 20 4f 46 20 6d 62 61 72 |AD mbar3| OF mbar|
|00003c80| 74 6f 70 31 20 41 54 20 | 30 2c 32 34 20 50 52 4f |top1 AT |0,24 PRO|
|00003c90| 4d 50 54 20 27 5c 3c 55 | 74 69 6c 69 74 69 65 73 |MPT '\<U|tilities|
|00003ca0| 27 0d 44 45 46 49 4e 45 | 20 50 41 44 20 6d 62 61 |'.DEFINE| PAD mba|
|00003cb0| 72 34 20 4f 46 20 6d 62 | 61 72 74 6f 70 31 20 41 |r4 OF mb|artop1 A|
|00003cc0| 54 20 30 2c 33 35 20 50 | 52 4f 4d 50 54 20 27 5c |T 0,35 P|ROMPT '\|
|00003cd0| 3c 4e 65 78 74 27 0d 44 | 45 46 49 4e 45 20 50 41 |<Next'.D|EFINE PA|
|00003ce0| 44 20 6d 62 61 72 35 20 | 4f 46 20 6d 62 61 72 74 |D mbar5 |OF mbart|
|00003cf0| 6f 70 31 20 41 54 20 30 | 2c 34 31 20 50 52 4f 4d |op1 AT 0|,41 PROM|
|00003d00| 50 54 20 27 50 72 5c 3c | 69 6f 72 27 0d 44 45 46 |PT 'Pr\<|ior'.DEF|
|00003d10| 49 4e 45 20 50 4f 50 55 | 50 20 6d 62 61 72 30 20 |INE POPU|P mbar0 |
|00003d20| 03 04 20 31 2c 30 20 53 | 48 41 44 4f 57 0d 44 45 |.. 1,0 S|HADOW.DE|
|00003d30| 46 49 4e 45 20 42 41 52 | 20 31 20 4f 46 20 6d 62 |FINE BAR| 1 OF mb|
|00003d40| 61 72 30 20 50 52 4f 4d | 50 54 20 27 20 5c 3c 48 |ar0 PROM|PT ' \<H|
|00003d50| 65 6c 70 2e 2e 2e 20 20 | 20 20 27 0d 44 45 46 49 |elp...  |  '.DEFI|
|00003d60| 4e 45 20 42 41 52 20 32 | 20 4f 46 20 6d 62 61 72 |NE BAR 2| OF mbar|
|00003d70| 30 20 50 52 4f 4d 50 54 | 20 27 20 5c 3c 44 61 74 |0 PROMPT| ' \<Dat|
|00003d80| 61 62 61 73 65 2e 2e 2e | 27 20 03 55 20 04 18 20 |abase...|' .U .. |
|00003d90| 2e 04 1a 2e 20 6d 75 6c | 74 69 64 62 66 0d 44 45 |.... mul|tidbf.DE|
|00003da0| 46 49 4e 45 20 42 41 52 | 20 33 20 4f 46 20 6d 62 |FINE BAR| 3 OF mb|
|00003db0| 61 72 30 20 50 52 4f 4d | 50 54 20 27 5c 2d 27 0d |ar0 PROM|PT '\-'.|
|00003dc0| 44 45 46 49 4e 45 20 42 | 41 52 20 34 20 4f 46 20 |DEFINE B|AR 4 OF |
|00003dd0| 6d 62 61 72 30 20 50 52 | 4f 4d 50 54 20 27 20 5c |mbar0 PR|OMPT ' \|
|00003de0| 3c 51 75 69 74 20 20 20 | 20 20 20 20 27 0d 44 45 |<Quit   |    '.DE|
|00003df0| 46 49 4e 45 20 50 4f 50 | 55 50 20 6d 62 61 72 31 |FINE POP|UP mbar1|
|00003e00| 20 03 04 20 31 2c 36 20 | 53 48 41 44 4f 57 0d 44 | .. 1,6 |SHADOW.D|
|00003e10| 45 46 49 4e 45 20 42 41 | 52 20 31 20 4f 46 20 6d |EFINE BA|R 1 OF m|
|00003e20| 62 61 72 31 20 50 52 4f | 4d 50 54 20 27 20 5c 3c |bar1 PRO|MPT ' \<|
|00003e30| 53 65 65 6b 20 20 20 20 | 20 20 27 20 03 55 20 04 |Seek    |  ' .U .|
|00003e40| 18 20 2e 04 1a 2e 20 74 | 69 6e 64 65 78 0d 44 45 |. .... t|index.DE|
|00003e50| 46 49 4e 45 20 42 41 52 | 20 32 20 4f 46 20 6d 62 |FINE BAR| 2 OF mb|
|00003e60| 61 72 31 20 50 52 4f 4d | 50 54 20 27 20 5c 3c 47 |ar1 PROM|PT ' \<G|
|00003e70| 6f 74 6f 2e 2e 2e 20 20 | 20 27 0d 44 45 46 49 4e |oto...  | '.DEFIN|
|00003e80| 45 20 42 41 52 20 33 20 | 4f 46 20 6d 62 61 72 31 |E BAR 3 |OF mbar1|
|00003e90| 20 50 52 4f 4d 50 54 20 | 27 20 5c 3c 4c 6f 63 61 | PROMPT |' \<Loca|
|00003ea0| 74 65 20 20 20 20 27 0d | 44 45 46 49 4e 45 20 42 |te    '.|DEFINE B|
|00003eb0| 41 52 20 34 20 4f 46 20 | 6d 62 61 72 31 20 50 52 |AR 4 OF |mbar1 PR|
|00003ec0| 4f 4d 50 54 20 27 20 5c | 3c 43 6f 6e 74 69 6e 75 |OMPT ' \|<Continu|
|00003ed0| 65 20 20 27 20 03 55 20 | 04 18 20 2e 04 1a 2e 20 |e  ' .U |.. .... |
|00003ee0| 63 6f 6e 74 69 6e 75 65 | 6f 6e 0d 44 45 46 49 4e |continue|on.DEFIN|
|00003ef0| 45 20 50 4f 50 55 50 20 | 6d 62 61 72 32 20 03 04 |E POPUP |mbar2 ..|
|00003f00| 20 31 2c 31 36 20 53 48 | 41 44 4f 57 0d 44 45 46 | 1,16 SH|ADOW.DEF|
|00003f10| 49 4e 45 20 42 41 52 20 | 31 20 4f 46 20 6d 62 61 |INE BAR |1 OF mba|
|00003f20| 72 32 20 50 52 4f 4d 50 | 54 20 27 20 5c 3c 45 64 |r2 PROMP|T ' \<Ed|
|00003f30| 69 74 20 20 20 20 20 27 | 0d 44 45 46 49 4e 45 20 |it     '|.DEFINE |
|00003f40| 42 41 52 20 32 20 4f 46 | 20 6d 62 61 72 32 20 50 |BAR 2 OF| mbar2 P|
|00003f50| 52 4f 4d 50 54 20 27 20 | 5c 3c 41 64 64 20 20 20 |ROMPT ' |\<Add   |
|00003f60| 20 20 20 27 0d 44 45 46 | 49 4e 45 20 42 41 52 20 |   '.DEF|INE BAR |
|00003f70| 33 20 4f 46 20 6d 62 61 | 72 32 20 50 52 4f 4d 50 |3 OF mba|r2 PROMP|
|00003f80| 54 20 27 20 5c 3c 42 72 | 6f 77 73 65 20 20 20 27 |T ' \<Br|owse   '|
|00003f90| 0d 44 45 46 49 4e 45 20 | 42 41 52 20 34 20 4f 46 |.DEFINE |BAR 4 OF|
|00003fa0| 20 6d 62 61 72 32 20 50 | 52 4f 4d 50 54 20 27 5c | mbar2 P|ROMPT '\|
|00003fb0| 2d 27 0d 44 45 46 49 4e | 45 20 42 41 52 20 35 20 |-'.DEFIN|E BAR 5 |
|00003fc0| 4f 46 20 6d 62 61 72 32 | 20 50 52 4f 4d 50 54 20 |OF mbar2| PROMPT |
|00003fd0| 6d 64 65 6c 65 74 65 0d | 44 45 46 49 4e 45 20 50 |mdelete.|DEFINE P|
|00003fe0| 4f 50 55 50 20 6d 62 61 | 72 33 20 03 04 20 31 2c |OPUP mba|r3 .. 1,|
|00003ff0| 32 34 20 53 48 41 44 4f | 57 0d 44 45 46 49 4e 45 |24 SHADO|W.DEFINE|
|00004000| 20 42 41 52 20 31 20 4f | 46 20 6d 62 61 72 33 20 | BAR 1 O|F mbar3 |
|00004010| 50 52 4f 4d 50 54 20 27 | 20 5c 3c 52 65 70 6f 72 |PROMPT '| \<Repor|
|00004020| 74 2e 2e 2e 20 27 0d 44 | 45 46 49 4e 45 20 42 41 |t... '.D|EFINE BA|
|00004030| 52 20 32 20 4f 46 20 6d | 62 61 72 33 20 50 52 4f |R 2 OF m|bar3 PRO|
|00004040| 4d 50 54 20 27 20 5c 3c | 4c 61 62 65 6c 2e 2e 2e |MPT ' \<|Label...|
|00004050| 20 20 27 0d 44 45 46 49 | 4e 45 20 42 41 52 20 33 |  '.DEFI|NE BAR 3|
|00004060| 20 4f 46 20 6d 62 61 72 | 33 20 50 52 4f 4d 50 54 | OF mbar|3 PROMPT|
|00004070| 20 27 20 5c 3c 50 61 63 | 6b 20 20 20 20 20 20 27 | ' \<Pac|k      '|
|00004080| 0d 44 45 46 49 4e 45 20 | 42 41 52 20 34 20 4f 46 |.DEFINE |BAR 4 OF|
|00004090| 20 6d 62 61 72 33 20 50 | 52 4f 4d 50 54 20 27 20 | mbar3 P|ROMPT ' |
|000040a0| 52 65 5c 3c 69 6e 64 65 | 78 20 20 20 27 20 03 55 |Re\<inde|x   ' .U|
|000040b0| 20 04 18 20 2e 04 1a 2e | 20 74 69 6e 64 65 78 0d | .. ....| tindex.|
|000040c0| 04 0c 20 53 45 4c 45 43 | 54 49 4f 4e 20 50 41 44 |.. SELEC|TION PAD|
|000040d0| 20 6d 62 61 72 30 20 4f | 46 20 6d 62 61 72 74 6f | mbar0 O|F mbarto|
|000040e0| 70 31 20 41 43 54 49 56 | 41 54 45 20 50 4f 50 55 |p1 ACTIV|ATE POPU|
|000040f0| 50 20 6d 62 61 72 30 0d | 04 0c 20 53 45 4c 45 43 |P mbar0.|.. SELEC|
|00004100| 54 49 4f 4e 20 50 41 44 | 20 6d 62 61 72 31 20 4f |TION PAD| mbar1 O|
|00004110| 46 20 6d 62 61 72 74 6f | 70 31 20 41 43 54 49 56 |F mbarto|p1 ACTIV|
|00004120| 41 54 45 20 50 4f 50 55 | 50 20 6d 62 61 72 31 0d |ATE POPU|P mbar1.|
|00004130| 04 0c 20 53 45 4c 45 43 | 54 49 4f 4e 20 50 41 44 |.. SELEC|TION PAD|
|00004140| 20 6d 62 61 72 32 20 4f | 46 20 6d 62 61 72 74 6f | mbar2 O|F mbarto|
|00004150| 70 31 20 41 43 54 49 56 | 41 54 45 20 50 4f 50 55 |p1 ACTIV|ATE POPU|
|00004160| 50 20 6d 62 61 72 32 0d | 04 0c 20 53 45 4c 45 43 |P mbar2.|.. SELEC|
|00004170| 54 49 4f 4e 20 50 41 44 | 20 6d 62 61 72 33 20 4f |TION PAD| mbar3 O|
|00004180| 46 20 6d 62 61 72 74 6f | 70 31 20 41 43 54 49 56 |F mbarto|p1 ACTIV|
|00004190| 41 54 45 20 50 4f 50 55 | 50 20 6d 62 61 72 33 0d |ATE POPU|P mbar3.|
|000041a0| 04 0c 20 53 45 4c 45 43 | 54 49 4f 4e 20 50 41 44 |.. SELEC|TION PAD|
|000041b0| 20 6d 62 61 72 34 20 4f | 46 20 6d 62 61 72 74 6f | mbar4 O|F mbarto|
|000041c0| 70 31 20 04 06 20 19 01 | 08 0f 00 17 02 03 00 5f |p1 .. ..|......._|
|000041d0| 6d 6e 63 74 20 03 3f 20 | 34 2c 36 0d 04 0c 20 53 |mnct .? |4,6... S|
|000041e0| 45 4c 45 43 54 49 4f 4e | 20 50 41 44 20 6d 62 61 |ELECTION| PAD mba|
|000041f0| 72 35 20 4f 46 20 6d 62 | 61 72 74 6f 70 31 20 04 |r5 OF mb|artop1 .|
|00004200| 06 20 19 01 08 0f 00 17 | 02 03 00 5f 6d 6e 63 74 |. ......|..._mnct|
|00004210| 20 03 3f 20 35 2c 37 0d | 04 0c 20 53 45 4c 45 43 | .? 5,7.|.. SELEC|
|00004220| 54 49 4f 4e 20 50 4f 50 | 55 50 20 6d 62 61 72 30 |TION POP|UP mbar0|
|00004230| 20 04 06 20 19 01 08 0f | 00 17 02 03 00 5f 6d 6e | .. ....|....._mn|
|00004240| 63 74 20 03 3f 20 30 2c | 42 41 52 28 29 0d 04 0c |ct .? 0,|BAR()...|
|00004250| 20 53 45 4c 45 43 54 49 | 4f 4e 20 50 4f 50 55 50 | SELECTI|ON POPUP|
|00004260| 20 6d 62 61 72 31 20 04 | 06 20 19 01 08 0f 00 17 | mbar1 .|. ......|
|00004270| 02 03 00 5f 6d 6e 63 74 | 20 03 3f 20 31 2c 42 41 |..._mnct| .? 1,BA|
|00004280| 52 28 29 0d 04 0c 20 53 | 45 4c 45 43 54 49 4f 4e |R()... S|ELECTION|
|00004290| 20 50 4f 50 55 50 20 6d | 62 61 72 32 20 04 06 20 | POPUP m|bar2 .. |
|000042a0| 19 01 08 0f 00 17 02 03 | 00 5f 6d 6e 63 74 20 03 |........|._mnct .|
|000042b0| 3f 20 32 2c 42 41 52 28 | 29 0d 04 0c 20 53 45 4c |? 2,BAR(|)... SEL|
|000042c0| 45 43 54 49 4f 4e 20 50 | 4f 50 55 50 20 6d 62 61 |ECTION P|OPUP mba|
|000042d0| 72 33 20 04 06 20 19 01 | 08 0f 00 17 02 03 00 5f |r3 .. ..|......._|
|000042e0| 6d 6e 63 74 20 03 3f 20 | 33 2c 42 41 52 28 29 0d |mnct .? |3,BAR().|
|000042f0| 03 48 0d 0d 2a 20 2d 2d | 2d 20 49 6e 69 74 69 61 |.H..* --|- Initia|
|00004300| 6c 69 7a 65 20 6d 65 6d | 6f 72 79 20 76 61 72 69 |lize mem|ory vari|
|00004310| 61 62 6c 65 73 0d 0d 1b | 01 14 8e 07 6f 70 74 70 |ables...|....optp|
|00004320| 61 64 20 3d 20 27 6d 62 | 61 72 30 27 0d 0d 2a 20 |ad = 'mb|ar0'..* |
|00004330| 2d 2d 2d 20 4d 61 69 6e | 20 6c 6f 6f 70 20 74 68 |--- Main| loop th|
|00004340| 61 74 20 70 6c 61 63 65 | 73 20 40 2e 2e 2e 53 41 |at place|s @...SA|
|00004350| 59 2f 47 45 54 73 20 6f | 6e 20 74 68 65 20 73 63 |Y/GETs o|n the sc|
|00004360| 72 65 65 6e 20 61 6e 64 | 20 61 63 74 69 76 61 74 |reen and| activat|
|00004370| 65 73 20 6d 65 6e 75 73 | 0d 2a 20 2d 2d 2d 20 4c |es menus|.* --- L|
|00004380| 6f 6f 70 20 69 73 20 65 | 78 69 74 65 64 20 77 68 |oop is e|xited wh|
|00004390| 65 6e 20 51 75 69 74 20 | 69 73 20 63 68 6f 73 65 |en Quit |is chose|
|000043a0| 6e 20 66 72 6f 6d 20 74 | 68 65 20 46 69 6c 65 20 |n from t|he File |
|000043b0| 6d 65 6e 75 0d 0d 04 06 | 20 03 7b 20 2e 04 1a 2e |menu....| .{ ....|
|000043c0| 20 6d 65 78 69 74 0d 20 | 41 43 54 49 56 41 54 45 | mexit. |ACTIVATE|
|000043d0| 20 03 46 0d 01 04 74 69 | 6e 64 65 78 20 3d 20 68 | .F...ti|ndex = h|
|000043e0| 61 73 69 6e 64 65 78 28 | 64 62 66 61 72 65 61 29 |asindex(|dbfarea)|
|000043f0| 0d 1b 01 14 94 04 1b 01 | 14 05 09 01 04 40 20 32 |........|.....@ 2|
|00004400| 34 2c 31 20 04 20 20 27 | 44 61 74 61 62 61 73 65 |4,1 .  '|Database|
|00004410| 3a 20 27 2b 64 62 6e 61 | 6d 65 28 64 62 66 61 72 |: '+dbna|me(dbfar|
|00004420| 65 61 29 2b 27 20 20 20 | 20 20 20 20 20 27 0d 0d |ea)+'   |     '..|
|00004430| 01 04 2a 20 2d 2d 2d 20 | 49 66 20 72 65 63 6f 72 |..* --- |If recor|
|00004440| 64 20 69 73 20 6d 61 72 | 6b 65 64 20 66 6f 72 20 |d is mar|ked for |
|00004450| 64 65 6c 65 74 69 6f 6e | 2c 20 70 6c 61 63 65 20 |deletion|, place |
|00004460| 70 72 6f 70 65 72 20 6f | 70 74 69 6f 6e 20 69 6e |proper o|ption in|
|00004470| 20 52 65 63 6f 72 64 20 | 6d 65 6e 75 0d 0d 01 04 | Record |menu....|
|00004480| 04 19 20 44 45 4c 45 54 | 45 44 28 29 0d 01 08 40 |.. DELET|ED()...@|
|00004490| 20 30 2c 30 20 04 20 20 | 27 20 46 69 6c 65 20 20 | 0,0 .  |' File  |
|000044a0| 50 6f 73 69 74 69 6f 6e | 20 20 52 65 63 6f 72 64 |Position|  Record|
|000044b0| 20 20 55 74 69 6c 69 74 | 69 65 73 20 20 4e 65 78 |  Utilit|ies  Nex|
|000044c0| 74 20 20 50 72 69 6f 72 | 20 20 20 20 20 2a 2a 20 |t  Prior|     ** |
|000044d0| 20 44 65 6c 65 74 65 64 | 20 2a 2a 20 20 20 20 27 | Deleted| **    '|
|000044e0| 0d 01 08 6d 64 65 6c 65 | 74 65 20 3d 20 27 20 5c |...mdele|te = ' \|
|000044f0| 3c 52 65 63 61 6c 6c 20 | 20 20 27 0d 01 04 03 5b |<Recall |  '....[|
|00004500| 0d 01 08 40 20 30 2c 30 | 20 04 20 20 27 20 46 69 |...@ 0,0| .  ' Fi|
|00004510| 6c 65 20 20 50 6f 73 69 | 74 69 6f 6e 20 20 52 65 |le  Posi|tion  Re|
|00004520| 63 6f 72 64 20 20 55 74 | 69 6c 69 74 69 65 73 20 |cord  Ut|ilities |
|00004530| 20 4e 65 78 74 20 20 50 | 72 69 6f 72 20 20 20 20 | Next  P|rior    |
|00004540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004550| 20 20 20 20 20 27 0d 01 | 08 6d 64 65 6c 65 74 65 |     '..|.mdelete|
|00004560| 20 3d 20 27 20 5c 3c 44 | 65 6c 65 74 65 20 20 20 | = ' \<D|elete   |
|00004570| 27 0d 01 04 03 8b 0d 01 | 04 44 45 46 49 4e 45 20 |'.......|.DEFINE |
|00004580| 42 41 52 20 35 20 4f 46 | 20 6d 62 61 72 32 20 50 |BAR 5 OF| mbar2 P|
|00004590| 52 4f 4d 50 54 20 6d 64 | 65 6c 65 74 65 0d 0d 01 |ROMPT md|elete...|
|000045a0| 04 2a 20 2d 2d 2d 20 49 | 66 20 65 64 69 74 20 6f |.* --- I|f edit o|
|000045b0| 72 20 61 70 70 65 6e 64 | 20 69 73 20 63 68 6f 73 |r append| is chos|
|000045c0| 65 6e 20 66 72 6f 6d 20 | 52 65 63 6f 72 64 20 6d |en from |Record m|
|000045d0| 65 6e 75 2c 20 52 45 41 | 44 20 69 73 20 61 63 74 |enu, REA|D is act|
|000045e0| 69 76 61 74 65 64 0d 0d | 01 04 04 19 20 6d 65 64 |ivated..|.... med|
|000045f0| 69 74 0d 01 08 03 43 0d | 01 08 6d 65 64 69 74 20 |it....C.|..medit |
|00004600| 3d 20 2e 46 2e 0d 01 04 | 03 5b 0d 01 08 03 48 20 |= .F....|.[....H |
|00004610| 03 1e 0d 01 04 03 8b 0d | 01 04 41 43 54 49 56 41 |........|..ACTIVA|
|00004620| 54 45 20 4d 45 4e 55 20 | 6d 62 61 72 74 6f 70 31 |TE MENU |mbartop1|
|00004630| 20 50 41 44 20 26 6f 70 | 74 70 61 64 0d 03 0a 0d | PAD &op|tpad....|
|00004640| 0d 2a 20 2d 2d 2d 20 45 | 6e 64 20 6f 66 20 6d 61 |.* --- E|nd of ma|
|00004650| 69 6e 20 6c 6f 6f 70 0d | 0d 2a 20 2d 2d 2d 20 52 |in loop.|.* --- R|
|00004660| 65 73 74 6f 72 65 20 74 | 68 65 20 6f 72 69 67 69 |estore t|he origi|
|00004670| 6e 61 6c 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 0d |nal envi|ronment.|
|00004680| 0d 04 06 20 63 6c 6f 73 | 65 64 6f 77 6e 0d 0d 03 |... clos|edown...|
|00004690| a0 0d 0d 2a 20 2d 2d 2d | 20 45 6e 64 20 4d 61 69 |...* ---| End Mai|
|000046a0| 6e 0d 0d 2a 20 2d 2d 2d | 20 54 68 65 20 66 6f 6c |n..* ---| The fol|
|000046b0| 6c 6f 77 69 6e 67 20 70 | 72 6f 63 65 64 75 72 65 |lowing p|rocedure|
|000046c0| 20 69 73 20 63 61 6c 6c | 65 64 20 77 68 65 6e 20 | is call|ed when |
|000046d0| 61 20 6d 65 6e 75 20 70 | 6f 70 75 70 20 69 73 20 |a menu p|opup is |
|000046e0| 73 65 6c 65 63 74 65 64 | 0d 0d 03 11 20 19 01 08 |selected|.... ...|
|000046f0| 0f 00 17 02 03 00 5f 6d | 6e 63 74 0d 03 6f 20 72 |......_m|nct..o r|
|00004700| 6f 77 2c 63 6f 6c 0d 6f | 70 74 70 61 64 20 3d 20 |ow,col.o|ptpad = |
|00004710| 50 41 44 28 29 0d 6d 70 | 6f 70 20 3d 20 27 6d 62 |PAD().mp|op = 'mb|
|00004720| 61 72 27 2b 20 03 41 28 | 04 1c 28 72 6f 77 29 29 |ar'+ .A(|..(row))|
|00004730| 0d 0d 2a 2d 2d 2d 48 69 | 64 65 20 74 68 65 20 6d |..*---Hi|de the m|
|00004740| 65 6e 75 20 70 6f 70 75 | 70 0d 0d 04 19 20 72 6f |enu popu|p.... ro|
|00004750| 77 20 3c 3e 20 34 20 2e | 61 6e 64 2e 20 72 6f 77 |w <> 4 .|and. row|
|00004760| 20 3c 3e 20 35 0d 20 48 | 49 44 45 20 4d 45 4e 55 | <> 5. H|IDE MENU|
|00004770| 20 6d 62 61 72 74 6f 70 | 31 0d 20 48 49 44 45 20 | mbartop|1. HIDE |
|00004780| 50 4f 50 55 50 20 26 6d | 70 6f 70 0d 03 8b 0d 04 |POPUP &m|pop.....|
|00004790| 06 20 03 65 0d 0d 01 04 | 2a 2d 2d 2d 20 45 78 69 |. .e....|*--- Exi|
|000047a0| 74 20 74 68 65 20 6d 61 | 69 6e 20 6c 6f 6f 70 20 |t the ma|in loop |
|000047b0| 61 6e 64 20 65 78 69 74 | 20 74 68 69 73 20 70 72 |and exit| this pr|
|000047c0| 6f 67 72 61 6d 0d 01 04 | 03 65 20 72 6f 77 20 3d |ogram...|.e row =|
|000047d0| 20 30 20 2e 04 1b 2e 20 | 63 6f 6c 20 3d 20 34 0d | 0 .... |col = 4.|
|000047e0| 01 08 6d 65 78 69 74 20 | 3d 20 2e 54 2e 0d 0d 01 |..mexit |= .T....|
|000047f0| 04 2a 2d 2d 2d 53 65 6c | 65 63 74 20 61 20 64 61 |.*---Sel|ect a da|
|00004800| 74 61 62 61 73 65 20 61 | 20 66 69 6c 65 20 69 66 |tabase a| file if|
|00004810| 20 6d 6f 72 65 20 74 68 | 61 6e 20 6f 6e 65 20 68 | more th|an one h|
|00004820| 61 73 20 62 65 65 6e 20 | 6f 70 65 6e 65 64 0d 01 |as been |opened..|
|00004830| 04 03 65 20 72 6f 77 20 | 3d 20 30 20 2e 04 1b 2e |..e row |= 0 ....|
|00004840| 20 63 6f 6c 20 3d 20 32 | 0d 01 08 41 43 54 49 56 | col = 2|...ACTIV|
|00004850| 41 54 45 20 03 45 20 6d | 65 6e 74 65 72 0d 01 08 |ATE .E m|enter...|
|00004860| 6d 63 68 6f 69 63 65 20 | 3d 20 64 62 66 61 72 65 |mchoice |= dbfare|
|00004870| 61 0d 01 08 40 20 31 2c | 35 20 04 20 20 27 53 65 |a...@ 1,|5 .  'Se|
|00004880| 6c 65 63 74 3a 20 27 0d | 01 08 40 20 30 2c 31 35 |lect: '.|..@ 0,15|
|00004890| 20 4d 45 4e 55 20 64 62 | 6e 61 6d 65 2c 6d 63 6f | MENU db|name,mco|
|000048a0| 75 6e 74 2c 36 0d 0d 01 | 08 2a 20 2d 2d 2d 20 41 |unt,6...|.* --- A|
|000048b0| 63 74 69 76 61 74 65 20 | 74 68 65 20 6d 65 6e 75 |ctivate |the menu|
|000048c0| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 61 76 61 69 | contain|ing avai|
|000048d0| 6c 61 62 6c 65 20 64 61 | 74 61 62 61 73 65 73 0d |lable da|tabases.|
|000048e0| 0d 01 08 03 43 20 4d 45 | 4e 55 20 04 09 20 6d 63 |....C ME|NU .. mc|
|000048f0| 68 6f 69 63 65 0d 01 08 | 44 45 41 43 54 49 56 41 |hoice...|DEACTIVA|
|00004900| 54 45 20 03 45 20 6d 65 | 6e 74 65 72 0d 01 08 04 |TE .E me|nter....|
|00004910| 19 20 6d 63 68 6f 69 63 | 65 20 3c 3e 20 64 62 66 |. mchoic|e <> dbf|
|00004920| 61 72 65 61 20 2e 04 1b | 2e 20 6d 63 68 6f 69 63 |area ...|. mchoic|
|00004930| 65 20 3c 3e 20 30 0d 01 | 0c 74 61 72 65 61 20 3d |e <> 0..|.tarea =|
|00004940| 20 03 41 28 04 1c 28 6d | 63 68 6f 69 63 65 29 29 | .A(..(m|choice))|
|00004950| 0d 01 0c 64 62 66 61 72 | 65 61 20 3d 20 6d 63 68 |...dbfar|ea = mch|
|00004960| 6f 69 63 65 0d 01 0c 63 | 6f 6e 74 69 6e 75 65 6f |oice...c|ontinueo|
|00004970| 6e 20 3d 20 2e 46 2e 0d | 01 0c 65 78 70 72 20 3d |n = .F..|..expr =|
|00004980| 20 27 27 0d 01 0c 03 1c | 20 26 74 61 72 65 61 0d | ''.....| &tarea.|
|00004990| 01 08 03 8b 0d 0d 01 04 | 2a 2d 2d 2d 20 41 63 74 |........|*--- Act|
|000049a0| 69 76 61 74 65 20 74 68 | 65 20 6f 6e 6c 69 6e 65 |ivate th|e online|
|000049b0| 20 48 65 6c 70 20 73 79 | 73 74 65 6d 0d 01 04 03 | Help sy|stem....|
|000049c0| 65 20 72 6f 77 20 3d 20 | 30 20 2e 04 1b 2e 20 63 |e row = |0 .... c|
|000049d0| 6f 6c 20 3d 20 31 0d 01 | 08 03 1f 0d 01 08 44 45 |ol = 1..|......DE|
|000049e0| 41 43 54 49 56 41 54 45 | 20 03 45 20 04 01 0d 0d |ACTIVATE| .E ....|
|000049f0| 01 04 2a 2d 2d 2d 20 49 | 66 20 64 61 74 61 62 61 |..*--- I|f databa|
|00004a00| 73 65 20 64 6f 65 73 20 | 6e 6f 74 20 68 61 76 65 |se does |not have|
|00004a10| 20 61 6e 79 20 72 65 63 | 6f 72 64 73 2c 20 65 78 | any rec|ords, ex|
|00004a20| 69 74 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 0d |it this |program.|
|00004a30| 01 04 03 65 20 2e 04 1a | 2e 20 28 72 6f 77 3d 32 |...e ...|. (row=2|
|00004a40| 20 2e 04 1b 2e 20 63 6f | 6c 3d 31 29 20 2e 04 1b | .... co|l=1) ...|
|00004a50| 2e 20 28 03 13 28 29 20 | 3d 20 30 29 0d 01 08 04 |. (..() |= 0)....|
|00004a60| 06 20 61 6c 65 72 74 20 | 03 3f 20 6d 73 67 5f 66 |. alert |.? msg_f|
|00004a70| 61 74 61 6c 0d 01 08 6d | 65 78 69 74 20 3d 20 2e |atal...m|exit = .|
|00004a80| 54 2e 0d 0d 01 04 2a 2d | 2d 2d 20 45 64 69 74 20 |T.....*-|-- Edit |
|00004a90| 74 68 65 20 63 75 72 72 | 65 6e 74 20 72 65 63 6f |the curr|ent reco|
|00004aa0| 72 64 0d 01 04 03 65 20 | 72 6f 77 3d 32 20 2e 04 |rd....e |row=2 ..|
|00004ab0| 1b 2e 20 63 6f 6c 3d 20 | 31 0d 01 08 6d 65 64 69 |.. col= |1...medi|
|00004ac0| 74 20 3d 20 2e 54 2e 0d | 0d 01 04 2a 2d 2d 2d 20 |t = .T..|...*--- |
|00004ad0| 41 70 70 65 6e 64 20 61 | 20 62 6c 61 6e 6b 20 72 |Append a| blank r|
|00004ae0| 65 63 6f 72 64 20 61 6e | 64 20 69 6e 69 74 69 61 |ecord an|d initia|
|00004af0| 6c 69 7a 65 20 74 68 65 | 20 66 69 65 6c 64 73 0d |lize the| fields.|
|00004b00| 01 04 03 65 20 72 6f 77 | 3d 32 20 2e 04 1b 2e 20 |...e row|=2 .... |
|00004b10| 63 6f 6c 3d 32 0d 01 08 | 03 9b 20 03 97 0d 0d 01 |col=2...|.. .....|
|00004b20| 08 2a 2d 2d 2d 20 4e 6f | 74 65 3a 20 54 68 69 73 |.*--- No|te: This|
|00004b30| 20 77 69 6c 6c 20 62 65 | 20 61 6e 20 65 6d 70 74 | will be| an empt|
|00004b40| 79 20 43 41 53 45 20 73 | 74 72 75 63 74 75 72 65 |y CASE s|tructure|
|00004b50| 20 69 66 20 74 68 65 72 | 65 20 61 72 65 20 6e 6f | if ther|e are no|
|00004b60| 20 69 6e 69 74 69 61 6c | 20 76 61 6c 75 65 73 20 | initial| values |
|00004b70| 73 70 65 63 69 66 69 65 | 64 0d 01 08 04 06 20 03 |specifie|d..... .|
|00004b80| 65 0d 15 01 01 00 1a 00 | 04 05 00 17 09 07 00 15 |e.......|........|
|00004b90| 01 00 00 1a 00 04 06 00 | 15 01 0a 00 1a 00 04 07 |........|........|
|00004ba0| 00 15 01 01 00 1c 00 04 | 06 00 19 00 04 06 00 19 |........|........|
|00004bb0| 00 04 07 00 16 01 21 1f | 76 4c 19 00 04 06 00 17 |......!.|vL......|
|00004bc0| 09 06 00 17 09 08 00 1f | 73 4c 01 0c 03 65 20 64 |........|sL...e d|
|00004bd0| 62 6e 61 6d 65 28 64 62 | 66 61 72 65 61 29 20 24 |bname(db|farea) $|
|00004be0| 20 04 13 28 27 05 02 01 | 27 29 0d 15 01 01 00 1a | ..('...|')......|
|00004bf0| 00 04 08 00 17 04 07 00 | 15 01 00 00 1a 00 04 09 |........|........|
|00004c00| 00 17 04 11 00 1a 00 04 | 0a 00 15 01 01 00 1c 00 |........|........|
|00004c10| 04 09 00 19 00 04 09 00 | 19 00 04 0a 00 16 01 21 |........|.......!|
|00004c20| 1f 66 4c 19 00 04 09 00 | 17 04 06 00 19 00 04 0a |.fL.....|........|
|00004c30| 00 16 01 18 1f 63 4c 18 | 02 15 16 02 6c 16 02 64 |.....cL.|....l..d|
|00004c40| 15 01 00 00 16 01 1f 1f | 5a 4c 01 10 03 22 20 05 |........|ZL..." .|
|00004c50| 02 10 20 03 3f 20 05 02 | 15 0d 15 01 01 00 1c 00 |.. .? ..|........|
|00004c60| 04 08 00 1e 0a 4c 17 04 | 06 00 15 01 01 00 1c 00 |.....L..|........|
|00004c70| 04 05 00 1e a1 4b 17 09 | 06 00 01 08 03 91 0d 01 |.....K..|........|
|00004c80| 08 6d 65 64 69 74 20 3d | 20 2e 54 2e 0d 0d 01 04 |.medit =| .T.....|
|00004c90| 2a 2d 2d 2d 20 50 72 6f | 63 65 73 73 20 73 65 6c |*--- Pro|cess sel|
|00004ca0| 65 63 74 69 6f 6e 20 66 | 72 6f 6d 20 74 68 65 20 |ection f|rom the |
|00004cb0| 47 6f 20 6d 65 6e 75 0d | 01 04 03 65 20 72 6f 77 |Go menu.|...e row|
|00004cc0| 3d 31 20 2e 6f 72 2e 20 | 72 6f 77 3d 34 20 2e 6f |=1 .or. |row=4 .o|
|00004cd0| 72 2e 20 72 6f 77 3d 35 | 0d 01 08 04 06 20 19 01 |r. row=5|..... ..|
|00004ce0| 08 0f 00 17 02 03 00 5f | 65 64 69 74 20 03 3f 20 |......._|edit .? |
|00004cf0| 63 6f 6c 0d 0d 01 04 2a | 2d 2d 2d 20 4f 70 65 6e |col....*|--- Open|
|00004d00| 20 61 20 62 72 6f 77 73 | 65 20 77 69 6e 64 6f 77 | a brows|e window|
|00004d10| 0d 01 04 03 65 20 72 6f | 77 3d 32 20 2e 04 1b 2e |....e ro|w=2 ....|
|00004d20| 20 63 6f 6c 3d 33 0d 01 | 08 04 19 20 03 72 28 27 | col=3..|... .r('|
|00004d30| 19 01 08 0c 00 17 02 03 | 00 27 29 0d 01 0b 04 24 |........|.')....$|
|00004d40| 20 03 8d 20 04 09 20 19 | 01 08 0c 00 17 02 03 00 | .. .. .|........|
|00004d50| 0d 01 0b 03 3a 20 03 45 | 20 6d 62 72 6f 77 73 65 |....: .E| mbrowse|
|00004d60| 20 03 8d 0d 01 0b 04 24 | 20 03 8d 20 04 09 0d 01 | ......$| .. ....|
|00004d70| 08 03 5b 0d 01 0b 03 3a | 20 03 45 20 6d 62 72 6f |..[....:| .E mbro|
|00004d80| 77 73 65 20 4c 41 53 54 | 0d 01 08 03 8b 0d 01 08 |wse LAST|........|
|00004d90| 44 45 41 43 54 49 56 41 | 54 45 20 03 45 20 04 01 |DEACTIVA|TE .E ..|
|00004da0| 0d 0d 01 04 2a 2d 2d 2d | 20 4d 61 72 6b 20 61 20 |....*---| Mark a |
|00004db0| 72 65 63 6f 72 64 20 66 | 6f 72 20 64 65 6c 65 74 |record f|or delet|
|00004dc0| 69 6f 6e 20 6f 72 20 75 | 6e 6d 61 72 6b 20 61 20 |ion or u|nmark a |
|00004dd0| 72 65 63 6f 72 64 20 6d | 61 72 6b 65 64 20 66 6f |record m|arked fo|
|00004de0| 72 20 64 65 6c 65 74 69 | 6f 6e 0d 01 04 03 65 20 |r deleti|on....e |
|00004df0| 72 6f 77 3d 32 20 2e 04 | 1b 2e 20 63 6f 6c 3d 35 |row=2 ..|.. col=5|
|00004e00| 0d 01 08 04 19 20 44 45 | 4c 45 54 45 44 28 29 0d |..... DE|LETED().|
|00004e10| 01 0c 03 51 20 4e 45 58 | 54 20 31 0d 01 08 03 5b |...Q NEX|T 1....[|
|00004e20| 0d 01 0c 44 45 4c 45 54 | 45 20 4e 45 58 54 20 31 |...DELET|E NEXT 1|
|00004e30| 0d 01 08 03 8b 0d 0d 01 | 04 2a 2d 2d 2d 20 43 61 |........|.*--- Ca|
|00004e40| 6c 6c 20 61 20 72 6f 75 | 74 69 6e 65 20 66 6f 72 |ll a rou|tine for|
|00004e50| 20 70 72 6f 63 65 73 73 | 69 6e 67 20 72 65 70 6f | process|ing repo|
|00004e60| 72 74 73 0d 20 03 65 20 | 72 6f 77 3d 33 20 2e 04 |rts. .e |row=3 ..|
|00004e70| 1b 2e 20 63 6f 6c 3d 31 | 0d 01 08 04 06 20 19 01 |.. col=1|..... ..|
|00004e80| 08 0f 00 17 02 03 00 5f | 72 65 70 6f 0d 0d 01 04 |......._|repo....|
|00004e90| 2a 2d 2d 2d 20 43 61 6c | 6c 20 61 20 72 6f 75 74 |*--- Cal|l a rout|
|00004ea0| 69 6e 65 20 66 6f 72 20 | 70 72 6f 63 65 73 73 69 |ine for |processi|
|00004eb0| 6e 67 20 6c 61 62 65 6c | 73 0d 01 04 03 65 20 72 |ng label|s....e r|
|00004ec0| 6f 77 3d 33 20 2e 04 1b | 2e 20 63 6f 6c 3d 32 0d |ow=3 ...|. col=2.|
|00004ed0| 01 08 04 06 20 19 01 08 | 0f 00 17 02 03 00 5f 6c |.... ...|......_l|
|00004ee0| 61 62 65 0d 0d 01 04 2a | 2d 2d 2d 20 52 65 6d 6f |abe....*|--- Remo|
|00004ef0| 76 65 20 72 65 63 6f 72 | 64 73 20 6d 61 72 6b 65 |ve recor|ds marke|
|00004f00| 64 20 66 6f 72 20 64 65 | 6c 65 74 69 6f 6e 20 66 |d for de|letion f|
|00004f10| 72 6f 6d 20 74 68 65 20 | 64 61 74 61 62 61 73 65 |rom the |database|
|00004f20| 0d 01 04 03 65 20 72 6f | 77 3d 33 20 2e 04 1b 2e |....e ro|w=3 ....|
|00004f30| 20 63 6f 6c 3d 33 0d 01 | 08 63 68 6f 69 63 65 20 | col=3..|.choice |
|00004f40| 3d 20 31 0d 01 08 04 06 | 20 61 6c 65 72 74 32 20 |= 1.....| alert2 |
|00004f50| 03 3f 20 63 68 6f 69 63 | 65 2c 6d 73 67 5f 70 61 |.? choic|e,msg_pa|
|00004f60| 63 6b 0d 01 08 04 19 20 | 63 68 6f 69 63 65 20 3d |ck..... |choice =|
|00004f70| 20 31 0d 01 0c 03 92 0d | 01 08 03 8b 0d 0d 01 04 | 1......|........|
|00004f80| 2a 2d 2d 2d 20 55 70 64 | 61 74 65 20 69 6e 64 65 |*--- Upd|ate inde|
|00004f90| 78 65 73 0d 01 04 03 65 | 20 72 6f 77 3d 33 20 2e |xes....e| row=3 .|
|00004fa0| 04 1b 2e 20 63 6f 6c 3d | 34 0d 01 08 63 68 6f 69 |... col=|4...choi|
|00004fb0| 63 65 20 3d 20 31 0d 01 | 08 04 19 20 04 24 28 22 |ce = 1..|... .$("|
|00004fc0| 45 58 43 4c 55 53 49 56 | 45 22 29 20 3d 20 22 4f |EXCLUSIV|E") = "O|
|00004fd0| 46 46 22 0d 01 09 04 06 | 20 61 6c 65 72 74 20 03 |FF".....| alert .|
|00004fe0| 3f 20 6d 73 67 5f 65 78 | 63 6c 75 0d 01 08 03 5b |? msg_ex|clu....[|
|00004ff0| 0d 01 09 04 06 20 61 6c | 65 72 74 32 20 03 3f 20 |..... al|ert2 .? |
|00005000| 63 68 6f 69 63 65 2c 6d | 73 67 5f 72 65 69 6e 64 |choice,m|sg_reind|
|00005010| 0d 01 09 04 19 20 63 68 | 6f 69 63 65 20 3d 20 31 |..... ch|oice = 1|
|00005020| 0d 01 0d 03 7a 0d 01 09 | 03 8b 0d 01 08 03 8b 0d |....z...|........|
|00005030| 03 91 0d 44 45 41 43 54 | 49 56 41 54 45 20 4d 45 |...DEACT|IVATE ME|
|00005040| 4e 55 0d 03 a0 0d 0d 16 | 05 00 0d 2a 20 2d 2d 2d |NU......|...* ---|
|00005050| 20 45 6e 64 20 6f 66 20 | 70 72 6f 63 65 64 75 72 | End of |procedur|
|00005060| 65 0d 0d 1e 66 50 1d 00 | 0e 00 15 02 00 00 17 02 |e...fP..|........|
|00005070| 17 00 0d 2a 20 2d 2d 2d | 20 50 72 6f 63 65 64 75 |...* ---| Procedu|
|00005080| 72 65 20 74 6f 20 6f 70 | 65 6e 20 64 61 74 61 62 |re to op|en datab|
|00005090| 61 73 65 73 20 61 6e 64 | 20 69 6e 64 65 78 65 73 |ases and| indexes|
|000050a0| 0d 0d 03 11 20 19 01 08 | 0f 00 17 02 03 00 5f 6f |.... ...|......_o|
|000050b0| 70 65 6e 0d 0d 2a 20 2d | 2d 2d 20 49 6e 69 74 69 |pen..* -|-- Initi|
|000050c0| 61 6c 69 7a 65 20 67 6c | 6f 62 61 6c 20 76 61 72 |alize gl|obal var|
|000050d0| 69 61 62 6c 65 73 0d 0d | 63 68 6f 69 63 65 20 3d |iables..|choice =|
|000050e0| 20 30 0d 6d 63 6f 75 6e | 74 20 3d 20 30 0d 15 01 | 0.mcoun|t = 0...|
|000050f0| 00 00 1a 00 04 05 00 15 | 01 01 00 1a 00 04 06 00 |........|........|
|00005100| 17 09 07 00 15 01 00 00 | 1a 00 04 07 00 15 01 0a |........|........|
|00005110| 00 1a 00 04 08 00 15 01 | 01 00 1c 00 04 07 00 19 |........|........|
|00005120| 00 04 07 00 19 00 04 08 | 00 16 01 21 1f c7 55 19 |........|...!..U.|
|00005130| 00 04 07 00 17 09 06 00 | 17 09 08 00 1f c4 55 0d |........|......U.|
|00005140| 2a 20 2d 2d 2d 20 4f 70 | 65 6e 20 64 61 74 61 62 |* --- Op|en datab|
|00005150| 61 73 65 20 66 69 6c 65 | 0d 0d 18 02 2e 17 02 13 |ase file|........|
|00005160| 00 1a 01 08 07 00 1a 01 | 08 08 00 1a 01 08 09 00 |........|........|
|00005170| 19 01 08 08 00 15 02 01 | 00 2e 16 02 10 19 01 08 |........|........|
|00005180| 09 00 16 02 10 1a 01 08 | 08 00 18 01 2c 15 01 40 |........|....,..@|
|00005190| 00 16 01 10 16 02 6e 1a | 00 08 04 00 03 1c 20 19 |......n.|...... .|
|000051a0| 00 08 04 00 17 02 03 00 | 0d 6d 63 6f 75 6e 74 20 |........|.mcount |
|000051b0| 3d 20 05 01 2c 0d 04 19 | 20 2e 04 1a 2e 20 03 72 |= ..,...| .... .r|
|000051c0| 28 20 22 19 01 08 08 00 | 17 02 03 00 22 20 29 0d |( ".....|...." ).|
|000051d0| 01 04 66 6e 61 6d 65 20 | 3d 20 47 45 54 46 49 4c |..fname |= GETFIL|
|000051e0| 45 28 27 44 42 46 27 2c | 27 4c 6f 63 61 74 65 20 |E('DBF',|'Locate |
|000051f0| 27 2b 27 19 01 08 08 00 | 17 02 03 00 27 2b 27 3a |'+'.....|....'+':|
|00005200| 27 29 0d 01 04 04 19 20 | 66 6e 61 6d 65 20 3d 3d |')..... |fname ==|
|00005210| 20 22 22 0d 01 08 6e 6f | 6f 70 65 6e 20 3d 20 2e | ""...no|open = .|
|00005220| 54 2e 0d 01 08 03 a0 0d | 01 04 03 8b 0d 01 04 64 |T.......|.......d|
|00005230| 62 6e 61 6d 65 28 6d 63 | 6f 75 6e 74 29 20 3d 20 |bname(mc|ount) = |
|00005240| 22 19 01 08 08 00 17 02 | 03 00 22 0d 01 04 04 28 |".......|.."....(|
|00005250| 20 28 66 6e 61 6d 65 29 | 0d 19 00 04 05 00 15 01 | (fname)|........|
|00005260| 00 00 16 01 1e 1f c9 52 | 01 04 04 19 20 2e 04 1a |.......R|.... ...|
|00005270| 2e 20 28 03 72 28 22 19 | 01 08 0f 00 17 02 03 00 |. (.r(".|........|
|00005280| 5f 68 65 6c 70 2e 64 62 | 66 22 29 20 2e 04 1b 2e |_help.db|f") ....|
|00005290| 20 03 72 28 22 19 01 08 | 0f 00 17 02 03 00 5f 68 | .r("...|......_h|
|000052a0| 65 6c 70 2e 66 70 74 22 | 29 29 0d 01 08 04 06 20 |elp.fpt"|))..... |
|000052b0| 64 6f 6d 65 6d 6f 0d 01 | 04 03 8b 0d 01 04 04 28 |domemo..|.......(|
|000052c0| 20 28 66 6e 61 6d 65 29 | 0d 03 5b 0d 01 04 64 62 | (fname)|..[...db|
|000052d0| 6e 61 6d 65 28 6d 63 6f | 75 6e 74 29 20 3d 20 22 |name(mco|unt) = "|
|000052e0| 19 01 08 08 00 17 02 03 | 00 22 0d 18 02 2f 15 02 |........|.".../..|
|000052f0| 00 00 16 02 1e 1f 7c 53 | 01 04 04 28 20 19 01 08 |......|S|...( ...|
|00005300| 08 00 17 02 03 00 0d 19 | 00 04 05 00 15 01 00 00 |........|........|
|00005310| 16 01 1e 1f 79 53 01 04 | 04 19 20 2e 04 1a 2e 20 |....yS..|.. .... |
|00005320| 28 03 72 28 22 19 01 08 | 0f 00 17 02 03 00 5f 68 |(.r("...|......_h|
|00005330| 65 6c 70 2e 64 62 66 22 | 29 20 2e 04 1b 2e 20 03 |elp.dbf"|) .... .|
|00005340| 72 28 22 19 01 08 0f 00 | 17 02 03 00 5f 68 65 6c |r(".....|...._hel|
|00005350| 70 2e 66 70 74 22 29 29 | 0d 01 08 04 06 20 64 6f |p.fpt"))|..... do|
|00005360| 6d 65 6d 6f 0d 01 04 03 | 8b 0d 01 04 04 28 20 19 |memo....|.....( .|
|00005370| 01 08 08 00 17 02 03 00 | 0d 1e 0b 54 01 04 04 28 |........|...T...(|
|00005380| 20 19 01 08 08 00 17 02 | 03 00 20 03 4f 20 05 02 | .......|.. .O ..|
|00005390| 2f 0d 19 00 04 05 00 15 | 01 00 00 16 01 1e 1f 0b |/.......|........|
|000053a0| 54 01 04 04 19 20 2e 04 | 1a 2e 20 28 03 72 28 22 |T.... ..|.. (.r("|
|000053b0| 19 01 08 0f 00 17 02 03 | 00 5f 68 65 6c 70 2e 64 |........|._help.d|
|000053c0| 62 66 22 29 20 2e 04 1b | 2e 20 03 72 28 22 19 01 |bf") ...|. .r("..|
|000053d0| 08 0f 00 17 02 03 00 5f | 68 65 6c 70 2e 66 70 74 |......._|help.fpt|
|000053e0| 22 29 29 0d 01 08 04 06 | 20 64 6f 6d 65 6d 6f 0d |")).....| domemo.|
|000053f0| 01 04 03 8b 0d 01 04 04 | 28 20 19 01 08 08 00 17 |........|( ......|
|00005400| 02 03 00 20 03 4f 20 05 | 02 2f 0d 15 01 01 00 1a |... .O .|./......|
|00005410| 00 04 05 00 03 8b 0d 0d | 18 01 33 15 01 00 00 16 |........|..3.....|
|00005420| 01 22 1f bb 55 0d 2a 20 | 2d 2d 2d 20 4f 70 65 6e |."..U.* |--- Open|
|00005430| 20 63 6f 72 72 65 73 70 | 6f 6e 64 69 6e 67 20 69 | corresp|onding i|
|00005440| 6e 64 65 78 20 66 69 6c | 65 28 73 29 0d 0d 15 01 |ndex fil|e(s)....|
|00005450| 01 00 1a 00 04 09 00 17 | 0a 07 00 15 01 00 00 1a |........|........|
|00005460| 00 04 0a 00 15 01 0a 00 | 1a 00 04 0b 00 15 01 01 |........|........|
|00005470| 00 1c 00 04 0a 00 19 00 | 04 0a 00 19 00 04 0b 00 |........|........|
|00005480| 16 01 21 1f 70 55 19 00 | 04 0a 00 17 0a 06 00 17 |..!.pU..|........|
|00005490| 0a 08 00 1f 6d 55 18 02 | 34 17 02 13 00 1a 01 08 |....mU..|4.......|
|000054a0| 07 00 1a 01 08 08 00 1a | 01 08 09 00 19 01 08 08 |........|........|
|000054b0| 00 15 02 01 00 2e 16 02 | 10 19 01 08 09 00 16 02 |........|........|
|000054c0| 10 1a 01 08 08 00 04 19 | 20 2e 04 1a 2e 20 03 72 |........| .... .r|
|000054d0| 28 20 22 19 01 08 08 00 | 17 02 03 00 22 20 29 0d |( ".....|...." ).|
|000054e0| 01 04 63 68 6f 69 63 65 | 20 3d 20 31 0d 01 04 04 |..choice| = 1....|
|000054f0| 06 20 61 6c 65 72 74 32 | 20 03 3f 20 63 68 6f 69 |. alert2| .? choi|
|00005500| 63 65 2c 22 19 01 08 08 | 00 17 02 03 00 22 2b 6d |ce,"....|....."+m|
|00005510| 73 67 5f 63 72 5f 69 64 | 78 0d 01 04 04 19 20 63 |sg_cr_id|x..... c|
|00005520| 68 6f 69 63 65 20 3d 20 | 31 0d 01 08 03 8f 20 04 |hoice = |1..... .|
|00005530| 0c 20 05 02 35 20 04 09 | 20 19 01 08 08 00 17 02 |. ..5 ..| .......|
|00005540| 03 00 0d 01 04 03 5b 0d | 01 08 6e 6f 6f 70 65 6e |......[.|..noopen|
|00005550| 20 3d 20 2e 54 2e 0d 01 | 08 03 a0 0d 01 04 03 8b | = .T...|........|
|00005560| 0d 03 8b 0d 15 01 01 00 | 1c 00 04 09 00 1e 6d 54 |........|......mT|
|00005570| 17 0a 06 00 68 61 73 69 | 6e 64 65 78 28 6d 63 6f |....hasi|ndex(mco|
|00005580| 75 6e 74 29 20 3d 20 2e | 54 2e 0d 15 02 0d 00 53 |unt) = .|T......S|
|00005590| 45 54 20 49 4e 44 45 58 | 20 54 4f 20 17 02 16 00 |ET INDEX| TO ....|
|000055a0| 1b 01 1c 13 2e 15 01 01 | 00 1b 04 00 13 2e 17 02 |........|........|
|000055b0| 02 00 17 02 17 00 1b 01 | 14 b5 00 15 01 01 00 1c |........|........|
|000055c0| 00 04 06 00 1e 16 51 17 | 09 06 00 15 01 00 00 17 |......Q.|........|
|000055d0| 00 06 00 18 01 23 15 01 | 00 00 16 01 22 1f 7b 57 |.....#..|....".{W|
|000055e0| 0d 2a 20 2d 2d 2d 20 45 | 73 74 61 62 6c 69 73 68 |.* --- E|stablish|
|000055f0| 20 72 65 6c 61 74 69 6f | 6e 73 20 62 65 74 77 65 | relatio|ns betwe|
|00005600| 65 6e 20 64 61 74 61 62 | 61 73 65 20 66 69 6c 65 |en datab|ase file|
|00005610| 73 0d 0d 15 01 01 00 1a | 00 04 0c 00 17 09 07 00 |s.......|........|
|00005620| 15 01 00 00 1a 00 04 0d | 00 15 01 0a 00 1a 00 04 |........|........|
|00005630| 0e 00 15 01 01 00 1c 00 | 04 0d 00 19 00 04 0d 00 |........|........|
|00005640| 19 00 04 0e 00 16 01 21 | 1f 77 57 19 00 04 0d 00 |.......!|.wW.....|
|00005650| 17 09 06 00 17 09 08 00 | 1f 74 57 18 01 23 15 01 |........|.tW..#..|
|00005660| 00 00 16 01 22 1f 88 56 | 15 02 07 00 53 45 4c 45 |...."..V|....SELE|
|00005670| 43 54 20 17 02 16 00 18 | 01 2c 15 01 40 00 16 01 |CT .....|.,..@...|
|00005680| 10 16 02 6e 17 02 17 00 | 15 01 01 00 1a 00 04 0f |...n....|........|
|00005690| 00 17 0b 07 00 15 01 00 | 00 1a 00 04 10 00 15 01 |........|........|
|000056a0| 0a 00 1a 00 04 11 00 15 | 01 01 00 1c 00 04 10 00 |........|........|
|000056b0| 19 00 04 10 00 19 00 04 | 11 00 16 01 21 1f 67 57 |........|....!.gW|
|000056c0| 19 00 04 10 00 17 0b 06 | 00 17 0b 08 00 1f 64 57 |........|......dW|
|000056d0| 19 00 04 0f 00 15 01 01 | 00 16 01 1e 1f 16 57 15 |........|......W.|
|000056e0| 02 10 00 53 45 54 20 52 | 45 4c 41 54 49 4f 4e 20 |...SET R|ELATION |
|000056f0| 54 4f 20 17 02 16 00 18 | 02 24 17 02 16 00 15 02 |TO .....|.$......|
|00005700| 06 00 20 49 4e 54 4f 20 | 17 02 16 00 18 02 25 17 |.. INTO |......%.|
|00005710| 02 17 00 1e 5b 57 15 02 | 10 00 53 45 54 20 52 45 |....[W..|..SET RE|
|00005720| 4c 41 54 49 4f 4e 20 54 | 4f 20 17 02 16 00 18 02 |LATION T|O ......|
|00005730| 24 17 02 16 00 15 02 06 | 00 20 49 4e 54 4f 20 17 |$.......|. INTO .|
|00005740| 02 16 00 18 02 25 17 02 | 16 00 15 02 09 00 20 41 |.....%..|...... A|
|00005750| 44 44 49 54 49 56 45 17 | 02 17 00 15 01 01 00 1c |DDITIVE.|........|
|00005760| 00 04 0f 00 1e a7 56 17 | 0b 06 00 15 01 01 00 1c |......V.|........|
|00005770| 00 04 0c 00 1e 32 56 17 | 09 06 00 0d 2a 20 2d 2d |.....2V.|....* --|
|00005780| 2d 20 53 65 6c 65 63 74 | 20 63 75 72 72 65 6e 74 |- Select| current|
|00005790| 20 77 6f 72 6b 61 72 65 | 61 0d 0d 74 65 6d 70 61 | workare|a..tempa|
|000057a0| 72 65 61 20 3d 20 04 1c | 28 64 62 66 61 72 65 61 |rea = ..|(dbfarea|
|000057b0| 29 0d 03 1c 20 26 74 65 | 6d 70 61 72 65 61 0d 0d |)... &te|mparea..|
|000057c0| 2a 20 2d 2d 2d 20 6d 6f | 76 65 20 72 65 63 6f 72 |* --- mo|ve recor|
|000057d0| 64 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 65 73 74 |d pointe|r to est|
|000057e0| 61 62 6c 69 73 68 20 72 | 65 6c 61 74 69 6f 6e 73 |ablish r|elations|
|000057f0| 20 28 69 66 20 61 6e 79 | 29 0d 03 08 20 03 4c 28 | (if any|)... .L(|
|00005800| 29 0d 03 a0 0d 16 05 00 | 0d 0d 0d 1e 0e 58 1d 00 |).......|.....X..|
|00005810| 00 00 15 02 00 00 17 02 | 17 00 0d 2a 20 2d 2d 2d |........|...* ---|
|00005820| 20 54 68 69 73 20 70 72 | 6f 63 65 64 75 72 65 20 | This pr|ocedure |
|00005830| 69 73 20 63 61 6c 6c 65 | 64 20 66 72 6f 6d 20 74 |is calle|d from t|
|00005840| 68 65 20 52 65 63 6f 72 | 64 20 6d 65 6e 75 0d 0d |he Recor|d menu..|
|00005850| 03 11 20 19 01 08 0f 00 | 17 02 03 00 5f 65 64 69 |.. .....|...._edi|
|00005860| 74 0d 03 6f 20 63 6f 6c | 0d 03 5a 20 6f 6c 64 72 |t..o col|..Z oldr|
|00005870| 65 63 6e 75 6d 0d 15 01 | 00 00 17 00 06 00 0d 2a |ecnum...|.......*|
|00005880| 20 2d 2d 2d 20 44 65 74 | 65 72 6d 69 6e 65 20 47 | --- Det|ermine G|
|00005890| 6f 20 63 68 6f 69 63 65 | 0d 04 06 20 03 65 0d 0d |o choice|... .e..|
|000058a0| 01 04 2a 20 2d 2d 2d 20 | 53 65 65 6b 20 69 73 20 |..* --- |Seek is |
|000058b0| 63 68 6f 73 65 6e 0d 01 | 04 03 65 20 63 6f 6c 3d |chosen..|..e col=|
|000058c0| 31 0d 01 08 04 06 20 19 | 01 08 0f 00 17 02 03 00 |1..... .|........|
|000058d0| 5f 73 65 65 6b 0d 0d 01 | 04 2a 20 2d 2d 2d 20 47 |_seek...|.* --- G|
|000058e0| 6f 74 6f 20 69 73 20 63 | 68 6f 73 65 6e 0d 01 04 |oto is c|hosen...|
|000058f0| 03 65 20 63 6f 6c 3d 32 | 0d 01 08 41 43 54 49 56 |.e col=2|...ACTIV|
|00005900| 41 54 45 20 03 45 20 6d | 65 6e 74 65 72 0d 01 08 |ATE .E m|enter...|
|00005910| 04 06 20 64 6f 67 6f 74 | 6f 0d 01 08 44 45 41 43 |.. dogot|o...DEAC|
|00005920| 54 49 56 41 54 45 20 03 | 45 20 6d 65 6e 74 65 72 |TIVATE .|E menter|
|00005930| 0d 0d 01 04 2a 20 2d 2d | 2d 20 4c 6f 63 61 74 65 |....* --|- Locate|
|00005940| 20 69 73 20 63 68 6f 73 | 65 6e 0d 01 04 03 65 20 | is chos|en....e |
|00005950| 63 6f 6c 3d 33 0d 01 08 | 47 45 54 45 58 50 52 20 |col=3...|GETEXPR |
|00005960| 27 43 72 65 61 74 65 20 | 4c 6f 67 69 63 61 6c 20 |'Create |Logical |
|00005970| 45 78 70 72 65 73 73 69 | 6f 6e 3a 27 20 04 09 20 |Expressi|on:' .. |
|00005980| 65 78 70 72 20 54 59 50 | 45 20 27 4c 3b 4d 75 73 |expr TYP|E 'L;Mus|
|00005990| 74 20 62 65 20 61 20 4c | 6f 67 69 63 61 6c 20 45 |t be a L|ogical E|
|000059a0| 78 70 72 65 73 73 69 6f | 6e 27 20 03 3e 20 65 78 |xpressio|n' .> ex|
|000059b0| 70 72 0d 01 08 04 19 20 | 27 27 20 3c 3e 20 03 0e |pr..... |'' <> ..|
|000059c0| 28 65 78 70 72 29 0d 01 | 0c 04 06 20 64 6f 6c 6f |(expr)..|... dolo|
|000059d0| 63 61 74 65 20 03 3f 20 | 65 78 70 72 0d 01 08 03 |cate .? |expr....|
|000059e0| 8b 0d 0d 01 04 2a 20 2d | 2d 2d 20 43 6f 6e 74 69 |.....* -|-- Conti|
|000059f0| 6e 75 65 20 69 73 20 63 | 68 6f 73 65 6e 0d 01 04 |nue is c|hosen...|
|00005a00| 03 65 20 63 6f 6c 3d 34 | 0d 01 08 04 06 20 64 6f |.e col=4|..... do|
|00005a10| 63 6f 6e 74 0d 0d 01 04 | 2a 20 2d 2d 2d 20 4e 65 |cont....|* --- Ne|
|00005a20| 78 74 20 69 73 20 63 68 | 6f 73 65 6e 0d 01 04 03 |xt is ch|osen....|
|00005a30| 65 20 63 6f 6c 3d 36 0d | 01 08 04 19 20 2e 04 1a |e col=6.|.... ...|
|00005a40| 2e 20 04 0e 28 29 0d 01 | 0c 03 55 0d 01 08 03 8b |. ..()..|..U.....|
|00005a50| 0d 01 08 04 19 20 04 0e | 28 29 0d 01 0c 04 06 20 |..... ..|()..... |
|00005a60| 61 6c 65 72 74 20 03 3f | 20 6d 73 67 5f 65 6f 66 |alert .?| msg_eof|
|00005a70| 0d 01 0c 03 55 20 2d 31 | 0d 01 08 03 8b 0d 0d 01 |....U -1|........|
|00005a80| 04 2a 20 2d 2d 2d 20 50 | 72 69 6f 72 20 69 73 20 |.* --- P|rior is |
|00005a90| 63 68 6f 73 65 6e 0d 01 | 04 03 65 20 63 6f 6c 3d |chosen..|..e col=|
|00005aa0| 37 0d 01 08 04 19 20 2e | 04 1a 2e 20 04 27 28 29 |7..... .|... .'()|
|00005ab0| 0d 01 0c 03 55 20 2d 31 | 0d 01 08 03 5b 0d 01 0c |....U -1|....[...|
|00005ac0| 04 06 20 61 6c 65 72 74 | 20 03 3f 20 6d 73 67 5f |.. alert| .? msg_|
|00005ad0| 62 6f 66 0d 01 08 03 8b | 0d 01 04 03 91 0d 03 a0 |bof.....|........|
|00005ae0| 0d 16 05 00 0d 0d 0d 0d | 1e eb 5a 1d 00 00 00 15 |........|..Z.....|
|00005af0| 02 00 00 17 02 17 00 0d | 2a 20 2d 2d 2d 20 50 72 |........|* --- Pr|
|00005b00| 6f 63 65 64 75 72 65 20 | 74 6f 20 70 72 6f 63 65 |ocedure |to proce|
|00005b10| 73 73 20 72 65 70 6f 72 | 74 73 0d 0d 03 11 20 19 |ss repor|ts.... .|
|00005b20| 01 08 0f 00 17 02 03 00 | 5f 72 65 70 6f 0d 03 5a |........|_repo..Z|
|00005b30| 20 73 61 76 72 65 63 6e | 75 6d 2c 6f 6b 63 61 6e | savrecn|um,okcan|
|00005b40| 63 65 6c 2c 64 6f 6e 65 | 0d 73 61 76 72 65 63 6e |cel,done|.savrecn|
|00005b50| 75 6d 20 3d 20 03 4c 28 | 29 0d 03 61 20 03 46 20 |um = .L(|)..a .F |
|00005b60| 04 09 20 6d 73 63 72 65 | 65 6e 0d 6f 6b 63 61 6e |.. mscre|en.okcan|
|00005b70| 63 65 6c 20 3d 20 30 0d | 64 6f 6e 65 20 3d 20 2e |cel = 0.|done = .|
|00005b80| 46 2e 0d 6d 72 65 70 6f | 72 74 20 3d 20 2e 54 2e |F..mrepo|rt = .T.|
|00005b90| 0d 0d 2a 20 2d 2d 2d 01 | 02 4c 6f 6f 70 20 74 6f |..* ---.|.Loop to|
|00005ba0| 20 63 72 65 61 74 65 20 | 61 6e 64 20 61 63 74 69 | create |and acti|
|00005bb0| 76 61 74 65 20 61 20 6d | 65 6e 75 20 63 6f 6e 74 |vate a m|enu cont|
|00005bc0| 61 69 6e 69 6e 67 20 74 | 68 65 20 72 65 70 6f 72 |aining t|he repor|
|00005bd0| 74 20 6f 70 74 69 6f 6e | 73 0d 0d 6d 74 76 69 65 |t option|s..mtvie|
|00005be0| 77 20 3d 20 53 59 53 28 | 33 29 2b 27 2e 54 4d 50 |w = SYS(|3)+'.TMP|
|00005bf0| 27 0d 03 8c 20 56 49 45 | 57 20 26 6d 74 76 69 65 |'... VIE|W &mtvie|
|00005c00| 77 0d 0d 04 06 20 03 7b | 20 2e 54 2e 0d 01 04 63 |w.... .{| .T....c|
|00005c10| 68 6f 69 63 65 20 3d 20 | 33 0d 01 04 41 43 54 49 |hoice = |3...ACTI|
|00005c20| 56 41 54 45 20 03 45 20 | 6d 65 6e 74 65 72 0d 01 |VATE .E |menter..|
|00005c30| 04 40 20 30 2c 31 34 20 | 74 6f 20 38 2c 32 37 0d |.@ 0,14 |to 8,27.|
|00005c40| 01 04 40 20 31 2c 35 20 | 04 20 20 27 52 65 70 6f |..@ 1,5 |.  'Repo|
|00005c50| 72 74 3a 20 27 0d 01 04 | 40 20 31 2c 31 35 20 50 |rt: '...|@ 1,15 P|
|00005c60| 52 4f 4d 50 54 20 27 20 | 20 43 72 65 61 74 65 20 |ROMPT ' | Create |
|00005c70| 20 20 27 0d 01 04 40 20 | 33 2c 31 35 20 50 52 4f |  '...@ |3,15 PRO|
|00005c80| 4d 50 54 20 27 20 20 4d | 6f 64 69 66 79 20 20 20 |MPT '  M|odify   |
|00005c90| 27 0d 01 04 40 20 35 2c | 31 35 20 50 52 4f 4d 50 |'...@ 5,|15 PROMP|
|00005ca0| 54 20 27 20 20 50 72 69 | 6e 74 20 20 20 20 27 0d |T '  Pri|nt    '.|
|00005cb0| 01 04 40 20 37 2c 31 35 | 20 50 52 4f 4d 50 54 20 |..@ 7,15| PROMPT |
|00005cc0| 27 20 20 45 78 69 74 20 | 20 20 20 20 27 0d 01 04 |'  Exit |    '...|
|00005cd0| 4d 45 4e 55 20 04 09 20 | 63 68 6f 69 63 65 0d 01 |MENU .. |choice..|
|00005ce0| 04 04 19 20 63 68 6f 69 | 63 65 20 3d 20 30 0d 01 |... choi|ce = 0..|
|00005cf0| 08 63 68 6f 69 63 65 20 | 3d 20 34 0d 01 04 03 8b |.choice |= 4.....|
|00005d00| 0d 01 04 44 45 41 43 54 | 49 56 41 54 45 20 03 45 |...DEACT|IVATE .E|
|00005d10| 20 6d 65 6e 74 65 72 0d | 01 04 04 06 20 03 65 0d | menter.|.... .e.|
|00005d20| 0d 01 08 2a 20 2d 2d 2d | 20 45 78 69 74 20 74 68 |...* ---| Exit th|
|00005d30| 69 73 20 70 72 6f 63 65 | 64 75 72 65 0d 01 08 03 |is proce|dure....|
|00005d40| 65 20 63 68 6f 69 63 65 | 20 3d 20 34 0d 01 0c 03 |e choice| = 4....|
|00005d50| 73 0d 0d 01 08 2a 20 2d | 2d 2d 20 43 72 65 61 74 |s....* -|-- Creat|
|00005d60| 65 20 61 20 72 65 70 6f | 72 74 0d 01 08 03 65 20 |e a repo|rt....e |
|00005d70| 63 68 6f 69 63 65 20 3d | 20 31 0d 19 01 08 05 00 |choice =| 1......|
|00005d80| 17 02 13 00 1a 01 08 07 | 00 1a 01 08 08 00 1a 01 |........|........|
|00005d90| 08 09 00 01 0c 66 69 6c | 65 6e 61 6d 65 20 3d 20 |.....fil|ename = |
|00005da0| 50 55 54 46 49 4c 45 28 | 27 52 65 70 6f 72 74 20 |PUTFILE(|'Report |
|00005db0| 46 69 6c 65 20 74 6f 20 | 43 72 65 61 74 65 3a 27 |File to |Create:'|
|00005dc0| 2c 27 19 01 08 08 00 17 | 02 03 00 27 2b 27 2e 66 |,'......|...'+'.f|
|00005dd0| 72 78 27 2c 27 66 72 78 | 27 29 0d 01 0c 04 19 20 |rx','frx|')..... |
|00005de0| 04 03 28 03 0e 28 66 69 | 6c 65 6e 61 6d 65 29 29 |..(..(fi|lename))|
|00005df0| 20 3c 3e 20 30 0d 01 10 | 03 8c 20 03 16 20 26 66 | <> 0...|.. .. &f|
|00005e00| 69 6c 65 6e 61 6d 65 0d | 01 10 44 45 41 43 54 49 |ilename.|..DEACTI|
|00005e10| 56 41 54 45 20 03 45 20 | 04 01 0d 01 0c 03 8b 0d |VATE .E |........|
|00005e20| 0d 01 08 2a 20 2d 2d 2d | 20 4d 6f 64 69 66 79 20 |...* ---| Modify |
|00005e30| 61 6e 20 65 78 69 73 74 | 69 6e 67 20 72 65 70 6f |an exist|ing repo|
|00005e40| 72 74 20 66 69 6c 65 0d | 01 08 03 65 20 63 68 6f |rt file.|...e cho|
|00005e50| 69 63 65 20 3d 20 32 0d | 01 0c 66 69 6c 65 6e 61 |ice = 2.|..filena|
|00005e60| 6d 65 20 3d 20 47 45 54 | 46 49 4c 45 28 27 46 52 |me = GET|FILE('FR|
|00005e70| 58 27 2c 27 52 65 70 6f | 72 74 20 46 69 6c 65 20 |X','Repo|rt File |
|00005e80| 74 6f 20 4d 6f 64 69 66 | 79 3a 27 29 0d 01 0c 04 |to Modif|y:')....|
|00005e90| 19 20 04 03 28 03 0e 28 | 66 69 6c 65 6e 61 6d 65 |. ..(..(|filename|
|00005ea0| 29 29 20 3c 3e 20 30 0d | 01 10 03 38 20 03 16 20 |)) <> 0.|...8 .. |
|00005eb0| 26 66 69 6c 65 6e 61 6d | 65 0d 01 10 44 45 41 43 |&filenam|e...DEAC|
|00005ec0| 54 49 56 41 54 45 20 03 | 45 20 04 01 0d 01 0c 03 |TIVATE .|E ......|
|00005ed0| 8b 0d 0d 01 08 2a 20 2d | 2d 2d 20 50 72 69 6e 74 |.....* -|-- Print|
|00005ee0| 20 61 6e 20 65 78 69 73 | 74 69 6e 67 20 72 65 70 | an exis|ting rep|
|00005ef0| 6f 72 74 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 66 |ort defi|nition f|
|00005f00| 69 6c 65 0d 01 08 03 65 | 20 63 68 6f 69 63 65 20 |ile....e| choice |
|00005f10| 3d 20 33 0d 01 0c 66 69 | 6c 65 6e 61 6d 65 20 3d |= 3...fi|lename =|
|00005f20| 20 47 45 54 46 49 4c 45 | 28 27 46 52 58 27 2c 27 | GETFILE|('FRX','|
|00005f30| 52 65 70 6f 72 74 20 46 | 69 6c 65 20 74 6f 20 50 |Report F|ile to P|
|00005f40| 72 69 6e 74 3a 27 29 0d | 01 0c 04 19 20 04 03 28 |rint:').|.... ..(|
|00005f50| 03 0e 28 66 69 6c 65 6e | 61 6d 65 29 29 20 3c 3e |..(filen|ame)) <>|
|00005f60| 20 30 0d 01 10 04 06 20 | 19 01 08 0f 00 17 02 03 | 0..... |........|
|00005f70| 00 5f 72 70 72 6e 74 0d | 01 0c 03 8b 0d 01 05 03 |._rprnt.|........|
|00005f80| 91 0d 03 0a 0d 04 24 20 | 56 49 45 57 20 04 09 20 |......$ |VIEW .. |
|00005f90| 26 6d 74 76 69 65 77 0d | 44 45 4c 45 54 45 20 03 |&mtview.|DELETE .|
|00005fa0| 72 20 28 6d 74 76 69 65 | 77 29 0d 0d 2a 20 2d 2d |r (mtvie|w)..* --|
|00005fb0| 2d 20 52 65 74 75 72 6e | 20 74 6f 20 74 68 65 20 |- Return| to the |
|00005fc0| 70 72 65 76 69 6f 75 73 | 20 72 65 63 6f 72 64 20 |previous| record |
|00005fd0| 62 65 66 6f 72 65 20 75 | 73 69 6e 67 20 74 68 69 |before u|sing thi|
|00005fe0| 73 20 70 72 6f 63 65 64 | 75 72 65 0d 44 45 41 43 |s proced|ure.DEAC|
|00005ff0| 54 49 56 41 54 45 20 03 | 45 20 04 01 0d 2a 2a 20 |TIVATE .|E ...** |
|00006000| 4a 52 57 0d 04 19 20 73 | 61 76 72 65 63 6e 75 6d |JRW... s|avrecnum|
|00006010| 20 3e 20 30 0d 01 04 03 | 08 20 73 61 76 72 65 63 | > 0....|. savrec|
|00006020| 6e 75 6d 0d 03 8b 0d 03 | a0 0d 0d 2a 20 2d 2d 2d |num.....|...* ---|
|00006030| 20 50 72 6f 63 65 64 75 | 72 65 20 75 73 65 64 20 | Procedu|re used |
|00006040| 74 6f 20 70 72 69 6e 74 | 20 6c 61 62 65 6c 73 20 |to print| labels |
|00006050| 61 6e 64 20 72 65 70 6f | 72 74 73 0d 0d 03 11 20 |and repo|rts.... |
|00006060| 19 01 08 0f 00 17 02 03 | 00 5f 72 70 72 6e 74 0d |........|._rprnt.|
|00006070| 44 49 4d 45 4e 53 49 4f | 4e 20 6d 70 65 72 28 33 |DIMENSIO|N mper(3|
|00006080| 29 0d 03 05 20 27 20 27 | 20 04 09 20 6d 70 65 72 |)... ' '| .. mper|
|00006090| 2c 63 70 65 72 0d 6d 70 | 65 72 28 31 29 20 3d 20 |,cper.mp|er(1) = |
|000060a0| 04 1d 28 32 34 39 29 0d | 04 19 20 2e 04 1a 2e 20 |..(249).|.. .... |
|000060b0| 03 72 28 03 0e 28 66 69 | 6c 65 6e 61 6d 65 29 29 |.r(..(fi|lename))|
|000060c0| 0d 01 04 04 06 20 61 6c | 65 72 74 20 03 3f 20 6d |..... al|ert .? m|
|000060d0| 73 67 5f 6e 6f 66 69 6c | 65 0d 01 04 03 a0 0d 03 |sg_nofil|e.......|
|000060e0| 8b 0d 65 78 70 72 32 20 | 3d 20 27 27 0d 6d 63 6f |..expr2 |= ''.mco|
|000060f0| 6e 64 20 3d 20 27 2e 54 | 2e 27 0d 0d 2a 20 2d 2d |nd = '.T|.'..* --|
|00006100| 2d 20 4c 6f 6f 70 20 74 | 68 61 74 20 63 72 65 61 |- Loop t|hat crea|
|00006110| 74 65 73 20 61 6e 64 20 | 61 63 74 69 76 61 74 65 |tes and |activate|
|00006120| 73 20 74 68 65 20 6c 61 | 62 65 6c 20 61 6e 64 20 |s the la|bel and |
|00006130| 72 65 70 6f 72 74 20 64 | 65 73 74 69 6e 61 74 69 |report d|estinati|
|00006140| 6f 6e 0d 0d 04 06 20 03 | 7b 20 2e 54 2e 0d 01 04 |on.... .|{ .T....|
|00006150| 6f 6b 63 61 6e 63 65 6c | 20 3d 20 36 0d 01 04 41 |okcancel| = 6...A|
|00006160| 43 54 49 56 41 54 45 20 | 03 45 20 6d 65 6e 74 65 |CTIVATE |.E mente|
|00006170| 72 32 0d 01 04 40 20 30 | 2c 31 33 20 04 09 20 36 |r2...@ 0|,13 .. 6|
|00006180| 2c 34 37 0d 01 04 40 20 | 31 2c 35 20 04 20 20 27 |,47...@ |1,5 .  '|
|00006190| 50 52 49 4e 54 3a 20 27 | 0d 01 04 40 20 31 2c 31 |PRINT: '|...@ 1,1|
|000061a0| 35 20 50 52 4f 4d 50 54 | 20 27 28 27 2b 6d 70 65 |5 PROMPT| '('+mpe|
|000061b0| 72 28 31 29 2b 27 29 20 | 50 72 69 6e 74 65 72 20 |r(1)+') |Printer |
|000061c0| 20 27 0d 01 04 40 20 33 | 2c 31 35 20 50 52 4f 4d | '...@ 3|,15 PROM|
|000061d0| 50 54 20 27 28 27 2b 6d | 70 65 72 28 32 29 2b 27 |PT '('+m|per(2)+'|
|000061e0| 29 20 53 63 72 65 65 6e | 20 20 20 27 0d 01 04 40 |) Screen|   '...@|
|000061f0| 20 35 2c 31 35 20 50 52 | 4f 4d 50 54 20 27 28 27 | 5,15 PR|OMPT '('|
|00006200| 2b 6d 70 65 72 28 33 29 | 2b 27 29 20 54 65 78 74 |+mper(3)|+') Text|
|00006210| 20 66 69 6c 65 27 0d 01 | 04 40 20 31 2c 33 35 20 | file'..|.@ 1,35 |
|00006220| 50 52 4f 4d 50 54 20 27 | 5b 27 2b 63 70 65 72 2b |PROMPT '|['+cper+|
|00006230| 27 5d 20 46 6f 72 20 20 | 20 20 27 0d 01 04 40 20 |'] For  |  '...@ |
|00006240| 33 2c 33 35 20 50 52 4f | 4d 50 54 20 27 3c 20 43 |3,35 PRO|MPT '< C|
|00006250| 61 6e 63 65 6c 20 20 3e | 27 0d 01 04 40 20 35 2c |ancel  >|'...@ 5,|
|00006260| 33 35 20 50 52 4f 4d 50 | 54 20 04 1d 28 31 37 34 |35 PROMP|T ..(174|
|00006270| 29 2b 27 20 20 20 4f 4b | 20 20 20 20 27 2b 04 1d |)+'   OK|    '+..|
|00006280| 28 31 37 35 29 0d 01 04 | 40 20 38 2c 31 20 04 20 |(175)...|@ 8,1 . |
|00006290| 20 27 46 4f 52 3a 20 27 | 0d 01 04 04 19 20 6d 63 | 'FOR: '|..... mc|
|000062a0| 6f 6e 64 20 3c 3e 20 27 | 2e 54 2e 27 0d 01 08 40 |ond <> '|.T.'...@|
|000062b0| 20 38 2c 37 20 04 20 20 | 65 78 70 72 32 0d 01 04 | 8,7 .  |expr2...|
|000062c0| 03 8b 0d 01 04 4d 45 4e | 55 20 04 09 20 6f 6b 63 |.....MEN|U .. okc|
|000062d0| 61 6e 63 65 6c 0d 01 04 | 04 06 20 03 65 0d 0d 01 |ancel...|.. .e...|
|000062e0| 08 2a 20 2d 2d 2d 20 43 | 61 6e 63 65 6c 20 70 72 |.* --- C|ancel pr|
|000062f0| 69 6e 74 20 70 72 6f 63 | 65 73 73 0d 01 08 03 65 |int proc|ess....e|
|00006300| 20 6f 6b 63 61 6e 63 65 | 6c 20 3d 20 35 20 2e 6f | okcance|l = 5 .o|
|00006310| 72 2e 20 6f 6b 63 61 6e | 63 65 6c 20 3d 20 30 0d |r. okcan|cel = 0.|
|00006320| 01 0c 44 45 41 43 54 49 | 56 41 54 45 20 03 45 20 |..DEACTI|VATE .E |
|00006330| 6d 65 6e 74 65 72 32 0d | 01 0c 03 a0 0d 0d 01 08 |menter2.|........|
|00006340| 2a 20 2d 2d 2d 20 4f 6b | 20 63 68 6f 73 65 6e 2c |* --- Ok| chosen,|
|00006350| 01 02 70 72 69 6e 74 20 | 74 68 65 20 6c 61 62 65 |..print |the labe|
|00006360| 6c 73 20 6f 72 20 72 65 | 70 6f 72 74 0d 01 08 03 |ls or re|port....|
|00006370| 65 20 6f 6b 63 61 6e 63 | 65 6c 20 3d 20 36 0d 01 |e okcanc|el = 6..|
|00006380| 0c 03 73 0d 0d 01 08 2a | 20 2d 2d 2d 20 53 65 6c |..s....*| --- Sel|
|00006390| 65 63 74 20 63 6f 6e 64 | 69 74 69 6f 6e 73 20 66 |ect cond|itions f|
|000063a0| 6f 72 20 74 68 65 20 6c | 61 62 65 6c 73 20 6f 72 |or the l|abels or|
|000063b0| 20 72 65 70 6f 72 74 0d | 01 08 03 65 20 6f 6b 63 | report.|...e okc|
|000063c0| 61 6e 63 65 6c 20 3d 20 | 34 0d 01 0c 47 45 54 45 |ancel = |4...GETE|
|000063d0| 58 50 52 20 27 43 72 65 | 61 74 65 20 4c 6f 67 69 |XPR 'Cre|ate Logi|
|000063e0| 63 61 6c 20 45 78 70 72 | 65 73 73 69 6f 6e 3a 27 |cal Expr|ession:'|
|000063f0| 20 04 09 20 65 78 70 72 | 32 20 54 59 50 45 20 27 | .. expr|2 TYPE '|
+--------+-------------------------+-------------------------+--------+--------+