/ Liren Large Software Subsidy 5 / 05.iso / a / a035 / 1.ddi / DB4 / QUICKAPP.GEN

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 0a 51 75 69 63 6b 20 | 41 70 70 6c 69 63 61 74 |..Quick |Applicat|
|00000010| 69 6f 6e 20 54 65 6d 70 | 6c 61 74 65 0d 0a 2d 2d |ion Temp|late..--|
|00000020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 0a 56 65 72 73 69 6f |--------|..Versio|
|00000040| 6e 20 31 2e 30 0d 0a 41 | 73 68 74 6f 6e 2d 54 61 |n 1.0..A|shton-Ta|
|00000050| 74 65 20 28 63 29 20 31 | 39 38 37 2c 20 31 39 38 |te (c) 1|987, 198|
|00000060| 38 0d 0a 0d 0a 1a ee ad | 7a 00 00 01 00 05 00 28 |8.......|z......(|
|00000070| 00 78 00 fb 51 00 de af | be ef 40 01 10 00 43 01 |.x..Q...|..@...C.|
|00000080| 00 0e b5 00 00 08 01 00 | 00 00 31 01 01 00 40 01 |........|..1...@.|
|00000090| 11 00 5e 01 00 09 54 50 | 6c 65 61 73 65 20 70 6f |..^...TP|lease po|
|000000a0| 73 69 74 69 6f 6e 20 74 | 6f 20 74 68 65 20 61 70 |sition t|o the ap|
|000000b0| 70 6c 69 63 61 74 69 6f | 6e 20 6f 62 6a 65 63 74 |plicatio|n object|
|000000c0| 20 61 6e 64 20 72 65 73 | 74 61 72 74 20 67 65 6e | and res|tart gen|
|000000d0| 65 72 61 74 69 6f 6e 2e | 20 20 50 72 65 73 73 20 |eration.|  Press |
|000000e0| 61 6e 79 20 6b 65 79 20 | 2e 2e 2e 38 4e 01 01 40 |any key |...8N..@|
|000000f0| 01 12 00 7e 01 00 2e e0 | 4c 00 40 01 13 00 8e 01 |...~....|L.@.....|
|00000100| 00 40 01 3c 00 74 09 00 | 08 0b 00 00 00 38 6c 01 |.@.<.t..|.....8l.|
|00000110| 01 0c 11 0f 00 40 01 3e | 00 99 09 00 0e 28 00 00 |.....@.>|.....(..|
|00000120| 38 35 01 01 0c 30 30 01 | 00 03 0f 00 30 4e 01 00 |85...00.|....0N..|
|00000130| 40 01 3f 00 c8 09 00 0e | 28 00 00 38 54 01 01 0c |@.?.....|(..8T...|
|00000140| 11 01 00 40 01 41 00 f2 | 09 00 2e 70 01 00 40 01 |...@.A..|...p..@.|
|00000150| 41 00 f2 09 00 03 0f 00 | 09 01 3a 1a 0e 28 00 00 |A.......|..:..(..|
|00000160| 38 54 01 01 0c 1a 11 01 | 00 40 01 42 00 29 0a 00 |8T......|.@.B.)..|
|00000170| 40 01 43 00 31 0a 00 03 | 01 00 38 3d 01 01 0c 11 |@.C.1...|..8=....|
|00000180| 01 00 40 01 46 00 85 0a | 00 08 04 00 00 00 11 02 |..@.F...|........|
|00000190| 00 40 01 47 00 93 0a 00 | 08 0a 00 00 00 38 30 01 |.@.G....|.....80.|
|000001a0| 01 0c 11 07 00 40 01 48 | 00 a5 0a 00 0e 3d 00 00 |.....@.H|.....=..|
|000001b0| 11 0c 00 40 01 49 00 bc | 0a 00 0e 3e 00 00 11 0d |...@.I..|...>....|
|000001c0| 00 40 01 4a 00 d6 0a 00 | 0e 3f 00 00 11 0e 00 40 |.@.J....|.?.....@|
|000001d0| 01 4b 00 f0 0a 00 08 08 | 00 00 00 38 6b 01 01 0c |.K......|...8k...|
|000001e0| 11 11 00 40 01 4e 00 44 | 0b 00 03 01 00 09 04 2e |...@.N.D|........|
|000001f0| 50 52 47 1a 38 57 01 01 | 0c 2f f6 02 00 08 32 00 |PRG.8W..|./....2.|
|00000200| 00 00 38 6b 01 01 0c 2f | f6 02 00 40 01 4f 00 7d |..8k.../|...@.O.}|
|00000210| 0b 00 03 0a 00 38 3d 01 | 01 0c 09 02 59 4e 38 2e |.....8=.|....YN8.|
|00000220| 01 02 40 01 50 00 a7 0b | 00 0c 30 83 02 00 09 0c |..@.P...|..0.....|
|00000230| 41 70 70 6c 69 63 61 74 | 69 6f 6e 20 03 01 00 1a |Applicat|ion ....|
|00000240| 09 25 2e 70 72 67 20 61 | 6c 72 65 61 64 79 20 65 |.%.prg a|lready e|
|00000250| 78 69 73 74 73 2e 2e 2e | 4f 76 65 72 77 72 69 74 |xists...|Overwrit|
|00000260| 65 20 28 59 2f 4e 29 1a | 09 01 4e 08 01 00 00 00 |e (Y/N).|..N.....|
|00000270| 38 58 01 03 0c 11 0a 00 | 40 01 51 00 09 0c 00 2e |8X......|@.Q.....|
|00000280| 0b 02 00 40 01 51 00 09 | 0c 00 40 01 52 00 13 0c |...@.Q..|..@.R...|
|00000290| 00 03 0a 00 38 3d 01 01 | 0c 09 01 4e 32 ef 02 00 |....8=..|...N2...|
|000002a0| 40 01 53 00 37 0c 00 09 | 30 47 65 6e 65 72 61 74 |@.S.7...|0Generat|
|000002b0| 69 6f 6e 20 72 65 71 75 | 65 73 74 20 63 61 6e 63 |ion requ|est canc|
|000002c0| 65 6c 6c 65 64 2e 20 20 | 50 72 65 73 73 20 61 6e |elled.  |Press an|
|000002d0| 79 20 6b 65 79 20 2e 2e | 2e 38 4e 01 01 40 01 54 |y key ..|.8N..@.T|
|000002e0| 00 5b 0c 00 2e e0 4c 00 | 40 01 55 00 6e 0c 00 40 |.[....L.|@.U.n..@|
|000002f0| 01 56 00 78 0c 00 40 01 | 5e 00 fa 0c 00 03 01 00 |.V.x..@.|^.......|
|00000300| 09 04 2e 50 52 47 1a 38 | 43 01 01 0c 30 80 03 00 |...PRG.8|C...0...|
|00000310| 40 01 5f 00 20 0d 00 03 | 01 00 38 32 01 01 0c 09 |@._. ...|..82....|
|00000320| 04 2e 50 52 47 1a 09 2d | 20 63 61 6e 27 74 20 62 |..PRG..-| can't b|
|00000330| 65 20 6f 70 65 6e 65 64 | 20 2d 20 70 6f 73 73 69 |e opened| - possi|
|00000340| 62 6c 65 20 72 65 61 64 | 2d 6f 6e 6c 79 20 66 69 |ble read|-only fi|
|00000350| 6c 65 2e 20 20 1a 09 11 | 50 72 65 73 73 20 61 6e |le.  ...|Press an|
|00000360| 79 20 6b 65 79 20 2e 2e | 2e 1a 38 4e 01 01 40 01 |y key ..|..8N..@.|
|00000370| 60 00 5d 0d 00 2e e0 4c | 00 40 01 61 00 6e 0d 00 |`.]....L|.@.a.n..|
|00000380| 40 01 63 00 78 0d 00 09 | 01 2a 08 50 00 00 00 38 |@.c.x...|.*.P...8|
|00000390| 56 01 02 0c 03 07 00 1a | 38 42 01 01 01 2a 20 50 |V.......|8B...* P|
|000003a0| 72 6f 67 72 61 6d 2e 2e | 2e 2e 2e 2e 3a 20 00 40 |rogram..|....: .@|
|000003b0| 01 65 00 9c 0d 00 03 01 | 00 3f 01 0a 00 40 04 06 |.e......|.?...@..|
|000003c0| 00 a7 00 00 38 40 01 00 | 0c 38 3b 01 01 0c 11 0b |....8@..|.8;.....|
|000003d0| 00 01 2a 20 41 75 74 68 | 6f 72 2e 2e 2e 2e 2e 2e |..* Auth|or......|
|000003e0| 2e 3a 20 00 40 04 07 00 | c0 00 00 03 0c 00 2f fd |.: .@...|....../.|
|000003f0| 03 00 03 0c 00 3f 40 04 | 07 00 c0 00 00 01 0a 2a |.....?@.|.......*|
|00000400| 20 44 61 74 65 2e 2e 2e | 2e 2e 2e 2e 2e 2e 3a 20 | Date...|......: |
|00000410| 00 40 04 08 00 f2 00 00 | 38 4d 01 00 0c 08 01 00 |.@......|8M......|
|00000420| 00 00 08 08 00 00 00 38 | 3c 01 03 0c 38 37 01 01 |.......8|<...87..|
|00000430| 0c 3f 01 0a 2a 20 4e 6f | 74 69 63 65 2e 2e 2e 2e |.?..* No|tice....|
|00000440| 2e 2e 2e 3a 20 00 40 04 | 09 00 20 01 00 03 0d 00 |...: .@.|.. .....|
|00000450| 2f 5f 04 00 03 0d 00 3f | 40 04 09 00 20 01 00 01 |/_.....?|@... ...|
|00000460| 0a 2a 20 64 42 41 53 45 | 20 56 65 72 2e 2e 2e 2e |.* dBASE| Ver....|
|00000470| 3a 20 00 40 04 0a 00 58 | 01 00 03 0e 00 2f 8c 04 |: .@...X|...../..|
|00000480| 00 03 0e 00 3f 40 04 0a | 00 58 01 00 01 0a 2a 20 |....?@..|.X....* |
|00000490| 47 65 6e 65 72 61 74 65 | 64 20 62 79 2e 3a 20 41 |Generate|d by.: A|
|000004a0| 50 47 45 4e 20 76 65 72 | 73 69 6f 6e 20 00 40 04 |PGEN ver|sion .@.|
|000004b0| 0b 00 90 01 00 03 0b 00 | 3f 01 0a 2a 20 44 65 73 |........|?..* Des|
|000004c0| 63 72 69 70 74 69 6f 6e | 2e 2e 3a 20 00 40 04 0c |cription|..: .@..|
|000004d0| 00 b8 01 00 0e 29 00 00 | 2f e8 04 00 0e 29 00 00 |.....)..|/....)..|
|000004e0| 3f 40 04 0c 00 b8 01 00 | 01 0a 00 01 0a 2a 20 4e |?@......|.....* N|
|000004f0| 6f 74 65 73 2e 2e 2e 2e | 2e 2e 2e 2e 3a 0a 00 40 |otes....|....:..@|
|00000500| 01 68 00 e6 0d 00 09 01 | 2a 08 50 00 00 00 38 56 |.h......|*.P...8V|
|00000510| 01 02 0c 03 07 00 1a 38 | 42 01 01 01 0a 53 45 54 |.......8|B....SET|
|00000520| 20 43 4f 4e 53 4f 4c 45 | 20 4f 46 46 0a 49 46 20 | CONSOLE| OFF.IF |
|00000530| 54 59 50 45 28 22 67 6e | 5f 61 70 67 65 6e 22 29 |TYPE("gn|_apgen")|
|00000540| 20 3d 20 22 55 22 20 20 | 26 26 20 57 65 20 77 65 | = "U"  |&& We we|
|00000550| 72 65 20 6e 6f 74 20 63 | 61 6c 6c 65 64 20 66 72 |re not c|alled fr|
|00000560| 6f 6d 20 61 6e 6f 74 68 | 65 72 20 41 50 47 45 4e |om anoth|er APGEN|
|00000570| 20 70 72 6f 67 72 61 6d | 0a 20 20 20 43 4c 45 41 | program|.   CLEA|
|00000580| 52 20 41 4c 4c 0a 20 20 | 20 43 4c 45 41 52 20 57 |R ALL.  | CLEAR W|
|00000590| 49 4e 44 4f 57 0a 20 20 | 20 43 4c 4f 53 45 20 41 |INDOW.  | CLOSE A|
|000005a0| 4c 4c 0a 20 20 20 67 6e | 5f 61 70 67 65 6e 20 3d |LL.   gn|_apgen =|
|000005b0| 20 31 0a 45 4c 53 45 0a | 20 20 20 67 6e 5f 61 70 | 1.ELSE.|   gn_ap|
|000005c0| 67 65 6e 20 3d 20 67 6e | 5f 61 70 67 65 6e 20 2b |gen = gn|_apgen +|
|000005d0| 20 31 20 0a 20 20 20 50 | 52 49 56 41 54 45 20 67 | 1 .   P|RIVATE g|
|000005e0| 63 5f 62 65 6c 6c 2c 20 | 67 63 5f 63 61 72 72 79 |c_bell, |gc_carry|
|000005f0| 2c 20 67 63 5f 63 6c 6f | 63 6b 2c 20 67 63 5f 63 |, gc_clo|ck, gc_c|
|00000600| 65 6e 74 75 72 79 2c 20 | 67 63 5f 63 6f 6e 66 69 |entury, |gc_confi|
|00000610| 72 6d 2c 20 67 63 5f 64 | 65 6c 69 2c 3b 0a 20 20 |rm, gc_d|eli,;.  |
|00000620| 20 20 20 20 20 20 20 20 | 20 67 63 5f 65 73 63 61 |        | gc_esca|
|00000630| 70 65 2c 20 67 63 5f 69 | 6e 73 74 72 75 63 2c 20 |pe, gc_i|nstruc, |
|00000640| 67 63 5f 73 61 66 65 74 | 79 2c 20 67 63 5f 73 74 |gc_safet|y, gc_st|
|00000650| 61 74 75 73 2c 20 67 63 | 5f 73 63 6f 72 65 2c 20 |atus, gc|_score, |
|00000660| 67 63 5f 74 61 6c 6b 0a | 45 4e 44 49 46 0a 0a 2a |gc_talk.|ENDIF..*|
|00000670| 2d 2d 20 57 69 6e 64 6f | 77 20 66 6f 72 20 70 61 |-- Windo|w for pa|
|00000680| 75 73 65 20 6d 65 73 73 | 61 67 65 20 62 6f 78 20 |use mess|age box |
|00000690| 28 4f 4e 20 45 52 52 4f | 52 29 0a 44 45 46 49 4e |(ON ERRO|R).DEFIN|
|000006a0| 45 20 57 49 4e 44 4f 57 | 20 50 61 75 73 65 20 46 |E WINDOW| Pause F|
|000006b0| 52 4f 4d 20 31 35 2c 30 | 30 20 54 4f 20 31 39 2c |ROM 15,0|0 TO 19,|
|000006c0| 37 39 20 44 4f 55 42 4c | 45 0a 4f 4e 20 45 52 52 |79 DOUBL|E.ON ERR|
|000006d0| 4f 52 20 44 4f 20 50 41 | 55 53 45 20 57 49 54 48 |OR DO PA|USE WITH|
|000006e0| 20 00 40 01 78 00 c5 0f | 00 09 48 5b 45 72 72 6f | .@.x...|..H[Erro|
|000006f0| 72 20 6f 63 63 75 72 72 | 65 64 20 6f 6e 20 6c 69 |r occurr|ed on li|
|00000700| 6e 65 20 5d 2b 4c 54 52 | 49 4d 28 53 54 52 28 4c |ne ]+LTR|IM(STR(L|
|00000710| 49 4e 45 28 29 29 29 20 | 2b 5b 20 6f 66 20 70 72 |INE())) |+[ of pr|
|00000720| 6f 63 65 64 75 72 65 20 | 5d 2b 50 72 6f 67 72 61 |ocedure |]+Progra|
|00000730| 6d 28 29 3f 01 0a 4f 4e | 20 4b 45 59 20 4c 41 42 |m()?..ON| KEY LAB|
|00000740| 45 4c 20 46 31 20 44 4f | 20 71 75 69 63 6b 68 6c |EL F1 DO| quickhl|
|00000750| 70 0a 0a 2a 2d 2d 20 53 | 74 6f 72 65 20 69 6e 69 |p..*-- S|tore ini|
|00000760| 74 69 61 6c 20 53 45 54 | 73 20 74 6f 20 76 61 72 |tial SET|s to var|
|00000770| 69 61 62 6c 65 73 0a 67 | 63 5f 62 65 6c 6c 20 20 |iables.g|c_bell  |
|00000780| 20 3d 53 45 54 28 22 42 | 45 4c 4c 22 29 0a 67 63 | =SET("B|ELL").gc|
|00000790| 5f 63 61 72 72 79 20 20 | 3d 53 45 54 28 22 43 41 |_carry  |=SET("CA|
|000007a0| 52 52 59 22 29 0a 67 63 | 5f 63 6c 6f 63 6b 20 20 |RRY").gc|_clock  |
|000007b0| 3d 53 45 54 28 22 43 4c | 4f 43 4b 22 29 0a 67 63 |=SET("CL|OCK").gc|
|000007c0| 5f 63 65 6e 74 75 72 79 | 3d 53 45 54 28 22 43 45 |_century|=SET("CE|
|000007d0| 4e 54 55 52 59 22 29 0a | 67 63 5f 63 6f 6e 66 69 |NTURY").|gc_confi|
|000007e0| 72 6d 3d 53 45 54 28 22 | 43 4f 4e 46 49 52 4d 22 |rm=SET("|CONFIRM"|
|000007f0| 29 0a 67 63 5f 64 65 6c | 69 20 20 20 3d 53 45 54 |).gc_del|i   =SET|
|00000800| 28 22 44 45 4c 49 4d 49 | 54 45 52 53 22 29 0a 67 |("DELIMI|TERS").g|
|00000810| 63 5f 65 73 63 61 70 65 | 20 3d 53 45 54 28 22 45 |c_escape| =SET("E|
|00000820| 53 43 41 50 45 22 29 0a | 67 63 5f 69 6e 73 74 72 |SCAPE").|gc_instr|
|00000830| 75 63 3d 53 45 54 28 22 | 49 4e 53 54 52 55 43 54 |uc=SET("|INSTRUCT|
|00000840| 22 29 0a 67 63 5f 73 61 | 66 65 74 79 20 3d 53 45 |").gc_sa|fety =SE|
|00000850| 54 28 22 53 41 46 45 54 | 59 22 29 0a 67 63 5f 73 |T("SAFET|Y").gc_s|
|00000860| 74 61 74 75 73 20 3d 53 | 45 54 28 22 53 54 41 54 |tatus =S|ET("STAT|
|00000870| 55 53 22 29 0a 67 63 5f | 73 63 6f 72 65 20 20 3d |US").gc_|score  =|
|00000880| 53 45 54 28 22 53 43 4f | 52 45 42 4f 41 52 44 22 |SET("SCO|REBOARD"|
|00000890| 29 0a 67 63 5f 74 61 6c | 6b 20 20 20 3d 53 45 54 |).gc_tal|k   =SET|
|000008a0| 28 22 54 41 4c 4b 22 29 | 0a 0a 53 45 54 20 43 4c |("TALK")|..SET CL|
|000008b0| 4f 43 4b 20 4f 46 46 0a | 53 45 54 20 43 4f 4c 4f |OCK OFF.|SET COLO|
|000008c0| 52 20 54 4f 0a 43 4c 45 | 41 52 0a 53 45 54 20 43 |R TO.CLE|AR.SET C|
|000008d0| 4f 4e 53 4f 4c 45 20 4f | 4e 0a 0a 2a 2d 2d 20 53 |ONSOLE O|N..*-- S|
|000008e0| 65 74 73 20 66 6f 72 20 | 61 70 70 6c 69 63 61 74 |ets for |applicat|
|000008f0| 69 6f 6e 0a 53 45 54 20 | 42 45 4c 4c 20 00 40 01 |ion.SET |BELL .@.|
|00000900| 8f 00 c1 11 00 0e 50 00 | 00 2f 16 09 00 01 4f 46 |......P.|./....OF|
|00000910| 46 00 2e 28 09 00 40 01 | 8f 00 c1 11 00 01 4f 4e |F..(..@.|......ON|
|00000920| 00 40 01 8f 00 c1 11 00 | 01 0a 00 40 01 90 00 f0 |.@......|...@....|
|00000930| 11 00 0e 4d 00 00 2f 6e | 09 00 0e 4e 00 00 2f 6e |...M../n|...N../n|
|00000940| 09 00 01 53 45 54 20 42 | 45 4c 4c 20 54 4f 20 00 |...SET B|ELL TO .|
|00000950| 40 01 91 00 15 12 00 0e | 4d 00 00 3f 01 2c 00 0e |@.......|M..?.,..|
|00000960| 4e 00 00 3f 01 0a 00 40 | 01 92 00 3c 12 00 01 53 |N..?...@|...<...S|
|00000970| 45 54 20 43 41 52 52 59 | 20 00 40 01 93 00 45 12 |ET CARRY| .@...E.|
|00000980| 00 0e 51 00 00 2f 91 09 | 00 01 4f 4e 00 2e a4 09 |..Q../..|..ON....|
|00000990| 00 40 01 93 00 45 12 00 | 01 4f 46 46 00 40 01 93 |.@...E..|.OFF.@..|
|000009a0| 00 45 12 00 01 0a 53 45 | 54 20 43 45 4e 54 55 52 |.E....SE|T CENTUR|
|000009b0| 59 20 00 40 01 94 00 76 | 12 00 0e 52 00 00 2f ca |Y .@...v|...R../.|
|000009c0| 09 00 01 4f 4e 00 2e dd | 09 00 40 01 94 00 76 12 |...ON...|..@...v.|
|000009d0| 00 01 4f 46 46 00 40 01 | 94 00 76 12 00 01 0a 53 |..OFF.@.|..v....S|
|000009e0| 45 54 20 43 4f 4e 46 49 | 52 4d 20 00 40 01 95 00 |ET CONFI|RM .@...|
|000009f0| aa 12 00 0e 53 00 00 2f | 03 0a 00 01 4f 4e 00 2e |....S../|....ON..|
|00000a00| 16 0a 00 40 01 95 00 aa | 12 00 01 4f 46 46 00 40 |...@....|...OFF.@|
|00000a10| 01 95 00 aa 12 00 01 0a | 53 45 54 20 44 45 4c 49 |........|SET DELI|
|00000a20| 4d 49 54 45 52 53 20 54 | 4f 20 00 40 01 97 00 f3 |MITERS T|O .@....|
|00000a30| 12 00 08 22 00 00 00 38 | 30 01 01 0c 0e 57 00 00 |..."...8|0....W..|
|00000a40| 38 2e 01 02 0c 30 67 0a | 00 01 22 00 0e 57 00 00 |8....0g.|.."..W..|
|00000a50| 3f 01 22 0a 00 40 01 98 | 00 27 13 00 2e ed 0a 00 |?."..@..|.'......|
|00000a60| 40 01 99 00 38 13 00 40 | 01 9a 00 40 13 00 09 01 |@...8..@|...@....|
|00000a70| 27 0e 57 00 00 38 2e 01 | 02 0c 30 9c 0a 00 01 27 |'.W..8..|..0....'|
|00000a80| 00 0e 57 00 00 3f 01 27 | 0a 00 40 01 9b 00 70 13 |..W..?.'|..@...p.|
|00000a90| 00 2e ed 0a 00 40 01 9c | 00 81 13 00 40 01 9d 00 |.....@..|....@...|
|00000aa0| 89 13 00 09 01 5b 0e 57 | 00 00 38 2e 01 02 0c 2f |.....[.W|..8..../|
|00000ab0| c3 0a 00 09 01 5d 0e 57 | 00 00 38 2e 01 02 0c 30 |.....].W|..8....0|
|00000ac0| e8 0a 00 40 01 9d 00 89 | 13 00 01 5b 00 0e 57 00 |...@....|...[..W.|
|00000ad0| 00 3f 01 5d 0a 00 40 01 | 9e 00 d3 13 00 2e ed 0a |.?.]..@.|........|
|00000ae0| 00 40 01 9f 00 e4 13 00 | 01 22 22 0a 00 40 01 a2 |.@......|.""..@..|
|00000af0| 00 f3 13 00 01 53 45 54 | 20 44 45 4c 49 4d 49 54 |.....SET| DELIMIT|
|00000b00| 45 52 20 00 40 01 a3 00 | fe 13 00 0e 56 00 00 2f |ER .@...|....V../|
|00000b10| 1b 0b 00 01 4f 4e 00 2e | 2e 0b 00 40 01 a3 00 fe |....ON..|...@....|
|00000b20| 13 00 01 4f 46 46 00 40 | 01 a3 00 fe 13 00 01 0a |...OFF.@|........|
|00000b30| 53 45 54 20 45 53 43 41 | 50 45 20 00 40 01 a4 00 |SET ESCA|PE .@...|
|00000b40| 33 14 00 0e 54 00 00 2f | 54 0b 00 01 4f 46 46 00 |3...T../|T...OFF.|
|00000b50| 2e 66 0b 00 40 01 a4 00 | 33 14 00 01 4f 4e 00 40 |.f..@...|3...ON.@|
|00000b60| 01 a4 00 33 14 00 01 0a | 53 45 54 20 49 4e 53 54 |...3....|SET INST|
|00000b70| 52 55 43 54 20 4f 46 46 | 0a 53 45 54 20 53 41 46 |RUCT OFF|.SET SAF|
|00000b80| 45 54 59 20 00 40 01 a6 | 00 78 14 00 0e de 00 00 |ETY .@..|.x......|
|00000b90| 2f 9d 0b 00 01 4f 46 46 | 00 2e af 0b 00 40 01 a6 |/....OFF|.....@..|
|00000ba0| 00 78 14 00 01 4f 4e 00 | 40 01 a6 00 78 14 00 01 |.x...ON.|@...x...|
|00000bb0| 0a 53 45 54 20 53 43 4f | 52 45 42 4f 41 52 44 20 |.SET SCO|REBOARD |
|00000bc0| 4f 46 46 0a 53 45 54 20 | 53 54 41 54 55 53 20 4f |OFF.SET |STATUS O|
|00000bd0| 46 46 0a 53 45 54 20 54 | 41 4c 4b 20 4f 46 46 0a |FF.SET T|ALK OFF.|
|00000be0| 00 40 01 ab 00 e1 14 00 | 0e 4a 00 00 2f 1d 0c 00 |.@......|.J../...|
|00000bf0| 01 53 45 54 20 44 45 46 | 41 55 4c 54 20 54 4f 20 |.SET DEF|AULT TO |
|00000c00| 00 40 01 ac 00 f6 14 00 | 0e 4a 00 00 38 3d 01 01 |.@......|.J..8=..|
|00000c10| 0c 3f 01 3a 0a 00 40 01 | ad 00 1a 15 00 40 01 ae |.?.:..@.|.....@..|
|00000c20| 00 23 15 00 0e 4b 00 00 | 2f 50 0c 00 01 53 45 54 |.#...K..|/P...SET|
|00000c30| 20 50 41 54 48 20 54 4f | 20 00 40 01 af 00 37 15 | PATH TO| .@...7.|
|00000c40| 00 0e 4b 00 00 3f 01 0a | 00 40 01 b0 00 4f 15 00 |..K..?..|.@...O..|
|00000c50| 01 0a 2a 2d 2d 20 53 65 | 74 20 67 6c 6f 62 61 6c |..*-- Se|t global|
|00000c60| 20 76 61 72 69 61 62 6c | 65 73 0a 67 6e 5f 62 61 | variabl|es.gn_ba|
|00000c70| 72 76 20 20 3d 20 30 00 | 40 01 b3 00 74 15 00 08 |rv  = 0.|@...t...|
|00000c80| 1e 00 00 00 38 53 01 01 | 0c 3f 01 26 26 20 49 6e |....8S..|.?.&& In|
|00000c90| 69 74 69 61 6c 69 7a 65 | 20 62 61 72 20 76 61 6c |itialize| bar val|
|00000ca0| 75 65 20 76 61 72 69 61 | 62 6c 65 0a 67 6e 5f 65 |ue varia|ble.gn_e|
|00000cb0| 72 72 6f 72 20 3d 20 30 | 00 40 01 b4 00 ad 15 00 |rror = 0|.@......|
|00000cc0| 08 1e 00 00 00 38 53 01 | 01 0c 3f 01 26 26 20 56 |.....8S.|..?.&& V|
|00000cd0| 61 72 69 61 62 6c 65 20 | 74 6f 20 73 74 6f 72 65 |ariable |to store|
|00000ce0| 20 65 72 72 6f 72 28 29 | 20 6e 75 6d 62 65 72 0a | error()| number.|
|00000cf0| 67 6e 5f 73 65 6e 64 20 | 20 3d 20 30 00 40 01 b5 |gn_send | = 0.@..|
|00000d00| 00 e9 15 00 08 1e 00 00 | 00 38 53 01 01 0c 3f 01 |........|.8S...?.|
|00000d10| 26 26 20 52 65 74 75 72 | 6e 20 76 61 72 69 61 62 |&& Retur|n variab|
|00000d20| 6c 65 20 66 72 6f 6d 20 | 70 6f 70 75 70 0a 67 63 |le from |popup.gc|
|00000d30| 5f 62 72 64 72 20 20 3d | 20 22 32 22 00 40 01 b6 |_brdr  =| "2".@..|
|00000d40| 00 1f 16 00 08 1e 00 00 | 00 38 53 01 01 0c 3f 01 |........|.8S...?.|
|00000d50| 26 26 20 42 6f 72 64 65 | 72 20 73 74 79 6c 65 20 |&& Borde|r style |
|00000d60| 66 6f 72 20 6d 65 6e 75 | 20 62 6f 78 20 2d 20 53 |for menu| box - S|
|00000d70| 65 65 20 50 72 6f 63 65 | 64 75 72 65 0a 6c 63 5f |ee Proce|dure.lc_|
|00000d80| 68 65 61 64 69 6e 67 20 | 3d 20 22 00 40 01 b8 00 |heading |= ".@...|
|00000d90| 8b 16 00 0e f7 00 00 2f | b6 0d 00 0e f7 00 00 38 |......./|.......8|
|00000da0| 54 01 01 40 01 b9 00 a3 | 16 00 0c 40 01 ba 00 ac |T..@....|...@....|
|00000db0| 16 00 2e d8 0d 00 40 01 | ba 00 ac 16 00 03 01 00 |......@.|........|
|00000dc0| 38 3d 01 01 0c 38 32 01 | 01 40 01 bb 00 ca 16 00 |8=...82.|.@......|
|00000dd0| 0c 40 01 bb 00 ca 16 00 | 3f 01 22 20 26 26 20 4d |.@......|?." && M|
|00000de0| 65 6e 75 20 68 65 61 64 | 69 6e 67 20 73 74 72 69 |enu head|ing stri|
|00000df0| 6e 67 0a 6c 6c 5f 63 6f | 6c 6f 72 20 3d 20 49 53 |ng.ll_co|lor = IS|
|00000e00| 43 4f 4c 4f 52 28 29 0a | 0a 00 40 01 bf 00 06 17 |COLOR().|..@.....|
|00000e10| 00 0e 36 00 00 2f 50 10 | 00 01 53 45 54 20 45 53 |..6../P.|..SET ES|
|00000e20| 43 41 50 45 20 4f 46 46 | 0a 0a 2a 2d 2d 20 53 69 |CAPE OFF|..*-- Si|
|00000e30| 67 6e 6f 6e 20 42 61 6e | 6e 65 72 0a 74 6d 70 63 |gnon Ban|ner.tmpc|
|00000e40| 6f 6c 6f 72 20 3d 20 49 | 49 46 28 6c 6c 5f 63 6f |olor = I|IF(ll_co|
|00000e50| 6c 6f 72 2c 22 00 40 01 | c4 00 5a 17 00 0e 41 00 |lor,".@.|..Z...A.|
|00000e60| 00 39 54 4e 00 01 0c 3f | 01 22 2c 20 22 57 2b 2f |.9TN...?|.", "W+/|
|00000e70| 4e 22 29 0a 40 20 00 40 | 01 c5 00 8f 17 00 38 5e |N").@ .@|......8^|
|00000e80| 01 00 0c 3f 01 2c 00 38 | 60 01 00 0c 3f 01 20 54 |...?.,.8|`...?. T|
|00000e90| 4f 20 00 38 5f 01 00 0c | 3f 01 2c 00 38 61 01 00 |O .8_...|?.,.8a..|
|00000ea0| 0c 3f 01 20 00 40 01 c6 | 00 bb 17 00 0e 40 00 00 |.?. .@..|.....@..|
|00000eb0| 2e 09 0f 00 40 01 c7 00 | d4 17 00 2e 28 0f 00 40 |....@...|....(..@|
|00000ec0| 01 c7 00 d4 17 00 01 50 | 41 4e 45 4c 20 00 40 01 |.......P|ANEL .@.|
|00000ed0| c9 00 ef 17 00 2e 28 0f | 00 40 01 c9 00 ef 17 00 |......(.|.@......|
|00000ee0| 01 20 00 40 01 cb 00 06 | 18 00 2e 28 0f 00 40 01 |. .@....|...(..@.|
|00000ef0| cb 00 06 18 00 01 44 4f | 55 42 4c 45 20 00 40 01 |......DO|UBLE .@.|
|00000f00| cd 00 23 18 00 2e 28 0f | 00 40 01 cd 00 23 18 00 |..#...(.|.@...#..|
|00000f10| 37 03 00 00 00 00 00 c6 | 0e 00 01 00 00 00 e0 0e |7.......|........|
|00000f20| 00 02 00 00 00 f5 0e 00 | 40 01 cd 00 23 18 00 01 |........|@...#...|
|00000f30| 43 4f 4c 4f 52 20 26 74 | 6d 70 63 6f 6c 6f 72 2e |COLOR &t|mpcolor.|
|00000f40| 0a 00 40 01 cf 00 43 18 | 00 08 3d 04 00 00 38 46 |..@...C.|..=...8F|
|00000f50| 01 01 0c 11 12 00 40 01 | cf 00 43 18 00 03 12 00 |......@.|..C.....|
|00000f60| 38 49 01 01 0c 30 b6 0f | 00 01 40 20 00 40 01 d0 |8I...0..|..@ .@..|
|00000f70| 00 5e 18 00 38 5e 01 00 | 0c 0e 5c 00 01 03 12 00 |.^..8^..|..\.....|
|00000f80| 1a 3f 01 2c 00 38 60 01 | 00 0c 0e 5d 00 01 03 12 |.?.,.8`.|...]....|
|00000f90| 00 1a 3f 01 20 53 41 59 | 20 22 00 0e 5f 00 01 03 |..?. SAY| ".._...|
|00000fa0| 12 00 3f 01 22 0a 00 40 | 01 d1 00 9b 18 00 03 12 |..?."..@|........|
|00000fb0| 00 2c 2e 5d 0f 00 40 01 | d1 00 9b 18 00 01 49 46 |.,.]..@.|......IF|
|00000fc0| 20 6c 6c 5f 63 6f 6c 6f | 72 0a 20 20 20 40 20 00 | ll_colo|r.   @ .|
|00000fd0| 40 01 d3 00 b4 18 00 38 | 5e 01 00 0c 08 01 00 00 |@......8|^.......|
|00000fe0| 00 1a 3f 01 2c 00 38 60 | 01 00 0c 08 01 00 00 00 |..?.,.8`|........|
|00000ff0| 1a 3f 01 20 46 49 4c 4c | 20 54 4f 20 00 38 5f 01 |.?. FILL| TO .8_.|
|00001000| 00 0c 08 01 00 00 00 1b | 3f 01 2c 00 38 61 01 00 |........|?.,.8a..|
|00001010| 0c 08 01 00 00 00 1b 3f | 01 20 43 4f 4c 4f 52 20 |.......?|. COLOR |
|00001020| 00 0e 43 00 00 39 54 4e | 00 01 0c 3f 01 0a 45 4e |..C..9TN|...?..EN|
|00001030| 44 49 46 0a 6c 6e 5f 69 | 6e 6b 65 79 20 3d 20 49 |DIF.ln_i|nkey = I|
|00001040| 4e 4b 45 59 28 35 29 0a | 00 40 01 d6 00 22 19 00 |NKEY(5).|.@..."..|
|00001050| 01 43 4c 45 41 52 0a 53 | 45 54 20 45 53 43 41 50 |.CLEAR.S|ET ESCAP|
|00001060| 45 20 00 40 01 d8 00 32 | 19 00 0e 54 00 00 2f 7b |E .@...2|...T../{|
|00001070| 10 00 01 4f 46 46 00 2e | 8d 10 00 40 01 d8 00 32 |...OFF..|...@...2|
|00001080| 19 00 01 4f 4e 00 40 01 | d8 00 32 19 00 01 0a 53 |...ON.@.|..2....S|
|00001090| 45 54 20 53 54 41 54 55 | 53 20 4f 4e 0a 2a 2d 2d |ET STATU|S ON.*--|
|000010a0| 20 53 65 74 20 63 6f 6c | 6f 72 73 0a 49 46 20 6c | Set col|ors.IF l|
|000010b0| 6c 5f 63 6f 6c 6f 72 0a | 20 20 20 53 45 54 20 43 |l_color.|   SET C|
|000010c0| 4f 4c 4f 52 20 4f 46 20 | 4e 4f 52 4d 41 4c 20 54 |OLOR OF |NORMAL T|
|000010d0| 4f 20 00 40 01 dc 00 91 | 19 00 0e 43 00 00 39 54 |O .@....|...C..9T|
|000010e0| 4e 00 01 0c 3f 01 0a 20 | 20 20 53 45 54 20 43 4f |N...?.. |  SET CO|
|000010f0| 4c 4f 52 20 4f 46 20 4d | 45 53 53 41 47 45 53 20 |LOR OF M|ESSAGES |
|00001100| 54 4f 20 00 40 01 dd 00 | bf 19 00 0e 97 00 00 39 |TO .@...|.......9|
|00001110| 54 4e 00 01 0c 3f 01 0a | 20 20 20 53 45 54 20 43 |TN...?..|   SET C|
|00001120| 4f 4c 4f 52 20 4f 46 20 | 54 49 54 4c 45 53 20 54 |OLOR OF |TITLES T|
|00001130| 4f 20 00 40 01 de 00 f2 | 19 00 0e 45 00 00 39 54 |O .@....|...E..9T|
|00001140| 4e 00 01 0c 3f 01 0a 20 | 20 20 53 45 54 20 43 4f |N...?.. |  SET CO|
|00001150| 4c 4f 52 20 4f 46 20 48 | 49 47 48 4c 49 47 48 54 |LOR OF H|IGHLIGHT|
|00001160| 20 54 4f 20 00 40 01 df | 00 22 1a 00 0e 98 00 00 | TO .@..|."......|
|00001170| 39 54 4e 00 01 0c 3f 01 | 0a 20 20 20 53 45 54 20 |9TN...?.|.   SET |
|00001180| 43 4f 4c 4f 52 20 4f 46 | 20 42 4f 58 20 54 4f 20 |COLOR OF| BOX TO |
|00001190| 00 40 01 e0 00 56 1a 00 | 0e 41 00 00 39 54 4e 00 |.@...V..|.A..9TN.|
|000011a0| 01 0c 3f 01 0a 20 20 20 | 53 45 54 20 43 4f 4c 4f |..?..   |SET COLO|
|000011b0| 52 20 4f 46 20 49 4e 46 | 4f 52 4d 41 54 49 4f 4e |R OF INF|ORMATION|
|000011c0| 20 54 4f 20 00 40 01 e1 | 00 7f 1a 00 0e 30 00 00 | TO .@..|.....0..|
|000011d0| 39 54 4e 00 01 0c 3f 01 | 0a 20 20 20 53 45 54 20 |9TN...?.|.   SET |
|000011e0| 43 4f 4c 4f 52 20 4f 46 | 20 46 49 45 4c 44 53 20 |COLOR OF| FIELDS |
|000011f0| 54 4f 20 00 40 01 e2 00 | b1 1a 00 0e 42 00 00 39 |TO .@...|....B..9|
|00001200| 54 4e 00 01 0c 3f 01 0a | 45 4e 44 49 46 0a 0a 00 |TN...?..|ENDIF...|
|00001210| 40 01 e6 00 ed 1a 00 0e | 38 00 00 0e 39 00 00 0e |@.......|8...9...|
|00001220| b1 00 00 39 ff 4c 00 03 | 01 0a 2a 2d 2d 20 44 65 |...9.L..|..*-- De|
|00001230| 66 69 6e 65 20 74 68 65 | 20 6d 61 69 6e 20 70 6f |fine the| main po|
|00001240| 70 75 70 20 6d 65 6e 75 | 20 66 6f 72 20 51 75 69 |pup menu| for Qui|
|00001250| 63 6b 61 70 70 0a 53 45 | 54 20 42 4f 52 44 45 52 |ckapp.SE|T BORDER|
|00001260| 20 54 4f 20 44 4f 55 42 | 4c 45 0a 44 45 46 49 4e | TO DOUB|LE.DEFIN|
|00001270| 45 20 50 4f 50 55 50 20 | 71 75 69 63 6b 20 46 52 |E POPUP |quick FR|
|00001280| 4f 4d 20 37 2c 32 37 0a | 44 45 46 49 4e 45 20 42 |OM 7,27.|DEFINE B|
|00001290| 41 52 20 31 20 4f 46 20 | 71 75 69 63 6b 20 50 52 |AR 1 OF |quick PR|
|000012a0| 4f 4d 50 54 20 22 00 40 | 01 eb 00 7e 1b 00 09 10 |OMPT ".@|...~....|
|000012b0| 20 41 64 64 20 49 6e 66 | 6f 72 6d 61 74 69 6f 6e | Add Inf|ormation|
|000012c0| 3f 01 22 20 4d 45 53 53 | 41 47 45 20 22 00 09 18 |?." MESS|AGE "...|
|000012d0| 41 64 64 20 72 65 63 6f | 72 64 73 20 74 6f 20 64 |Add reco|rds to d|
|000012e0| 61 74 61 62 61 73 65 20 | 0e 38 00 00 1a 3f 01 22 |atabase |.8...?."|
|000012f0| 0a 44 45 46 49 4e 45 20 | 42 41 52 20 32 20 4f 46 |.DEFINE |BAR 2 OF|
|00001300| 20 71 75 69 63 6b 20 50 | 52 4f 4d 50 54 20 22 00 | quick P|ROMPT ".|
|00001310| 40 01 ec 00 ce 1b 00 09 | 13 20 43 68 61 6e 67 65 |@.......|. Change|
|00001320| 20 49 6e 66 6f 72 6d 61 | 74 69 6f 6e 3f 01 22 20 | Informa|tion?." |
|00001330| 4d 45 53 53 41 47 45 20 | 22 00 09 19 45 64 69 74 |MESSAGE |"...Edit|
|00001340| 20 72 65 63 6f 72 64 73 | 20 69 6e 20 64 61 74 61 | records| in data|
|00001350| 62 61 73 65 20 0e 38 00 | 00 1a 3f 01 22 0a 44 45 |base .8.|..?.".DE|
|00001360| 46 49 4e 45 20 42 41 52 | 20 33 20 4f 46 20 71 75 |FINE BAR| 3 OF qu|
|00001370| 69 63 6b 20 50 52 4f 4d | 50 54 20 22 00 40 01 ed |ick PROM|PT ".@..|
|00001380| 00 1e 1c 00 09 13 20 42 | 72 6f 77 73 65 20 49 6e |...... B|rowse In|
|00001390| 66 6f 72 6d 61 74 69 6f | 6e 3f 01 22 20 4d 45 53 |formatio|n?." MES|
|000013a0| 53 41 47 45 20 22 00 09 | 10 42 72 6f 77 73 65 20 |SAGE "..|.Browse |
|000013b0| 64 61 74 61 62 61 73 65 | 20 0e 38 00 00 1a 3f 01 |database| .8...?.|
|000013c0| 22 0a 44 45 46 49 4e 45 | 20 42 41 52 20 34 20 4f |".DEFINE| BAR 4 O|
|000013d0| 46 20 71 75 69 63 6b 20 | 50 52 4f 4d 50 54 20 22 |F quick |PROMPT "|
|000013e0| 00 40 01 ee 00 6e 1c 00 | 09 18 20 44 69 73 63 61 |.@...n..|.. Disca|
|000013f0| 72 64 20 4d 61 72 6b 65 | 64 20 52 65 63 6f 72 64 |rd Marke|d Record|
|00001400| 73 20 3f 01 22 20 4d 45 | 53 53 41 47 45 20 22 00 |s ?." ME|SSAGE ".|
|00001410| 09 22 50 75 72 67 65 20 | 64 65 6c 65 74 65 64 20 |."Purge |deleted |
|00001420| 72 65 63 6f 72 64 73 20 | 69 6e 20 64 61 74 61 62 |records |in datab|
|00001430| 61 73 65 20 0e 38 00 00 | 1a 3f 01 22 0a 00 40 01 |ase .8..|.?."..@.|
|00001440| ef 00 be 1c 00 0e f4 00 | 00 2f cb 14 00 03 02 00 |........|./......|
|00001450| 08 01 00 00 00 1a 11 02 | 00 03 02 00 11 03 00 01 |........|........|
|00001460| 44 45 46 49 4e 45 20 42 | 41 52 20 00 40 01 f0 00 |DEFINE B|AR .@...|
|00001470| f7 1c 00 03 02 00 3f 01 | 20 4f 46 20 71 75 69 63 |......?.| OF quic|
|00001480| 6b 20 50 52 4f 4d 50 54 | 20 22 00 09 0d 20 50 72 |k PROMPT| "... Pr|
|00001490| 69 6e 74 20 52 65 70 6f | 72 74 3f 01 22 20 4d 45 |int Repo|rt?." ME|
|000014a0| 53 53 41 47 45 20 22 00 | 09 10 52 75 6e 20 72 65 |SSAGE ".|..Run re|
|000014b0| 70 6f 72 74 20 66 6f 72 | 6d 20 0e f4 00 00 1a 3f |port for|m .....?|
|000014c0| 01 22 0a 00 40 01 f1 00 | 4e 1d 00 40 01 f2 00 57 |."..@...|N..@...W|
|000014d0| 1d 00 0e f5 00 00 2f 59 | 15 00 03 02 00 08 01 00 |....../Y|........|
|000014e0| 00 00 1a 11 02 00 03 02 | 00 11 04 00 01 44 45 46 |........|.....DEF|
|000014f0| 49 4e 45 20 42 41 52 20 | 00 40 01 f3 00 90 1d 00 |INE BAR |.@......|
|00001500| 03 02 00 3f 01 20 4f 46 | 20 71 75 69 63 6b 20 50 |...?. OF| quick P|
|00001510| 52 4f 4d 50 54 20 22 00 | 09 0f 20 4d 61 69 6c 69 |ROMPT ".|.. Maili|
|00001520| 6e 67 20 4c 61 62 65 6c | 73 3f 01 22 20 4d 45 53 |ng Label|s?." MES|
|00001530| 53 41 47 45 20 22 00 09 | 0f 52 75 6e 20 6c 61 62 |SAGE "..|.Run lab|
|00001540| 65 6c 20 66 6f 72 6d 20 | 0e f5 00 00 1a 3f 01 22 |el form |.....?."|
|00001550| 0a 00 40 01 f4 00 e7 1d | 00 40 01 f5 00 f0 1d 00 |..@.....|.@......|
|00001560| 0e 39 00 00 30 70 15 00 | 0e b1 00 00 2f fa 15 00 |.9..0p..|..../...|
|00001570| 40 01 f5 00 f0 1d 00 03 | 02 00 08 01 00 00 00 1a |@.......|........|
|00001580| 11 02 00 03 02 00 11 05 | 00 01 44 45 46 49 4e 45 |........|..DEFINE|
|00001590| 20 42 41 52 20 00 40 01 | f6 00 37 1e 00 03 02 00 | BAR .@.|..7.....|
|000015a0| 3f 01 20 4f 46 20 71 75 | 69 63 6b 20 50 52 4f 4d |?. OF qu|ick PROM|
|000015b0| 50 54 20 22 00 09 11 20 | 52 65 69 6e 64 65 78 20 |PT "... |Reindex |
|000015c0| 44 61 74 61 62 61 73 65 | 3f 01 22 20 4d 45 53 53 |Database|?." MESS|
|000015d0| 41 47 45 20 22 00 09 11 | 52 65 69 6e 64 65 78 20 |AGE "...|Reindex |
|000015e0| 64 61 74 61 62 61 73 65 | 20 0e 38 00 00 1a 3f 01 |database| .8...?.|
|000015f0| 22 0a 00 40 01 f7 00 8e | 1e 00 40 01 f8 00 97 1e |"..@....|..@.....|
|00001600| 00 03 02 00 08 01 00 00 | 00 1a 11 02 00 40 01 f9 |........|.....@..|
|00001610| 00 ab 1e 00 03 01 00 38 | 32 01 01 0c 11 0b 00 40 |.......8|2......@|
|00001620| 01 fa 00 c7 1e 00 03 0b | 00 08 01 00 00 00 08 01 |........|........|
|00001630| 00 00 00 38 3c 01 03 0c | 38 3d 01 01 0c 03 0b 00 |...8<...|8=......|
|00001640| 08 02 00 00 00 08 07 00 | 00 00 38 3c 01 03 0c 38 |........|..8<...8|
|00001650| 3e 01 01 0c 1a 11 0b 00 | 01 44 45 46 49 4e 45 20 |>.......|.DEFINE |
|00001660| 42 41 52 20 00 40 01 fb | 00 03 1f 00 03 02 00 3f |BAR .@..|.......?|
|00001670| 01 20 4f 46 20 71 75 69 | 63 6b 20 50 52 4f 4d 50 |. OF qui|ck PROMP|
|00001680| 54 20 22 00 09 0b 20 45 | 78 69 74 20 46 72 6f 6d |T "... E|xit From|
|00001690| 20 03 0b 00 1a 3f 01 22 | 20 4d 45 53 53 41 47 45 | ....?."| MESSAGE|
|000016a0| 20 22 00 09 15 45 78 69 | 74 20 70 72 6f 67 72 61 | "...Exi|t progra|
|000016b0| 6d 20 74 6f 20 64 42 41 | 53 45 3f 01 22 0a 4f 4e |m to dBA|SE?.".ON|
|000016c0| 20 53 45 4c 45 43 54 49 | 4f 4e 20 50 4f 50 55 50 | SELECTI|ON POPUP|
|000016d0| 20 71 75 69 63 6b 20 44 | 4f 20 41 63 74 69 6f 6e | quick D|O Action|
|000016e0| 20 57 49 54 48 20 42 41 | 52 28 29 0a 0a 00 40 01 | WITH BA|R()...@.|
|000016f0| fe 00 87 1f 00 0e f5 00 | 00 30 05 17 00 0e f4 00 |........|.0......|
|00001700| 00 2f a1 19 00 40 01 fe | 00 87 1f 00 01 2a 2d 2d |./...@..|.....*--|
|00001710| 20 44 65 66 69 6e 65 20 | 74 68 65 20 70 6f 70 75 | Define |the popu|
|00001720| 70 20 6d 65 6e 75 20 66 | 6f 72 20 70 72 69 6e 74 |p menu f|or print|
|00001730| 20 72 65 64 69 72 65 63 | 74 69 6f 6e 0a 44 45 46 | redirec|tion.DEF|
|00001740| 49 4e 45 20 50 4f 50 55 | 50 20 70 72 6e 74 63 68 |INE POPU|P prntch|
|00001750| 6b 20 46 52 4f 4d 20 31 | 30 2c 35 35 0a 44 45 46 |k FROM 1|0,55.DEF|
|00001760| 49 4e 45 20 42 41 52 20 | 31 20 4f 46 20 70 72 6e |INE BAR |1 OF prn|
|00001770| 74 63 68 6b 20 50 52 4f | 4d 50 54 20 22 00 40 01 |tchk PRO|MPT ".@.|
|00001780| 01 01 fb 1f 00 09 0b 20 | 53 65 6e 64 20 74 6f 2e |....... |Send to.|
|00001790| 2e 2e 3f 01 22 20 53 4b | 49 50 0a 44 45 46 49 4e |..?." SK|IP.DEFIN|
|000017a0| 45 20 42 41 52 20 32 20 | 4f 46 20 70 72 6e 74 63 |E BAR 2 |OF prntc|
|000017b0| 68 6b 20 50 52 4f 4d 50 | 54 20 52 45 50 4c 49 43 |hk PROMP|T REPLIC|
|000017c0| 41 54 45 28 43 48 52 28 | 31 39 36 29 2c 31 34 29 |ATE(CHR(|196),14)|
|000017d0| 20 53 4b 49 50 0a 44 45 | 46 49 4e 45 20 42 41 52 | SKIP.DE|FINE BAR|
|000017e0| 20 33 20 4f 46 20 70 72 | 6e 74 63 68 6b 20 50 52 | 3 OF pr|ntchk PR|
|000017f0| 4f 4d 50 54 20 22 00 40 | 01 03 01 6d 20 00 09 08 |OMPT ".@|...m ...|
|00001800| 20 53 63 72 65 65 6e 20 | 3f 01 22 20 4d 45 53 53 | Screen |?." MESS|
|00001810| 41 47 45 20 22 00 09 0b | 53 63 72 65 65 6e 20 6f |AGE "...|Screen o|
|00001820| 6e 6c 79 3f 01 22 0a 44 | 45 46 49 4e 45 20 42 41 |nly?.".D|EFINE BA|
|00001830| 52 20 34 20 4f 46 20 70 | 72 6e 74 63 68 6b 20 50 |R 4 OF p|rntchk P|
|00001840| 52 4f 4d 50 54 20 22 00 | 40 01 04 01 b7 20 00 09 |ROMPT ".|@.... ..|
|00001850| 09 20 50 72 69 6e 74 65 | 72 20 3f 01 22 20 4d 45 |. Printe|r ?." ME|
|00001860| 53 53 41 47 45 20 22 00 | 09 0d 50 72 69 6e 74 65 |SSAGE ".|..Printe|
|00001870| 72 20 4c 50 54 31 3a 3f | 01 22 0a 44 45 46 49 4e |r LPT1:?|.".DEFIN|
|00001880| 45 20 42 41 52 20 35 20 | 4f 46 20 70 72 6e 74 63 |E BAR 5 |OF prntc|
|00001890| 68 6b 20 50 52 4f 4d 50 | 54 20 22 00 40 01 05 01 |hk PROMP|T ".@...|
|000018a0| 01 21 00 09 0e 20 4c 61 | 62 65 6c 20 53 61 6d 70 |.!... La|bel Samp|
|000018b0| 6c 65 20 3f 01 22 20 4d | 45 53 53 41 47 45 20 22 |le ?." M|ESSAGE "|
|000018c0| 00 09 1f 50 72 69 6e 74 | 65 72 20 4c 50 54 31 3a |...Print|er LPT1:|
|000018d0| 20 77 69 74 68 20 53 61 | 6d 70 6c 65 20 6c 61 62 | with Sa|mple lab|
|000018e0| 65 6c 3f 01 22 20 20 53 | 4b 49 50 00 40 01 06 01 |el?."  S|KIP.@...|
|000018f0| 4d 21 00 0e f5 00 00 2f | 18 19 00 01 20 46 4f 52 |M!...../|.... FOR|
|00001900| 20 67 6e 5f 62 61 72 76 | 20 3c 3e 20 00 03 04 00 | gn_barv| <> ....|
|00001910| 3f 40 01 06 01 4d 21 00 | 01 0a 44 45 46 49 4e 45 |?@...M!.|..DEFINE|
|00001920| 20 42 41 52 20 36 20 4f | 46 20 70 72 6e 74 63 68 | BAR 6 O|F prntch|
|00001930| 6b 20 50 52 4f 4d 50 54 | 20 22 00 40 01 07 01 84 |k PROMPT| ".@....|
|00001940| 21 00 09 07 20 52 65 74 | 75 72 6e 3f 01 22 20 4d |!... Ret|urn?." M|
|00001950| 45 53 53 41 47 45 20 22 | 00 09 13 52 65 74 75 72 |ESSAGE "|...Retur|
|00001960| 6e 20 74 6f 20 4d 61 69 | 6e 20 4d 65 6e 75 3f 01 |n to Mai|n Menu?.|
|00001970| 22 0a 4f 4e 20 53 45 4c | 45 43 54 49 4f 4e 20 50 |".ON SEL|ECTION P|
|00001980| 4f 50 55 50 20 70 72 6e | 74 63 68 6b 20 44 4f 20 |OPUP prn|tchk DO |
|00001990| 67 65 74 5f 73 65 6c 65 | 0a 00 40 01 09 01 f6 21 |get_sele|..@....!|
|000019a0| 00 01 0a 2a 2d 2d 20 57 | 69 6e 64 6f 77 20 74 6f |...*-- W|indow to|
|000019b0| 20 63 6f 76 65 72 20 77 | 6f 72 6b 20 73 75 72 66 | cover w|ork surf|
|000019c0| 61 63 65 20 64 75 72 69 | 6e 67 20 65 64 69 74 2c |ace duri|ng edit,|
|000019d0| 20 61 70 70 65 6e 64 2c | 20 65 74 63 2e 0a 44 45 | append,| etc..DE|
|000019e0| 46 49 4e 45 20 57 49 4e | 44 4f 57 20 77 6f 72 6b |FINE WIN|DOW work|
|000019f0| 20 46 52 4f 4d 20 30 2c | 30 20 54 4f 20 32 31 2c | FROM 0,|0 TO 21,|
|00001a00| 37 39 20 4e 4f 4e 45 0a | 0a 2a 2d 2d 20 57 69 6e |79 NONE.|.*-- Win|
|00001a10| 64 6f 77 20 66 6f 72 20 | 61 72 65 61 20 62 65 6c |dow for |area bel|
|00001a20| 6f 77 20 6d 65 6e 75 20 | 68 65 61 64 69 6e 67 20 |ow menu |heading |
|00001a30| 26 20 66 6f 72 20 72 75 | 6e 6e 69 6e 67 20 72 65 |& for ru|nning re|
|00001a40| 70 6f 72 74 73 2f 6c 61 | 62 65 6c 73 20 69 6e 0a |ports/la|bels in.|
|00001a50| 44 45 46 49 4e 45 20 57 | 49 4e 44 4f 57 20 64 65 |DEFINE W|INDOW de|
|00001a60| 73 6b 74 6f 70 20 46 52 | 4f 4d 20 34 2c 30 20 54 |sktop FR|OM 4,0 T|
|00001a70| 4f 20 32 31 2c 37 39 20 | 4e 4f 4e 45 0a 0a 44 45 |O 21,79 |NONE..DE|
|00001a80| 46 49 4e 45 20 57 49 4e | 44 4f 57 20 70 72 69 6e |FINE WIN|DOW prin|
|00001a90| 74 65 6d 70 20 46 52 4f | 4d 20 31 30 2c 32 35 20 |temp FRO|M 10,25 |
|00001aa0| 54 4f 20 31 35 2c 35 36 | 0a 0a 2a 2d 2d 20 44 69 |TO 15,56|..*-- Di|
|00001ab0| 73 70 6c 61 79 20 68 65 | 61 64 69 6e 67 20 63 65 |splay he|ading ce|
|00001ac0| 6e 74 65 72 65 64 20 6f | 6e 20 74 68 65 20 73 63 |ntered o|n the sc|
|00001ad0| 72 65 65 6e 2e 0a 44 4f | 20 6d 65 6e 75 62 6f 78 |reen..DO| menubox|
|00001ae0| 20 57 49 54 48 20 6c 63 | 5f 68 65 61 64 69 6e 67 | WITH lc|_heading|
|00001af0| 0a 0a 2a 2d 2d 20 53 68 | 6f 77 20 74 68 65 20 6d |..*-- Sh|ow the m|
|00001b00| 65 6e 75 20 73 6f 20 77 | 65 20 64 6f 6e 27 74 20 |enu so w|e don't |
|00001b10| 67 65 74 20 61 20 66 6c | 61 73 68 20 69 66 20 74 |get a fl|ash if t|
|00001b20| 68 65 20 75 73 65 72 20 | 68 69 74 73 20 61 72 72 |he user |hits arr|
|00001b30| 6f 77 20 6b 65 79 73 20 | 6f 72 20 45 53 43 0a 53 |ow keys |or ESC.S|
|00001b40| 48 4f 57 20 50 4f 50 55 | 50 20 71 75 69 63 6b 0a |HOW POPU|P quick.|
|00001b50| 53 41 56 45 20 53 43 52 | 45 45 4e 20 54 4f 20 71 |SAVE SCR|EEN TO q|
|00001b60| 75 69 63 6b 0a 2a 2d 2d | 20 44 69 73 70 6c 61 79 |uick.*--| Display|
|00001b70| 20 51 75 69 63 6b 61 70 | 70 20 6d 65 6e 75 20 63 | Quickap|p menu c|
|00001b80| 65 6e 74 65 72 65 64 20 | 6f 6e 20 74 68 65 20 73 |entered |on the s|
|00001b90| 63 72 65 65 6e 2e 0a 44 | 4f 20 57 48 49 4c 45 20 |creen..D|O WHILE |
|00001ba0| 67 6e 5f 62 61 72 76 20 | 3c 3e 20 00 40 01 1a 01 |gn_barv |<> .@...|
|00001bb0| 04 24 00 03 02 00 3f 01 | 20 26 26 20 50 72 65 76 |.$....?.| && Prev|
|00001bc0| 65 6e 74 20 75 73 65 72 | 20 66 72 6f 6d 20 65 78 |ent user| from ex|
|00001bd0| 69 74 69 6e 67 20 77 69 | 74 68 20 61 72 72 6f 77 |iting wi|th arrow|
|00001be0| 20 6b 65 79 73 20 6f 72 | 20 45 53 43 0a 20 20 41 | keys or| ESC.  A|
|00001bf0| 43 54 49 56 41 54 45 20 | 50 4f 50 55 50 20 71 75 |CTIVATE |POPUP qu|
|00001c00| 69 63 6b 0a 45 4e 44 44 | 4f 0a 0a 2a 20 52 65 73 |ick.ENDD|O..* Res|
|00001c10| 74 6f 72 65 20 53 45 54 | 20 65 6e 76 69 72 6f 6e |tore SET| environ|
|00001c20| 6d 65 6e 74 20 74 68 65 | 20 62 65 73 74 20 77 65 |ment the| best we|
|00001c30| 20 63 61 6e 0a 53 45 54 | 20 42 45 4c 4c 20 26 67 | can.SET| BELL &g|
|00001c40| 63 5f 62 65 6c 6c 2e 0a | 53 45 54 20 43 41 52 52 |c_bell..|SET CARR|
|00001c50| 59 20 26 67 63 5f 63 61 | 72 72 79 2e 0a 53 45 54 |Y &gc_ca|rry..SET|
|00001c60| 20 43 4c 4f 43 4b 20 54 | 4f 0a 53 45 54 20 43 4c | CLOCK T|O.SET CL|
|00001c70| 4f 43 4b 20 26 67 63 5f | 63 6c 6f 63 6b 2e 0a 53 |OCK &gc_|clock..S|
|00001c80| 45 54 20 43 45 4e 54 55 | 52 59 20 26 67 63 5f 63 |ET CENTU|RY &gc_c|
|00001c90| 65 6e 74 75 72 79 2e 0a | 53 45 54 20 43 4f 4e 46 |entury..|SET CONF|
|00001ca0| 49 52 4d 20 26 67 63 5f | 63 6f 6e 66 69 72 6d 2e |IRM &gc_|confirm.|
|00001cb0| 0a 53 45 54 20 44 45 4c | 49 4d 49 54 45 52 53 20 |.SET DEL|IMITERS |
|00001cc0| 26 67 63 5f 64 65 6c 69 | 2e 0a 53 45 54 20 45 53 |&gc_deli|..SET ES|
|00001cd0| 43 41 50 45 20 26 67 63 | 5f 65 73 63 61 70 65 2e |CAPE &gc|_escape.|
|00001ce0| 0a 53 45 54 20 49 4e 53 | 54 52 55 43 54 20 26 67 |.SET INS|TRUCT &g|
|00001cf0| 63 5f 69 6e 73 74 72 75 | 63 2e 0a 53 45 54 20 53 |c_instru|c..SET S|
|00001d00| 54 41 54 55 53 20 26 67 | 63 5f 73 74 61 74 75 73 |TATUS &g|c_status|
|00001d10| 2e 0a 53 45 54 20 53 41 | 46 45 54 59 20 26 67 63 |..SET SA|FETY &gc|
|00001d20| 5f 73 61 66 65 74 79 2e | 0a 53 45 54 20 53 43 4f |_safety.|.SET SCO|
|00001d30| 52 45 20 20 26 67 63 5f | 73 63 6f 72 65 2e 0a 53 |RE  &gc_|score..S|
|00001d40| 45 54 20 54 41 4c 4b 20 | 20 20 26 67 63 5f 74 61 |ET TALK |  &gc_ta|
|00001d50| 6c 6b 2e 0a 53 45 54 20 | 46 4f 52 4d 41 54 20 54 |lk..SET |FORMAT T|
|00001d60| 4f 0a 0a 49 46 20 67 6e | 5f 61 70 67 65 6e 20 3d |O..IF gn|_apgen =|
|00001d70| 20 31 20 26 26 20 57 65 | 20 77 65 72 65 20 6e 6f | 1 && We| were no|
|00001d80| 74 20 63 61 6c 6c 65 64 | 20 66 72 6f 6d 20 61 6e |t called| from an|
|00001d90| 6f 74 68 65 72 20 41 50 | 47 45 4e 20 70 72 6f 67 |other AP|GEN prog|
|00001da0| 72 61 6d 0a 20 20 20 43 | 4c 45 41 52 20 57 49 4e |ram.   C|LEAR WIN|
|00001db0| 44 4f 57 0a 20 20 20 43 | 4c 45 41 52 20 50 4f 50 |DOW.   C|LEAR POP|
|00001dc0| 55 50 0a 20 20 20 43 4c | 45 41 52 20 41 4c 4c 0a |UP.   CL|EAR ALL.|
|00001dd0| 20 20 20 43 4c 4f 53 45 | 20 41 4c 4c 0a 45 4c 53 |   CLOSE| ALL.ELS|
|00001de0| 45 0a 20 20 20 52 45 4c | 45 41 53 45 20 57 49 4e |E.   REL|EASE WIN|
|00001df0| 44 4f 57 53 20 77 6f 72 | 6b 2c 20 64 65 73 6b 74 |DOWS wor|k, deskt|
|00001e00| 6f 70 20 0a 20 20 20 52 | 45 4c 45 41 53 45 20 53 |op .   R|ELEASE S|
|00001e10| 43 52 45 45 4e 20 71 75 | 69 63 6b 0a 20 20 20 52 |CREEN qu|ick.   R|
|00001e20| 45 4c 45 41 53 45 20 50 | 4f 50 55 50 20 71 75 69 |ELEASE P|OPUP qui|
|00001e30| 63 6b 0a 20 20 20 67 6e | 5f 61 70 67 65 6e 20 3d |ck.   gn|_apgen =|
|00001e40| 20 67 6e 5f 61 70 67 65 | 6e 20 2d 20 31 20 0a 45 | gn_apge|n - 1 .E|
|00001e50| 4e 44 49 46 0a 4f 4e 20 | 45 52 52 4f 52 0a 4f 4e |NDIF.ON |ERROR.ON|
|00001e60| 20 4b 45 59 20 4c 41 42 | 45 4c 20 46 31 0a 52 45 | KEY LAB|EL F1.RE|
|00001e70| 54 55 52 4e 0a 2a 20 45 | 4f 50 3a 20 00 40 01 3c |TURN.* E|OP: .@.<|
|00001e80| 01 ff 26 00 03 01 00 3f | 01 2e 50 52 47 0a 0a 00 |..&....?|..PRG...|
|00001e90| 40 01 45 01 71 28 00 09 | 01 2a 08 50 00 00 00 38 |@.E.q(..|.*.P...8|
|00001ea0| 56 01 02 0c 03 07 00 1a | 38 42 01 01 01 2a 20 50 |V.......|8B...* P|
|00001eb0| 72 6f 63 65 64 75 72 65 | 73 2e 2e 2e 3a 20 00 40 |rocedure|s...: .@|
|00001ec0| 01 46 01 93 28 00 03 01 | 00 3f 01 2e 50 72 63 0a |.F..(...|.?..Prc.|
|00001ed0| 00 40 05 06 00 a7 00 00 | 38 40 01 00 0c 38 3b 01 |.@......|8@...8;.|
|00001ee0| 01 0c 11 0b 00 01 2a 20 | 41 75 74 68 6f 72 2e 2e |......* |Author..|
|00001ef0| 2e 2e 2e 2e 2e 3a 20 00 | 40 05 07 00 c0 00 00 03 |.....: .|@.......|
|00001f00| 0c 00 2f 11 1f 00 03 0c | 00 3f 40 05 07 00 c0 00 |../.....|.?@.....|
|00001f10| 00 01 0a 2a 20 44 61 74 | 65 2e 2e 2e 2e 2e 2e 2e |...* Dat|e.......|
|00001f20| 2e 2e 3a 20 00 40 05 08 | 00 f2 00 00 38 4d 01 00 |..: .@..|....8M..|
|00001f30| 0c 08 01 00 00 00 08 08 | 00 00 00 38 3c 01 03 0c |........|...8<...|
|00001f40| 38 37 01 01 0c 3f 01 0a | 2a 20 4e 6f 74 69 63 65 |87...?..|* Notice|
|00001f50| 2e 2e 2e 2e 2e 2e 2e 3a | 20 00 40 05 09 00 20 01 |.......:| .@... .|
|00001f60| 00 03 0d 00 2f 73 1f 00 | 03 0d 00 3f 40 05 09 00 |..../s..|...?@...|
|00001f70| 20 01 00 01 0a 2a 20 64 | 42 41 53 45 20 56 65 72 | ....* d|BASE Ver|
|00001f80| 2e 2e 2e 2e 3a 20 00 40 | 05 0a 00 58 01 00 03 0e |....: .@|...X....|
|00001f90| 00 2f a0 1f 00 03 0e 00 | 3f 40 05 0a 00 58 01 00 |./......|?@...X..|
|00001fa0| 01 0a 2a 20 47 65 6e 65 | 72 61 74 65 64 20 62 79 |..* Gene|rated by|
|00001fb0| 2e 3a 20 41 50 47 45 4e | 20 76 65 72 73 69 6f 6e |.: APGEN| version|
|00001fc0| 20 00 40 05 0b 00 90 01 | 00 03 0b 00 3f 01 0a 2a | .@.....|....?..*|
|00001fd0| 20 44 65 73 63 72 69 70 | 74 69 6f 6e 2e 2e 3a 20 | Descrip|tion..: |
|00001fe0| 00 40 05 0c 00 b8 01 00 | 0e 29 00 00 2f fc 1f 00 |.@......|.)../...|
|00001ff0| 0e 29 00 00 3f 40 05 0c | 00 b8 01 00 01 0a 00 01 |.)..?@..|........|
|00002000| 0a 2a 20 4e 6f 74 65 73 | 2e 2e 2e 2e 2e 2e 2e 2e |.* Notes|........|
|00002010| 3a 0a 00 40 01 49 01 e1 | 28 00 09 01 2a 08 50 00 |:..@.I..|(...*.P.|
|00002020| 00 00 38 56 01 02 0c 03 | 07 00 1a 38 42 01 01 01 |..8V....|...8B...|
|00002030| 0a 2a 2d 2d 20 48 65 72 | 65 20 69 73 20 61 20 73 |.*-- Her|e is a s|
|00002040| 61 6d 70 6c 65 20 70 72 | 6f 63 65 64 75 72 65 20 |ample pr|ocedure |
|00002050| 66 69 6c 65 20 74 6f 20 | 73 68 6f 77 20 74 68 65 |file to |show the|
|00002060| 20 70 6f 77 65 72 20 6f | 66 20 70 72 6f 63 64 75 | power o|f procdu|
|00002070| 72 65 73 2e 0a 2a 2d 2d | 20 54 68 69 73 20 65 78 |res..*--| This ex|
|00002080| 61 6d 70 6c 65 20 2d 20 | 4d 65 6e 75 62 6f 78 20 |ample - |Menubox |
|00002090| 64 69 73 70 6c 61 79 73 | 20 61 20 6d 65 6e 75 20 |displays| a menu |
|000020a0| 68 65 61 64 69 6e 67 20 | 62 6f 78 20 77 69 74 68 |heading |box with|
|000020b0| 20 61 20 63 65 6e 74 65 | 72 65 64 20 68 65 61 64 | a cente|red head|
|000020c0| 69 6e 67 2e 0a 00 01 50 | 52 4f 43 45 44 55 52 45 |ing....P|ROCEDURE|
|000020d0| 20 4d 65 6e 75 42 6f 78 | 0a 50 41 52 41 4d 45 54 | MenuBox|.PARAMET|
|000020e0| 45 52 20 6c 63 5f 6d 5f | 6e 61 6d 65 0a 2a 2d 2d |ER lc_m_|name.*--|
|000020f0| 20 50 61 72 61 6d 65 74 | 65 72 20 6c 63 5f 6d 5f | Paramet|er lc_m_|
|00002100| 6e 61 6d 65 20 2d 20 69 | 73 20 74 68 65 20 74 69 |name - i|s the ti|
|00002110| 74 6c 65 20 76 61 72 69 | 61 62 6c 65 20 66 6f 72 |tle vari|able for|
|00002120| 20 74 68 65 20 6d 65 6e | 75 0a 53 45 54 20 43 4c | the men|u.SET CL|
|00002130| 4f 43 4b 20 4f 46 46 0a | 40 20 31 2c 30 20 46 49 |OCK OFF.|@ 1,0 FI|
|00002140| 4c 4c 20 54 4f 20 32 2c | 37 39 20 43 4f 4c 4f 52 |LL TO 2,|79 COLOR|
|00002150| 20 6e 2f 6e 0a 44 4f 20 | 43 41 53 45 0a 43 41 53 | n/n.DO |CASE.CAS|
|00002160| 45 20 67 63 5f 62 72 64 | 72 20 3d 20 22 30 22 0a |E gc_brd|r = "0".|
|00002170| 20 20 20 40 20 31 2c 30 | 20 43 4c 45 41 52 20 54 |   @ 1,0| CLEAR T|
|00002180| 4f 20 33 2c 37 39 0a 43 | 41 53 45 20 67 63 5f 62 |O 3,79.C|ASE gc_b|
|00002190| 72 64 72 20 3d 20 22 31 | 22 0a 20 20 20 40 20 31 |rdr = "1|".   @ 1|
|000021a0| 2c 30 20 54 4f 20 33 2c | 37 39 0a 43 41 53 45 20 |,0 TO 3,|79.CASE |
|000021b0| 67 63 5f 62 72 64 72 20 | 3d 20 22 32 22 0a 20 20 |gc_brdr |= "2".  |
|000021c0| 20 6c 63 5f 63 6f 6c 6f | 72 20 3d 20 49 49 46 28 | lc_colo|r = IIF(|
|000021d0| 49 53 43 4f 4c 4f 52 28 | 29 2c 22 00 40 06 10 00 |ISCOLOR(|),".@...|
|000021e0| 70 01 00 0e 41 00 00 39 | 54 4e 00 01 0c 3f 01 22 |p...A..9|TN...?."|
|000021f0| 2c 20 22 57 2b 2f 4e 22 | 29 0a 20 20 20 40 20 31 |, "W+/N"|).   @ 1|
|00002200| 2c 30 20 54 4f 20 33 2c | 37 39 20 44 4f 55 42 4c |,0 TO 3,|79 DOUBL|
|00002210| 45 20 43 4f 4c 4f 52 20 | 26 6c 63 5f 63 6f 6c 6f |E COLOR |&lc_colo|
|00002220| 72 2e 0a 45 4e 44 43 41 | 53 45 0a 53 45 54 20 43 |r..ENDCA|SE.SET C|
|00002230| 4c 4f 43 4b 20 54 4f 20 | 32 2c 36 38 0a 40 20 32 |LOCK TO |2,68.@ 2|
|00002240| 2c 31 20 53 41 59 20 53 | 55 42 53 54 52 28 43 44 |,1 SAY S|UBSTR(CD|
|00002250| 4f 57 28 44 41 54 45 28 | 29 29 2c 31 2c 33 29 2b |OW(DATE(|)),1,3)+|
|00002260| 27 2e 20 27 2b 44 54 4f | 43 28 44 41 54 45 28 29 |'. '+DTO|C(DATE()|
|00002270| 29 2b 27 20 27 0a 40 20 | 32 2c 34 31 20 2d 20 28 |)+' '.@ |2,41 - (|
|00002280| 4c 45 4e 28 6c 63 5f 6d | 5f 6e 61 6d 65 29 2f 32 |LEN(lc_m|_name)/2|
|00002290| 29 20 53 41 59 20 6c 63 | 5f 6d 5f 6e 61 6d 65 0a |) SAY lc|_m_name.|
|000022a0| 6c 63 5f 63 6f 6c 6f 72 | 20 3d 20 49 49 46 28 49 |lc_color| = IIF(I|
|000022b0| 53 43 4f 4c 4f 52 28 29 | 2c 22 00 40 06 18 00 d5 |SCOLOR()|,".@....|
|000022c0| 02 00 0e 43 00 00 39 54 | 4e 00 01 0c 3f 01 22 2c |...C..9T|N...?.",|
|000022d0| 20 22 57 2b 2f 4e 22 29 | 0a 40 20 32 2c 31 20 46 | "W+/N")|.@ 2,1 F|
|000022e0| 49 4c 4c 20 54 4f 20 32 | 2c 37 38 20 43 4f 4c 4f |ILL TO 2|,78 COLO|
|000022f0| 52 20 26 6c 63 5f 63 6f | 6c 6f 72 2e 0a 52 45 54 |R &lc_co|lor..RET|
|00002300| 55 52 4e 0a 00 01 0a 0a | 50 52 4f 43 45 44 55 52 |URN.....|PROCEDUR|
|00002310| 45 20 67 65 74 5f 73 65 | 6c 65 0a 2a 2d 2d 20 47 |E get_se|le.*-- G|
|00002320| 65 74 20 74 68 65 20 75 | 73 65 72 20 73 65 6c 65 |et the u|ser sele|
|00002330| 63 74 69 6f 6e 20 26 20 | 73 74 6f 72 65 20 42 41 |ction & |store BA|
|00002340| 52 20 69 6e 74 6f 20 76 | 61 72 69 61 62 6c 65 0a |R into v|ariable.|
|00002350| 67 6e 5f 73 65 6e 64 20 | 3d 20 42 41 52 28 29 20 |gn_send |= BAR() |
|00002360| 20 26 26 20 56 61 72 69 | 61 62 6c 65 20 66 6f 72 | && Vari|able for|
|00002370| 20 70 72 69 6e 74 20 74 | 65 73 74 69 6e 67 0a 44 | print t|esting.D|
|00002380| 45 41 43 54 49 56 41 54 | 45 20 50 4f 50 55 50 0a |EACTIVAT|E POPUP.|
|00002390| 52 45 54 55 52 4e 0a 0a | 50 52 4f 43 45 44 55 52 |RETURN..|PROCEDUR|
|000023a0| 45 20 41 63 74 69 6f 6e | 0a 50 41 52 41 4d 45 54 |E Action|.PARAMET|
|000023b0| 45 52 53 20 62 61 72 0a | 2a 2d 2d 20 47 65 74 20 |ERS bar.|*-- Get |
|000023c0| 74 68 65 20 75 73 65 72 | 20 73 65 6c 65 63 74 69 |the user| selecti|
|000023d0| 6f 6e 20 26 20 73 74 6f | 72 65 20 42 41 52 20 69 |on & sto|re BAR i|
|000023e0| 6e 74 6f 20 76 61 72 69 | 61 62 6c 65 0a 67 6e 5f |nto vari|able.gn_|
|000023f0| 62 61 72 76 20 3d 20 62 | 61 72 0a 53 45 54 20 4d |barv = b|ar.SET M|
|00002400| 45 53 53 41 47 45 20 54 | 4f 0a 00 40 01 5a 01 c5 |ESSAGE T|O..@.Z..|
|00002410| 2a 00 0e f3 00 00 2f a7 | 24 00 01 49 46 20 4c 54 |*...../.|$..IF LT|
|00002420| 52 49 4d 28 20 53 54 52 | 28 20 67 6e 5f 62 61 72 |RIM( STR|( gn_bar|
|00002430| 76 29 29 20 24 20 22 31 | 32 33 22 0a 20 20 20 2a |v)) $ "1|23".   *|
|00002440| 2d 2d 20 53 65 74 20 66 | 6f 72 6d 61 74 20 66 69 |-- Set f|ormat fi|
|00002450| 6c 65 20 00 40 01 5c 01 | fc 2a 00 0e f3 00 00 3f |le .@.\.|.*.....?|
|00002460| 01 20 66 6f 72 20 65 64 | 69 74 2f 61 70 70 65 6e |. for ed|it/appen|
|00002470| 64 2f 62 72 6f 77 73 65 | 0a 20 20 20 53 45 54 20 |d/browse|.   SET |
|00002480| 46 4f 52 4d 41 54 20 54 | 4f 20 00 40 01 5d 01 37 |FORMAT T|O .@.].7|
|00002490| 2b 00 0e f3 00 00 3f 01 | 0a 45 4e 44 49 46 0a 00 |+.....?.|.ENDIF..|
|000024a0| 40 01 5f 01 5c 2b 00 01 | 44 4f 20 43 41 53 45 0a |@._.\+..|DO CASE.|
|000024b0| 20 20 20 43 41 53 45 20 | 67 6e 5f 62 61 72 76 20 |   CASE |gn_barv |
|000024c0| 3d 20 31 0a 20 20 20 20 | 20 20 2a 2d 2d 20 41 64 |= 1.    |  *-- Ad|
|000024d0| 64 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 0a 20 20 |d inform|ation.  |
|000024e0| 20 20 20 20 53 45 54 20 | 4d 45 53 53 41 47 45 20 |    SET |MESSAGE |
|000024f0| 54 4f 20 27 00 40 01 63 | 01 9e 2b 00 09 1a 41 70 |TO '.@.c|..+...Ap|
|00002500| 70 65 6e 64 69 6e 67 20 | 72 65 63 6f 72 64 73 20 |pending |records |
|00002510| 74 6f 20 66 69 6c 65 20 | 0e 38 00 00 1a 3f 01 27 |to file |.8...?.'|
|00002520| 0a 20 20 20 20 20 20 41 | 50 50 45 4e 44 0a 20 20 |.      A|PPEND.  |
|00002530| 20 43 41 53 45 20 67 6e | 5f 62 61 72 76 20 3d 20 | CASE gn|_barv = |
|00002540| 32 0a 20 20 20 20 20 20 | 2a 2d 2d 20 43 68 61 6e |2.      |*-- Chan|
|00002550| 67 65 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 0a 20 |ge infor|mation. |
|00002560| 20 20 20 20 20 53 45 54 | 20 4d 45 53 53 41 47 45 |     SET| MESSAGE|
|00002570| 20 54 4f 20 27 00 40 01 | 67 01 0e 2c 00 09 0d 45 | TO '.@.|g..,...E|
|00002580| 64 69 74 69 6e 67 20 66 | 69 6c 65 20 0e 38 00 00 |diting f|ile .8..|
|00002590| 1a 3f 01 27 0a 20 20 20 | 20 20 20 45 44 49 54 0a |.?.'.   |   EDIT.|
|000025a0| 20 20 20 43 41 53 45 20 | 67 6e 5f 62 61 72 76 20 |   CASE |gn_barv |
|000025b0| 3d 20 33 0a 20 20 20 20 | 20 20 2a 2d 2d 20 42 72 |= 3.    |  *-- Br|
|000025c0| 6f 77 73 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |owse inf|ormation|
|000025d0| 0a 20 20 20 20 20 20 53 | 45 54 20 4d 45 53 53 41 |.      S|ET MESSA|
|000025e0| 47 45 20 54 4f 20 27 00 | 40 01 6b 01 7c 2c 00 09 |GE TO '.|@.k.|,..|
|000025f0| 0e 42 72 6f 77 73 69 6e | 67 20 66 69 6c 65 20 0e |.Browsin|g file .|
|00002600| 38 00 00 1a 3f 01 27 0a | 20 20 20 20 20 20 42 52 |8...?.'.|      BR|
|00002610| 4f 57 53 45 20 00 40 01 | 6c 01 ab 2c 00 0e f3 00 |OWSE .@.|l..,....|
|00002620| 00 2f 35 26 00 01 46 4f | 52 4d 41 54 20 00 40 01 |./5&..FO|RMAT .@.|
|00002630| 6c 01 ab 2c 00 01 0a 20 | 20 20 43 41 53 45 20 67 |l..,... |  CASE g|
|00002640| 6e 5f 62 61 72 76 20 3d | 20 34 0a 20 20 20 20 20 |n_barv =| 4.     |
|00002650| 20 2a 2d 2d 20 52 65 6d | 6f 76 65 20 69 6e 66 6f | *-- Rem|ove info|
|00002660| 72 6d 61 74 69 6f 6e 20 | 28 50 61 63 6b 20 66 69 |rmation |(Pack fi|
|00002670| 6c 65 20 00 40 01 6e 01 | f0 2c 00 0e 38 00 00 38 |le .@.n.|.,..8..8|
|00002680| 3e 01 01 0c 3f 01 29 0a | 20 20 20 20 20 20 41 43 |>...?.).|      AC|
|00002690| 54 49 56 41 54 45 20 57 | 49 4e 44 4f 57 20 64 65 |TIVATE W|INDOW de|
|000026a0| 73 6b 74 6f 70 0a 20 20 | 20 20 20 20 40 20 32 2c |sktop.  |    @ 2,|
|000026b0| 30 20 53 41 59 20 22 00 | 40 01 70 01 4c 2d 00 09 |0 SAY ".|@.p.L-..|
|000026c0| 11 50 61 63 6b 69 6e 67 | 20 64 61 74 61 62 61 73 |.Packing| databas|
|000026d0| 65 20 0e 38 00 00 1a 09 | 29 20 74 6f 20 52 45 4d |e .8....|) to REM|
|000026e0| 4f 56 45 20 72 65 63 6f | 72 64 73 20 6d 61 72 6b |OVE reco|rds mark|
|000026f0| 65 64 20 66 6f 72 20 64 | 65 6c 65 74 69 6f 6e 2e |ed for d|eletion.|
|00002700| 2e 2e 1a 3f 01 22 0a 20 | 20 20 20 20 20 40 20 33 |...?.". |     @ 3|
|00002710| 2c 30 0a 20 20 20 20 20 | 20 53 45 54 20 54 41 4c |,0.     | SET TAL|
|00002720| 4b 20 4f 4e 0a 20 20 20 | 20 20 20 50 41 43 4b 0a |K ON.   |   PACK.|
|00002730| 20 20 20 20 20 20 47 4f | 20 54 4f 50 0a 20 20 20 |      GO| TOP.   |
|00002740| 20 20 20 3f 0a 20 20 20 | 20 20 20 57 41 49 54 0a |   ?.   |   WAIT.|
|00002750| 20 20 20 20 20 20 53 45 | 54 20 54 41 4c 4b 20 4f |      SE|T TALK O|
|00002760| 46 46 0a 20 20 20 20 20 | 20 44 45 41 43 54 49 56 |FF.     | DEACTIV|
|00002770| 41 54 45 20 57 49 4e 44 | 4f 57 20 64 65 73 6b 74 |ATE WIND|OW deskt|
|00002780| 6f 70 0a 00 40 01 79 01 | 07 2e 00 0e f4 00 00 2f |op..@.y.|......./|
|00002790| 6a 2b 00 01 20 20 20 43 | 41 53 45 20 67 6e 5f 62 |j+..   C|ASE gn_b|
|000027a0| 61 72 76 20 3d 20 00 40 | 01 7a 01 19 2e 00 03 03 |arv = .@|.z......|
|000027b0| 00 3f 01 0a 20 20 20 20 | 20 20 2a 2d 2d 20 52 75 |.?..    |  *-- Ru|
|000027c0| 6e 20 72 65 70 6f 72 74 | 20 66 6f 72 6d 20 00 40 |n report| form .@|
|000027d0| 01 7b 01 38 2e 00 0e f4 | 00 00 38 3e 01 01 0c 3f |.{.8....|..8>...?|
|000027e0| 01 0a 20 20 20 20 20 20 | 53 45 54 20 4d 45 53 53 |..      |SET MESS|
|000027f0| 41 47 45 20 54 4f 20 27 | 00 40 01 7c 01 66 2e 00 |AGE TO '|.@.|.f..|
|00002800| 09 36 50 69 63 6b 20 61 | 6e 20 6f 70 74 69 6f 6e |.6Pick a|n option|
|00002810| 20 74 6f 20 6c 6f 63 61 | 74 65 20 61 20 72 65 63 | to loca|te a rec|
|00002820| 6f 72 64 20 6f 72 20 3c | 45 53 43 3e 20 66 6f 72 |ord or <|ESC> for|
|00002830| 20 64 65 66 61 75 6c 74 | 3f 01 27 0a 20 20 20 20 | default|?.'.    |
|00002840| 20 20 41 43 54 49 56 41 | 54 45 20 57 49 4e 44 4f |  ACTIVA|TE WINDO|
|00002850| 57 20 77 6f 72 6b 0a 20 | 20 20 20 20 20 67 6e 5f |W work. |     gn_|
|00002860| 72 65 63 6e 6f 20 3d 20 | 52 45 43 4e 4f 28 29 0a |recno = |RECNO().|
|00002870| 20 20 20 20 20 20 44 4f | 20 70 6f 73 69 74 69 6f |      DO| positio|
|00002880| 6e 0a 20 20 20 20 20 20 | 44 45 41 43 54 49 56 41 |n.      |DEACTIVA|
|00002890| 54 45 20 57 49 4e 44 4f | 57 20 77 6f 72 6b 0a 20 |TE WINDO|W work. |
|000028a0| 20 20 20 20 20 6c 63 5f | 74 6f 70 72 6e 74 20 3d |     lc_|toprnt =|
|000028b0| 20 49 49 46 28 67 6e 5f | 72 65 63 6e 6f 20 3c 3e | IIF(gn_|recno <>|
|000028c0| 20 72 65 63 6e 6f 28 29 | 2c 27 52 45 53 54 20 27 | recno()|,'REST '|
|000028d0| 2c 27 27 29 0a 20 20 20 | 20 20 20 53 54 4f 52 45 |,'').   |   STORE|
|000028e0| 20 30 20 54 4f 20 67 6e | 5f 73 65 6e 64 2c 20 67 | 0 TO gn|_send, g|
|000028f0| 6e 5f 70 6b 65 79 0a 20 | 20 20 20 20 20 41 43 54 |n_pkey. |     ACT|
|00002900| 49 56 41 54 45 20 50 4f | 50 55 50 20 70 72 6e 74 |IVATE PO|PUP prnt|
|00002910| 63 68 6b 0a 20 20 20 20 | 20 20 49 46 20 67 6e 5f |chk.    |  IF gn_|
|00002920| 73 65 6e 64 20 3d 20 34 | 0a 20 20 20 20 20 20 20 |send = 4|.       |
|00002930| 20 20 6c 63 5f 74 6f 70 | 72 6e 74 20 3d 20 27 54 |  lc_top|rnt = 'T|
|00002940| 4f 20 50 52 49 4e 54 27 | 0a 20 20 20 20 20 20 20 |O PRINT'|.       |
|00002950| 20 20 4f 4e 20 45 52 52 | 4f 52 20 44 4f 20 70 72 |  ON ERR|OR DO pr|
|00002960| 6e 74 72 74 72 79 0a 20 | 20 20 20 20 20 45 4e 44 |ntrtry. |     END|
|00002970| 49 46 0a 20 20 20 20 20 | 20 49 46 20 2e 4e 4f 54 |IF.     | IF .NOT|
|00002980| 2e 20 67 6e 5f 73 65 6e | 64 20 3d 20 36 0a 20 20 |. gn_sen|d = 6.  |
|00002990| 20 20 20 20 20 20 20 53 | 45 54 20 4d 45 53 53 41 |       S|ET MESSA|
|000029a0| 47 45 20 54 4f 20 27 00 | 40 01 89 01 e7 2f 00 09 |GE TO '.|@..../..|
|000029b0| 10 50 72 69 6e 74 69 6e | 67 20 72 65 70 6f 72 74 |.Printin|g report|
|000029c0| 20 0e f4 00 00 1a 3f 01 | 27 0a 20 20 20 20 20 20 | .....?.|'.      |
|000029d0| 20 20 20 41 43 54 49 56 | 41 54 45 20 57 49 4e 44 |   ACTIV|ATE WIND|
|000029e0| 4f 57 20 64 65 73 6b 74 | 6f 70 0a 20 20 20 20 20 |OW deskt|op.     |
|000029f0| 20 20 20 20 53 45 54 20 | 45 53 43 41 50 45 20 4f |    SET |ESCAPE O|
|00002a00| 4e 0a 20 20 20 20 20 20 | 20 20 20 52 45 50 4f 52 |N.      |   REPOR|
|00002a10| 54 20 46 4f 52 4d 20 00 | 40 01 8c 01 53 30 00 0e |T FORM .|@...S0..|
|00002a20| f4 00 00 3f 01 20 26 6c | 63 5f 74 6f 70 72 6e 74 |...?. &l|c_toprnt|
|00002a30| 2e 0a 20 20 20 20 20 20 | 20 20 20 49 46 20 67 6e |..      |   IF gn|
|00002a40| 5f 70 6b 65 79 20 3c 3e | 20 32 37 0a 20 20 20 20 |_pkey <>| 27.    |
|00002a50| 20 20 20 20 20 20 20 20 | 57 41 49 54 0a 20 20 20 |        |WAIT.   |
|00002a60| 20 20 20 20 20 20 45 4e | 44 49 46 0a 20 20 20 20 |      EN|DIF.    |
|00002a70| 20 20 20 20 20 53 45 54 | 20 45 53 43 41 50 45 20 |     SET| ESCAPE |
|00002a80| 00 40 01 90 01 be 30 00 | 0e 54 00 00 2f 99 2a 00 |.@....0.|.T../.*.|
|00002a90| 01 4f 46 46 00 2e ab 2a | 00 40 01 90 01 be 30 00 |.OFF...*|.@....0.|
|00002aa0| 01 4f 4e 00 40 01 90 01 | be 30 00 01 0a 20 20 20 |.ON.@...|.0...   |
|00002ab0| 20 20 20 20 20 20 44 45 | 41 43 54 49 56 41 54 45 |      DE|ACTIVATE|
|00002ac0| 20 57 49 4e 44 4f 57 20 | 64 65 73 6b 74 6f 70 0a | WINDOW |desktop.|
|00002ad0| 20 20 20 20 20 20 45 4e | 44 49 46 0a 20 20 20 20 |      EN|DIF.    |
|00002ae0| 20 20 47 4f 54 4f 20 67 | 6e 5f 72 65 63 6e 6f 0a |  GOTO g|n_recno.|
|00002af0| 20 20 20 20 20 20 4f 4e | 20 45 52 52 4f 52 20 44 |      ON| ERROR D|
|00002b00| 4f 20 50 41 55 53 45 20 | 57 49 54 48 20 00 40 01 |O PAUSE |WITH .@.|
|00002b10| 94 01 40 31 00 09 48 5b | 45 72 72 6f 72 20 6f 63 |..@1..H[|Error oc|
|00002b20| 63 75 72 72 65 64 20 6f | 6e 20 6c 69 6e 65 20 5d |curred o|n line ]|
|00002b30| 2b 4c 54 52 49 4d 28 53 | 54 52 28 4c 49 4e 45 28 |+LTRIM(S|TR(LINE(|
|00002b40| 29 29 29 20 2b 5b 20 6f | 66 20 70 72 6f 63 65 64 |))) +[ o|f proced|
|00002b50| 75 72 65 20 5d 2b 50 72 | 6f 67 72 61 6d 28 29 3f |ure ]+Pr|ogram()?|
|00002b60| 01 0a 00 40 01 95 01 6e | 31 00 40 01 96 01 78 31 |...@...n|1.@...x1|
|00002b70| 00 0e f5 00 00 2f 9b 2f | 00 01 20 20 20 43 41 53 |....././|..   CAS|
|00002b80| 45 20 67 6e 5f 62 61 72 | 76 20 3d 20 00 40 01 97 |E gn_bar|v = .@..|
|00002b90| 01 8a 31 00 03 04 00 3f | 01 0a 20 20 20 20 20 20 |..1....?|..      |
|00002ba0| 2a 2d 2d 20 52 75 6e 20 | 6c 61 62 65 6c 20 66 6f |*-- Run |label fo|
|00002bb0| 72 6d 20 00 40 01 98 01 | a9 31 00 0e f5 00 00 38 |rm .@...|.1.....8|
|00002bc0| 3e 01 01 0c 3f 01 0a 20 | 20 20 20 20 20 53 45 54 |>...?.. |     SET|
|00002bd0| 20 4d 45 53 53 41 47 45 | 20 54 4f 20 27 00 40 01 | MESSAGE| TO '.@.|
|00002be0| 99 01 d6 31 00 09 36 50 | 69 63 6b 20 61 6e 20 6f |...1..6P|ick an o|
|00002bf0| 70 74 69 6f 6e 20 74 6f | 20 6c 6f 63 61 74 65 20 |ption to| locate |
|00002c00| 61 20 72 65 63 6f 72 64 | 20 6f 72 20 3c 45 53 43 |a record| or <ESC|
|00002c10| 3e 20 66 6f 72 20 64 65 | 66 61 75 6c 74 3f 01 27 |> for de|fault?.'|
|00002c20| 0a 20 20 20 20 20 20 41 | 43 54 49 56 41 54 45 20 |.      A|CTIVATE |
|00002c30| 57 49 4e 44 4f 57 20 77 | 6f 72 6b 0a 20 20 20 20 |WINDOW w|ork.    |
|00002c40| 20 20 67 6e 5f 72 65 63 | 6e 6f 20 3d 20 52 45 43 |  gn_rec|no = REC|
|00002c50| 4e 4f 28 29 0a 20 20 20 | 20 20 20 44 4f 20 70 6f |NO().   |   DO po|
|00002c60| 73 69 74 69 6f 6e 0a 20 | 20 20 20 20 20 44 45 41 |sition. |     DEA|
|00002c70| 43 54 49 56 41 54 45 20 | 57 49 4e 44 4f 57 20 77 |CTIVATE |WINDOW w|
|00002c80| 6f 72 6b 0a 20 20 20 20 | 20 20 53 54 4f 52 45 20 |ork.    |  STORE |
|00002c90| 30 20 54 4f 20 67 6e 5f | 73 65 6e 64 2c 20 67 6e |0 TO gn_|send, gn|
|00002ca0| 5f 70 6b 65 79 0a 20 20 | 20 20 20 20 6c 63 5f 74 |_pkey.  |    lc_t|
|00002cb0| 6f 70 72 6e 74 20 3d 20 | 49 49 46 28 67 6e 5f 72 |oprnt = |IIF(gn_r|
|00002cc0| 65 63 6e 6f 20 3c 3e 20 | 72 65 63 6e 6f 28 29 2c |ecno <> |recno(),|
|00002cd0| 27 52 45 53 54 20 27 2c | 27 27 29 0a 20 20 20 20 |'REST ',|'').    |
|00002ce0| 20 20 41 43 54 49 56 41 | 54 45 20 50 4f 50 55 50 |  ACTIVA|TE POPUP|
|00002cf0| 20 70 72 6e 74 63 68 6b | 0a 20 20 20 20 20 20 44 | prntchk|.      D|
|00002d00| 4f 20 43 41 53 45 20 0a | 20 20 20 20 20 20 20 43 |O CASE .|       C|
|00002d10| 41 53 45 20 67 6e 5f 73 | 65 6e 64 20 3d 20 34 0a |ASE gn_s|end = 4.|
|00002d20| 20 20 20 20 20 20 20 20 | 20 6c 63 5f 74 6f 70 72 |        | lc_topr|
|00002d30| 6e 74 20 3d 20 27 54 4f | 20 50 52 49 4e 54 27 0a |nt = 'TO| PRINT'.|
|00002d40| 20 20 20 20 20 20 20 43 | 41 53 45 20 67 6e 5f 73 |       C|ASE gn_s|
|00002d50| 65 6e 64 20 3d 20 35 0a | 20 20 20 20 20 20 20 20 |end = 5.|        |
|00002d60| 20 6c 63 5f 74 6f 70 72 | 6e 74 20 3d 20 27 54 4f | lc_topr|nt = 'TO|
|00002d70| 20 50 52 49 4e 54 20 53 | 41 4d 50 4c 45 27 0a 20 | PRINT S|AMPLE'. |
|00002d80| 20 20 20 20 20 45 4e 44 | 43 41 53 45 0a 20 20 20 |     END|CASE.   |
|00002d90| 20 20 20 49 46 20 2e 4e | 4f 54 2e 20 67 6e 5f 73 |   IF .N|OT. gn_s|
|00002da0| 65 6e 64 20 3d 20 36 0a | 20 20 20 20 20 20 20 20 |end = 6.|        |
|00002db0| 20 53 45 54 20 4d 45 53 | 53 41 47 45 20 54 4f 20 | SET MES|SAGE TO |
|00002dc0| 27 00 40 01 a8 01 8e 33 | 00 09 0f 50 72 69 6e 74 |'.@....3|...Print|
|00002dd0| 69 6e 67 20 6c 61 62 65 | 6c 73 3f 01 27 0a 20 20 |ing labe|ls?.'.  |
|00002de0| 20 20 20 20 20 20 20 41 | 43 54 49 56 41 54 45 20 |       A|CTIVATE |
|00002df0| 57 49 4e 44 4f 57 20 64 | 65 73 6b 74 6f 70 0a 20 |WINDOW d|esktop. |
|00002e00| 20 20 20 20 20 20 20 20 | 53 45 54 20 45 53 43 41 |        |SET ESCA|
|00002e10| 50 45 20 4f 4e 0a 20 20 | 20 20 20 20 20 20 20 4f |PE ON.  |       O|
|00002e20| 4e 20 45 52 52 4f 52 20 | 44 4f 20 70 72 6e 74 72 |N ERROR |DO prntr|
|00002e30| 74 72 79 0a 20 20 20 20 | 20 20 20 20 20 4c 41 42 |try.    |     LAB|
|00002e40| 45 4c 20 46 4f 52 4d 20 | 00 40 01 ac 01 0d 34 00 |EL FORM |.@....4.|
|00002e50| 0e f5 00 00 3f 01 20 26 | 6c 63 5f 74 6f 70 72 6e |....?. &|lc_toprn|
|00002e60| 74 2e 0a 20 20 20 20 20 | 20 20 20 20 49 46 20 67 |t..     |    IF g|
|00002e70| 6e 5f 70 6b 65 79 20 3c | 3e 20 32 37 0a 20 20 20 |n_pkey <|> 27.   |
|00002e80| 20 20 20 20 20 20 20 20 | 20 57 41 49 54 0a 20 20 |        | WAIT.  |
|00002e90| 20 20 20 20 20 20 20 45 | 4e 44 49 46 0a 20 20 20 |       E|NDIF.   |
|00002ea0| 20 20 20 20 20 20 53 45 | 54 20 45 53 43 41 50 45 |      SE|T ESCAPE|
|00002eb0| 20 00 40 01 b0 01 77 34 | 00 0e 54 00 00 2f ca 2e | .@...w4|..T../..|
|00002ec0| 00 01 4f 46 46 00 2e dc | 2e 00 40 01 b0 01 77 34 |..OFF...|..@...w4|
|00002ed0| 00 01 4f 4e 00 40 01 b0 | 01 77 34 00 01 0a 20 20 |..ON.@..|.w4...  |
|00002ee0| 20 20 20 20 20 20 20 44 | 45 41 43 54 49 56 41 54 |       D|EACTIVAT|
|00002ef0| 45 20 57 49 4e 44 4f 57 | 20 64 65 73 6b 74 6f 70 |E WINDOW| desktop|
|00002f00| 0a 20 20 20 20 20 20 45 | 4e 44 49 46 0a 20 20 20 |.      E|NDIF.   |
|00002f10| 20 20 20 47 4f 54 4f 20 | 67 6e 5f 72 65 63 6e 6f |   GOTO |gn_recno|
|00002f20| 0a 20 20 20 20 20 20 4f | 4e 20 45 52 52 4f 52 20 |.      O|N ERROR |
|00002f30| 44 4f 20 50 41 55 53 45 | 20 57 49 54 48 20 00 40 |DO PAUSE| WITH .@|
|00002f40| 01 b4 01 f9 34 00 09 48 | 5b 45 72 72 6f 72 20 6f |....4..H|[Error o|
|00002f50| 63 63 75 72 72 65 64 20 | 6f 6e 20 6c 69 6e 65 20 |ccurred |on line |
|00002f60| 5d 2b 4c 54 52 49 4d 28 | 53 54 52 28 4c 49 4e 45 |]+LTRIM(|STR(LINE|
|00002f70| 28 29 29 29 20 2b 5b 20 | 6f 66 20 70 72 6f 63 65 |())) +[ |of proce|
|00002f80| 64 75 72 65 20 5d 2b 50 | 72 6f 67 72 61 6d 28 29 |dure ]+P|rogram()|
|00002f90| 3f 01 0a 00 40 01 b5 01 | 27 35 00 40 01 b6 01 31 |?...@...|'5.@...1|
|00002fa0| 35 00 0e 39 00 00 30 b2 | 2f 00 0e b1 00 00 2f e3 |5..9..0.|/...../.|
|00002fb0| 30 00 40 01 b6 01 31 35 | 00 01 20 20 20 43 41 53 |0.@...15|..   CAS|
|00002fc0| 45 20 67 6e 5f 62 61 72 | 76 20 3d 20 00 40 01 b7 |E gn_bar|v = .@..|
|00002fd0| 01 51 35 00 03 05 00 3f | 01 0a 20 20 20 20 20 20 |.Q5....?|..      |
|00002fe0| 2a 2d 2d 20 52 65 69 6e | 64 65 78 20 00 40 01 b8 |*-- Rein|dex .@..|
|00002ff0| 01 70 35 00 0e 38 00 00 | 38 3e 01 01 0c 3f 01 0a |.p5..8..|8>...?..|
|00003000| 20 20 20 20 20 20 41 43 | 54 49 56 41 54 45 20 57 |      AC|TIVATE W|
|00003010| 49 4e 44 4f 57 20 64 65 | 73 6b 74 6f 70 0a 20 20 |INDOW de|sktop.  |
|00003020| 20 20 20 20 40 20 33 2c | 30 20 53 41 59 20 22 00 |    @ 3,|0 SAY ".|
|00003030| 40 01 ba 01 b5 35 00 09 | 14 52 65 69 6e 64 65 78 |@....5..|.Reindex|
|00003040| 69 6e 67 20 64 61 74 61 | 62 61 73 65 20 0e 38 00 |ing data|base .8.|
|00003050| 00 1a 09 03 2e 2e 2e 1a | 3f 01 22 0a 20 20 20 20 |........|?.".    |
|00003060| 20 20 40 20 34 2c 30 0a | 20 20 20 20 20 20 53 45 |  @ 4,0.|      SE|
|00003070| 54 20 54 41 4c 4b 20 4f | 4e 0a 20 20 20 20 20 20 |T TALK O|N.      |
|00003080| 52 45 49 4e 44 45 58 0a | 20 20 20 20 20 20 47 4f |REINDEX.|      GO|
|00003090| 20 54 4f 50 0a 20 20 20 | 20 20 20 3f 0a 20 20 20 | TOP.   |   ?.   |
|000030a0| 20 20 20 57 41 49 54 0a | 20 20 20 20 20 20 53 45 |   WAIT.|      SE|
|000030b0| 54 20 54 41 4c 4b 20 4f | 46 46 0a 20 20 20 20 20 |T TALK O|FF.     |
|000030c0| 20 44 45 41 43 54 49 56 | 41 54 45 20 57 49 4e 44 | DEACTIV|ATE WIND|
|000030d0| 4f 57 20 64 65 73 6b 74 | 6f 70 0a 00 40 01 c3 01 |OW deskt|op..@...|
|000030e0| 71 36 00 01 20 20 20 43 | 41 53 45 20 67 6e 5f 62 |q6..   C|ASE gn_b|
|000030f0| 61 72 76 20 3d 20 00 40 | 01 c4 01 7c 36 00 03 02 |arv = .@|...|6...|
|00003100| 00 3f 01 0a 20 20 20 20 | 20 20 44 45 41 43 54 49 |.?..    |  DEACTI|
|00003110| 56 41 54 45 20 50 4f 50 | 55 50 0a 45 4e 44 43 41 |VATE POP|UP.ENDCA|
|00003120| 53 45 0a 53 45 54 20 4d | 45 53 53 41 47 45 20 54 |SE.SET M|ESSAGE T|
|00003130| 4f 0a 00 40 01 c8 01 c9 | 36 00 0e f3 00 00 2f 85 |O..@....|6...../.|
|00003140| 31 00 01 49 46 20 67 63 | 5f 73 74 61 74 75 73 20 |1..IF gc|_status |
|00003150| 3d 20 22 4f 46 46 22 0a | 20 20 20 53 45 54 20 53 |= "OFF".|   SET S|
|00003160| 54 41 54 55 53 20 4f 4e | 0a 45 4e 44 49 46 0a 53 |TATUS ON|.ENDIF.S|
|00003170| 45 54 20 46 4f 52 4d 41 | 54 20 54 4f 0a 00 40 01 |ET FORMA|T TO..@.|
|00003180| cd 01 1c 37 00 01 52 45 | 53 54 4f 52 45 20 53 43 |...7..RE|STORE SC|
|00003190| 52 45 45 4e 20 46 52 4f | 4d 20 71 75 69 63 6b 0a |REEN FRO|M quick.|
|000031a0| 52 45 54 55 52 4e 0a 0a | 00 01 50 52 4f 43 45 44 |RETURN..|..PROCED|
|000031b0| 55 52 45 20 50 61 75 73 | 65 0a 50 41 52 41 4d 45 |URE Paus|e.PARAME|
|000031c0| 54 45 52 20 6c 63 5f 6d | 73 67 0a 2a 2d 2d 20 50 |TER lc_m|sg.*-- P|
|000031d0| 61 72 61 6d 65 74 65 72 | 73 20 3a 20 6c 63 5f 6d |arameter|s : lc_m|
|000031e0| 73 67 20 3d 20 6d 65 73 | 73 61 67 65 20 6c 69 6e |sg = mes|sage lin|
|000031f0| 65 0a 49 46 20 54 59 50 | 45 28 22 6c 63 5f 6d 65 |e.IF TYP|E("lc_me|
|00003200| 73 73 61 67 65 22 29 3d | 22 55 22 0a 20 20 20 67 |ssage")=|"U".   g|
|00003210| 6e 5f 65 72 72 6f 72 3d | 45 52 52 4f 52 28 29 0a |n_error=|ERROR().|
|00003220| 45 4e 44 49 46 0a 6c 63 | 5f 6d 73 67 20 3d 20 6c |ENDIF.lc|_msg = l|
|00003230| 63 5f 6d 73 67 0a 6c 63 | 5f 6f 70 74 69 6f 6e 3d |c_msg.lc|_option=|
|00003240| 27 30 27 0a 41 43 54 49 | 56 41 54 45 20 57 49 4e |'0'.ACTI|VATE WIN|
|00003250| 44 4f 57 20 50 61 75 73 | 65 0a 49 46 20 67 6e 5f |DOW Paus|e.IF gn_|
|00003260| 65 72 72 6f 72 20 3e 20 | 30 0a 20 20 20 49 46 20 |error > |0.   IF |
|00003270| 54 59 50 45 28 22 6c 63 | 5f 6d 65 73 73 61 67 65 |TYPE("lc|_message|
|00003280| 22 29 3d 22 55 22 0a 20 | 20 20 20 20 20 40 20 30 |")="U". |     @ 0|
|00003290| 2c 31 20 53 41 59 20 00 | 40 07 18 00 4d 02 00 09 |,1 SAY .|@...M...|
|000032a0| 36 5b 41 6e 20 65 72 72 | 6f 72 20 68 61 73 20 6f |6[An err|or has o|
|000032b0| 63 63 75 72 72 65 64 20 | 21 21 20 2d 20 45 72 72 |ccurred |!! - Err|
|000032c0| 6f 72 20 6d 65 73 73 61 | 67 65 3a 20 5d 2b 4d 45 |or messa|ge: ]+ME|
|000032d0| 53 53 41 47 45 28 29 3f | 01 0a 20 20 20 45 4c 53 |SSAGE()?|..   ELS|
|000032e0| 45 0a 20 20 20 20 20 20 | 40 20 30 2c 31 20 53 41 |E.      |@ 0,1 SA|
|000032f0| 59 20 00 40 07 1a 00 74 | 02 00 09 15 5b 45 72 72 |Y .@...t|....[Err|
|00003300| 6f 72 20 23 20 5d 2b 6c | 63 5f 6d 65 73 73 61 67 |or # ]+l|c_messag|
|00003310| 65 3f 01 0a 20 20 20 45 | 4e 44 49 46 0a 45 4e 44 |e?..   E|NDIF.END|
|00003320| 49 46 0a 40 20 31 2c 31 | 20 53 41 59 20 6c 63 5f |IF.@ 1,1| SAY lc_|
|00003330| 6d 73 67 0a 57 41 49 54 | 20 22 00 40 07 1e 00 b5 |msg.WAIT| ".@....|
|00003340| 02 00 09 1d 20 50 72 65 | 73 73 20 61 6e 79 20 6b |.... Pre|ss any k|
|00003350| 65 79 20 74 6f 20 63 6f | 6e 74 69 6e 75 65 2e 2e |ey to co|ntinue..|
|00003360| 2e 3f 01 22 0a 44 45 41 | 43 54 49 56 41 54 45 20 |.?.".DEA|CTIVATE |
|00003370| 57 49 4e 44 4f 57 20 50 | 61 75 73 65 0a 52 45 54 |WINDOW P|ause.RET|
|00003380| 55 52 4e 0a 00 01 0a 0a | 50 52 4f 43 45 44 55 52 |URN.....|PROCEDUR|
|00003390| 45 20 71 75 69 63 6b 68 | 6c 70 0a 2a 2d 2d 20 20 |E quickh|lp.*--  |
|000033a0| 49 66 20 79 6f 75 20 77 | 61 6e 74 20 74 6f 20 69 |If you w|ant to i|
|000033b0| 6e 63 6c 75 64 65 20 68 | 65 6c 70 20 66 6f 72 20 |nclude h|elp for |
|000033c0| 61 20 71 75 69 63 6b 61 | 70 70 20 75 6e 63 6f 6d |a quicka|pp uncom|
|000033d0| 6d 65 6e 74 20 74 68 65 | 20 6c 69 6e 65 73 20 62 |ment the| lines b|
|000033e0| 65 6c 6f 77 20 61 6e 64 | 0a 2a 2d 2d 20 20 70 75 |elow and|.*--  pu|
|000033f0| 74 20 79 6f 75 72 20 68 | 65 6c 70 20 40 20 73 61 |t your h|elp @ sa|
|00003400| 79 27 73 20 69 6e 74 6f | 20 74 68 65 20 63 61 73 |y's into| the cas|
|00003410| 65 20 73 74 61 74 65 6d | 65 6e 74 73 0a 2a 41 43 |e statem|ents.*AC|
|00003420| 54 49 56 41 54 45 20 57 | 49 4e 44 4f 57 20 64 65 |TIVATE W|INDOW de|
|00003430| 73 6b 74 6f 70 0a 2a 43 | 4c 45 41 52 0a 44 4f 20 |sktop.*C|LEAR.DO |
|00003440| 43 41 53 45 0a 00 40 01 | d9 01 29 38 00 08 01 00 |CASE..@.|..)8....|
|00003450| 00 00 11 10 00 40 01 d9 | 01 29 38 00 03 02 00 03 |.....@..|.)8.....|
|00003460| 10 00 33 99 34 00 01 20 | 20 43 41 53 45 20 42 41 |..3.4.. | CASE BA|
|00003470| 52 28 29 20 3d 20 00 40 | 01 da 01 43 38 00 03 10 |R() = .@|...C8...|
|00003480| 00 3f 01 0a 00 40 01 db | 01 5a 38 00 08 01 00 00 |.?...@..|.Z8.....|
|00003490| 00 03 10 00 2a 2e 55 34 | 00 40 01 db 01 5a 38 00 |....*.U4|.@...Z8.|
|000034a0| 01 45 4e 44 43 41 53 45 | 0a 2a 57 41 49 54 0a 2a |.ENDCASE|.*WAIT.*|
|000034b0| 44 45 41 43 54 49 56 41 | 54 45 20 57 49 4e 44 4f |DEACTIVA|TE WINDO|
|000034c0| 57 20 64 65 73 6b 74 6f | 70 0a 52 45 54 55 52 4e |W deskto|p.RETURN|
|000034d0| 0a 0a 00 40 01 e1 01 98 | 38 00 0e f5 00 00 30 ea |...@....|8.....0.|
|000034e0| 34 00 0e f4 00 00 2f 79 | 4c 00 40 01 e2 01 b9 38 |4...../y|L.@....8|
|000034f0| 00 01 50 52 4f 43 45 44 | 55 52 45 20 50 6f 73 69 |..PROCED|URE Posi|
|00003500| 74 69 6f 6e 0a 49 46 20 | 4c 45 4e 28 44 42 46 28 |tion.IF |LEN(DBF(|
|00003510| 29 29 20 3d 20 30 0a 20 | 20 20 44 4f 20 50 61 75 |)) = 0. |  DO Pau|
|00003520| 73 65 20 57 49 54 48 20 | 22 00 40 08 28 00 6b 06 |se WITH |".@.(.k.|
|00003530| 00 09 15 44 61 74 61 62 | 61 73 65 20 6e 6f 74 20 |...Datab|ase not |
|00003540| 69 6e 20 75 73 65 2e 20 | 3f 01 22 0a 20 20 20 52 |in use. |?.".   R|
|00003550| 45 54 55 52 4e 0a 45 4e | 44 49 46 0a 53 45 54 20 |ETURN.EN|DIF.SET |
|00003560| 53 50 41 43 45 20 4f 4e | 0a 53 45 54 20 44 45 4c |SPACE ON|.SET DEL|
|00003570| 49 4d 49 54 45 52 53 20 | 4f 46 46 0a 00 40 08 2e |IMITERS |OFF..@..|
|00003580| 00 d7 06 00 08 08 00 00 | 00 11 13 00 40 08 30 00 |........|....@.0.|
|00003590| fc 06 00 08 1e 00 00 00 | 11 14 00 01 6c 6e 5f 74 |........|....ln_t|
|000035a0| 79 70 65 3d 30 20 20 20 | 20 20 20 20 20 20 20 26 |ype=0   |       &|
|000035b0| 26 20 73 75 62 6c 65 76 | 65 6c 20 73 65 6c 65 63 |& sublev|el selec|
|000035c0| 74 69 6f 6e 0a 6c 6e 5f | 72 6b 65 79 3d 52 45 41 |tion.ln_|rkey=REA|
|000035d0| 44 4b 45 59 28 29 20 20 | 26 26 20 74 65 73 74 20 |DKEY()  |&& test |
|000035e0| 66 6f 72 20 45 53 43 20 | 6f 72 20 52 65 74 75 72 |for ESC |or Retur|
|000035f0| 6e 0a 6c 6e 5f 72 65 63 | 3d 52 45 43 4e 4f 28 29 |n.ln_rec|=RECNO()|
|00003600| 20 20 20 20 20 26 26 20 | 44 42 46 20 72 65 63 6f |     && |DBF reco|
|00003610| 72 64 20 6e 75 6d 62 65 | 72 0a 6c 6e 5f 6e 75 6d |rd numbe|r.ln_num|
|00003620| 3d 30 20 20 20 20 20 20 | 20 20 20 20 20 26 26 20 |=0      |     && |
|00003630| 66 6f 72 20 69 6e 70 75 | 74 20 6f 66 20 61 20 6e |for inpu|t of a n|
|00003640| 75 6d 62 65 72 0a 6c 64 | 5f 64 61 74 65 3d 44 41 |umber.ld|_date=DA|
|00003650| 54 45 28 29 20 20 20 20 | 20 26 26 20 66 6f 72 20 |TE()    | && for |
|00003660| 69 6e 70 75 74 20 6f 66 | 20 61 20 64 61 74 65 0a |input of| a date.|
|00003670| 6c 63 5f 6f 70 74 69 6f | 6e 3d 27 30 27 20 20 20 |lc_optio|n='0'   |
|00003680| 20 20 20 26 26 20 6d 61 | 69 6e 20 6f 70 74 69 6f |   && ma|in optio|
|00003690| 6e 20 69 65 2e 20 53 65 | 65 6b 2c 20 47 6f 74 6f |n ie. Se|ek, Goto|
|000036a0| 20 61 6e 64 20 4c 6f 63 | 61 74 65 0a 2a 2d 2d 20 | and Loc|ate.*-- |
|000036b0| 53 63 6f 70 65 20 69 65 | 2e 20 41 4c 4c 2c 20 52 |Scope ie|. ALL, R|
|000036c0| 45 53 54 2c 20 4e 45 58 | 54 20 3c 6e 3e 0a 53 54 |EST, NEX|T <n>.ST|
|000036d0| 4f 52 45 20 53 50 41 43 | 45 28 31 30 29 20 54 4f |ORE SPAC|E(10) TO|
|000036e0| 20 6c 63 5f 73 63 70 0a | 2a 2d 2d 20 31 20 3d 20 | lc_scp.|*-- 1 = |
|000036f0| 43 68 61 72 61 63 74 65 | 72 20 53 45 45 4b 2c 20 |Characte|r SEEK, |
|00003700| 32 20 3d 20 46 6f 72 20 | 63 6c 61 75 73 65 2c 20 |2 = For |clause, |
|00003710| 33 20 3d 20 57 68 69 6c | 65 20 63 6c 61 75 73 65 |3 = Whil|e clause|
|00003720| 0a 53 54 4f 52 45 20 53 | 50 41 43 45 28 34 30 29 |.STORE S|PACE(40)|
|00003730| 20 54 4f 20 6c 63 5f 6c | 6e 31 2c 20 6c 63 5f 6c | TO lc_l|n1, lc_l|
|00003740| 6e 32 2c 20 6c 63 5f 6c | 6e 33 0a 6c 63 5f 74 65 |n2, lc_l|n3.lc_te|
|00003750| 6d 70 3d 22 22 0a 40 20 | 30 2c 30 30 20 53 41 59 |mp="".@ |0,00 SAY|
|00003760| 20 22 00 40 08 3c 00 d4 | 08 00 09 0d 49 6e 64 65 | ".@.<..|....Inde|
|00003770| 78 20 6f 72 64 65 72 3a | 20 3f 01 22 2b 49 49 46 |x order:| ?."+IIF|
|00003780| 28 22 22 3d 4f 52 44 45 | 52 28 29 2c 22 00 09 1c |(""=ORDE|R(),"...|
|00003790| 44 61 74 61 62 61 73 65 | 20 69 73 20 69 6e 20 6e |Database| is in n|
|000037a0| 61 74 75 72 61 6c 20 6f | 72 64 65 72 3f 01 22 2c |atural o|rder?.",|
|000037b0| 4f 52 44 45 52 28 29 29 | 0a 40 20 31 2c 30 30 20 |ORDER())|.@ 1,00 |
|000037c0| 53 41 59 20 22 00 40 08 | 3d 00 16 09 00 09 25 4c |SAY ".@.|=.....%L|
|000037d0| 69 73 74 65 64 20 62 65 | 6c 6f 77 20 61 72 65 20 |isted be|low are |
|000037e0| 74 68 65 20 66 69 72 73 | 74 20 31 36 20 66 69 65 |the firs|t 16 fie|
|000037f0| 6c 64 73 2e 3f 01 22 0a | 6c 63 5f 74 65 6d 70 3d |lds.?.".|lc_temp=|
|00003800| 52 45 50 4c 49 43 41 54 | 45 28 43 48 52 28 31 39 |REPLICAT|E(CHR(19|
|00003810| 36 29 2c 31 39 29 0a 40 | 20 32 2c 30 20 53 41 59 |6),19).@| 2,0 SAY|
|00003820| 20 43 48 52 28 32 31 38 | 29 2b 6c 63 5f 74 65 6d | CHR(218|)+lc_tem|
|00003830| 70 2b 43 48 52 28 31 39 | 34 29 2b 6c 63 5f 74 65 |p+CHR(19|4)+lc_te|
|00003840| 6d 70 2b 43 48 52 28 31 | 39 34 29 2b 6c 63 5f 74 |mp+CHR(1|94)+lc_t|
|00003850| 65 6d 70 2b 43 48 52 28 | 31 39 34 29 2b 6c 63 5f |emp+CHR(|194)+lc_|
|00003860| 74 65 6d 70 0a 6c 6e 5f | 6e 75 6d 3d 32 34 30 0a |temp.ln_|num=240.|
|00003870| 44 4f 20 57 48 49 4c 45 | 20 6c 6e 5f 6e 75 6d 20 |DO WHILE| ln_num |
|00003880| 3c 20 35 36 30 0a 20 20 | 20 6c 63 5f 74 65 6d 70 |< 560.  | lc_temp|
|00003890| 3d 46 49 45 4c 44 28 20 | 28 6c 6e 5f 6e 75 6d 2d |=FIELD( |(ln_num-|
|000038a0| 32 34 30 29 2f 32 30 20 | 2b 31 29 0a 20 20 20 40 |240)/20 |+1).   @|
|000038b0| 20 28 6c 6e 5f 6e 75 6d | 2f 38 30 29 2c 4d 4f 44 | (ln_num|/80),MOD|
|000038c0| 28 6c 6e 5f 6e 75 6d 2c | 38 30 29 20 53 41 59 20 |(ln_num,|80) SAY |
|000038d0| 43 48 52 28 31 37 39 29 | 2b 3b 0a 6c 63 5f 74 65 |CHR(179)|+;.lc_te|
|000038e0| 6d 70 2b 53 50 41 43 45 | 28 31 31 2d 4c 45 4e 28 |mp+SPACE|(11-LEN(|
|000038f0| 6c 63 5f 74 65 6d 70 29 | 29 2b 3b 0a 53 55 42 53 |lc_temp)|)+;.SUBS|
|00003900| 54 52 28 22 00 40 08 45 | 00 3c 0a 00 09 38 3d 20 |TR(".@.E|.<...8= |
|00003910| 43 68 61 72 20 20 3d 20 | 44 61 74 65 20 20 3d 20 |Char  = |Date  = |
|00003920| 4c 6f 67 69 63 20 3d 20 | 4e 75 6d 20 20 20 3d 20 |Logic = |Num   = |
|00003930| 46 6c 6f 61 74 20 3d 20 | 4d 65 6d 6f 20 20 20 20 |Float = |Memo    |
|00003940| 20 20 20 20 20 20 3f 01 | 22 2c 3b 0a 41 54 28 54 |      ?.|",;.AT(T|
|00003950| 59 50 45 28 6c 63 5f 74 | 65 6d 70 29 2c 22 43 44 |YPE(lc_t|emp),"CD|
|00003960| 4c 4e 46 4d 55 22 29 2a | 38 2d 37 2c 38 29 0a 20 |LNFMU")*|8-7,8). |
|00003970| 20 20 6c 6e 5f 6e 75 6d | 3d 6c 6e 5f 6e 75 6d 2b |  ln_num|=ln_num+|
|00003980| 32 30 0a 45 4e 44 44 4f | 0a 6c 6e 5f 6e 75 6d 3d |20.ENDDO|.ln_num=|
|00003990| 31 0a 0a 44 45 46 49 4e | 45 20 50 4f 50 55 50 20 |1..DEFIN|E POPUP |
|000039a0| 50 6f 73 69 74 31 20 46 | 52 4f 4d 20 00 40 08 4b |Posit1 F|ROM .@.K|
|000039b0| 00 a1 0a 00 03 13 00 3f | 01 2c 00 03 14 00 3f 01 |.......?|.,....?.|
|000039c0| 0a 44 45 46 49 4e 45 20 | 42 41 52 20 31 20 4f 46 |.DEFINE |BAR 1 OF|
|000039d0| 20 50 6f 73 69 74 31 20 | 50 52 4f 4d 50 54 20 22 | Posit1 |PROMPT "|
|000039e0| 00 40 08 4c 00 cf 0a 00 | 09 0d 20 50 6f 73 69 74 |.@.L....|.. Posit|
|000039f0| 69 6f 6e 20 62 79 20 3f | 01 22 20 53 4b 49 50 0a |ion by ?|." SKIP.|
|00003a00| 44 45 46 49 4e 45 20 42 | 41 52 20 32 20 4f 46 20 |DEFINE B|AR 2 OF |
|00003a10| 50 6f 73 69 74 31 20 50 | 52 4f 4d 50 54 20 52 45 |Posit1 P|ROMPT RE|
|00003a20| 50 4c 49 43 41 54 45 28 | 43 48 52 28 31 39 36 29 |PLICATE(|CHR(196)|
|00003a30| 2c 31 35 29 20 53 4b 49 | 50 0a 44 45 46 49 4e 45 |,15) SKI|P.DEFINE|
|00003a40| 20 42 41 52 20 33 20 4f | 46 20 50 6f 73 69 74 31 | BAR 3 O|F Posit1|
|00003a50| 20 50 52 4f 4d 50 54 20 | 22 00 40 08 4e 00 3d 0b | PROMPT |".@.N.=.|
|00003a60| 00 09 0c 20 53 45 45 4b | 20 52 65 63 6f 72 64 3f |... SEEK| Record?|
|00003a70| 01 22 20 4d 45 53 53 41 | 47 45 20 22 00 09 13 53 |." MESSA|GE "...S|
|00003a80| 65 61 72 63 68 20 6f 6e | 20 69 6e 64 65 78 20 6b |earch on| index k|
|00003a90| 65 79 3f 01 22 20 53 4b | 49 50 20 46 4f 52 20 22 |ey?." SK|IP FOR "|
|00003aa0| 22 3d 4f 52 44 45 52 28 | 29 0a 44 45 46 49 4e 45 |"=ORDER(|).DEFINE|
|00003ab0| 20 42 41 52 20 34 20 4f | 46 20 50 6f 73 69 74 31 | BAR 4 O|F Posit1|
|00003ac0| 20 50 52 4f 4d 50 54 20 | 22 00 40 08 4f 00 96 0b | PROMPT |".@.O...|
|00003ad0| 00 09 0c 20 47 4f 54 4f | 20 52 65 63 6f 72 64 3f |... GOTO| Record?|
|00003ae0| 01 22 20 4d 45 53 53 41 | 47 45 20 22 00 09 1b 50 |." MESSA|GE "...P|
|00003af0| 6f 73 69 74 69 6f 6e 20 | 74 6f 20 73 70 65 63 69 |osition |to speci|
|00003b00| 66 69 63 20 72 65 63 6f | 72 64 3f 01 22 0a 44 45 |fic reco|rd?.".DE|
|00003b10| 46 49 4e 45 20 42 41 52 | 20 35 20 4f 46 20 50 6f |FINE BAR| 5 OF Po|
|00003b20| 73 69 74 31 20 50 52 4f | 4d 50 54 20 22 00 40 08 |sit1 PRO|MPT ".@.|
|00003b30| 50 00 db 0b 00 09 0f 20 | 4c 4f 43 41 54 45 20 52 |P...... |LOCATE R|
|00003b40| 65 63 6f 72 64 20 3f 01 | 22 20 4d 45 53 53 41 47 |ecord ?.|" MESSAG|
|00003b50| 45 20 22 00 09 1b 4c 6f | 63 61 74 65 20 72 65 63 |E "...Lo|cate rec|
|00003b60| 6f 72 64 20 66 6f 72 20 | 63 6f 6e 64 69 74 69 6f |ord for |conditio|
|00003b70| 6e 3f 01 22 0a 44 45 46 | 49 4e 45 20 42 41 52 20 |n?.".DEF|INE BAR |
|00003b80| 36 20 4f 46 20 50 6f 73 | 69 74 31 20 50 52 4f 4d |6 OF Pos|it1 PROM|
|00003b90| 50 54 20 22 00 40 08 51 | 00 20 0c 00 09 07 20 52 |PT ".@.Q|. .... R|
|00003ba0| 65 74 75 72 6e 3f 01 22 | 20 4d 45 53 53 41 47 45 |eturn?."| MESSAGE|
|00003bb0| 20 22 00 09 1a 52 65 74 | 75 72 6e 20 77 69 74 68 | "...Ret|urn with|
|00003bc0| 6f 75 74 20 70 6f 73 69 | 74 69 6f 6e 69 6e 67 3f |out posi|tioning?|
|00003bd0| 01 22 0a 4f 4e 20 53 45 | 4c 45 43 54 49 4f 4e 20 |.".ON SE|LECTION |
|00003be0| 50 4f 50 55 50 20 50 6f | 73 69 74 31 20 44 4f 20 |POPUP Po|sit1 DO |
|00003bf0| 67 65 74 5f 73 65 6c 65 | 0a 0a 53 45 54 20 43 4f |get_sele|..SET CO|
|00003c00| 4e 46 49 52 4d 20 4f 4e | 0a 44 4f 20 57 48 49 4c |NFIRM ON|.DO WHIL|
|00003c10| 45 20 6c 63 5f 6f 70 74 | 69 6f 6e 3d 27 30 27 0a |E lc_opt|ion='0'.|
|00003c20| 20 20 41 43 54 49 56 41 | 54 45 20 50 4f 50 55 50 |  ACTIVA|TE POPUP|
|00003c30| 20 50 6f 73 69 74 31 0a | 20 20 6c 63 5f 6f 70 74 | Posit1.|  lc_opt|
|00003c40| 69 6f 6e 20 3d 20 6c 74 | 72 69 6d 28 73 74 72 28 |ion = lt|rim(str(|
|00003c50| 67 6e 5f 73 65 6e 64 29 | 29 20 20 26 26 20 66 6f |gn_send)|)  && fo|
|00003c60| 72 20 70 6f 70 75 70 0a | 20 20 20 49 46 20 4c 41 |r popup.|   IF LA|
|00003c70| 53 54 4b 45 59 28 29 20 | 3d 20 32 37 20 2e 4f 52 |STKEY() |= 27 .OR|
|00003c80| 2e 20 6c 63 5f 6f 70 74 | 69 6f 6e 3d 22 36 22 0a |. lc_opt|ion="6".|
|00003c90| 20 20 20 20 20 20 47 4f | 54 4f 20 6c 6e 5f 72 65 |      GO|TO ln_re|
|00003ca0| 63 0a 20 20 20 20 20 20 | 45 58 49 54 0a 20 20 20 |c.      |EXIT.   |
|00003cb0| 45 4e 44 49 46 0a 20 20 | 20 44 4f 20 43 41 53 45 |ENDIF.  | DO CASE|
|00003cc0| 0a 20 20 20 43 41 53 45 | 20 6c 63 5f 6f 70 74 69 |.   CASE| lc_opti|
|00003cd0| 6f 6e 3d 27 33 27 0a 20 | 20 20 20 20 20 2a 2d 2d |on='3'. |     *--|
|00003ce0| 20 53 65 65 6b 0a 20 20 | 20 20 20 20 49 46 20 4c | Seek.  |    IF L|
|00003cf0| 45 4e 28 4e 44 58 28 31 | 29 29 3d 30 20 2e 41 4e |EN(NDX(1|))=0 .AN|
|00003d00| 44 2e 20 4c 45 4e 28 4d | 44 58 28 31 29 29 3d 30 |D. LEN(M|DX(1))=0|
|00003d10| 0a 20 20 20 20 20 20 20 | 20 20 44 4f 20 50 61 75 |.       |  DO Pau|
|00003d20| 73 65 20 57 49 54 48 20 | 22 00 40 08 60 00 b1 0d |se WITH |".@.`...|
|00003d30| 00 09 30 43 61 6e 27 74 | 20 75 73 65 20 74 68 69 |..0Can't| use thi|
|00003d40| 73 20 6f 70 74 69 6f 6e | 20 2d 20 4e 6f 20 69 6e |s option| - No in|
|00003d50| 64 65 78 20 66 69 6c 65 | 73 20 61 72 65 20 6f 70 |dex file|s are op|
|00003d60| 65 6e 2e 3f 01 22 0a 20 | 20 20 20 20 20 20 20 20 |en.?.". |        |
|00003d70| 4c 4f 4f 50 0a 20 20 20 | 20 20 20 45 4e 44 49 46 |LOOP.   |   ENDIF|
|00003d80| 0a 20 20 20 20 20 20 6c | 6e 5f 74 79 70 65 3d 31 |.      l|n_type=1|
|00003d90| 0a 20 20 20 20 20 20 6c | 63 5f 6c 6e 31 3d 53 50 |.      l|c_ln1=SP|
|00003da0| 41 43 45 28 34 30 29 0a | 20 20 20 20 20 20 44 45 |ACE(40).|      DE|
|00003db0| 46 49 4e 45 20 57 49 4e | 44 4f 57 20 50 6f 73 69 |FINE WIN|DOW Posi|
|00003dc0| 74 32 20 46 52 4f 4d 20 | 00 40 08 65 00 1d 0e 00 |t2 FROM |.@.e....|
|00003dd0| 03 13 00 3f 01 2c 00 03 | 14 00 08 0b 00 00 00 1b |...?.,..|........|
|00003de0| 3f 01 20 54 4f 20 00 03 | 13 00 08 07 00 00 00 1a |?. TO ..|........|
|00003df0| 3f 01 2c 00 03 14 00 08 | 20 00 00 00 1a 3f 01 20 |?.,.....| ....?. |
|00003e00| 44 4f 55 42 4c 45 0a 20 | 20 20 20 20 20 41 43 54 |DOUBLE. |     ACT|
|00003e10| 49 56 41 54 45 20 57 49 | 4e 44 4f 57 20 50 6f 73 |IVATE WI|NDOW Pos|
|00003e20| 69 74 32 0a 20 20 20 20 | 20 20 40 20 31 2c 31 20 |it2.    |  @ 1,1 |
|00003e30| 53 41 59 20 22 00 40 08 | 67 00 96 0e 00 09 1d 45 |SAY ".@.|g......E|
|00003e40| 6e 74 65 72 20 74 68 65 | 20 74 79 70 65 20 6f 66 |nter the| type of|
|00003e50| 20 65 78 70 72 65 73 73 | 69 6f 6e 3a 3f 01 22 20 | express|ion:?." |
|00003e60| 47 45 54 20 6c 6e 5f 74 | 79 70 65 20 50 49 43 54 |GET ln_t|ype PICT|
|00003e70| 20 22 23 22 20 52 41 4e | 47 45 20 31 2c 33 0a 20 | "#" RAN|GE 1,3. |
|00003e80| 20 20 20 20 20 40 20 32 | 2c 31 20 53 41 59 20 22 |     @ 2|,1 SAY "|
|00003e90| 00 40 08 68 00 d6 0e 00 | 09 24 28 31 3d 63 68 61 |.@.h....|.$(1=cha|
|00003ea0| 72 61 63 74 65 72 2c 20 | 32 3d 6e 75 6d 65 72 69 |racter, |2=numeri|
|00003eb0| 63 20 61 6e 64 20 33 3d | 64 61 74 65 2e 29 3f 01 |c and 3=|date.)?.|
|00003ec0| 22 0a 20 20 20 20 20 20 | 52 45 41 44 0a 20 20 20 |".      |READ.   |
|00003ed0| 20 20 20 49 46 20 2e 4e | 4f 54 2e 20 28 52 45 41 |   IF .N|OT. (REA|
|00003ee0| 44 4b 45 59 28 29 20 3d | 20 31 32 20 2e 4f 52 2e |DKEY() =| 12 .OR.|
|00003ef0| 20 52 45 41 44 4b 45 59 | 28 29 20 3d 20 32 36 38 | READKEY|() = 268|
|00003f00| 29 0a 20 20 20 20 20 20 | 20 20 20 53 45 54 20 43 |).      |   SET C|
|00003f10| 4f 4e 46 49 52 4d 20 4f | 4e 0a 20 20 20 20 20 20 |ONFIRM O|N.      |
|00003f20| 20 20 20 40 20 33 2c 31 | 20 53 41 59 20 22 00 40 |   @ 3,1| SAY ".@|
|00003f30| 08 6c 00 52 0f 00 09 27 | 45 6e 74 65 72 20 74 68 |.l.R...'|Enter th|
|00003f40| 65 20 6b 65 79 20 65 78 | 70 72 65 73 73 69 6f 6e |e key ex|pression|
|00003f50| 20 74 6f 20 73 65 61 72 | 63 68 20 66 6f 72 3a 3f | to sear|ch for:?|
|00003f60| 01 22 0a 20 20 20 20 20 | 20 20 20 20 49 46 20 6c |.".     |    IF l|
|00003f70| 6e 5f 74 79 70 65 3d 33 | 0a 20 20 20 20 20 20 20 |n_type=3|.       |
|00003f80| 20 20 20 20 20 40 20 34 | 2c 31 20 47 45 54 20 6c |     @ 4|,1 GET l|
|00003f90| 64 5f 64 61 74 65 20 50 | 49 43 54 20 22 40 44 22 |d_date P|ICT "@D"|
|00003fa0| 0a 20 20 20 20 20 20 20 | 20 20 45 4c 53 45 0a 20 |.       |  ELSE. |
|00003fb0| 20 20 20 20 20 20 20 20 | 20 20 20 49 46 20 6c 6e |        |   IF ln|
|00003fc0| 5f 74 79 70 65 3d 32 0a | 20 20 20 20 20 20 20 20 |_type=2.|        |
|00003fd0| 20 20 20 20 20 20 20 40 | 20 34 2c 31 20 47 45 54 |       @| 4,1 GET|
|00003fe0| 20 6c 6e 5f 6e 75 6d 20 | 50 49 43 54 20 22 23 23 | ln_num |PICT "##|
|00003ff0| 23 23 23 23 23 23 23 23 | 22 0a 20 20 20 20 20 20 |########|".      |
|00004000| 20 20 20 20 20 20 45 4c | 53 45 0a 20 20 20 20 20 |      EL|SE.     |
|00004010| 20 20 20 20 20 20 20 20 | 20 20 40 20 34 2c 31 20 |        |  @ 4,1 |
|00004020| 47 45 54 20 6c 63 5f 6c | 6e 31 0a 20 20 20 20 20 |GET lc_l|n1.     |
|00004030| 20 20 20 20 20 20 20 45 | 4e 44 49 46 0a 20 20 20 |       E|NDIF.   |
|00004040| 20 20 20 20 20 20 45 4e | 44 49 46 0a 20 20 20 20 |      EN|DIF.    |
|00004050| 20 20 20 20 20 52 45 41 | 44 0a 20 20 20 20 20 20 |     REA|D.      |
|00004060| 20 20 20 53 45 54 20 43 | 4f 4e 46 49 52 4d 20 4f |   SET C|ONFIRM O|
|00004070| 46 46 0a 20 20 20 20 20 | 20 20 20 20 49 46 20 2e |FF.     |    IF .|
|00004080| 4e 4f 54 2e 20 28 52 45 | 41 44 4b 45 59 28 29 20 |NOT. (RE|ADKEY() |
|00004090| 3d 20 31 32 20 2e 4f 52 | 2e 20 52 45 41 44 4b 45 |= 12 .OR|. READKE|
|000040a0| 59 28 29 20 3d 20 32 36 | 38 29 0a 20 20 20 20 20 |Y() = 26|8).     |
|000040b0| 20 20 20 20 20 20 20 6c | 63 5f 74 65 6d 70 3d 49 |       l|c_temp=I|
|000040c0| 49 46 28 6c 6e 5f 74 79 | 70 65 3d 31 2c 22 54 52 |IF(ln_ty|pe=1,"TR|
|000040d0| 49 4d 28 6c 63 5f 6c 6e | 31 29 22 2c 49 49 46 28 |IM(lc_ln|1)",IIF(|
|000040e0| 6c 6e 5f 74 79 70 65 3d | 32 2c 22 6c 6e 5f 6e 75 |ln_type=|2,"ln_nu|
|000040f0| 6d 22 2c 22 6c 64 5f 64 | 61 74 65 22 29 29 0a 20 |m","ld_d|ate")). |
|00004100| 20 20 20 20 20 20 20 20 | 20 20 20 53 45 45 4b 20 |        |   SEEK |
|00004110| 26 6c 63 5f 74 65 6d 70 | 2e 0a 20 20 20 20 20 20 |&lc_temp|..      |
|00004120| 20 20 20 45 4e 44 49 46 | 0a 20 20 20 20 20 20 45 |   ENDIF|.      E|
|00004130| 4e 44 49 46 0a 20 20 20 | 20 20 20 52 45 4c 45 41 |NDIF.   |   RELEA|
|00004140| 53 45 20 57 49 4e 44 4f | 57 53 20 50 6f 73 69 74 |SE WINDO|WS Posit|
|00004150| 32 0a 20 20 20 43 41 53 | 45 20 6c 63 5f 6f 70 74 |2.   CAS|E lc_opt|
|00004160| 69 6f 6e 3d 27 34 27 0a | 20 20 20 20 20 20 2a 2d |ion='4'.|      *-|
|00004170| 2d 20 47 6f 74 6f 0a 20 | 20 20 20 20 20 6c 6e 5f |- Goto. |     ln_|
|00004180| 74 79 70 65 3d 31 0a 20 | 20 20 20 20 20 44 45 46 |type=1. |     DEF|
|00004190| 49 4e 45 20 50 4f 50 55 | 50 20 50 6f 73 69 74 32 |INE POPU|P Posit2|
|000041a0| 20 46 52 4f 4d 20 00 40 | 08 81 00 ae 11 00 03 13 | FROM .@|........|
|000041b0| 00 3f 01 2c 00 03 14 00 | 3f 01 0a 20 20 20 20 20 |.?.,....|?..     |
|000041c0| 20 44 45 46 49 4e 45 20 | 42 41 52 20 31 20 4f 46 | DEFINE |BAR 1 OF|
|000041d0| 20 50 6f 73 69 74 32 20 | 50 52 4f 4d 50 54 20 22 | Posit2 |PROMPT "|
|000041e0| 00 40 08 82 00 e2 11 00 | 09 06 20 47 4f 54 4f 3a |.@......|.. GOTO:|
|000041f0| 3f 01 22 20 53 4b 49 50 | 20 0a 20 20 20 20 20 20 |?." SKIP| .      |
|00004200| 44 45 46 49 4e 45 20 42 | 41 52 20 32 20 4f 46 20 |DEFINE B|AR 2 OF |
|00004210| 50 6f 73 69 74 32 20 50 | 52 4f 4d 50 54 20 52 45 |Posit2 P|ROMPT RE|
|00004220| 50 4c 49 43 41 54 45 28 | 43 48 52 28 31 39 36 29 |PLICATE(|CHR(196)|
|00004230| 2c 31 30 29 20 53 4b 49 | 50 20 0a 20 20 20 20 20 |,10) SKI|P .     |
|00004240| 20 44 45 46 49 4e 45 20 | 42 41 52 20 33 20 4f 46 | DEFINE |BAR 3 OF|
|00004250| 20 50 6f 73 69 74 32 20 | 50 52 4f 4d 50 54 20 22 | Posit2 |PROMPT "|
|00004260| 00 40 08 84 00 5f 12 00 | 09 04 20 54 4f 50 3f 01 |.@..._..|.. TOP?.|
|00004270| 22 20 4d 45 53 53 41 47 | 45 20 22 00 09 10 47 4f |" MESSAG|E "...GO|
|00004280| 54 4f 20 54 6f 70 20 6f | 66 20 46 69 6c 65 3f 01 |TO Top o|f File?.|
|00004290| 22 0a 20 20 20 20 20 20 | 44 45 46 49 4e 45 20 42 |".      |DEFINE B|
|000042a0| 41 52 20 34 20 4f 46 20 | 50 6f 73 69 74 32 20 50 |AR 4 OF |Posit2 P|
|000042b0| 52 4f 4d 50 54 20 22 00 | 40 08 85 00 ac 12 00 09 |ROMPT ".|@.......|
|000042c0| 07 20 42 4f 54 54 4f 4d | 3f 01 22 20 4d 45 53 53 |. BOTTOM|?." MESS|
|000042d0| 41 47 45 20 22 00 09 13 | 47 4f 54 4f 20 42 6f 74 |AGE "...|GOTO Bot|
|000042e0| 74 6f 6d 20 6f 66 20 46 | 69 6c 65 3f 01 22 0a 20 |tom of F|ile?.". |
|000042f0| 20 20 20 20 20 44 45 46 | 49 4e 45 20 42 41 52 20 |     DEF|INE BAR |
|00004300| 35 20 4f 46 20 50 6f 73 | 69 74 32 20 50 52 4f 4d |5 OF Pos|it2 PROM|
|00004310| 50 54 20 22 00 40 08 86 | 00 f9 12 00 09 0a 20 52 |PT ".@..|...... R|
|00004320| 65 63 6f 72 64 20 23 20 | 3f 01 22 20 4d 45 53 53 |ecord # |?." MESS|
|00004330| 41 47 45 20 22 00 09 16 | 47 4f 54 4f 20 41 20 53 |AGE "...|GOTO A S|
|00004340| 70 65 63 69 66 69 63 20 | 52 65 63 6f 72 64 3f 01 |pecific |Record?.|
|00004350| 22 0a 20 20 20 20 20 20 | 4f 4e 20 53 45 4c 45 43 |".      |ON SELEC|
|00004360| 54 49 4f 4e 20 50 4f 50 | 55 50 20 50 6f 73 69 74 |TION POP|UP Posit|
|00004370| 32 20 44 4f 20 67 65 74 | 5f 73 65 6c 65 0a 20 20 |2 DO get|_sele.  |
|00004380| 20 20 20 20 41 43 54 49 | 56 41 54 45 20 50 4f 50 |    ACTI|VATE POP|
|00004390| 55 50 20 70 6f 73 69 74 | 32 0a 20 20 20 20 20 20 |UP posit|2.      |
|000043a0| 6c 6e 5f 74 79 70 65 20 | 3d 20 67 6e 5f 73 65 6e |ln_type |= gn_sen|
|000043b0| 64 0a 20 20 20 20 20 20 | 49 46 20 4c 41 53 54 4b |d.      |IF LASTK|
|000043c0| 45 59 28 29 20 3c 3e 20 | 32 37 0a 20 20 20 20 20 |EY() <> |27.     |
|000043d0| 20 20 20 20 49 46 20 6c | 6e 5f 74 79 70 65 3d 35 |    IF l|n_type=5|
|000043e0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 44 45 46 |.       |     DEF|
|000043f0| 49 4e 45 20 57 49 4e 44 | 4f 57 20 50 6f 73 69 74 |INE WIND|OW Posit|
|00004400| 32 20 46 52 4f 4d 20 00 | 40 08 8c 00 da 13 00 03 |2 FROM .|@.......|
|00004410| 13 00 3f 01 2c 00 03 14 | 00 08 04 00 00 00 1b 3f |..?.,...|.......?|
|00004420| 01 20 54 4f 20 00 03 13 | 00 08 05 00 00 00 1a 3f |. TO ...|.......?|
|00004430| 01 2c 00 03 14 00 08 14 | 00 00 00 1a 3f 01 20 44 |.,......|....?. D|
|00004440| 4f 55 42 4c 45 0a 20 20 | 20 20 20 20 20 20 20 20 |OUBLE.  |        |
|00004450| 20 20 41 43 54 49 56 41 | 54 45 20 57 49 4e 44 4f |  ACTIVA|TE WINDO|
|00004460| 57 20 50 6f 73 69 74 32 | 0a 20 20 20 20 20 20 20 |W Posit2|.       |
|00004470| 20 20 20 20 20 6c 6e 5f | 6e 75 6d 3d 30 0a 20 20 |     ln_|num=0.  |
|00004480| 20 20 20 20 20 20 20 20 | 20 20 40 20 33 2c 31 20 |        |  @ 3,1 |
|00004490| 53 41 59 20 22 00 40 08 | 8f 00 74 14 00 09 10 4d |SAY ".@.|..t....M|
|000044a0| 61 78 2e 20 52 65 63 6f | 72 64 20 23 20 3d 20 3f |ax. Reco|rd # = ?|
|000044b0| 01 22 2b 4c 54 52 49 4d | 28 53 54 52 28 52 45 43 |."+LTRIM|(STR(REC|
|000044c0| 43 4f 55 4e 54 28 29 29 | 29 0a 20 20 20 20 20 20 |COUNT())|).      |
|000044d0| 20 20 20 20 20 20 40 20 | 31 2c 31 20 53 41 59 20 |      @ |1,1 SAY |
|000044e0| 22 00 40 08 90 00 b2 14 | 00 09 0e 52 65 63 6f 72 |".@.....|...Recor|
|000044f0| 64 20 74 6f 20 47 4f 54 | 4f 3f 01 22 20 47 45 54 |d to GOT|O?." GET|
|00004500| 20 6c 6e 5f 6e 75 6d 20 | 50 49 43 54 20 22 23 23 | ln_num |PICT "##|
|00004510| 23 23 23 23 22 20 52 41 | 4e 47 45 20 31 2c 52 45 |####" RA|NGE 1,RE|
|00004520| 43 43 4f 55 4e 54 28 29 | 0a 20 20 20 20 20 20 20 |CCOUNT()|.       |
|00004530| 20 20 20 20 20 52 45 41 | 44 0a 20 20 20 20 20 20 |     REA|D.      |
|00004540| 20 20 20 20 20 20 49 46 | 20 2e 4e 4f 54 2e 20 28 |      IF| .NOT. (|
|00004550| 52 45 41 44 4b 45 59 28 | 29 20 3d 20 31 32 20 2e |READKEY(|) = 12 .|
|00004560| 4f 52 2e 20 52 45 41 44 | 4b 45 59 28 29 20 3d 20 |OR. READ|KEY() = |
|00004570| 32 36 38 29 0a 20 20 20 | 20 20 20 20 20 20 20 20 |268).   |        |
|00004580| 20 20 20 20 47 4f 54 4f | 20 6c 6e 5f 6e 75 6d 0a |    GOTO| ln_num.|
|00004590| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4e 44 49 |        |    ENDI|
|000045a0| 46 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 52 45 |F.      |      RE|
|000045b0| 4c 45 41 53 45 20 57 49 | 4e 44 4f 57 53 20 50 6f |LEASE WI|NDOWS Po|
|000045c0| 73 69 74 32 0a 20 20 20 | 20 20 20 20 20 20 45 4c |sit2.   |      EL|
|000045d0| 53 45 0a 20 20 20 20 20 | 20 20 20 20 20 20 6c 63 |SE.     |      lc|
|000045e0| 5f 74 65 6d 70 3d 49 49 | 46 28 6c 6e 5f 74 79 70 |_temp=II|F(ln_typ|
|000045f0| 65 3d 33 2c 22 54 4f 50 | 22 2c 22 42 4f 54 54 4f |e=3,"TOP|","BOTTO|
|00004600| 4d 22 29 0a 20 20 20 20 | 20 20 20 20 20 20 20 47 |M").    |       G|
|00004610| 4f 54 4f 20 26 6c 63 5f | 74 65 6d 70 2e 0a 20 20 |OTO &lc_|temp..  |
|00004620| 20 20 20 20 20 20 20 45 | 4e 44 49 46 0a 20 20 20 |       E|NDIF.   |
|00004630| 20 20 20 45 4e 44 49 46 | 0a 20 20 20 43 41 53 45 |   ENDIF|.   CASE|
|00004640| 20 6c 63 5f 6f 70 74 69 | 6f 6e 3d 27 35 27 0a 20 | lc_opti|on='5'. |
|00004650| 20 20 20 20 20 2a 2d 2d | 20 4c 6f 63 61 74 65 0a |     *--| Locate.|
|00004660| 20 20 20 20 20 20 44 45 | 46 49 4e 45 20 57 49 4e |      DE|FINE WIN|
|00004670| 44 4f 57 20 50 6f 73 69 | 74 32 20 46 52 4f 4d 20 |DOW Posi|t2 FROM |
|00004680| 00 40 08 9d 00 48 16 00 | 03 13 00 3f 01 2c 00 03 |.@...H..|...?.,..|
|00004690| 14 00 08 0e 00 00 00 1b | 3f 01 20 54 4f 20 00 03 |........|?. TO ..|
|000046a0| 13 00 08 06 00 00 00 1a | 3f 01 2c 00 03 14 00 08 |........|?.,.....|
|000046b0| 24 00 00 00 1a 3f 01 20 | 44 4f 55 42 4c 45 0a 20 |$....?. |DOUBLE. |
|000046c0| 20 20 20 20 20 41 43 54 | 49 56 41 54 45 20 57 49 |     ACT|IVATE WI|
|000046d0| 4e 44 4f 57 20 50 6f 73 | 69 74 32 0a 20 20 20 20 |NDOW Pos|it2.    |
|000046e0| 20 20 40 20 31 2c 31 39 | 20 53 41 59 20 22 00 40 |  @ 1,19| SAY ".@|
|000046f0| 08 9f 00 c1 16 00 09 1b | 69 65 2e 20 41 4c 4c 2c |........|ie. ALL,|
|00004700| 20 4e 45 58 54 20 3c 6e | 3e 2c 20 61 6e 64 20 52 | NEXT <n|>, and R|
|00004710| 45 53 54 3f 01 22 0a 20 | 20 20 20 20 20 40 20 31 |EST?.". |     @ 1|
|00004720| 2c 30 31 20 53 41 59 20 | 22 00 40 08 a0 00 e3 16 |,01 SAY |".@.....|
|00004730| 00 09 06 53 63 6f 70 65 | 3a 3f 01 22 20 47 45 54 |...Scope|:?." GET|
|00004740| 20 6c 63 5f 73 63 70 0a | 20 20 20 20 20 20 40 20 | lc_scp.|      @ |
|00004750| 32 2c 30 31 20 53 41 59 | 20 22 00 40 08 a1 00 10 |2,01 SAY| ".@....|
|00004760| 17 00 09 06 46 6f 72 3a | 20 20 3f 01 22 20 47 45 |....For:|  ?." GE|
|00004770| 54 20 6c 63 5f 6c 6e 32 | 0a 20 20 20 20 20 20 40 |T lc_ln2|.      @|
|00004780| 20 33 2c 30 31 20 53 41 | 59 20 22 00 40 08 a2 00 | 3,01 SA|Y ".@...|
|00004790| 3d 17 00 09 06 57 68 69 | 6c 65 3a 3f 01 22 20 47 |=....Whi|le:?." G|
|000047a0| 45 54 20 6c 63 5f 6c 6e | 33 0a 20 20 20 20 20 20 |ET lc_ln|3.      |
|000047b0| 52 45 41 44 0a 20 20 20 | 20 20 20 49 46 20 2e 4e |READ.   |   IF .N|
|000047c0| 4f 54 2e 20 28 52 45 41 | 44 4b 45 59 28 29 20 3d |OT. (REA|DKEY() =|
|000047d0| 20 31 32 20 2e 4f 52 2e | 20 52 45 41 44 4b 45 59 | 12 .OR.| READKEY|
|000047e0| 28 29 20 3d 20 32 36 38 | 29 0a 20 20 20 20 20 20 |() = 268|).      |
|000047f0| 20 20 20 6c 63 5f 74 65 | 6d 70 3d 54 52 49 4d 28 |   lc_te|mp=TRIM(|
|00004800| 6c 63 5f 73 63 70 29 0a | 20 20 20 20 20 20 20 20 |lc_scp).|        |
|00004810| 20 6c 63 5f 74 65 6d 70 | 3d 6c 63 5f 74 65 6d 70 | lc_temp|=lc_temp|
|00004820| 20 2b 20 49 49 46 28 4c | 45 4e 28 54 52 49 4d 28 | + IIF(L|EN(TRIM(|
|00004830| 6c 63 5f 6c 6e 32 29 29 | 20 3e 20 30 2c 22 20 46 |lc_ln2))| > 0," F|
|00004840| 4f 52 20 22 2b 54 52 49 | 4d 28 6c 63 5f 6c 6e 32 |OR "+TRI|M(lc_ln2|
|00004850| 29 2c 22 22 29 0a 20 20 | 20 20 20 20 20 20 20 6c |),"").  |       l|
|00004860| 63 5f 74 65 6d 70 3d 6c | 63 5f 74 65 6d 70 20 2b |c_temp=l|c_temp +|
|00004870| 20 49 49 46 28 4c 45 4e | 28 54 52 49 4d 28 6c 63 | IIF(LEN|(TRIM(lc|
|00004880| 5f 6c 6e 33 29 29 20 3e | 20 30 2c 22 20 57 48 49 |_ln3)) >| 0," WHI|
|00004890| 4c 45 20 22 2b 54 52 49 | 4d 28 6c 63 5f 6c 6e 33 |LE "+TRI|M(lc_ln3|
|000048a0| 29 2c 22 22 29 0a 20 20 | 20 20 20 20 20 20 20 49 |),"").  |       I|
|000048b0| 46 20 4c 45 4e 28 6c 63 | 5f 74 65 6d 70 29 20 3e |F LEN(lc|_temp) >|
|000048c0| 20 30 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 4c | 0.     |       L|
|000048d0| 4f 43 41 54 45 20 26 6c | 63 5f 74 65 6d 70 2e 0a |OCATE &l|c_temp..|
|000048e0| 20 20 20 20 20 20 20 20 | 20 45 4c 53 45 0a 20 20 |        | ELSE.  |
|000048f0| 20 20 20 20 20 20 20 20 | 20 20 44 4f 20 50 61 75 |        |  DO Pau|
|00004900| 73 65 20 57 49 54 48 20 | 22 00 40 08 ab 00 b6 18 |se WITH |".@.....|
|00004910| 00 09 16 41 6c 6c 20 66 | 69 65 6c 64 73 20 77 65 |...All f|ields we|
|00004920| 72 65 20 62 6c 61 6e 6b | 2e 3f 01 22 0a 20 20 20 |re blank|.?.".   |
|00004930| 20 20 20 20 20 20 45 4e | 44 49 46 0a 20 20 20 20 |      EN|DIF.    |
|00004940| 20 20 45 4e 44 49 46 0a | 20 20 20 20 20 20 52 45 |  ENDIF.|      RE|
|00004950| 4c 45 41 53 45 20 57 49 | 4e 44 4f 57 20 50 6f 73 |LEASE WI|NDOW Pos|
|00004960| 69 74 32 0a 20 20 20 45 | 4e 44 43 41 53 45 0a 20 |it2.   E|NDCASE. |
|00004970| 20 20 49 46 20 45 4f 46 | 28 29 0a 20 20 20 20 20 |  IF EOF|().     |
|00004980| 20 44 4f 20 50 61 75 73 | 65 20 57 49 54 48 20 22 | DO Paus|e WITH "|
|00004990| 00 40 08 b1 00 33 19 00 | 09 11 52 65 63 6f 72 64 |.@...3..|..Record|
|000049a0| 20 6e 6f 74 20 66 6f 75 | 6e 64 2e 3f 01 22 0a 20 | not fou|nd.?.". |
|000049b0| 20 20 20 20 20 47 4f 54 | 4f 20 6c 6e 5f 72 65 63 |     GOT|O ln_rec|
|000049c0| 0a 20 20 20 45 4e 44 49 | 46 0a 20 20 20 49 46 20 |.   ENDI|F.   IF |
|000049d0| 52 45 41 44 4b 45 59 28 | 29 3d 31 32 20 2e 4f 52 |READKEY(|)=12 .OR|
|000049e0| 2e 20 52 45 41 44 4b 45 | 59 28 29 3d 20 32 36 38 |. READKE|Y()= 268|
|000049f0| 20 2e 4f 52 2e 20 4c 41 | 53 54 4b 45 59 28 29 3d | .OR. LA|STKEY()=|
|00004a00| 32 37 20 20 26 26 20 45 | 73 63 20 77 61 73 20 68 |27  && E|sc was h|
|00004a10| 69 74 0a 20 20 20 20 20 | 20 6c 63 5f 6f 70 74 69 |it.     | lc_opti|
|00004a20| 6f 6e 3d 27 30 27 0a 20 | 20 20 45 4e 44 49 46 0a |on='0'. |  ENDIF.|
|00004a30| 45 4e 44 44 4f 0a 53 45 | 54 20 44 45 4c 49 4d 49 |ENDDO.SE|T DELIMI|
|00004a40| 54 45 52 53 20 26 67 63 | 5f 64 65 6c 69 2e 0a 53 |TERS &gc|_deli..S|
|00004a50| 45 54 20 43 4f 4e 46 49 | 52 4d 20 00 40 08 b9 00 |ET CONFI|RM .@...|
|00004a60| fe 19 00 0e 53 00 00 2f | 73 4a 00 01 4f 4e 00 2e |....S../|sJ..ON..|
|00004a70| 86 4a 00 40 08 b9 00 fe | 19 00 01 4f 46 46 00 40 |.J.@....|...OFF.@|
|00004a80| 08 b9 00 fe 19 00 01 0a | 52 45 54 55 52 4e 0a 00 |........|RETURN..|
|00004a90| 01 0a 0a 50 52 4f 43 20 | 70 72 6e 74 72 74 72 79 |...PROC |prntrtry|
|00004aa0| 0a 50 52 49 56 41 54 45 | 20 6c 63 5f 65 73 63 61 |.PRIVATE| lc_esca|
|00004ab0| 70 65 0a 6c 63 5f 65 73 | 63 61 70 65 20 3d 20 53 |pe.lc_es|cape = S|
|00004ac0| 45 54 28 22 45 53 43 41 | 50 45 22 29 0a 49 46 20 |ET("ESCA|PE").IF |
|00004ad0| 2e 4e 4f 54 2e 20 50 52 | 49 4e 54 53 54 41 54 55 |.NOT. PR|INTSTATU|
|00004ae0| 53 28 29 0a 20 20 20 49 | 46 20 6c 63 5f 65 73 63 |S().   I|F lc_esc|
|00004af0| 61 70 65 20 3d 20 22 4f | 4e 22 0a 09 20 20 20 53 |ape = "O|N"..   S|
|00004b00| 45 54 20 45 53 43 41 50 | 45 20 4f 46 46 0a 09 45 |ET ESCAP|E OFF..E|
|00004b10| 4e 44 49 46 0a 20 20 20 | 67 6e 5f 70 6b 65 79 20 |NDIF.   |gn_pkey |
|00004b20| 3d 20 30 0a 20 20 20 41 | 43 54 49 56 41 54 45 20 |= 0.   A|CTIVATE |
|00004b30| 57 49 4e 44 4f 57 20 70 | 72 69 6e 74 65 6d 70 0a |WINDOW p|rintemp.|
|00004b40| 20 20 20 40 20 31 2c 30 | 20 53 41 59 20 22 00 40 |   @ 1,0| SAY ".@|
|00004b50| 01 ed 01 8d 39 00 09 1c | 50 6c 65 61 73 65 20 72 |....9...|Please r|
|00004b60| 65 61 64 79 20 79 6f 75 | 72 20 70 72 69 6e 74 65 |eady you|r printe|
|00004b70| 72 20 6f 72 3f 01 22 0a | 20 20 20 40 20 32 2c 30 |r or?.".|   @ 2,0|
|00004b80| 20 53 41 59 20 22 00 40 | 01 ee 01 ad 39 00 09 18 | SAY ".@|....9...|
|00004b90| 20 20 20 20 20 70 72 65 | 73 73 20 45 53 43 20 74 |     pre|ss ESC t|
|00004ba0| 6f 20 63 61 6e 63 65 6c | 3f 01 22 0a 20 20 20 44 |o cancel|?.".   D|
|00004bb0| 4f 20 57 48 49 4c 45 20 | 28 20 2e 4e 4f 54 2e 20 |O WHILE |( .NOT. |
|00004bc0| 50 52 49 4e 54 53 54 41 | 54 55 53 28 29 29 20 2e |PRINTSTA|TUS()) .|
|00004bd0| 41 4e 44 2e 20 67 6e 5f | 70 6b 65 79 20 3c 3e 20 |AND. gn_|pkey <> |
|00004be0| 32 37 0a 20 20 20 20 20 | 20 67 6e 5f 70 6b 65 79 |27.     | gn_pkey|
|00004bf0| 20 3d 20 49 4e 4b 45 59 | 28 29 0a 20 20 20 45 4e | = INKEY|().   EN|
|00004c00| 44 44 4f 0a 20 20 20 44 | 45 41 43 54 49 56 41 54 |DDO.   D|EACTIVAT|
|00004c10| 45 20 57 49 4e 44 4f 57 | 20 70 72 69 6e 74 65 6d |E WINDOW| printem|
|00004c20| 70 0a 20 20 20 53 45 54 | 20 45 53 43 41 50 45 20 |p.   SET| ESCAPE |
|00004c30| 26 6c 63 5f 65 73 63 61 | 70 65 0a 20 20 20 49 46 |&lc_esca|pe.   IF|
|00004c40| 20 67 6e 5f 70 6b 65 79 | 20 3c 3e 20 32 37 0a 20 | gn_pkey| <> 27. |
|00004c50| 20 20 20 20 20 52 45 54 | 52 59 0a 20 20 20 45 4e |     RET|RY.   EN|
|00004c60| 44 49 46 0a 45 4e 44 49 | 46 0a 52 45 54 55 52 4e |DIF.ENDI|F.RETURN|
|00004c70| 0a 00 40 01 f9 01 98 3a | 00 01 2a 20 45 4f 46 3a |..@....:|..* EOF:|
|00004c80| 20 00 40 01 fa 01 a2 3a | 00 03 01 00 3f 01 2e 50 | .@....:|....?..P|
|00004c90| 52 47 0a 00 40 01 fb 01 | b9 3a 00 09 2a 47 65 6e |RG..@...|.:..*Gen|
|00004ca0| 65 72 61 74 69 6f 6e 20 | 69 73 20 63 6f 6d 70 6c |eration |is compl|
|00004cb0| 65 74 65 2e 20 20 50 72 | 65 73 73 20 61 6e 79 20 |ete.  Pr|ess any |
|00004cc0| 6b 65 79 20 2e 2e 2e 38 | 4e 01 01 40 01 fc 01 da |key ...8|N..@....|
|00004cd0| 3a 00 03 01 00 09 04 2e | 44 42 4f 1a 38 7b 01 01 |:.......|DBO.8{..|
|00004ce0| 40 01 fd 01 f8 3a 00 40 | 01 fe 01 01 3b 00 08 00 |@....:.@|....;...|
|00004cf0| 00 00 00 3b 40 01 05 02 | 92 3b 00 2e 42 4e 00 40 |...;@...|.;..BN.@|
|00004d00| 01 05 02 92 3b 00 3a 00 | 00 40 01 06 02 b3 3b 00 |....;.:.|.@....;.|
|00004d10| 04 01 00 38 31 01 01 0c | 38 3d 01 01 0c 09 0e 2e |...81...|8=......|
|00004d20| 51 42 45 2c 2e 51 42 4f | 2c 2e 56 55 45 38 2e 01 |QBE,.QBO|,.VUE8..|
|00004d30| 02 0c 2f c1 4d 00 01 53 | 45 54 20 56 49 45 57 20 |../.M..S|ET VIEW |
|00004d40| 54 4f 20 00 40 01 07 02 | ec 3b 00 04 01 00 3f 01 |TO .@...|.;....?.|
|00004d50| 0a 00 40 01 08 02 00 3c | 00 04 02 00 2f 84 4d 00 |..@....<|..../.M.|
|00004d60| 01 53 45 54 20 49 4e 44 | 45 58 20 54 4f 20 00 40 |.SET IND|EX TO .@|
|00004d70| 01 09 02 14 3c 00 04 02 | 00 3f 01 0a 00 40 01 0a |....<...|.?...@..|
|00004d80| 02 29 3c 00 40 01 0b 02 | 35 3c 00 04 03 00 2f b6 |.)<.@...|5<..../.|
|00004d90| 4d 00 01 53 45 54 20 4f | 52 44 45 52 20 54 4f 20 |M..SET O|RDER TO |
|00004da0| 00 40 01 0c 02 49 3c 00 | 04 03 00 3f 01 0a 00 40 |.@...I<.|...?...@|
|00004db0| 01 0d 02 5e 3c 00 40 01 | 0e 02 6a 3c 00 2e 32 4e |...^<.@.|..j<..2N|
|00004dc0| 00 40 01 0e 02 6a 3c 00 | 01 55 53 45 20 00 40 01 |.@...j<.|.USE .@.|
|00004dd0| 0f 02 74 3c 00 04 01 00 | 3f 01 20 00 04 02 00 2f |..t<....|?. ..../|
|00004de0| f6 4d 00 01 49 4e 44 45 | 58 20 00 04 02 00 3f 40 |.M..INDE|X ....?@|
|00004df0| 01 0f 02 74 3c 00 01 0a | 00 40 01 10 02 a2 3c 00 |...t<...|.@....<.|
|00004e00| 04 03 00 2f 2b 4e 00 01 | 53 45 54 20 4f 52 44 45 |.../+N..|SET ORDE|
|00004e10| 52 20 54 4f 20 00 40 01 | 11 02 b6 3c 00 04 03 00 |R TO .@.|...<....|
|00004e20| 3f 01 0a 00 40 01 12 02 | cb 3c 00 40 01 13 02 d7 |?...@...|.<.@....|
|00004e30| 3c 00 40 01 14 02 e1 3c | 00 3c 40 01 15 02 ec 3c |<.@....<|.<@....<|
|00004e40| 00 3c 40 01 15 02 ec 3c | 00 40 01 17 02 f8 3c 00 |.<@....<|.@....<.|
|00004e50| 2e ec 51 00 40 01 17 02 | f8 3c 00 3a 05 00 40 01 |..Q.@...|.<.:..@.|
|00004e60| 20 02 4a 3e 00 08 00 00 | 00 00 15 10 04 00 15 10 | .J>....|........|
|00004e70| 03 00 10 02 00 40 01 22 | 02 78 3e 00 04 01 00 08 |.....@."|.x>.....|
|00004e80| ff 00 00 00 31 2a 4f 00 | 40 01 23 02 bd 3e 00 04 |....1*O.|@.#..>..|
|00004e90| 01 00 08 07 00 00 00 20 | 10 01 00 40 01 25 02 0a |....... |...@.%..|
|00004ea0| 3f 00 02 01 00 2f bc 4e | 00 04 01 00 08 80 00 00 |?..../.N|........|
|00004eb0| 00 1b 12 01 00 40 01 26 | 02 4b 3f 00 40 01 27 02 |.....@.&|.K?.@.'.|
|00004ec0| 55 3f 00 04 01 00 08 04 | 00 00 00 20 10 03 00 40 |U?......|... ...@|
|00004ed0| 01 28 02 75 3f 00 02 03 | 00 08 04 00 00 00 1f 04 |.(.u?...|........|
|00004ee0| 01 00 3d 1b 10 02 00 40 | 01 2a 02 ab 3f 00 02 02 |..=....@|.*..?...|
|00004ef0| 00 08 07 00 00 00 34 23 | 4f 00 40 01 2b 02 c6 3f |......4#|O.@.+..?|
|00004f00| 00 08 01 00 00 00 10 04 | 00 40 01 2c 02 dc 3f 00 |........|.@.,..?.|
|00004f10| 02 02 00 08 08 00 00 00 | 1b 10 02 00 40 01 2d 02 |........|....@.-.|
|00004f20| ff 3f 00 40 01 2e 02 09 | 40 00 40 01 30 02 53 40 |.?.@....|@.@.0.S@|
|00004f30| 00 02 02 00 2e fb 4f 00 | 40 01 31 02 67 40 00 09 |......O.|@.1.g@..|
|00004f40| 01 6e 10 05 00 40 01 32 | 02 7c 40 00 2e 3d 50 00 |.n...@.2|.|@..=P.|
|00004f50| 40 01 32 02 7c 40 00 09 | 01 62 10 05 00 40 01 33 |@.2.|@..|.b...@.3|
|00004f60| 02 91 40 00 2e 3d 50 00 | 40 01 33 02 91 40 00 09 |..@..=P.|@.3..@..|
|00004f70| 01 67 10 05 00 40 01 34 | 02 a6 40 00 2e 3d 50 00 |.g...@.4|..@..=P.|
|00004f80| 40 01 34 02 a6 40 00 09 | 02 62 67 10 05 00 40 01 |@.4..@..|.bg...@.|
|00004f90| 35 02 bc 40 00 2e 3d 50 | 00 40 01 35 02 bc 40 00 |5..@..=P|.@.5..@.|
|00004fa0| 09 01 72 10 05 00 40 01 | 36 02 d1 40 00 2e 3d 50 |..r...@.|6..@..=P|
|00004fb0| 00 40 01 36 02 d1 40 00 | 09 02 72 62 10 05 00 40 |.@.6..@.|..rb...@|
|00004fc0| 01 37 02 e7 40 00 2e 3d | 50 00 40 01 37 02 e7 40 |.7..@..=|P.@.7..@|
|00004fd0| 00 09 02 67 72 10 05 00 | 40 01 38 02 fd 40 00 2e |...gr...|@.8..@..|
|00004fe0| 3d 50 00 40 01 38 02 fd | 40 00 09 01 77 10 05 00 |=P.@.8..|@...w...|
|00004ff0| 40 01 39 02 12 41 00 2e | 3d 50 00 40 01 39 02 12 |@.9..A..|=P.@.9..|
|00005000| 41 00 37 08 00 00 00 00 | 00 3f 4f 00 01 00 00 00 |A.7.....|.?O.....|
|00005010| 57 4f 00 02 00 00 00 6f | 4f 00 03 00 00 00 87 4f |WO.....o|O......O|
|00005020| 00 04 00 00 00 a0 4f 00 | 05 00 00 00 b8 4f 00 06 |......O.|.....O..|
|00005030| 00 00 00 d1 4f 00 07 00 | 00 00 ea 4f 00 40 01 39 |....O...|...O.@.9|
|00005040| 02 12 41 00 40 01 3a 02 | 1c 41 00 02 01 00 2f 63 |..A.@.:.|.A..../c|
|00005050| 50 00 02 05 00 09 01 2a | 1a 10 05 00 40 01 3a 02 |P......*|....@.:.|
|00005060| 1c 41 00 40 01 3c 02 5e | 41 00 02 04 00 2f 87 50 |.A.@.<.^|A..../.P|
|00005070| 00 02 05 00 09 02 2b 2f | 1a 10 05 00 40 01 3e 02 |......+/|....@.>.|
|00005080| 83 41 00 2e 9f 50 00 40 | 01 3e 02 83 41 00 02 05 |.A...P.@|.>..A...|
|00005090| 00 09 01 2f 1a 10 05 00 | 40 01 3f 02 a0 41 00 40 |.../....|@.?..A.@|
|000050a0| 01 40 02 a8 41 00 02 03 | 00 2e 90 51 00 40 01 41 |.@..A...|...Q.@.A|
|000050b0| 02 bd 41 00 02 05 00 09 | 01 6e 1a 10 05 00 40 01 |..A.....|.n....@.|
|000050c0| 42 02 dc 41 00 2e d2 51 | 00 40 01 42 02 dc 41 00 |B..A...Q|.@.B..A.|
|000050d0| 02 05 00 09 01 62 1a 10 | 05 00 40 01 43 02 fb 41 |.....b..|..@.C..A|
|000050e0| 00 2e d2 51 00 40 01 43 | 02 fb 41 00 02 05 00 09 |...Q.@.C|..A.....|
|000050f0| 01 67 1a 10 05 00 40 01 | 44 02 1a 42 00 2e d2 51 |.g....@.|D..B...Q|
|00005100| 00 40 01 44 02 1a 42 00 | 02 05 00 09 02 62 67 1a |.@.D..B.|.....bg.|
|00005110| 10 05 00 40 01 45 02 3a | 42 00 2e d2 51 00 40 01 |...@.E.:|B...Q.@.|
|00005120| 45 02 3a 42 00 02 05 00 | 09 01 72 1a 10 05 00 40 |E.:B....|..r....@|
|00005130| 01 46 02 59 42 00 2e d2 | 51 00 40 01 46 02 59 42 |.F.YB...|Q.@.F.YB|
|00005140| 00 02 05 00 09 02 72 62 | 1a 10 05 00 40 01 47 02 |......rb|....@.G.|
|00005150| 79 42 00 2e d2 51 00 40 | 01 47 02 79 42 00 02 05 |yB...Q.@|.G.yB...|
|00005160| 00 09 02 67 72 1a 10 05 | 00 40 01 48 02 99 42 00 |...gr...|.@.H..B.|
|00005170| 2e d2 51 00 40 01 48 02 | 99 42 00 02 05 00 09 01 |..Q.@.H.|.B......|
|00005180| 77 1a 10 05 00 40 01 49 | 02 b8 42 00 2e d2 51 00 |w....@.I|..B...Q.|
|00005190| 40 01 49 02 b8 42 00 37 | 08 00 00 00 00 00 b4 50 |@.I..B.7|.......P|
|000051a0| 00 01 00 00 00 d0 50 00 | 02 00 00 00 ec 50 00 03 |......P.|.....P..|
|000051b0| 00 00 00 08 51 00 04 00 | 00 00 25 51 00 05 00 00 |....Q...|..%Q....|
|000051c0| 00 41 51 00 06 00 00 00 | 5e 51 00 07 00 00 00 7b |.AQ.....|^Q.....{|
|000051d0| 51 00 40 01 49 02 b8 42 | 00 40 01 4a 02 c2 42 00 |Q.@.I..B|.@.J..B.|
|000051e0| 02 05 00 3b 40 01 4b 02 | d4 42 00 3c 40 01 4b 02 |...;@.K.|.B.<@.K.|
|000051f0| d4 42 00 40 00 00 00 00 | 00 00 3c 08 00 12 00 27 |.B.@....|..<....'|
|00005200| 00 3b 00 4f 00 64 00 79 | 00 8e 00 a3 00 00 00 00 |.;.O.d.y|........|
|00005210| 00 00 00 72 00 71 75 69 | 63 6b 61 70 70 2e 63 6f |...r.qui|ckapp.co|
|00005220| 64 00 01 0c 00 cb 00 00 | 17 00 61 70 70 6c 63 74 |d.......|..applct|
|00005230| 6e 2e 64 65 66 00 01 0d | 00 fd 00 00 17 00 62 75 |n.def...|......bu|
|00005240| 69 6c 74 69 6e 2e 64 65 | 66 00 01 66 00 b9 0d 00 |iltin.de|f..f....|
|00005250| 18 00 61 73 5f 68 65 61 | 64 72 2e 63 6f 64 00 01 |..as_hea|dr.cod..|
|00005260| 47 01 b4 28 00 18 00 61 | 73 5f 68 65 61 64 72 2e |G..(...a|s_headr.|
|00005270| 63 6f 64 00 01 4d 01 9b | 29 00 18 00 61 73 5f 6d |cod..M..|)...as_m|
|00005280| 65 6e 75 62 2e 63 6f 64 | 00 01 d1 01 4a 37 00 18 |enub.cod|....J7..|
|00005290| 00 61 73 5f 70 61 75 73 | 65 2e 63 6f 64 00 01 e2 |.as_paus|e.cod...|
|000052a0| 01 b9 38 00 19 00 61 73 | 5f 70 6f 73 69 74 2e 63 |..8...as|_posit.c|
|000052b0| 6f 64 00                |                         |od.     |        |
+--------+-------------------------+-------------------------+--------+--------+