home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: DOSIMG Disk Image
(archive/dosimg).
You can browse this item here: 2.img
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| DOSIMG Disk Image (archive/dosimg)
| magic
| Supported |
| 66%
| dexvert
| Alias PIX Image (image/aliasPIX)
| ext
| Supported |
| 66%
| dexvert
| GEM Raster Bitmap (image/gem)
| ext
| Supported |
| 66%
| dexvert
| DaVinci (image/daVinci)
| ext
| Supported |
| 46%
| dexvert
| Disk Image (archive/diskImage)
| ext
| Supported |
| 1%
| dexvert
| AIX/BFF backup/restore (archive/aixBackupRestore)
| ext
| Unsupported |
| 1%
| dexvert
| The Duplicator Toolkit disk image (archive/duplicatorToolkitDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| PTS-DOS disk image (archive/ptsDOSDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| QNX volume disk image (archive/qnxVolumeDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| SNATCH-IT Disk Image (archive/snatchItDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| Android boot image (archive/androidBootImage)
| ext
| Unsupported |
| 1%
| dexvert
| Paragon DOS disk image (archive/paragonDOSDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| QEMU QCOW Image (archive/qemuQCOWImage)
| ext
| Unsupported |
| 1%
| dexvert
| Davilex Games game data format (other/davilexGamesGameDataFormat)
| ext
| Unsupported |
| 1%
| dexvert
| Eclipse Image (other/eclipseImage)
| ext
| Unsupported |
| 1%
| dexvert
| InfoComics game data (other/infoComicsGameData)
| ext
| Unsupported |
| 1%
| dexvert
| Garmin map (other/garminMap)
| ext
| Unsupported |
| 1%
| dexvert
| Piklib/BlooMoo graphic data (other/piklibGraphicData)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| TrID
| DOSIMG disk image (80t/15s)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4f 0f 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |O.......|........|
|00000010| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000020| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000030| 01 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 62 07 | f6 eb 3c 90 4d 53 44 4f |......b.|..<.MSDO|
|000000b0| 53 35 2e 30 00 02 02 01 | 00 02 70 00 60 09 fd 04 |S5.0....|..p.`...|
|000000c0| 00 0f 00 02 f6 00 0b 29 | f7 10 44 2b 4e 4f 20 4e |.......)|..D+NO N|
|000000d0| 41 4d 45 f6 20 04 46 41 | 54 31 32 f6 20 03 fa 33 |AME. .FA|T12. ..3|
|000000e0| c0 8e d0 bc 00 7c 16 07 | bb 78 00 36 c5 37 1e 56 |.....|..|.x.6.7.V|
|000000f0| 16 53 bf 3e 7c b9 0b 00 | fc f3 a4 06 1f c6 45 fe |.S.>|...|......E.|
|00000100| 0f 8b 0e 18 7c 88 4d f9 | 89 47 02 c7 07 3e 7c fb |....|.M.|.G...>|.|
|00000110| cd 13 72 79 33 c0 39 06 | 13 7c 74 08 8b 0e 13 7c |..ry3.9.|.|t....||
|00000120| 89 0e 20 7c a0 10 7c f7 | 26 16 7c 03 06 1c 7c 13 |.. |..|.|&.|...|.|
|00000130| 16 1e 7c 03 06 0e 7c 83 | d2 00 a3 50 7c 89 16 52 |..|...|.|...P|..R|
|00000140| 7c a3 49 7c 89 16 4b 7c | b8 20 00 f7 26 11 7c 8b ||.I|..K||. ..&.|.|
|00000150| 1e 0b 7c 03 c3 48 f7 f3 | 01 06 49 7c 83 16 4b 7c |..|..H..|..I|..K||
|00000160| 00 bb 00 05 8b 16 52 7c | a1 50 7c e8 92 00 72 1d |......R||.P|...r.|
|00000170| b0 01 e8 ac 00 72 16 8b | fb b9 0b 00 be e6 7d f3 |.....r..|......}.|
|00000180| a6 75 0a 8d 7f 20 b9 0b | 00 f3 a6 74 18 be 9e 7d |.u... ..|...t...}|
|00000190| e8 5f 00 33 c0 cd 16 5e | 1f 8f 04 8f 44 02 cd 19 |._.3...^|....D...|
|000001a0| f6 58 03 eb e8 8b 47 1a | 48 48 8a 1e 0d 7c 32 ff |.X....G.|HH...|2.|
|000001b0| f7 e3 03 06 49 7c 13 16 | 4b 7c bb 00 07 b9 03 00 |....I|..|K|......|
|000001c0| 50 52 51 e8 3a 00 72 d8 | b0 01 e8 54 00 59 5a 58 |PRQ.:.r.|...T.YZX|
|000001d0| 72 bb 05 01 00 83 d2 00 | 03 1e 0b 7c e2 e2 8a 2e |r.......|...|....|
|000001e0| 15 7c 8a 16 24 7c 8b 1e | 49 7c a1 4b 7c ea 00 00 |.|..$|..|I|.K|...|
|000001f0| 70 00 ac 0a c0 74 29 b4 | 0e bb 07 00 cd 10 eb f2 |p....t).|........|
|00000200| 3b 16 18 7c 73 19 f7 36 | 18 7c fe c2 88 16 4f 7c |;..|s..6|.|....O||
|00000210| 33 d2 f7 36 1a 7c 88 16 | 25 7c a3 4d 7c f8 c3 f9 |3..6.|..|%|.M|...|
|00000220| c3 b4 02 8b 16 4d 7c b1 | 06 d2 e6 0a 36 4f 7c 8b |.....M|.|....6O|.|
|00000230| ca 86 e9 8a 16 24 7c 8a | 36 25 7c cd 13 c3 0d 0a |.....$|.|6%|.....|
|00000240| 4e 6f 6e 2d 53 79 73 74 | 65 6d 20 64 69 73 6b 20 |Non-Syst|em disk |
|00000250| 6f 72 20 64 69 73 6b 20 | 65 72 72 6f 72 0d 0a 52 |or disk |error..R|
|00000260| 65 70 6c 61 63 65 20 61 | 6e 64 20 70 72 65 73 73 |eplace a|nd press|
|00000270| 20 61 6e 79 20 6b 65 79 | 20 77 68 65 6e 20 72 65 | any key| when re|
|00000280| 61 64 79 0d 0a 00 49 4f | f6 20 06 53 59 53 4d 53 |ady...IO|. .SYSMS|
|00000290| 44 4f 53 f6 20 03 53 59 | 53 00 00 55 aa fd ff ff |DOS. .SY|S..U....|
|000002a0| 03 40 00 05 f0 f6 ff 04 | 09 a0 00 f6 ff 03 0d e0 |.@......|........|
|000002b0| 00 ff 0f 01 11 20 01 13 | 40 01 15 60 01 17 80 01 |..... ..|@..`....|
|000002c0| 19 a0 01 1b c0 01 1d e0 | 01 1f 00 02 21 20 02 ff |........|....! ..|
|000002d0| 4f 02 25 60 02 27 80 02 | 29 a0 02 2b c0 02 2d e0 |O.%`.'..|)..+..-.|
|000002e0| 02 2f f0 ff 31 20 03 33 | 40 03 35 60 03 37 80 03 |./..1 .3|@.5`.7..|
|000002f0| 39 a0 03 3b c0 03 3d e0 | 03 3f 00 04 41 20 04 43 |9..;..=.|.?..A .C|
|00000300| 40 04 45 60 04 47 80 04 | 49 a0 04 4b c0 04 4d e0 |@.E`.G..|I..K..M.|
|00000310| 04 4f 00 05 51 20 05 53 | 40 05 55 60 05 57 80 05 |.O..Q .S|@.U`.W..|
|00000320| 59 a0 05 5b c0 05 5d e0 | 05 5f 00 06 61 20 06 63 |Y..[..].|._..a .c|
|00000330| 40 06 65 60 06 67 80 06 | 69 a0 06 6b c0 06 6d e0 |@.e`.g..|i..k..m.|
|00000340| 06 6f 00 07 71 20 07 73 | 40 07 75 60 07 77 80 07 |.o..q .s|@.u`.w..|
|00000350| 79 a0 07 7b c0 07 7d e0 | 07 7f 00 08 81 20 08 83 |y..{..}.|..... ..|
|00000360| 40 08 85 60 08 87 80 08 | 89 a0 08 8b f0 ff 8d e0 |@..`....|........|
|00000370| 08 8f 00 09 91 20 09 93 | 40 09 95 60 09 97 80 09 |..... ..|@..`....|
|00000380| 99 a0 09 9b c0 09 9d e0 | 09 9f 00 0a a1 20 0a a3 |........|..... ..|
|00000390| 40 0a a5 60 0a a7 80 0a | a9 a0 0a ab c0 0a ad e0 |@..`....|........|
|000003a0| 0a af 00 0b b1 20 0b b3 | 40 0b b5 60 0b b7 80 0b |..... ..|@..`....|
|000003b0| b9 a0 0b bb c0 0b bd e0 | 0b bf 00 0c c1 20 0c c3 |........|..... ..|
|000003c0| 40 0c c5 60 0c c7 80 0c | c9 a0 0c cb c0 0c cd e0 |@..`....|........|
|000003d0| 0c cf 00 0d d1 20 0d d3 | 40 0d d5 60 0d d7 80 0d |..... ..|@..`....|
|000003e0| d9 a0 0d db c0 0d dd e0 | 0d df 00 0e e1 20 0e e3 |........|..... ..|
|000003f0| 40 0e e5 60 0e e7 80 0e | e9 a0 0e eb c0 0e ed e0 |@..`....|........|
|00000400| 0e ef 00 0f f1 20 0f f3 | 40 0f f5 60 0f f7 80 0f |..... ..|@..`....|
|00000410| f9 a0 0f fb c0 0f fd e0 | 0f ff 00 10 01 21 10 03 |........|.....!..|
|00000420| 41 10 05 61 10 07 81 10 | 09 a1 10 0b c1 10 0d e1 |A..a....|........|
|00000430| 10 0f 01 11 11 21 11 13 | 41 11 15 61 11 17 81 11 |.....!..|A..a....|
|00000440| 19 a1 11 1b c1 11 1d e1 | 11 1f 01 12 21 21 12 23 |........|....!!.#|
|00000450| 41 12 25 61 12 27 81 12 | 29 a1 12 2b c1 12 2d e1 |A.%a.'..|)..+..-.|
|00000460| 12 2f 01 13 31 21 13 33 | 41 13 35 61 13 37 81 13 |./..1!.3|A.5a.7..|
|00000470| 39 a1 13 3b c1 13 3d e1 | 13 3f 01 14 41 21 14 43 |9..;..=.|.?..A!.C|
|00000480| 41 14 45 61 14 47 81 14 | 49 a1 14 4b c1 14 4d e1 |A.Ea.G..|I..K..M.|
|00000490| 14 4f 01 15 51 21 15 53 | 41 15 55 61 15 57 81 15 |.O..Q!.S|A.Ua.W..|
|000004a0| 59 a1 15 5b c1 15 5d e1 | 15 5f f1 ff f6 00 ff f6 |Y..[..].|._......|
|000004b0| 00 ff f6 00 ff f6 00 ff | f6 00 ff f6 00 f5 fd ff |........|........|
|000004c0| ff 03 40 00 05 f0 f6 ff | 04 09 a0 00 f6 ff 03 0d |..@.....|........|
|000004d0| e0 00 ff 0f 01 11 20 01 | 13 40 01 15 60 01 17 80 |...... .|.@..`...|
|000004e0| 01 19 a0 01 1b c0 01 1d | e0 01 1f 00 02 21 20 02 |........|.....! .|
|000004f0| ff 4f 02 25 60 02 27 80 | 02 29 a0 02 2b c0 02 2d |.O.%`.'.|.)..+..-|
|00000500| e0 02 2f f0 ff 31 20 03 | 33 40 03 35 60 03 37 80 |../..1 .|3@.5`.7.|
|00000510| 03 39 a0 03 3b c0 03 3d | e0 03 3f 00 04 41 20 04 |.9..;..=|..?..A .|
|00000520| 43 40 04 45 60 04 47 80 | 04 49 a0 04 4b c0 04 4d |C@.E`.G.|.I..K..M|
|00000530| e0 04 4f 00 05 51 20 05 | 53 40 05 55 60 05 57 80 |..O..Q .|S@.U`.W.|
|00000540| 05 59 a0 05 5b c0 05 5d | e0 05 5f 00 06 61 20 06 |.Y..[..]|.._..a .|
|00000550| 63 40 06 65 60 06 67 80 | 06 69 a0 06 6b c0 06 6d |c@.e`.g.|.i..k..m|
|00000560| e0 06 6f 00 07 71 20 07 | 73 40 07 75 60 07 77 80 |..o..q .|s@.u`.w.|
|00000570| 07 79 a0 07 7b c0 07 7d | e0 07 7f 00 08 81 20 08 |.y..{..}|...... .|
|00000580| 83 40 08 85 60 08 87 80 | 08 89 a0 08 8b f0 ff 8d |.@..`...|........|
|00000590| e0 08 8f 00 09 91 20 09 | 93 40 09 95 60 09 97 80 |...... .|.@..`...|
|000005a0| 09 99 a0 09 9b c0 09 9d | e0 09 9f 00 0a a1 20 0a |........|...... .|
|000005b0| a3 40 0a a5 60 0a a7 80 | 0a a9 a0 0a ab c0 0a ad |.@..`...|........|
|000005c0| e0 0a af 00 0b b1 20 0b | b3 40 0b b5 60 0b b7 80 |...... .|.@..`...|
|000005d0| 0b b9 a0 0b bb c0 0b bd | e0 0b bf 00 0c c1 20 0c |........|...... .|
|000005e0| c3 40 0c c5 60 0c c7 80 | 0c c9 a0 0c cb c0 0c cd |.@..`...|........|
|000005f0| e0 0c cf 00 0d d1 20 0d | d3 40 0d d5 60 0d d7 80 |...... .|.@..`...|
|00000600| 0d d9 a0 0d db c0 0d dd | e0 0d df 00 0e e1 20 0e |........|...... .|
|00000610| e3 40 0e e5 60 0e e7 80 | 0e e9 a0 0e eb c0 0e ed |.@..`...|........|
|00000620| e0 0e ef 00 0f f1 20 0f | f3 40 0f f5 60 0f f7 80 |...... .|.@..`...|
|00000630| 0f f9 a0 0f fb c0 0f fd | e0 0f ff 00 10 01 21 10 |........|......!.|
|00000640| 03 41 10 05 61 10 07 81 | 10 09 a1 10 0b c1 10 0d |.A..a...|........|
|00000650| e1 10 0f 01 11 11 21 11 | 13 41 11 15 61 11 17 81 |......!.|.A..a...|
|00000660| 11 19 a1 11 1b c1 11 1d | e1 11 1f 01 12 21 21 12 |........|.....!!.|
|00000670| 23 41 12 25 61 12 27 81 | 12 29 a1 12 2b c1 12 2d |#A.%a.'.|.)..+..-|
|00000680| e1 12 2f 01 13 31 21 13 | 33 41 13 35 61 13 37 81 |../..1!.|3A.5a.7.|
|00000690| 13 39 a1 13 3b c1 13 3d | e1 13 3f 01 14 41 21 14 |.9..;..=|..?..A!.|
|000006a0| 43 41 14 45 61 14 47 81 | 14 49 a1 14 4b c1 14 4d |CA.Ea.G.|.I..K..M|
|000006b0| e1 14 4f 01 15 51 21 15 | 53 41 15 55 61 15 57 81 |..O..Q!.|SA.Ua.W.|
|000006c0| 15 59 a1 15 5b c1 15 5d | e1 15 5f f1 ff f6 00 ff |.Y..[..]|.._.....|
|000006d0| f6 00 ff f6 00 ff f6 00 | ff f6 00 ff f6 00 f5 41 |........|.......A|
|000006e0| 4c 50 48 41 f6 20 03 46 | 55 4e 20 f6 00 0a 45 4f |LPHA. .F|UN ...EO|
|000006f0| dd 14 02 00 72 0f 00 00 | 42 4c 43 4f 4d 50 20 20 |....r...|BLCOMP |
|00000700| 42 41 54 20 f6 00 0a 1c | a3 8c 14 06 00 d9 01 00 |BAT ....|........|
|00000710| 00 4d 53 43 4f 4d 50 20 | 20 42 41 54 20 f6 00 0a |.MSCOMP | BAT ...|
|00000720| 1c a3 8c 14 07 00 1c 02 | 00 00 4f 52 44 45 52 f6 |........|..ORDER.|
|00000730| 20 03 44 4f 43 20 f6 00 | 0a 4c 73 e2 14 08 00 e2 | .DOC ..|.Ls.....|
|00000740| 08 00 00 50 4c 43 4f 4d | 50 20 20 42 41 54 20 f6 |...PLCOM|P BAT .|
|00000750| 00 0a 1c a3 8c 14 0b 00 | d9 01 00 00 52 45 41 44 |........|....READ|
|00000760| 4d 45 20 20 44 4f 43 20 | f6 00 0a 73 5f dd 14 0c |ME DOC |...s_...|
|00000770| 00 94 09 00 00 53 46 f6 | 20 06 50 52 47 20 f6 00 |.....SF.| .PRG ..|
|00000780| 0a 71 7e da 14 0f 00 62 | 4d 00 00 53 55 50 45 52 |.q~....b|M..SUPER|
|00000790| f6 20 03 44 4f 43 20 f6 | 00 0a f5 4a e2 14 23 00 |. .DOC .|...J..#.|
|000007a0| 5f 32 00 00 53 55 50 45 | 52 f6 20 03 46 55 4e 20 |_2..SUPE|R. .FUN |
|000007b0| f6 00 0a 44 4f dd 14 30 | 00 5f 6e 01 00 53 55 50 |...DO..0|._n..SUP|
|000007c0| 45 52 f6 20 03 4c 49 42 | 20 f6 00 0a 75 7c dd 14 |ER. .LIB| ...u|..|
|000007d0| 8c 00 00 50 03 00 e5 55 | 50 45 52 f6 20 03 4e 47 |...P...U|PER. .NG|
|000007e0| 20 20 f6 00 0a 99 50 2f | 1c f6 00 ff f6 00 ff f6 | ....P/|........|
|000007f0| 00 ff f6 00 ff f6 00 ff | f6 00 ff f6 00 ff f6 00 |........|........|
|00000800| ff f6 00 ff f6 00 ff f6 | 00 b0 b9 13 ff ff 00 ff |........|........|
|00000810| ff 00 ff 00 00 ff 20 14 | 0d 0a ff 20 0c 53 68 6f |...... .|... .Sho|
|00000820| 72 74 20 41 6c 70 68 61 | 62 65 74 69 63 61 6c 20 |rt Alpha|betical |
|00000830| 4c 69 73 74 69 6e 67 0d | 0a ff 20 05 ff 2d 2c 0d |Listing.|.. ..-,.|
|00000840| 0a ff 20 14 0d 0a ff 20 | 14 0d 0a 41 42 4f 52 54 |.. .... |...ABORT|
|00000850| 28 29 ff 20 09 50 6f 70 | 73 20 75 70 20 64 69 61 |(). .Pop|s up dia|
|00000860| 6c 6f 67 20 62 6f 78 20 | 61 73 6b 69 6e 67 20 41 |log box |asking A|
|00000870| 62 6f 72 74 20 3f 20 59 | 65 73 2f 4e 6f 0d 0a 41 |bort ? Y|es/No..A|
|00000880| 44 44 53 50 41 43 45 28 | 29 ff 20 06 50 61 64 73 |DDSPACE(|). .Pads|
|00000890| 20 73 74 72 69 6e 67 20 | 77 69 74 68 20 73 70 61 | string |with spa|
|000008a0| 63 65 73 0d 0a 41 4c 45 | 4e 47 54 48 28 29 ff 20 |ces..ALE|NGTH(). |
|000008b0| 07 44 65 74 65 72 6d 69 | 6e 65 73 20 69 6e 69 74 |.Determi|nes init|
|000008c0| 69 61 6c 69 7a 65 64 20 | 6c 65 6e 67 74 68 20 6f |ialized |length o|
|000008d0| 66 20 61 6e 20 61 72 72 | 61 79 0d 0a 42 4c 44 41 |f an arr|ay..BLDA|
|000008e0| 52 52 28 29 ff 20 08 42 | 75 69 6c 64 73 20 61 6e |RR(). .B|uilds an|
|000008f0| 20 61 72 72 61 79 20 66 | 72 6f 6d 20 61 20 64 65 | array f|rom a de|
|00000900| 6c 69 6d 69 74 65 64 20 | 73 74 72 69 6e 67 0d 0a |limited |string..|
|00000910| 42 4c 44 44 42 46 28 29 | ff 20 08 43 72 65 61 74 |BLDDBF()|. .Creat|
|00000920| 65 20 61 20 44 42 46 20 | 66 72 6f 6d 20 61 20 64 |e a DBF |from a d|
|00000930| 65 6c 69 6d 69 74 65 64 | 20 73 74 72 69 6e 67 0d |elimited| string.|
|00000940| 0a 42 4c 44 4e 44 58 28 | 29 ff 20 08 49 6e 74 65 |.BLDNDX(|). .Inte|
|00000950| 72 61 63 74 69 76 65 6c | 79 20 63 72 65 61 74 65 |ractivel|y create|
|00000960| 20 61 20 6e 65 77 20 69 | 6e 64 65 78 0d 0a 43 4c | a new i|ndex..CL|
|00000970| 41 42 45 4c 28 29 ff 20 | 08 4d 65 6e 75 20 64 72 |ABEL(). |.Menu dr|
|00000980| 69 76 65 6e 20 6d 6f 64 | 75 6c 65 20 66 6f 72 20 |iven mod|ule for |
|00000990| 6c 61 62 65 6c 20 6d 61 | 6e 61 67 65 6d 65 6e 74 |label ma|nagement|
|000009a0| 0d 0a 43 4c 53 28 29 ff | 20 0b 43 6c 65 61 72 20 |..CLS().| .Clear |
|000009b0| 74 68 65 20 73 63 72 65 | 65 6e 20 77 69 74 68 20 |the scre|en with |
|000009c0| 6f 70 74 69 6f 6e 61 6c | 20 63 6f 6c 6f 72 2c 63 |optional| color,c|
|000009d0| 68 61 72 61 63 74 65 72 | 0d 0a 43 54 52 4c 57 28 |haracter|..CTRLW(|
|000009e0| 29 ff 20 09 53 65 6e 64 | 73 20 63 68 72 28 32 33 |). .Send|s chr(23|
|000009f0| 29 20 28 43 6f 6e 74 72 | 6f 6c 2d 57 29 20 74 6f |) (Contr|ol-W) to|
|00000a00| 20 74 68 65 20 6b 65 79 | 62 6f 61 72 64 0d 0a 44 | the key|board..D|
|00000a10| 45 4c 41 52 52 41 59 28 | 29 ff 20 06 44 65 6c 65 |ELARRAY(|). .Dele|
|00000a20| 74 65 73 20 61 6c 6c 20 | 65 6c 65 6d 65 6e 74 73 |tes all |elements|
|00000a30| 20 6f 66 20 61 6e 20 61 | 72 72 61 79 0d 0a 44 45 | of an a|rray..DE|
|00000a40| 4c 52 45 43 28 29 ff 20 | 08 44 69 61 6c 6f 67 20 |LREC(). |.Dialog |
|00000a50| 62 6f 78 20 74 6f 20 64 | 65 6c 65 74 65 2f 75 6e |box to d|elete/un|
|00000a60| 64 65 6c 65 74 65 20 63 | 75 72 72 65 6e 74 20 72 |delete c|urrent r|
|00000a70| 65 63 6f 72 64 0d 0a 44 | 4f 49 54 41 4c 4c 28 29 |ecord..D|OITALL()|
|00000a80| ff 20 07 47 65 6e 65 72 | 69 63 20 6d 65 6e 75 20 |. .Gener|ic menu |
|00000a90| 64 72 69 76 65 6e 20 64 | 61 74 61 20 65 6e 74 72 |driven d|ata entr|
|00000aa0| 79 20 6d 6f 64 75 6c 65 | 0d 0a 44 52 49 56 45 28 |y module|..DRIVE(|
|00000ab0| 29 ff 20 09 47 65 74 73 | 20 63 75 72 72 65 6e 74 |). .Gets| current|
|00000ac0| 6c 79 20 73 65 6c 65 63 | 74 65 64 20 64 72 69 76 |ly selec|ted driv|
|00000ad0| 65 20 6c 65 74 74 65 72 | 0d 0a 44 55 50 4c 4f 4f |e letter|..DUPLOO|
|00000ae0| 4b 28 29 ff 20 07 4c 6f | 63 61 74 65 73 20 70 6f |K(). .Lo|cates po|
|00000af0| 73 73 69 62 6c 65 20 64 | 75 70 6c 69 63 61 74 65 |ssible d|uplicate|
|00000b00| 73 20 62 61 73 65 64 20 | 6f 6e 20 75 73 65 72 20 |s based |on user |
|00000b10| 63 72 69 74 65 72 69 61 | 0d 0a 45 44 49 54 44 42 |criteria|..EDITDB|
|00000b20| 28 29 ff 20 08 43 75 73 | 74 6f 6d 69 7a 65 64 20 |(). .Cus|tomized |
|00000b30| 44 42 45 44 49 54 28 29 | 20 77 69 74 68 20 55 44 |DBEDIT()| with UD|
|00000b40| 46 0d 0a 45 44 49 54 4d | 45 4d 4f 28 29 ff 20 06 |F..EDITM|EMO(). .|
|00000b50| 50 65 72 66 6f 72 6d 73 | 20 61 20 77 69 6e 64 6f |Performs| a windo|
|00000b60| 77 65 64 20 6d 65 6d 6f | 65 64 69 74 28 29 20 6f |wed memo|edit() o|
|00000b70| 6e 20 61 20 6d 65 6d 6f | 20 66 69 65 6c 64 0d 0a |n a memo| field..|
|00000b80| 45 44 5f 47 5f 50 49 43 | 28 29 ff 20 06 52 65 74 |ED_G_PIC|(). .Ret|
|00000b90| 75 72 6e 73 20 61 70 70 | 72 6f 70 72 69 61 74 65 |urns app|ropriate|
|00000ba0| 20 70 69 63 74 75 72 65 | 20 66 6f 72 20 61 20 67 | picture| for a g|
|00000bb0| 65 74 0d 0a 45 4e 48 41 | 4e 43 45 44 28 29 ff 20 |et..ENHA|NCED(). |
|00000bc0| 06 52 65 74 75 72 6e 73 | 20 63 6f 6c 6f 72 20 69 |.Returns| color i|
|00000bd0| 6e 74 65 67 65 72 20 66 | 6f 72 20 45 4e 48 41 4e |nteger f|or ENHAN|
|00000be0| 43 45 44 20 73 65 74 74 | 69 6e 67 0d 0a 46 41 53 |CED sett|ing..FAS|
|00000bf0| 54 46 4f 52 4d 28 29 ff | 20 06 50 72 69 6e 74 73 |TFORM().| .Prints|
|00000c00| 20 61 20 73 65 6c 65 63 | 74 65 64 20 66 6f 72 6d | a selec|ted form|
|00000c10| 6c 65 74 74 65 72 20 66 | 6f 72 20 63 75 72 72 65 |letter f|or curre|
|00000c20| 6e 74 20 72 65 63 6f 72 | 64 0d 0a 46 47 45 54 4c |nt recor|d..FGETL|
|00000c30| 45 4e 28 29 ff 20 07 47 | 65 74 20 6c 65 6e 67 74 |EN(). .G|et lengt|
|00000c40| 68 20 6f 66 20 61 20 66 | 69 65 6c 64 20 69 6e 20 |h of a f|ield in |
|00000c50| 63 75 72 72 65 6e 74 20 | 44 42 46 0d 0a 46 49 4c |current |DBF..FIL|
|00000c60| 45 52 45 41 44 28 29 ff | 20 06 4c 69 73 74 73 20 |EREAD().| .Lists |
|00000c70| 61 20 74 65 78 74 20 66 | 69 6c 65 20 6f 66 20 75 |a text f|ile of u|
|00000c80| 6e 6c 69 6d 69 74 65 64 | 20 73 69 7a 65 0d 0a 46 |nlimited| size..F|
|00000c90| 4f 52 4d 44 41 54 45 28 | 29 ff 20 06 52 65 74 75 |ORMDATE(|). .Retu|
|00000ca0| 72 6e 73 20 66 6f 72 6d | 61 74 74 65 64 20 64 61 |rns form|atted da|
|00000cb0| 74 65 20 28 69 2e 65 2e | 20 53 65 70 74 65 6d 62 |te (i.e.| Septemb|
|00000cc0| 65 72 20 31 30 2c 20 31 | 39 38 39 29 0d 0a 46 4f |er 10, 1|989)..FO|
|00000cd0| 52 4d 4c 45 54 52 28 29 | ff 20 06 49 6e 74 65 72 |RMLETR()|. .Inter|
|00000ce0| 61 63 74 69 76 65 20 66 | 6f 72 6d 6c 65 74 74 65 |active f|ormlette|
|00000cf0| 72 20 61 6e 64 20 6d 61 | 69 6c 6d 65 72 67 65 20 |r and ma|ilmerge |
|00000d00| 75 74 69 6c 69 74 79 0d | 0a 46 55 4c 4c 44 49 52 |utility.|.FULLDIR|
|00000d10| 28 29 ff 20 07 49 6e 74 | 65 72 61 63 74 69 76 65 |(). .Int|eractive|
|00000d20| 6c 79 20 6e 61 76 69 67 | 61 74 65 20 64 69 72 65 |ly navig|ate dire|
|00000d30| 63 74 6f 72 69 65 73 0d | 0a 47 45 4e 45 44 28 29 |ctories.|.GENED()|
|00000d40| ff 20 09 47 65 6e 65 72 | 69 63 20 64 62 66 20 65 |. .Gener|ic dbf e|
|00000d50| 64 69 74 69 6e 67 20 73 | 63 72 65 65 6e 0d 0a 47 |diting s|creen..G|
|00000d60| 45 4e 56 41 4c 28 29 ff | 20 08 47 65 6e 65 72 69 |ENVAL().| .Generi|
|00000d70| 63 20 56 41 4c 49 44 20 | 63 6c 61 75 73 65 20 76 |c VALID |clause v|
|00000d80| 61 6c 69 64 61 74 69 6f | 6e 20 77 69 74 68 20 6d |alidatio|n with m|
|00000d90| 65 73 73 61 67 65 0d 0a | 47 45 54 41 4b 45 59 28 |essage..|GETAKEY(|
|00000da0| 29 ff 20 07 47 65 74 73 | 20 69 6e 74 65 6e 74 20 |). .Gets| intent |
|00000db0| 6f 66 20 6c 61 73 74 20 | 6b 65 79 73 74 72 6f 6b |of last |keystrok|
|00000dc0| 65 0d 0a 47 4c 4f 42 52 | 45 50 28 29 ff 20 07 50 |e..GLOBR|EP(). .P|
|00000dd0| 65 72 66 6f 72 6d 73 20 | 67 6c 6f 62 61 6c 20 73 |erforms |global s|
|00000de0| 65 6c 65 63 74 69 76 65 | 20 72 65 70 6c 61 63 65 |elective| replace|
|00000df0| 20 6f 66 20 61 20 66 69 | 65 6c 64 0d 0a 48 45 4c | of a fi|eld..HEL|
|00000e00| 50 28 29 ff 20 0a 50 72 | 6f 76 69 64 65 73 20 63 |P(). .Pr|ovides c|
|00000e10| 6f 6e 74 65 78 74 20 73 | 65 6e 73 69 74 69 76 65 |ontext s|ensitive|
|00000e20| 20 70 6f 70 75 70 20 68 | 65 6c 70 0d 0a 48 45 4c | popup h|elp..HEL|
|00000e30| 50 4d 4f 44 28 29 ff 20 | 07 49 6e 74 65 72 61 63 |PMOD(). |.Interac|
|00000e40| 74 69 76 65 6c 79 20 62 | 75 69 6c 64 20 61 6e 64 |tively b|uild and|
|00000e50| 20 6d 6f 64 69 66 79 20 | 68 65 6c 70 20 73 63 72 | modify |help scr|
|00000e60| 65 65 6e 73 0d 0a 49 4e | 49 54 43 4f 4c 28 29 ff |eens..IN|ITCOL().|
|00000e70| 20 07 49 6e 69 74 69 61 | 6c 69 7a 65 73 20 67 6c | .Initia|lizes gl|
|00000e80| 6f 62 61 6c 20 63 6f 6c | 6f 72 73 20 66 6f 72 20 |obal col|ors for |
|00000e90| 74 68 65 20 6c 69 62 72 | 61 72 79 0d 0a 49 4e 49 |the libr|ary..INI|
|00000ea0| 54 53 55 50 28 29 ff 20 | 07 49 6e 69 74 69 61 6c |TSUP(). |.Initial|
|00000eb0| 69 7a 65 64 20 67 6c 6f | 62 61 6c 20 76 61 72 69 |ized glo|bal vari|
|00000ec0| 61 62 6c 65 73 20 61 6e | 64 20 63 6f 6e 64 69 74 |ables an|d condit|
|00000ed0| 69 6f 6e 73 0d 0a 49 53 | 4c 4f 41 44 45 44 28 29 |ions..IS|LOADED()|
|00000ee0| ff 20 06 44 65 74 65 72 | 6d 69 6e 65 73 20 20 66 |. .Deter|mines f|
|00000ef0| 75 6e 63 74 69 6f 6e 20 | 69 73 20 6c 6f 61 64 65 |unction |is loade|
|00000f00| 64 20 6f 72 20 6e 6f 74 | 0d 0a 49 53 50 41 52 54 |d or not|..ISPART|
|00000f10| 28 29 ff 20 08 44 65 74 | 65 72 6d 69 6e 65 73 20 |(). .Det|ermines |
|00000f20| 69 66 20 61 20 6e 75 6d | 62 65 72 20 69 73 20 70 |if a num|ber is p|
|00000f30| 61 72 74 20 6f 66 20 61 | 20 73 65 74 0d 0a 4b 42 |art of a| set..KB|
|00000f40| 44 5f 45 53 43 41 50 45 | 28 29 ff 20 04 4b 65 79 |D_ESCAPE|(). .Key|
|00000f50| 62 6f 61 72 64 73 20 63 | 68 61 72 61 63 74 65 72 |boards c|haracter|
|00000f60| 20 32 37 20 28 65 73 63 | 61 70 65 29 20 77 68 65 | 27 (esc|ape) whe|
|00000f70| 6e 20 6b 65 79 20 70 72 | 65 73 73 65 64 0d 0a 4c |n key pr|essed..L|
|00000f80| 49 53 54 45 52 28 29 ff | 20 08 42 75 69 6c 64 2c |ISTER().| .Build,|
|00000f90| 20 66 6f 72 6d 61 74 20 | 61 6e 64 20 70 72 69 6e | format |and prin|
|00000fa0| 74 20 6c 69 73 74 73 20 | 74 6f 20 70 72 69 6e 74 |t lists |to print|
|00000fb0| 65 72 2c 73 63 72 65 65 | 6e 2c 66 69 6c 65 0d 0a |er,scree|n,file..|
|00000fc0| 4c 4f 4f 4b 46 4c 44 28 | 29 ff 20 07 49 6e 74 65 |LOOKFLD(|). .Inte|
|00000fd0| 72 61 63 74 69 76 65 20 | 6c 6f 63 61 74 65 20 6f |ractive |locate o|
|00000fe0| 6e 20 61 6e 79 20 66 69 | 65 6c 64 0d 0a 4c 4f 4f |n any fi|eld..LOO|
|00000ff0| 50 45 52 28 29 ff 20 08 | 45 6d 75 6c 61 74 65 20 |PER(). .|Emulate |
|00001000| 6d 75 6c 74 69 70 6c 65 | 20 72 65 61 64 73 20 77 |multiple| reads w|
|00001010| 69 74 68 20 73 69 6e 67 | 6c 65 20 72 65 61 64 73 |ith sing|le reads|
|00001020| 0d 0a 4d 41 4b 45 42 4f | 58 28 29 ff 20 07 44 72 |..MAKEBO|X(). .Dr|
|00001030| 61 77 73 20 61 20 73 68 | 61 64 6f 77 20 62 6f 78 |aws a sh|adow box|
|00001040| 20 6f 6e 20 74 68 65 20 | 73 63 72 65 65 6e 2c 20 | on the |screen, |
|00001050| 73 61 76 65 73 20 74 68 | 65 20 73 63 72 65 65 6e |saves th|e screen|
|00001060| 0d 0a 4d 43 48 4f 49 43 | 45 28 29 ff 20 07 43 72 |..MCHOIC|E(). .Cr|
|00001070| 65 61 74 65 73 20 61 20 | 62 6f 78 20 66 6f 72 20 |eates a |box for |
|00001080| 61 6e 20 41 63 68 6f 69 | 63 65 20 63 61 6c 6c 0d |an Achoi|ce call.|
|00001090| 0a 4d 45 4e 55 5f 56 28 | 29 ff 20 08 56 65 72 74 |.MENU_V(|). .Vert|
|000010a0| 69 63 61 6c 20 70 6f 70 | 75 70 20 6d 65 6e 75 20 |ical pop|up menu |
|000010b0| 66 72 6f 6d 20 76 61 72 | 69 61 62 6c 65 20 23 20 |from var|iable # |
|000010c0| 70 61 72 61 6d 65 74 65 | 72 73 0d 0a 4d 45 53 53 |paramete|rs..MESS|
|000010d0| 59 4e 28 29 ff 20 08 50 | 6f 70 75 70 20 59 65 73 |YN(). .P|opup Yes|
|000010e0| 4e 6f 20 70 72 6f 6d 70 | 74 20 62 6f 78 0d 0a 4d |No promp|t box..M|
|000010f0| 46 49 45 4c 44 53 28 29 | ff 20 07 50 6f 70 73 20 |FIELDS()|. .Pops |
|00001100| 75 70 20 61 6e 20 61 63 | 68 6f 69 63 65 20 66 6f |up an ac|hoice fo|
|00001110| 72 20 63 75 72 72 65 6e | 74 20 64 62 66 20 66 69 |r curren|t dbf fi|
|00001120| 65 6c 64 73 0d 0a 4d 4f | 44 49 53 28 29 ff 20 09 |elds..MO|DIS(). .|
|00001130| 49 6e 74 65 72 61 63 74 | 69 76 65 20 6d 6f 64 69 |Interact|ive modi|
|00001140| 66 79 20 6f 72 20 63 72 | 65 61 74 65 20 73 74 72 |fy or cr|eate str|
|00001150| 75 63 74 75 72 65 0d 0a | 4d 53 47 28 29 ff 20 0b |ucture..|MSG(). .|
|00001160| 44 69 73 70 6c 61 79 73 | 20 75 70 20 74 6f 20 61 |Displays| up to a|
|00001170| 20 39 20 6c 69 6e 65 20 | 6d 65 73 73 61 67 65 20 | 9 line |message |
|00001180| 69 6e 20 61 20 77 69 6e | 64 6f 77 0d 0a 4e 4b 45 |in a win|dow..NKE|
|00001190| 59 28 29 ff 20 0a 47 65 | 74 73 20 6b 65 79 20 6f |Y(). .Ge|ts key o|
|000011a0| 66 20 61 6e 20 69 6e 64 | 65 78 20 66 69 6c 65 0d |f an ind|ex file.|
|000011b0| 0a 4f 43 43 55 52 28 29 | ff 20 09 42 75 69 6c 64 |.OCCUR()|. .Build|
|000011c0| 20 61 6e 64 20 64 69 73 | 70 6c 61 79 20 66 72 65 | and dis|play fre|
|000011d0| 71 75 65 6e 74 79 20 61 | 6e 61 6c 79 73 69 73 20 |quenty a|nalysis |
|000011e0| 66 6f 72 20 66 69 65 6c | 64 0d 0a 4f 4e 45 5f 52 |for fiel|d..ONE_R|
|000011f0| 45 41 44 28 29 ff 20 06 | 50 6f 70 2d 75 70 20 77 |EAD(). .|Pop-up w|
|00001200| 69 6e 64 6f 77 20 77 69 | 74 68 20 31 2d 34 20 53 |indow wi|th 1-4 S|
|00001210| 61 79 2f 47 65 74 20 63 | 6f 6d 62 69 6e 61 74 69 |ay/Get c|ombinati|
|00001220| 6f 6e 73 0d 0a 50 4c 53 | 57 41 49 54 28 29 ff 20 |ons..PLS|WAIT(). |
|00001230| 07 50 6f 70 73 20 75 70 | 20 61 20 27 50 6c 65 61 |.Pops up| a 'Plea|
|00001240| 73 65 20 57 61 69 74 27 | 20 77 69 6e 64 6f 77 20 |se Wait'| window |
|00001250| 6f 72 20 72 65 6d 6f 76 | 65 73 20 69 74 0d 0a 50 |or remov|es it..P|
|00001260| 4f 50 45 58 28 29 ff 20 | 09 50 6f 70 73 20 75 70 |OPEX(). |.Pops up|
|00001270| 20 61 6e 20 61 63 68 6f | 69 63 65 20 66 6f 72 20 | an acho|ice for |
|00001280| 61 20 63 65 72 74 61 69 | 6e 20 66 69 6c 65 73 70 |a certai|n filesp|
|00001290| 65 63 0d 0a 50 52 4e 54 | 46 52 4d 4c 28 29 ff 20 |ec..PRNT|FRML(). |
|000012a0| 06 50 72 69 6e 74 73 20 | 61 20 66 6f 72 6d 6c 65 |.Prints |a formle|
|000012b0| 74 74 65 72 20 63 72 65 | 61 74 65 64 20 62 79 20 |tter cre|ated by |
|000012c0| 66 6f 72 6d 6c 65 74 72 | 28 29 0d 0a 50 55 4c 4c |formletr|()..PULL|
|000012d0| 44 4e 28 29 ff 20 08 50 | 75 6c 6c 64 6f 77 6e 20 |DN(). .P|ulldown |
|000012e0| 6d 65 6e 75 20 63 72 65 | 61 74 6f 72 2c 20 68 61 |menu cre|ator, ha|
|000012f0| 6e 64 6c 65 72 0d 0a 50 | 5f 52 45 41 44 59 28 29 |ndler..P|_READY()|
|00001300| ff 20 07 44 65 74 65 72 | 6d 69 6e 65 73 20 69 66 |. .Deter|mines if|
|00001310| 20 70 72 69 6e 74 65 72 | 20 69 73 20 72 65 61 64 | printer| is read|
|00001320| 79 2c 20 70 72 6f 6d 70 | 74 73 20 75 73 65 72 0d |y, promp|ts user.|
|00001330| 0a 51 55 45 52 59 28 29 | ff 20 09 49 6e 74 65 72 |.QUERY()|. .Inter|
|00001340| 61 63 74 69 76 65 20 71 | 75 65 72 79 20 62 79 20 |active q|uery by |
|00001350| 65 78 61 6d 70 6c 65 20 | 63 6f 6e 64 69 74 69 6f |example |conditio|
|00001360| 6e 20 62 75 69 6c 64 65 | 72 0d 0a 53 43 4d 4f 44 |n builde|r..SCMOD|
|00001370| 28 29 ff 20 09 4d 61 69 | 6e 74 61 69 6e 73 20 73 |(). .Mai|ntains s|
|00001380| 63 72 6f 6c 6c 65 72 2e | 64 62 66 20 2d 20 73 65 |croller.|dbf - se|
|00001390| 65 20 73 63 72 6f 6c 6c | 65 72 28 29 0d 0a 53 43 |e scroll|er()..SC|
|000013a0| 52 4f 4c 4c 45 52 28 29 | ff 20 06 48 6f 74 6b 65 |ROLLER()|. .Hotke|
|000013b0| 79 20 6c 6f 6f 6b 75 70 | 20 74 61 62 6c 65 73 20 |y lookup| tables |
|000013c0| 77 69 74 68 20 64 62 66 | 20 73 74 6f 72 61 67 65 |with dbf| storage|
|000013d0| 0d 0a 53 45 54 43 4f 4c | 4f 52 53 28 29 ff 20 05 |..SETCOL|ORS(). .|
|000013e0| 49 6e 74 65 72 61 63 74 | 69 76 65 20 63 6f 6c 6f |Interact|ive colo|
|000013f0| 72 20 73 65 74 74 69 6e | 67 20 69 6e 74 65 72 66 |r settin|g interf|
|00001400| 61 63 65 0d 0a 53 4d 41 | 4c 4c 53 28 29 ff 20 08 |ace..SMA|LLS(). .|
|00001410| 4c 6f 6f 6b 75 70 20 74 | 61 62 6c 65 73 20 6f 6e |Lookup t|ables on|
|00001420| 20 64 62 66 20 2d 20 6e | 6f 20 63 61 6c 6c 20 74 | dbf - n|o call t|
|00001430| 6f 20 64 62 65 64 69 74 | 20 3c 73 6d 61 6c 6c 3e |o dbedit| <small>|
|00001440| 0d 0a 53 54 41 4e 44 41 | 52 44 28 29 ff 20 06 52 |..STANDA|RD(). .R|
|00001450| 65 74 75 72 6e 73 20 63 | 6f 6c 6f 72 20 69 6e 74 |eturns c|olor int|
|00001460| 65 67 65 72 20 66 6f 72 | 20 73 74 61 6e 64 61 72 |eger for| standar|
|00001470| 64 20 73 65 74 74 69 6e | 67 0d 0a 53 55 4d 5f 41 |d settin|g..SUM_A|
|00001480| 56 45 28 29 ff 20 07 49 | 6e 74 65 72 61 63 74 69 |VE(). .I|nteracti|
|00001490| 76 65 20 73 75 6d 20 6f | 72 20 61 76 65 72 61 67 |ve sum o|r averag|
|000014a0| 65 20 6f 6e 20 61 20 64 | 62 66 20 66 69 65 6c 64 |e on a d|bf field|
|000014b0| 0d 0a 54 41 47 49 54 28 | 29 ff 20 09 41 6c 6c 6f |..TAGIT(|). .Allo|
|000014c0| 77 73 20 74 61 67 67 69 | 6e 67 20 6f 66 20 64 62 |ws taggi|ng of db|
|000014d0| 66 20 72 65 63 6f 72 64 | 73 20 66 6f 72 20 6c 61 |f record|s for la|
|000014e0| 74 65 72 20 61 63 74 69 | 6f 6e 0d 0a 55 4e 42 4f |ter acti|on..UNBO|
|000014f0| 58 28 29 ff 20 09 52 65 | 6d 6f 76 65 73 20 61 20 |X(). .Re|moves a |
|00001500| 62 6f 78 20 63 72 65 61 | 74 65 64 20 62 79 20 6d |box crea|ted by m|
|00001510| 61 6b 65 62 6f 78 28 29 | 0d 0a 55 4e 53 45 4c 45 |akebox()|..UNSELE|
|00001520| 43 54 45 44 28 29 ff 20 | 04 52 65 74 75 72 6e 73 |CTED(). |.Returns|
|00001530| 20 63 6f 6c 6f 72 20 69 | 6e 74 65 67 65 72 20 66 | color i|nteger f|
|00001540| 6f 72 20 55 4e 53 45 4c | 45 43 54 45 44 20 73 65 |or UNSEL|ECTED se|
|00001550| 74 74 69 6e 67 0d 0a 56 | 41 52 32 43 48 41 52 28 |tting..V|AR2CHAR(|
|00001560| 29 ff 20 06 43 6f 6e 76 | 65 72 74 73 20 61 6e 79 |). .Conv|erts any|
|00001570| 20 74 79 70 65 20 76 61 | 72 69 61 62 6c 65 20 74 | type va|riable t|
|00001580| 6f 20 63 68 61 72 61 63 | 74 65 72 20 74 79 70 65 |o charac|ter type|
|00001590| 0d 0a 56 41 52 4c 45 4e | 47 54 48 28 29 ff 20 05 |..VARLEN|GTH(). .|
|000015a0| 52 65 74 75 72 6e 73 20 | 6c 65 6e 67 74 68 20 6f |Returns |length o|
|000015b0| 66 20 61 20 76 61 72 69 | 61 62 6c 65 20 20 6f 66 |f a vari|able of|
|000015c0| 20 61 6e 79 20 74 79 70 | 65 0d 0a 57 52 49 54 45 | any typ|e..WRITE|
|000015d0| 46 49 4c 45 28 29 ff 20 | 05 57 72 69 74 65 73 20 |FILE(). |.Writes |
|000015e0| 61 20 6c 69 6e 65 20 6f | 72 20 6c 69 6e 65 73 20 |a line o|r lines |
|000015f0| 20 74 6f 20 61 20 74 65 | 78 74 20 66 69 6c 65 0d | to a te|xt file.|
|00001600| 0a ff 00 8e 65 63 68 6f | 20 6f 66 66 0d 0a 63 6c |....echo| off..cl|
|00001610| 73 0d 0a 69 66 20 78 25 | 31 78 3d 3d 78 78 20 67 |s..if x%|1x==xx g|
|00001620| 6f 74 6f 20 75 73 61 67 | 65 0d 0a 65 63 68 6f 20 |oto usag|e..echo |
|00001630| 43 6f 6d 70 69 6c 69 6e | 67 20 25 31 20 2d 20 20 |Compilin|g %1 - |
|00001640| 43 4c 49 50 50 45 52 2e | 45 58 45 20 61 73 73 75 |CLIPPER.|EXE assu|
|00001650| 6d 65 64 20 74 6f 20 62 | 65 20 6f 6e 20 74 68 65 |med to b|e on the|
|00001660| 20 70 61 74 68 2e 0d 0a | 65 63 68 6f 2e 0d 0a 65 | path...|echo...e|
|00001670| 63 68 6f 2e 0d 0a 63 6c | 69 70 70 65 72 20 25 31 |cho...cl|ipper %1|
|00001680| 0d 0a 65 63 68 6f 2e 0d | 0a 65 63 68 6f 2e 0d 0a |..echo..|.echo...|
|00001690| 65 63 68 6f 20 20 42 4c | 49 4e 4b 69 6e 67 20 25 |echo BL|INKing %|
|000016a0| 31 20 20 2d 20 20 43 4c | 49 50 50 45 52 2e 4c 49 |1 - CL|IPPER.LI|
|000016b0| 42 2c 20 45 58 54 45 4e | 44 2e 4c 49 42 20 2c 20 |B, EXTEN|D.LIB , |
|000016c0| 53 55 50 45 52 2e 4c 49 | 42 0d 0a 65 63 68 6f ff |SUPER.LI|B..echo.|
|000016d0| 20 12 61 73 73 75 6d 65 | 64 20 74 6f 20 62 65 20 | .assume|d to be |
|000016e0| 69 6e 20 63 75 72 72 65 | 6e 74 20 64 69 72 65 63 |in curre|nt direc|
|000016f0| 74 6f 72 79 2e 0d 0a 65 | 63 68 6f ff 20 12 42 4c |tory...e|cho. .BL|
|00001700| 49 4e 4b 45 52 2e 45 58 | 45 20 61 73 73 75 6d 65 |INKER.EX|E assume|
|00001710| 64 20 74 6f 20 62 65 20 | 69 6e 20 70 61 74 68 2e |d to be |in path.|
|00001720| 0d 0a 65 63 68 6f 2e 0d | 0a 65 63 68 6f 2e 0d 0a |..echo..|.echo...|
|00001730| 42 4c 49 4e 4b 45 52 20 | 66 69 20 25 31 20 6c 69 |BLINKER |fi %1 li|
|00001740| 62 20 73 75 70 65 72 2c | 63 6c 69 70 70 65 72 2c |b super,|clipper,|
|00001750| 65 78 74 65 6e 64 0d 0a | 67 6f 74 6f 20 65 6e 64 |extend..|goto end|
|00001760| 0d 0a 3a 75 73 61 67 65 | 0d 0a 65 63 68 6f 2e 0d |..:usage|..echo..|
|00001770| 0a 65 63 68 6f 2e 0d 0a | 65 63 68 6f 2e 0d 0a 65 |.echo...|echo...e|
|00001780| 63 68 6f 20 55 53 41 47 | 45 ff 20 06 42 4c 43 4f |cho USAG|E. .BLCO|
|00001790| 4d 50 ff 20 03 5b 70 72 | 67 20 6e 61 6d 65 5d 0d |MP. .[pr|g name].|
|000017a0| 0a 65 63 68 6f 2e 0d 0a | 65 63 68 6f 2e 0d 0a 65 |.echo...|echo...e|
|000017b0| 63 68 6f 2e 0d 0a 3a 65 | 6e 64 0d 0a ff 00 27 ff |cho...:e|nd....'.|
|000017c0| f6 ff ff f6 ff f6 f6 65 | 63 68 6f 20 6f 66 66 0d |.......e|cho off.|
|000017d0| 0a 63 6c 73 0d 0a 69 66 | 20 78 25 31 78 3d 3d 78 |.cls..if| x%1x==x|
|000017e0| 78 20 67 6f 74 6f 20 75 | 73 61 67 65 0d 0a 65 63 |x goto u|sage..ec|
|000017f0| 68 6f ff 20 03 43 6f 6d | 70 69 6c 69 6e 67 20 25 |ho. .Com|piling %|
|00001800| 31 20 2d 20 20 43 4c 49 | 50 50 45 52 2e 45 58 45 |1 - CLI|PPER.EXE|
|00001810| 20 61 73 73 75 6d 65 64 | 20 74 6f 20 62 65 20 69 | assumed| to be i|
|00001820| 6e 20 70 61 74 68 2e 0d | 0a 65 63 68 6f 2e 0d 0a |n path..|.echo...|
|00001830| 65 63 68 6f 2e 0d 0a 63 | 6c 69 70 70 65 72 20 25 |echo...c|lipper %|
|00001840| 31 0d 0a 65 63 68 6f 2e | 0d 0a 65 63 68 6f 2e 0d |1..echo.|..echo..|
|00001850| 0a 65 63 68 6f ff 20 03 | 4c 69 6e 6b 69 6e 67 20 |.echo. .|Linking |
|00001860| 25 31 20 20 2d 20 20 43 | 4c 49 50 50 45 52 2e 4c |%1 - C|LIPPER.L|
|00001870| 49 42 2c 20 45 58 54 45 | 4e 44 2e 4c 49 42 20 2c |IB, EXTE|ND.LIB ,|
|00001880| 20 53 55 50 45 52 2e 4c | 49 42 0d 0a 65 63 68 6f | SUPER.L|IB..echo|
|00001890| ff 20 12 61 73 73 75 6d | 65 64 20 74 6f 20 62 65 |. .assum|ed to be|
|000018a0| 20 69 6e 20 63 75 72 72 | 65 6e 74 20 64 69 72 65 | in curr|ent dire|
|000018b0| 63 74 6f 72 79 2e 0d 0a | 65 63 68 6f ff 20 12 4c |ctory...|echo. .L|
|000018c0| 49 4e 4b 2e 45 58 45 20 | 61 73 73 75 6d 65 64 20 |INK.EXE |assumed |
|000018d0| 74 6f 20 62 65 20 69 6e | 20 70 61 74 68 2e 0d 0a |to be in| path...|
|000018e0| 65 63 68 6f ff 20 12 4c | 49 4e 4b 2e 45 58 45 20 |echo. .L|INK.EXE |
|000018f0| 61 73 73 75 6d 65 64 20 | 74 6f 20 62 65 20 76 65 |assumed |to be ve|
|00001900| 72 73 69 6f 6e 20 33 2e | 30 20 6f 72 20 61 62 6f |rsion 3.|0 or abo|
|00001910| 76 65 0d 0a 65 63 68 6f | 2e 0d 0a 65 63 68 6f 2e |ve..echo|...echo.|
|00001920| 0d 0a 4c 49 4e 4b 20 25 | 31 ff 2c 03 63 6c 69 70 |..LINK %|1.,.clip|
|00001930| 70 65 72 2b 65 78 74 65 | 6e 64 2b 73 75 70 65 72 |per+exte|nd+super|
|00001940| 20 2f 4e 4f 45 20 2f 53 | 45 3a 35 31 32 0d 0a 67 | /NOE /S|E:512..g|
|00001950| 6f 74 6f 20 65 6e 64 0d | 0a 3a 75 73 61 67 65 0d |oto end.|.:usage.|
|00001960| 0a 65 63 68 6f 2e 0d 0a | 65 63 68 6f 2e 0d 0a 65 |.echo...|echo...e|
|00001970| 63 68 6f 2e 0d 0a 65 63 | 68 6f 20 55 53 41 47 45 |cho...ec|ho USAGE|
|00001980| ff 20 06 4d 53 43 4f 4d | 50 ff 20 03 5b 70 72 67 |. .MSCOM|P. .[prg|
|00001990| 20 6e 61 6d 65 5d 0d 0a | 65 63 68 6f 2e 0d 0a 65 | name]..|echo...e|
|000019a0| 63 68 6f 2e 0d 0a 65 63 | 68 6f 2e 0d 0a 3a 65 6e |cho...ec|ho...:en|
|000019b0| 64 0d 0a ff 00 ff ff 00 | e5 ff 20 0e 46 75 6e 63 |d.......|.. .Func|
|000019c0| 74 69 6f 6e 61 6c 20 53 | 6f 66 74 77 61 72 65 20 |tional S|oftware |
|000019d0| 50 72 6f 64 75 63 74 73 | 20 20 4a 75 6e 65 20 31 |Products| June 1|
|000019e0| 39 39 30 0d 0a ff 20 0e | ff 2d 28 0d 0a ff 20 1a |990... .|.-(... .|
|000019f0| 4f 52 44 45 52 20 20 46 | 4f 52 4d 0d 0a ff 20 16 |ORDER F|ORM... .|
|00001a00| 28 50 6c 65 61 73 65 20 | 70 72 69 6e 74 20 6f 72 |(Please |print or|
|00001a10| 20 74 79 70 65 29 0d 0a | 0d 0a ff 20 06 4e 75 6d | type)..|... .Num|
|00001a20| 62 65 72 20 20 50 72 6f | 64 75 63 74 ff 20 22 50 |ber Pro|duct. "P|
|00001a30| 72 69 63 65 ff 20 04 54 | 6f 74 61 6c 0d 0a ff 20 |rice. .T|otal... |
|00001a40| 03 ff 2d 44 0d 0a 0d 0a | ff 20 06 ff 5f 06 20 20 |..-D....|. .._. |
|00001a50| 53 75 70 65 72 2e 4c 69 | 62 ff 20 05 53 74 61 6e |Super.Li|b. .Stan|
|00001a60| 64 61 72 64 20 28 76 65 | 72 73 20 31 2e 35 31 29 |dard (ve|rs 1.51)|
|00001a70| ff 20 08 24 34 35 2e 30 | 30 20 20 ff 5f 05 0d 0a |. .$45.0|0 ._...|
|00001a80| 0d 0a 0d 0a ff 20 06 ff | 5f 06 20 20 53 75 70 65 |..... ..|_. Supe|
|00001a90| 72 2e 4c 69 62 ff 20 05 | 50 72 6f 66 65 73 73 69 |r.Lib. .|Professi|
|00001aa0| 6f 6e 61 6c 20 28 76 65 | 72 73 20 32 2e 30 31 29 |onal (ve|rs 2.01)|
|00001ab0| ff 20 03 24 31 38 30 2e | 30 30 20 20 ff 5f 05 0d |. .$180.|00 ._..|
|00001ac0| 0a ff 20 0e 49 6e 63 6c | 75 64 65 73 20 6e 65 77 |.. .Incl|udes new|
|00001ad0| 20 20 53 75 70 65 72 20 | 52 65 70 6f 72 74 20 57 | Super |Report W|
|00001ae0| 72 69 74 65 72 0d 0a ff | 20 0e 28 64 65 64 75 63 |riter...| .(deduc|
|00001af0| 74 20 24 34 35 20 69 66 | 20 79 6f 75 20 61 72 65 |t $45 if| you are|
|00001b00| 20 61 20 53 75 70 65 72 | 66 75 6e 63 74 69 6f 6e | a Super|function|
|00001b10| 0d 0a ff 20 0f 76 65 72 | 73 20 31 2e 35 30 20 6f |... .ver|s 1.50 o|
|00001b20| 77 6e 65 72 29 ff 20 1a | 6c 65 73 73 ff 20 03 ff |wner). .|less. ..|
|00001b30| 5f 05 0d 0a 0d 0a ff 20 | 0e 53 68 69 70 70 69 6e |_...... |.Shippin|
|00001b40| 67 20 20 24 35 2e 30 30 | 20 28 49 6e 74 65 72 6e |g $5.00| (Intern|
|00001b50| 61 74 69 6f 6e 61 6c 20 | 24 31 30 29 ff 20 0f ff |ational |$10). ..|
|00001b60| 5f 05 0d 0a 0d 0a ff 20 | 29 54 4f 54 41 4c 20 45 |_...... |)TOTAL E|
|00001b70| 4e 43 4c 4f 53 45 44 ff | 20 04 ff 5f 0a 0d 0a 0d |NCLOSED.| .._....|
|00001b80| 0a ff 20 03 ff 2d 44 0d | 0a ff 20 07 53 68 69 70 |.. ..-D.|.. .Ship|
|00001b90| 20 74 6f 3a 20 28 79 6f | 75 72 20 6e 61 6d 65 20 | to: (yo|ur name |
|00001ba0| 61 6e 64 20 61 64 64 72 | 65 73 73 20 68 65 72 65 |and addr|ess here|
|00001bb0| 29 0d 0a 0d 0a ff 20 07 | ff 5f 38 0d 0a 0d 0a ff |)..... .|._8.....|
|00001bc0| 20 07 ff 5f 11 59 10 fa | fa 5f 27 0d 0a 0d 0a fa | .._.Y..|._'.....|
|00001bd0| 20 07 fa 5f 38 0d 0a 0d | 0a fa 20 07 fa 5f 38 0d | .._8...|.. .._8.|
|00001be0| 0a 0d 0a fa 20 03 fa 2d | 44 0d 0a fa 20 07 4d 65 |.... ..-|D... .Me|
|00001bf0| 74 68 6f 64 20 6f 66 20 | 50 61 79 6d 65 6e 74 20 |thod of |Payment |
|00001c00| 28 63 69 72 63 6c 65 20 | 6f 6e 65 29 3a 0d 0a 0d |(circle |one):...|
|00001c10| 0a fa 20 07 43 68 65 63 | 6b 2f 43 61 73 68 fa 20 |.. .Chec|k/Cash. |
|00001c20| 04 56 49 53 41 fa 20 04 | 4d 61 73 74 65 72 63 61 |.VISA. .|Masterca|
|00001c30| 72 64 0d 0a 0d 0a fa 20 | 09 56 49 53 41 2f 4d 61 |rd..... |.VISA/Ma|
|00001c40| 73 74 65 72 63 61 72 64 | 20 4e 75 6d 62 65 72 20 |stercard| Number |
|00001c50| fa 5f 22 0d 0a fa 20 09 | 28 2a 20 49 4d 50 4f 52 |._"... .|(* IMPOR|
|00001c60| 54 41 4e 54 21 20 56 49 | 53 41 2f 4d 43 20 6e 75 |TANT! VI|SA/MC nu|
|00001c70| 6d 62 65 72 20 6d 75 73 | 74 20 62 65 20 31 33 20 |mber mus|t be 13 |
|00001c80| 6f 72 20 31 36 20 64 69 | 67 69 74 73 20 6c 6f 6e |or 16 di|gits lon|
|00001c90| 67 29 0d 0a 0d 0a fa 20 | 09 45 78 70 69 72 61 74 |g)..... |.Expirat|
|00001ca0| 69 6f 6e 20 44 61 74 65 | 20 20 fa 5f 0b 0d 0a 0d |ion Date| ._....|
|00001cb0| 0a fa 20 09 4e 61 6d 65 | 20 6f 6e 20 63 61 72 64 |.. .Name| on card|
|00001cc0| 20 fa 5f 15 0d 0a 0d 0a | fa 20 09 53 69 67 6e 61 | ._.....|. .Signa|
|00001cd0| 74 75 72 65 20 fa 5f 14 | 0d 0a 0d 0a fa 20 03 fa |ture ._.|..... ..|
|00001ce0| 2d 41 0d 0a fa 20 09 73 | 65 6e 64 20 6f 72 64 65 |-A... .s|end orde|
|00001cf0| 72 20 74 6f 3a 20 46 55 | 4e 43 54 49 4f 4e 41 4c |r to: FU|NCTIONAL|
|00001d00| 20 53 4f 46 54 57 41 52 | 45 0d 0a fa 20 18 39 32 | SOFTWAR|E... .92|
|00001d10| 30 20 4e 20 57 41 53 48 | 49 4e 47 54 4f 4e 0d 0a |0 N WASH|INGTON..|
|00001d20| fa 20 18 45 44 4d 4f 4e | 44 20 20 4f 4b 20 20 37 |. .EDMON|D OK 7|
|00001d30| 33 30 33 34 0d 0a fa 20 | 18 70 68 6f 6e 65 20 20 |3034... |.phone |
|00001d40| 28 34 30 35 29 20 33 34 | 30 2d 31 39 34 30 0d 0a |(405) 34|0-1940..|
|00001d50| fa 20 18 66 61 78 fa 20 | 04 28 34 30 35 29 20 33 |. .fax. |.(405) 3|
|00001d60| 34 31 2d 31 38 39 33 0d | 0a fa 20 03 50 68 6f 6e |41-1893.|.. .Phon|
|00001d70| 65 2f 46 61 78 20 6f 72 | 64 65 72 73 20 77 65 6c |e/Fax or|ders wel|
|00001d80| 63 6f 6d 65 21 fa 20 03 | 44 65 6d 6f 20 64 69 73 |come!. .|Demo dis|
|00001d90| 6b 73 20 73 65 6e 74 20 | 6f 6e 20 72 65 71 75 65 |ks sent |on reque|
|00001da0| 73 74 20 28 6e 6f 20 63 | 68 61 72 67 65 29 21 0d |st (no c|harge)!.|
|00001db0| 0a fa 20 03 fa 2d 42 0d | 0a 0d 0a fa 20 03 49 6e |.. ..-B.|.... .In|
|00001dc0| 20 47 45 52 4d 41 4e 59 | 20 3a 20 4d 45 52 4c 49 | GERMANY| : MERLI|
|00001dd0| 4e 20 57 41 52 45 20 49 | 4e 54 45 52 4e 41 54 49 |N WARE I|NTERNATI|
|00001de0| 4f 4e 41 4c fa 20 04 50 | 68 6f 6e 65 20 30 31 31 |ONAL. .P|hone 011|
|00001df0| 2d 34 39 36 33 37 34 2d | 34 33 36 31 0d 0a fa 20 |-496374-|4361... |
|00001e00| 2d 46 41 58 fa 20 03 30 | 31 31 2d 34 39 36 33 37 |-FAX. .0|11-49637|
|00001e10| 34 2d 34 33 36 31 0d 0a | fa 20 2d 42 42 53 fa 20 |4-4361..|. -BBS. |
|00001e20| 03 30 31 31 2d 34 39 36 | 33 37 34 2d 32 39 38 36 |.011-496|374-2986|
|00001e30| 0d 0a 0d 0a fa 00 ff fa | 00 1f fa f6 ff fa f6 ff |........|........|
|00001e40| f6 f6 65 63 68 6f 20 6f | 66 66 0d 0a 63 6c 73 0d |..echo o|ff..cls.|
|00001e50| 0a 69 66 20 78 25 31 78 | 3d 3d 78 78 20 67 6f 74 |.if x%1x|==xx got|
|00001e60| 6f 20 75 73 61 67 65 0d | 0a 65 63 68 6f 20 43 6f |o usage.|.echo Co|
|00001e70| 6d 70 69 6c 69 6e 67 20 | 25 31 20 2d 20 20 43 4c |mpiling |%1 - CL|
|00001e80| 49 50 50 45 52 2e 45 58 | 45 20 61 73 73 75 6d 65 |IPPER.EX|E assume|
|00001e90| 64 20 74 6f 20 62 65 20 | 6f 6e 20 74 68 65 20 70 |d to be |on the p|
|00001ea0| 61 74 68 2e 0d 0a 65 63 | 68 6f 2e 0d 0a 65 63 68 |ath...ec|ho...ech|
|00001eb0| 6f 2e 0d 0a 63 6c 69 70 | 70 65 72 20 25 31 0d 0a |o...clip|per %1..|
|00001ec0| 65 63 68 6f 2e 0d 0a 65 | 63 68 6f 2e 0d 0a 65 63 |echo...e|cho...ec|
|00001ed0| 68 6f 20 20 50 4c 69 6e | 6b 69 6e 67 20 25 31 20 |ho PLin|king %1 |
|00001ee0| 20 2d 20 20 43 4c 49 50 | 50 45 52 2e 4c 49 42 2c | - CLIP|PER.LIB,|
|00001ef0| 20 45 58 54 45 4e 44 2e | 4c 49 42 20 2c 20 53 55 | EXTEND.|LIB , SU|
|00001f00| 50 45 52 2e 4c 49 42 0d | 0a 65 63 68 6f fa 20 12 |PER.LIB.|.echo. .|
|00001f10| 61 73 73 75 6d 65 64 20 | 74 6f 20 62 65 20 69 6e |assumed |to be in|
|00001f20| 20 63 75 72 72 65 6e 74 | 20 64 69 72 65 63 74 6f | current| directo|
|00001f30| 72 79 2e 0d 0a 65 63 68 | 6f fa 20 12 50 4c 49 4e |ry...ech|o. .PLIN|
|00001f40| 4b 38 36 2e 45 58 45 20 | 61 73 73 75 6d 65 64 20 |K86.EXE |assumed |
|00001f50| 74 6f 20 62 65 20 69 6e | 20 70 61 74 68 2e 0d 0a |to be in| path...|
|00001f60| 65 63 68 6f 2e 0d 0a 65 | 63 68 6f 2e 0d 0a 50 4c |echo...e|cho...PL|
|00001f70| 49 4e 4b 38 36 20 66 69 | 20 25 31 20 6c 69 62 20 |INK86 fi| %1 lib |
|00001f80| 63 6c 69 70 70 65 72 2c | 73 75 70 65 72 2c 65 78 |clipper,|super,ex|
|00001f90| 74 65 6e 64 0d 0a 67 6f | 74 6f 20 65 6e 64 0d 0a |tend..go|to end..|
|00001fa0| 3a 75 73 61 67 65 0d 0a | 65 63 68 6f 2e 0d 0a 65 |:usage..|echo...e|
|00001fb0| 63 68 6f 2e 0d 0a 65 63 | 68 6f 2e 0d 0a 65 63 68 |cho...ec|ho...ech|
|00001fc0| 6f 20 55 53 41 47 45 fa | 20 06 50 4c 43 4f 4d 50 |o USAGE.| .PLCOMP|
|00001fd0| fa 20 03 5b 70 72 67 20 | 6e 61 6d 65 5d 0d 0a 65 |. .[prg |name]..e|
|00001fe0| 63 68 6f 2e 0d 0a 65 63 | 68 6f 2e 0d 0a 65 63 68 |cho...ec|ho...ech|
|00001ff0| 6f 2e 0d 0a 3a 65 6e 64 | 0d 0a a8 20 74 fb 83 ea |o...:end|... t...|
|00002000| 05 8a 46 06 ee 83 c2 05 | ec a8 20 74 fb 5a 5d cb |..F.....|.. t.Z].|
|00002010| 00 00 55 8b ec 8b 16 98 | 66 8b 4e 06 83 c2 03 b0 |..U.....|f.N.....|
|00002020| 80 fa f6 ff fa f6 ff f6 | f6 0d 0a fa 20 08 54 68 |........|.... .Th|
|00002030| 69 73 20 69 73 20 74 68 | 65 20 73 68 61 72 65 77 |is is th|e sharew|
|00002040| 61 72 65 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 74 |are vers|ion of t|
|00002050| 68 65 20 53 75 70 65 72 | 2e 4c 69 62 20 4c 69 62 |he Super|.Lib Lib|
|00002060| 72 61 72 79 20 66 6f 72 | 0d 0a fa 20 08 43 6c 69 |rary for|... .Cli|
|00002070| 70 70 65 72 2e 20 49 74 | 20 69 73 20 66 75 6c 6c |pper. It| is full|
|00002080| 79 20 66 75 6e 63 74 69 | 6f 6e 61 6c 2e 20 53 65 |y functi|onal. Se|
|00002090| 65 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |e docume|ntation |
|000020a0| 66 6f 72 20 72 65 67 69 | 73 74 72 61 74 69 6f 6e |for regi|stration|
|000020b0| 2c 0d 0a fa 20 08 77 68 | 69 63 68 20 65 6e 74 69 |,... .wh|ich enti|
|000020c0| 74 6c 65 73 20 79 6f 75 | 20 74 6f 20 46 55 4c 4c |tles you| to FULL|
|000020d0| 20 53 4f 55 52 43 45 20 | 43 4f 44 45 20 20 6c 61 | SOURCE |CODE la|
|000020e0| 74 65 73 74 20 76 65 72 | 73 69 6f 6e 0d 0a fa 20 |test ver|sion... |
|000020f0| 08 61 6e 64 20 32 34 20 | 68 6f 75 72 20 42 42 53 |.and 24 |hour BBS|
|00002100| 20 73 75 70 70 6f 72 74 | 2e 0d 0a 0d 0a fa 20 05 | support|...... .|
|00002110| 2a 2a 20 46 72 69 20 20 | 30 34 2d 30 36 2d 31 39 |** Fri |04-06-19|
|00002120| 39 30 20 20 41 44 44 45 | 44 20 53 55 50 50 4f 52 |90 ADDE|D SUPPOR|
|00002130| 54 20 46 4f 52 20 42 4c | 49 4e 4b 45 52 20 4c 49 |T FOR BL|INKER LI|
|00002140| 4e 4b 45 52 0d 0a fa 20 | 05 2a 2a 20 46 72 69 20 |NKER... |.** Fri |
|00002150| 20 30 36 2d 32 39 2d 31 | 39 39 30 20 20 41 64 64 | 06-29-1|990 Add|
|00002160| 65 64 20 43 6c 69 70 70 | 65 72 20 35 2e 30 20 73 |ed Clipp|er 5.0 s|
|00002170| 75 70 70 6f 72 74 0d 0a | 0d 0a fa 20 08 46 69 6c |upport..|... .Fil|
|00002180| 65 73 20 6f 6e 20 74 68 | 69 73 20 64 69 73 6b 0d |es on th|is disk.|
|00002190| 0a 0d 0a fa 20 0c 52 45 | 41 44 4d 45 2e 44 4f 43 |.... .RE|ADME.DOC|
|000021a0| fa 20 0d 54 68 69 73 20 | 66 69 6c 65 0d 0a 0d 0a |. .This |file....|
|000021b0| fa 20 0c 53 46 2e 50 52 | 47 fa 20 11 53 75 70 65 |. .SF.PR|G. .Supe|
|000021c0| 72 2e 4c 69 62 20 64 65 | 6d 6f 20 70 72 6f 67 72 |r.Lib de|mo progr|
|000021d0| 61 6d 20 73 6f 75 72 63 | 65 0d 0a fa 20 0c 53 55 |am sourc|e... .SU|
|000021e0| 50 45 52 2e 4c 49 42 fa | 20 0e 53 75 70 65 72 2e |PER.LIB.| .Super.|
|000021f0| 4c 69 62 20 6c 69 62 72 | 61 72 79 0d 0a fa 20 0c |Lib libr|ary... .|
|00002200| 53 55 50 45 52 2e 44 4f | 43 fa 20 0e 47 65 6e 65 |SUPER.DO|C. .Gene|
|00002210| 72 61 6c 20 44 6f 63 75 | 6d 65 6e 74 61 74 69 6f |ral Docu|mentatio|
|00002220| 6e 0d 0a fa 20 0c 53 55 | 50 45 52 2e 46 55 4e fa |n... .SU|PER.FUN.|
|00002230| 20 0e 46 75 6c 6c 20 43 | 6c 69 70 70 65 72 20 66 | .Full C|lipper f|
|00002240| 75 6e 63 74 69 6f 6e 20 | 64 65 73 63 72 69 70 74 |unction |descript|
|00002250| 69 6f 6e 0d 0a fa 20 0c | 53 55 50 45 52 5f 43 2e |ion... .|SUPER_C.|
|00002260| 46 55 4e fa 20 0c 46 75 | 6c 6c 20 43 2f 41 53 4d |FUN. .Fu|ll C/ASM|
|00002270| 20 66 75 6e 63 74 69 6f | 6e 20 64 65 73 63 72 69 | functio|n descri|
|00002280| 70 74 69 6f 6e 0d 0a fa | 20 0c 41 4c 50 48 41 2e |ption...| .ALPHA.|
|00002290| 46 55 4e fa 20 0e 41 6c | 70 68 61 62 65 74 69 63 |FUN. .Al|phabetic|
|000022a0| 61 6c 20 66 75 6e 63 74 | 69 6f 6e 20 6c 69 73 74 |al funct|ion list|
|000022b0| 0d 0a fa 20 0c 53 55 50 | 50 4f 52 54 2e 44 4f 43 |... .SUP|PORT.DOC|
|000022c0| fa 20 0c 53 75 70 70 6f | 72 74 20 69 6e 66 6f 72 |. .Suppo|rt infor|
|000022d0| 6d 61 74 69 6f 6e 0d 0a | fa 20 0c 54 4f 44 41 54 |mation..|. .TODAT|
|000022e0| 45 2e 44 4f 43 fa 20 0d | 43 68 61 6e 67 65 73 20 |E.DOC. .|Changes |
|000022f0| 6c 6f 67 20 28 63 68 72 | 6f 6e 6f 6c 6f 67 69 63 |log (chr|onologic|
|00002300| 61 6c 29 0d 0a fa 20 0c | 4f 52 44 45 52 2e 44 4f |al)... .|ORDER.DO|
|00002310| 43 fa 20 0e 4f 72 64 65 | 72 20 66 6f 72 6d 0d 0a |C. .Orde|r form..|
|00002320| 0d 0a fa 20 0c 42 4c 43 | 4f 4d 50 2e 42 41 54 fa |... .BLC|OMP.BAT.|
|00002330| 20 0d 53 61 6d 70 6c 65 | 20 62 61 74 63 68 20 66 | .Sample| batch f|
|00002340| 6f 72 20 42 4c 49 4e 4b | 45 52 20 63 6f 6d 70 69 |or BLINK|ER compi|
|00002350| 6c 65 0d 0a fa 20 0c 50 | 4c 43 4f 4d 50 2e 42 41 |le... .P|LCOMP.BA|
|00002360| 54 fa 20 0d 53 61 6d 70 | 6c 65 20 62 61 74 63 68 |T. .Samp|le batch|
|00002370| 20 66 6f 72 20 50 4c 49 | 4e 4b 20 63 6f 6d 70 69 | for PLI|NK compi|
|00002380| 6c 65 0d 0a fa 20 0c 54 | 4c 43 4f 4d 50 2e 42 41 |le... .T|LCOMP.BA|
|00002390| 54 fa 20 0d 53 61 6d 70 | 6c 65 20 62 61 74 63 68 |T. .Samp|le batch|
|000023a0| 20 66 6f 72 20 54 4c 49 | 4e 4b 20 63 6f 6d 70 69 | for TLI|NK compi|
|000023b0| 6c 65 0d 0a fa 20 0c 4d | 53 43 4f 4d 50 2e 42 41 |le... .M|SCOMP.BA|
|000023c0| 54 fa 20 0d 53 61 6d 70 | 6c 65 20 62 61 74 63 68 |T. .Samp|le batch|
|000023d0| 20 66 6f 72 20 4c 49 4e | 4b 20 63 6f 6d 70 69 6c | for LIN|K compil|
|000023e0| 65 0d 0a 0d 0a fa 20 0c | 53 55 50 45 52 2e 4e 47 |e..... .|SUPER.NG|
|000023f0| fa 20 0f 4e 6f 72 74 6f | 6e 20 47 75 69 64 65 20 |. .Norto|n Guide |
|00002400| 44 61 74 61 66 69 6c 65 | 20 66 6f 72 20 53 55 50 |Datafile| for SUP|
|00002410| 45 52 2e 4c 49 42 0d 0a | 0d 0a 0d 0a fa 20 05 44 |ER.LIB..|..... .D|
|00002420| 65 6d 6f 6e 73 74 72 61 | 74 69 6f 6e 3a 0d 0a fa |emonstra|tion:...|
|00002430| 20 05 fa 2d 48 0d 0a fa | 20 05 54 68 65 20 66 69 | ..-H...| .The fi|
|00002440| 6c 65 20 53 46 2e 50 52 | 47 20 69 73 20 70 72 6f |le SF.PR|G is pro|
|00002450| 76 69 64 65 64 20 61 73 | 20 61 20 75 73 65 61 62 |vided as| a useab|
|00002460| 6c 65 20 64 65 6d 6f 20 | 6f 66 20 74 68 65 20 6c |le demo |of the l|
|00002470| 69 62 72 61 72 79 20 66 | 75 6e 63 74 69 6f 6e 73 |ibrary f|unctions|
|00002480| 2e 0d 0a fa 20 05 53 46 | 2e 50 52 47 20 69 73 20 |.... .SF|.PRG is |
|00002490| 61 6e 20 61 6c 6c 2d 70 | 75 72 70 6f 73 65 20 67 |an all-p|urpose g|
|000024a0| 65 6e 65 72 69 63 20 64 | 61 74 61 20 68 61 6e 64 |eneric d|ata hand|
|000024b0| 6c 65 72 2e 0d 0a 0d 0a | fa 20 05 43 6f 6d 70 69 |ler.....|. .Compi|
|000024c0| 6c 65 20 53 46 2e 50 52 | 47 fa 20 03 28 43 6c 69 |le SF.PR|G. .(Cli|
|000024d0| 70 70 65 72 20 53 46 20 | 29 0d 0a 0d 0a fa 20 05 |pper SF |)..... .|
|000024e0| 54 6f 20 6c 69 6e 6b 20 | 53 46 2e 4f 42 4a 0d 0a |To link |SF.OBJ..|
|000024f0| 0d 0a 0d 0a fa 20 0b 54 | 75 72 62 6f 20 4c 69 6e |..... .T|urbo Lin|
|00002500| 6b 20 28 54 6c 69 6e 6b | 29 20 3a 0d 0a fa 20 0b |k (Tlink|) :... .|
|00002510| 54 4c 49 4e 4b 20 53 46 | fa 2c 03 63 6c 69 70 70 |TLINK SF|.,.clipp|
|00002520| 65 72 20 2b 20 65 78 74 | 65 6e 64 20 2b 20 20 73 |er + ext|end + s|
|00002530| 75 70 65 72 0d 0a 0d 0a | 0d 0a fa 20 0b 4d 69 63 |uper....|... .Mic|
|00002540| 72 6f 73 6f 66 74 20 4c | 69 6e 6b fa 20 04 3a 0d |rosoft L|ink. .:.|
|00002550| 0a fa 20 0b 4c 49 4e 4b | 20 53 46 fa 2c 03 63 6c |.. .LINK| SF.,.cl|
|00002560| 69 70 70 65 72 2c 65 78 | 74 65 6e 64 2c 73 75 70 |ipper,ex|tend,sup|
|00002570| 65 72 20 2f 53 45 3a 35 | 31 32 20 2f 4e 4f 45 0d |er /SE:5|12 /NOE.|
|00002580| 0a 0d 0a 0d 0a fa 20 0b | 50 6c 69 6e 6b 38 36 fa |...... .|Plink86.|
|00002590| 20 0b 3a 0d 0a fa 20 0b | 50 4c 49 4e 4b 38 36 20 | .:... .|PLINK86 |
|000025a0| 66 69 20 53 46 20 6c 69 | 62 20 63 6c 69 70 70 65 |fi SF li|b clippe|
|000025b0| 72 2c 73 75 70 65 72 2c | 65 78 74 65 6e 64 0d 0a |r,super,|extend..|
|000025c0| 0d 0a fa 20 0b 42 4c 49 | 4e 4b 45 52 fa 20 0b 3a |... .BLI|NKER. .:|
|000025d0| 0d 0a fa 20 0b 42 4c 49 | 4e 4b 45 52 20 66 69 20 |... .BLI|NKER fi |
|000025e0| 53 46 20 6c 69 62 20 73 | 75 70 65 72 2c 63 6c 69 |SF lib s|uper,cli|
|000025f0| 70 70 65 72 2c 65 78 74 | 65 6e 64 0d 0a 0d 0a fa |pper,ext|end.....|
|00002600| 20 08 fa 2d 39 0d 0a 0d | 0a fa 20 08 54 72 79 20 | ..-9...|.. .Try |
|00002610| 74 68 65 20 6c 69 62 72 | 61 72 79 20 66 6f 72 20 |the libr|ary for |
|00002620| 61 73 20 6c 6f 6e 67 20 | 61 73 20 79 6f 75 20 6c |as long |as you l|
|00002630| 69 6b 65 2e 20 49 66 20 | 79 6f 75 20 64 65 63 69 |ike. If |you deci|
|00002640| 64 65 20 74 6f 0d 0a fa | 20 08 69 6e 63 6f 72 70 |de to...| .incorp|
|00002650| 6f 72 61 74 65 20 69 74 | 20 69 6e 74 6f 20 79 6f |orate it| into yo|
|00002660| 75 72 20 61 70 70 73 2c | 20 6f 72 20 77 6f 75 6c |ur apps,| or woul|
|00002670| 64 20 6c 69 6b 65 20 74 | 68 65 20 73 6f 75 72 63 |d like t|he sourc|
|00002680| 65 0d 0a fa 20 08 63 6f | 64 65 20 61 6e 64 20 61 |e... .co|de and a|
|00002690| 64 64 69 74 69 6f 6e 61 | 6c 20 73 75 70 70 6f 72 |dditiona|l suppor|
|000026a0| 74 2c 20 73 65 6e 64 20 | 69 6e 20 74 68 65 20 72 |t, send |in the r|
|000026b0| 65 67 69 73 74 72 61 74 | 69 6f 6e 20 6f 72 0d 0a |egistrat|ion or..|
|000026c0| fa 20 08 63 61 6c 6c 2e | 0d 0a 0d 0a fa 20 08 49 |. .call.|..... .I|
|000026d0| 66 20 79 6f 75 20 75 73 | 65 20 74 68 65 20 6c 69 |f you us|e the li|
|000026e0| 62 72 61 72 79 2c 20 70 | 6c 65 61 73 65 20 72 65 |brary, p|lease re|
|000026f0| 67 69 73 74 65 72 20 69 | 74 2e 20 54 68 69 73 20 |gister i|t. This |
|00002700| 69 73 20 77 68 61 74 20 | 49 0d 0a fa 20 08 64 6f |is what |I... .do|
|00002710| 20 66 6f 72 20 61 20 6c | 69 76 69 6e 67 2c 20 61 | for a l|iving, a|
|00002720| 6e 64 20 79 6f 75 72 20 | 73 75 70 70 6f 72 74 20 |nd your |support |
|00002730| 69 73 20 61 70 70 72 65 | 63 69 61 74 65 64 2e 0d |is appre|ciated..|
|00002740| 0a 0d 0a 0d 0a fa 20 08 | 47 61 72 72 79 20 50 72 |...... .|Garry Pr|
|00002750| 65 66 6f 6e 74 61 69 6e | 65 0d 0a fa 20 08 46 75 |efontain|e... .Fu|
|00002760| 6e 63 74 69 6f 6e 61 6c | 20 53 6f 66 74 77 61 72 |nctional| Softwar|
|00002770| 65 0d 0a 0d 0a cb 01 cc | 01 ff ff ce 01 cf 01 d0 |e.......|........|
|00002780| 01 d1 01 d2 01 d3 01 fa | ff 0a fc 1b fa ff 06 dd |........|........|
|00002790| 01 de 01 df 01 e0 01 e1 | 01 e2 01 e3 01 e4 01 e5 |........|........|
|000027a0| 01 e6 01 e7 01 fa ff 04 | ea 01 fa ff 04 ed 01 ee |........|........|
|000027b0| 01 ef 01 f0 01 f1 01 f2 | 01 f3 01 f4 01 f5 01 fa |........|........|
|000027c0| ff 04 f8 01 fa ff 04 fb | 01 fc 01 fd 01 fe 01 ff |........|........|
|000027d0| 01 00 02 fa f6 ff fa f6 | ff f6 f6 2a 3a fa 2a 45 |........|...*:.*E|
|000027e0| 0d 0a 2a 3a 0d 0a 2a 3a | fa 20 08 50 72 6f 67 72 |..*:..*:|. .Progr|
|000027f0| 61 6d 3a 20 53 46 2e 50 | 52 47 0d 0a 2a 3a 0d 0a |am: SF.P|RG..*:..|
|00002800| 2a 3a fa 20 09 53 79 73 | 74 65 6d 3a 20 53 75 70 |*:. .Sys|tem: Sup|
|00002810| 65 72 2e 4c 69 62 20 4c | 69 62 72 61 72 79 20 66 |er.Lib L|ibrary f|
|00002820| 6f 72 20 43 6c 69 70 70 | 65 72 0d 0a 2a 3a fa 20 |or Clipp|er..*:. |
|00002830| 09 41 75 74 68 6f 72 3a | 20 47 61 72 72 79 20 50 |.Author:| Garry P|
|00002840| 72 65 66 6f 6e 74 61 69 | 6e 65 0d 0a 2a 3a fa 20 |refontai|ne..*:. |
|00002850| 06 43 6f 70 79 72 69 67 | 68 74 20 28 63 29 20 31 |.Copyrig|ht (c) 1|
|00002860| 39 38 39 2c 20 47 61 72 | 72 79 20 50 72 65 66 6f |989, Gar|ry Prefo|
|00002870| 6e 74 61 69 6e 65 0d 0a | 2a 3a 20 20 4c 61 73 74 |ntaine..|*: Last|
|00002880| 20 6d 6f 64 69 66 69 65 | 64 3a 20 31 32 2f 31 32 | modifie|d: 12/12|
|00002890| 2f 38 39 fa 20 05 31 31 | 3a 32 37 0d 0a 2a 3a 0d |/89. .11|:27..*:.|
|000028a0| 0a 2a 3a 20 20 50 72 6f | 63 73 20 26 20 46 6e 63 |.*: Pro|cs & Fnc|
|000028b0| 74 73 3a 20 50 41 49 4e | 54 5f 53 46 28 29 0d 0a |ts: PAIN|T_SF()..|
|000028c0| 2a 3a fa 20 0f 3a 20 53 | 46 5f 53 48 4f 57 28 29 |*:. .: S|F_SHOW()|
|000028d0| 0d 0a 2a 3a fa 20 0f 3a | 20 53 46 5f 50 49 43 4b |..*:. .:| SF_PICK|
|000028e0| 44 42 46 28 29 0d 0a 2a | 3a fa 20 0f 3a 20 43 4f |DBF()..*|:. .: CO|
|000028f0| 50 59 49 54 4f 55 54 28 | 29 0d 0a 2a 3a fa 20 0f |PYITOUT(|)..*:. .|
|00002900| 3a 20 53 46 5f 41 50 50 | 45 4e 44 28 29 0d 0a 2a |: SF_APP|END()..*|
|00002910| 3a fa 20 0f 3a 20 53 46 | 5f 50 49 43 4b 4e 44 28 |:. .: SF|_PICKND(|
|00002920| 29 0d 0a 2a 3a fa 20 0f | 3a 20 53 46 5f 4f 52 44 |)..*:. .|: SF_ORD|
|00002930| 45 52 28 29 0d 0a 2a 3a | fa 20 0f 3a 20 53 46 5f |ER()..*:|. .: SF_|
|00002940| 4f 50 45 4e 45 4d 28 29 | 0d 0a 2a 3a fa 20 0f 3a |OPENEM()|..*:. .:|
|00002950| 20 50 49 43 4b 5f 4e 44 | 58 28 29 0d 0a 2a 3a 0d | PICK_ND|X()..*:.|
|00002960| 0a 2a 3a fa 20 0a 43 61 | 6c 6c 73 3a 20 49 4e 49 |.*:. .Ca|lls: INI|
|00002970| 54 53 55 50 28 29 fa 20 | 06 28 66 75 6e 63 74 69 |TSUP(). |.(functi|
|00002980| 6f 6e 20 69 6e 20 53 55 | 50 45 52 2e 4c 49 42 29 |on in SU|PER.LIB)|
|00002990| 0d 0a 2a 3a fa 20 0f 3a | 20 43 41 50 53 4c 4f 43 |..*:. .:| CAPSLOC|
|000029a0| 4b 28 29 fa 20 05 28 66 | 75 6e 63 74 69 6f 6e 20 |K(). .(f|unction |
|000029b0| 69 6e 20 53 55 50 45 52 | 2e 4c 49 42 29 0d 0a 2a |in SUPER|.LIB)..*|
|000029c0| 3a fa 20 0f 3a 20 50 55 | 4c 4c 44 4e 28 29 fa 20 |:. .: PU|LLDN(). |
|000029d0| 07 28 66 75 6e 63 74 69 | 6f 6e 20 69 6e 20 53 55 |.(functi|on in SU|
|000029e0| 50 45 52 2e 4c 49 42 29 | 0d 0a 2a 3a fa 20 0f 3a |PER.LIB)|..*:. .:|
|000029f0| 20 4d 53 47 28 29 fa 20 | 0a 28 66 75 6e 63 74 69 | MSG(). |.(functi|
|00002a00| 6f 6e 20 69 6e 20 53 55 | 50 45 52 2e 4c 49 42 29 |on in SU|PER.LIB)|
|00002a10| 0d 0a 2a 3a fa 20 0f 3a | 20 4d 45 53 53 59 4e 28 |..*:. .:| MESSYN(|
|00002a20| 29 fa 20 07 28 66 75 6e | 63 74 69 6f 6e 20 69 6e |). .(fun|ction in|
|00002a30| 20 53 55 50 45 52 2e 4c | 49 42 29 0d 0a 2a 3a fa | SUPER.L|IB)..*:.|
|00002a40| 20 0f 3a 20 4d 4f 44 49 | 53 28 29 fa 20 08 28 66 | .: MODI|S(). .(f|
|00002a50| 75 6e 63 74 69 6f 6e 20 | 69 6e 20 53 55 50 45 52 |unction |in SUPER|
|00002a60| 2e 4c 49 42 29 0d 0a 2a | 3a fa 20 0f 3a 20 42 4c |.LIB)..*|:. .: BL|
|00002a70| 44 4e 44 58 28 29 fa 20 | 07 28 66 75 6e 63 74 69 |DNDX(). |.(functi|
|00002a80| 6f 6e 20 69 6e 20 53 55 | 50 45 52 2e 4c 49 42 29 |on in SU|PER.LIB)|
|00002a90| 0d 0a 2a 3a fa 20 0f 3a | 20 47 4c 4f 42 52 45 50 |..*:. .:| GLOBREP|
|00002aa0| 28 29 fa 20 06 28 66 75 | 6e 63 74 69 6f 6e 20 69 |(). .(fu|nction i|
|00002ab0| 6e 20 53 55 50 45 52 2e | 4c 49 42 29 0d 0a 2a 3a |n SUPER.|LIB)..*:|
|00002ac0| fa 20 0f 3a 20 45 44 49 | 54 44 42 28 29 fa 20 07 |. .: EDI|TDB(). .|
|00002ad0| 28 66 75 6e 63 74 69 6f | 6e 20 69 6e 20 53 55 50 |(functio|n in SUP|
|00002ae0| 45 52 2e 4c 49 42 29 0d | 0a 2a 3a fa 20 0f 3a 20 |ER.LIB).|.*:. .: |
|00002af0| 44 4f 49 54 41 4c 4c 28 | 29 fa 20 06 28 66 75 6e |DOITALL(|). .(fun|
|00002b00| 63 74 69 6f 6e 20 69 6e | 20 53 55 50 45 52 2e 4c |ction in| SUPER.L|
|00002b10| 49 42 29 0d 0a 2a 3a fa | 20 0f 3a 20 4c 49 53 54 |IB)..*:.| .: LIST|
|00002b20| 45 52 28 29 fa 20 07 28 | 66 75 6e 63 74 69 6f 6e |ER(). .(|function|
|00002b30| 20 69 6e 20 53 55 50 45 | 52 2e 4c 49 42 29 0d 0a | in SUPE|R.LIB)..|
|00002b40| 2a 3a fa 20 0f 3a 20 44 | 55 50 4c 4f 4f 4b 28 29 |*:. .: D|UPLOOK()|
|00002b50| fa 20 06 28 66 75 6e 63 | 74 69 6f 6e 20 69 6e 20 |. .(func|tion in |
|00002b60| 53 55 50 45 52 2e 4c 49 | 42 29 0d 0a 2a 3a fa 20 |SUPER.LI|B)..*:. |
|00002b70| 0f 3a 20 43 4c 41 42 45 | 4c 28 29 fa 20 07 28 66 |.: CLABE|L(). .(f|
|00002b80| 75 6e 63 74 69 6f 6e 20 | 69 6e 20 53 55 50 45 52 |unction |in SUPER|
|00002b90| 2e 4c 49 42 29 0d 0a 2a | 3a fa 20 0f 3a 20 46 4f |.LIB)..*|:. .: FO|
|00002ba0| 52 4d 4c 45 54 52 28 29 | fa 20 05 28 66 75 6e 63 |RMLETR()|. .(func|
|00002bb0| 74 69 6f 6e 20 69 6e 20 | 53 55 50 45 52 2e 4c 49 |tion in |SUPER.LI|
|00002bc0| 42 29 0d 0a 2a 3a fa 20 | 0f 3a 20 53 55 4d 5f 41 |B)..*:. |.: SUM_A|
|00002bd0| 56 45 28 29 fa 20 06 28 | 66 75 6e 63 74 69 6f 6e |VE(). .(|function|
|00002be0| 20 69 6e 20 53 55 50 45 | 52 2e 4c 49 42 29 0d 0a | in SUPE|R.LIB)..|
|00002bf0| 2a 3a fa 20 0f 3a 20 4f | 43 43 55 52 28 29 fa 20 |*:. .: O|CCUR(). |
|00002c00| 08 28 66 75 6e 63 74 69 | 6f 6e 20 69 6e 20 53 55 |.(functi|on in SU|
|00002c10| 50 45 52 2e 4c 49 42 29 | 0d 0a 2a 3a fa 20 0f 3a |PER.LIB)|..*:. .:|
|00002c20| 81 19 ff 20 53 45 54 43 | 4f 4c 4f 52 53 28 29 ff |... SETC|OLORS().|
|00002c30| 20 04 28 66 75 6e 63 74 | 69 6f 6e 20 69 6e 20 53 | .(funct|ion in S|
|00002c40| 55 50 45 52 2e 4c 49 42 | 29 0d 0a 2a 3a ff 20 0f |UPER.LIB|)..*:. .|
|00002c50| 3a 20 49 4e 49 54 43 4f | 4c 28 29 ff 20 06 28 66 |: INITCO|L(). .(f|
|00002c60| 75 6e 63 74 69 6f 6e 20 | 69 6e 20 53 55 50 45 52 |unction |in SUPER|
|00002c70| 2e 4c 49 42 29 0d 0a 2a | 3a ff 20 0f 3a 20 46 55 |.LIB)..*|:. .: FU|
|00002c80| 4c 4c 44 49 52 28 29 ff | 20 06 28 66 75 6e 63 74 |LLDIR().| .(funct|
|00002c90| 69 6f 6e 20 69 6e 20 53 | 55 50 45 52 2e 4c 49 42 |ion in S|UPER.LIB|
|00002ca0| 29 0d 0a 2a 3a ff 20 0f | 3a 20 50 41 49 4e 54 5f |)..*:. .|: PAINT_|
|00002cb0| 53 46 28 29 ff 20 05 28 | 66 75 6e 63 74 69 6f 6e |SF(). .(|function|
|00002cc0| 20 20 69 6e 20 53 46 2e | 50 52 47 29 0d 0a 2a 3a | in SF.|PRG)..*:|
|00002cd0| ff 20 0f 3a 20 53 46 5f | 53 48 4f 57 28 29 ff 20 |. .: SF_|SHOW(). |
|00002ce0| 06 28 66 75 6e 63 74 69 | 6f 6e 20 20 69 6e 20 53 |.(functi|on in S|
|00002cf0| 46 2e 50 52 47 29 0d 0a | 2a 3a ff 20 0f 3a 20 53 |F.PRG)..|*:. .: S|
|00002d00| 46 5f 50 49 43 4b 44 42 | 46 28 29 ff 20 03 28 66 |F_PICKDB|F(). .(f|
|00002d10| 75 6e 63 74 69 6f 6e 20 | 20 69 6e 20 53 46 2e 50 |unction | in SF.P|
|00002d20| 52 47 29 0d 0a 2a 3a ff | 20 0f 3a 20 43 4f 50 59 |RG)..*:.| .: COPY|
|00002d30| 49 54 4f 55 54 28 29 ff | 20 04 28 66 75 6e 63 74 |ITOUT().| .(funct|
|00002d40| 69 6f 6e 20 20 69 6e 20 | 53 46 2e 50 52 47 29 0d |ion in |SF.PRG).|
|00002d50| 0a 2a 3a ff 20 0f 3a 20 | 53 46 5f 41 50 50 45 4e |.*:. .: |SF_APPEN|
|00002d60| 44 28 29 ff 20 04 28 66 | 75 6e 63 74 69 6f 6e 20 |D(). .(f|unction |
|00002d70| 20 69 6e 20 53 46 2e 50 | 52 47 29 0d 0a 2a 3a ff | in SF.P|RG)..*:.|
|00002d80| 20 0f 3a 20 53 46 5f 50 | 49 43 4b 4e 44 28 29 ff | .: SF_P|ICKND().|
|00002d90| 20 04 28 66 75 6e 63 74 | 69 6f 6e 20 20 69 6e 20 | .(funct|ion in |
|00002da0| 53 46 2e 50 52 47 29 0d | 0a 2a 3a ff 20 0f 3a 20 |SF.PRG).|.*:. .: |
|00002db0| 53 46 5f 4f 52 44 45 52 | 28 29 ff 20 05 28 66 75 |SF_ORDER|(). .(fu|
|00002dc0| 6e 63 74 69 6f 6e 20 20 | 69 6e 20 53 46 2e 50 52 |nction |in SF.PR|
|00002dd0| 47 29 0d 0a 2a 3a ff 20 | 0f 3a 20 53 46 5f 4f 50 |G)..*:. |.: SF_OP|
|00002de0| 45 4e 45 4d 28 29 ff 20 | 04 28 66 75 6e 63 74 69 |ENEM(). |.(functi|
|00002df0| 6f 6e 20 20 69 6e 20 53 | 46 2e 50 52 47 29 0d 0a |on in S|F.PRG)..|
|00002e00| 2a 3a 0d 0a 2a 3a ff 20 | 06 44 6f 63 75 6d 65 6e |*:..*:. |.Documen|
|00002e10| 74 65 64 20 31 32 2f 31 | 32 2f 38 39 20 61 74 20 |ted 12/1|2/89 at |
|00002e20| 31 31 3a 33 32 ff 20 10 | 53 4e 41 50 21 20 20 76 |11:32. .|SNAP! v|
|00002e30| 65 72 73 69 6f 6e 20 33 | 2e 31 32 65 0d 0a 2a 3a |ersion 3|.12e..*:|
|00002e40| ff 2a 45 0d 0a 0d 0a 2a | 2d 20 69 6e 69 74 69 61 |.*E....*|- initia|
|00002e50| 6c 69 7a 65 20 6d 65 74 | 61 66 75 6e 63 74 69 6f |lize met|afunctio|
|00002e60| 6e 73 0d 0a 69 6e 69 74 | 73 75 70 28 29 0d 0a 0d |ns..init|sup()...|
|00002e70| 0a 2a 2d 20 64 65 66 69 | 6e 65 20 74 79 70 65 20 |.*- defi|ne type |
|00002e80| 6f 66 20 69 6e 64 65 78 | 0d 0a 64 65 66 69 6e 64 |of index|..defind|
|00002e90| 65 78 20 3d 20 27 2a 27 | 2b 49 6e 64 65 78 65 78 |ex = '*'|+Indexex|
|00002ea0| 74 28 29 0d 0a 0d 0a 0d | 0a 2a 2d 20 73 65 74 20 |t().....|.*- set |
|00002eb0| 63 61 70 73 20 6f 6e 0d | 0a 63 61 70 73 6c 6f 63 |caps on.|.capsloc|
|00002ec0| 6b 28 2e 54 2e 29 0d 0a | 0d 0a 2a 2d 20 69 6e 69 |k(.T.)..|..*- ini|
|00002ed0| 74 69 61 6c 69 7a 65 20 | 73 6f 6d 65 20 76 61 72 |tialize |some var|
|00002ee0| 69 61 62 6c 65 73 0d 0a | 69 73 66 6f 70 65 6e 20 |iables..|isfopen |
|00002ef0| 3d 20 2e 46 2e 0d 0a 53 | 54 4f 52 45 20 27 27 20 |= .F...S|TORE '' |
|00002f00| 54 4f 20 64 62 66 6e 61 | 6d 65 2c 6e 64 78 5f 73 |TO dbfna|me,ndx_s|
|00002f10| 74 72 69 6e 67 2c 71 75 | 65 72 79 5f 65 78 70 0d |tring,qu|ery_exp.|
|00002f20| 0a 6e 64 78 5f 6f 72 64 | 65 72 20 3d 20 31 0d 0a |.ndx_ord|er = 1..|
|00002f30| 0d 0a 2a 2d 20 73 65 74 | 20 73 6f 6d 65 20 73 65 |..*- set| some se|
|00002f40| 74 73 0d 0a 53 45 54 20 | 54 41 4c 4b 20 4f 46 46 |ts..SET |TALK OFF|
|00002f50| 0d 0a 53 45 54 20 45 43 | 48 4f 20 4f 46 46 0d 0a |..SET EC|HO OFF..|
|00002f60| 53 45 54 20 43 4f 4e 46 | 49 52 4d 20 4f 46 46 0d |SET CONF|IRM OFF.|
|00002f70| 0a 53 45 54 20 42 45 4c | 4c 20 4f 46 46 0d 0a 53 |.SET BEL|L OFF..S|
|00002f80| 45 54 20 53 41 46 45 54 | 59 20 4f 46 46 0d 0a 53 |ET SAFET|Y OFF..S|
|00002f90| 45 54 20 53 43 4f 52 45 | 42 4f 41 52 44 20 4f 46 |ET SCORE|BOARD OF|
|00002fa0| 46 0d 0a 53 45 54 20 54 | 59 50 45 41 48 45 41 44 |F..SET T|YPEAHEAD|
|00002fb0| 20 54 4f 20 35 30 0d 0a | 45 58 54 45 52 4e 41 4c | TO 50..|EXTERNAL|
|00002fc0| 20 6b 62 64 5f 65 73 63 | 61 70 65 0d 0a 45 58 54 | kbd_esc|ape..EXT|
|00002fd0| 45 52 4e 41 4c 20 66 61 | 73 74 66 6f 72 6d 0d 0a |ERNAL fa|stform..|
|00002fe0| 0d 0a 2a 2d 20 69 6e 69 | 74 69 61 6c 69 7a 65 20 |..*- ini|tialize |
|00002ff0| 53 46 20 61 72 72 61 79 | 73 20 66 6f 72 20 68 6f |SF array|s for ho|
|00003000| 6c 64 69 6e 67 0d 0a 2a | 2d 20 69 6e 64 65 78 65 |lding..*|- indexe|
|00003010| 73 20 69 6e 20 63 75 72 | 72 65 6e 74 20 64 69 72 |s in cur|rent dir|
|00003020| 65 63 74 6f 72 79 0d 0a | 44 45 43 4c 41 52 45 20 |ectory..|DECLARE |
|00003030| 73 66 5f 6e 64 78 73 5b | 61 64 69 72 28 64 65 66 |sf_ndxs[|adir(def|
|00003040| 69 6e 64 65 78 29 2b 31 | 5d 0d 0a 2a 2d 20 61 63 |index)+1|]..*- ac|
|00003050| 74 69 76 65 20 69 6e 64 | 65 78 65 73 0d 0a 44 45 |tive ind|exes..DE|
|00003060| 43 4c 41 52 45 20 73 66 | 5f 61 63 6e 64 78 5b 36 |CLARE sf|_acndx[6|
|00003070| 5d 0d 0a 0d 0a 0d 0a 2a | 2d 20 73 65 74 20 63 6f |]......*|- set co|
|00003080| 6c 6f 72 0d 0a 53 65 74 | 63 6f 6c 6f 72 28 63 5f |lor..Set|color(c_|
|00003090| 6e 6f 72 6d 63 6f 6c 29 | 0d 0a 0d 0a 0d 0a 2a 2d |normcol)|......*-|
|000030a0| 20 64 72 61 77 20 74 68 | 65 20 73 63 72 65 65 6e | draw th|e screen|
|000030b0| 0d 0a 70 61 69 6e 74 5f | 73 66 28 29 0d 0a 0d 0a |..paint_|sf()....|
|000030c0| 0d 0a 2a 2d 20 6d 65 6e | 75 20 63 68 6f 69 63 65 |..*- men|u choice|
|000030d0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 73 0d 0a 50 52 | definit|ions..PR|
|000030e0| 49 56 41 54 45 20 63 68 | 6f 69 63 65 73 5b 36 5d |IVATE ch|oices[6]|
|000030f0| 0d 0a 63 68 6f 69 63 65 | 73 5b 31 5d 20 3d 20 22 |..choice|s[1] = "|
|00003100| 44 61 74 61 66 69 6c 65 | 73 3a 55 73 65 20 44 61 |Datafile|s:Use Da|
|00003110| 74 61 66 69 6c 65 3a 44 | 65 66 69 6e 65 20 4e 65 |tafile:D|efine Ne|
|00003120| 77 20 44 61 74 61 66 69 | 6c 65 3a 4d 6f 64 69 66 |w Datafi|le:Modif|
|00003130| 79 20 45 78 69 73 74 69 | 6e 67 20 44 61 74 61 66 |y Existi|ng Dataf|
|00003140| 69 6c 65 20 44 65 66 69 | 6e 69 74 69 6f 6e 3a 43 |ile Defi|nition:C|
|00003150| 6f 70 79 20 72 65 63 6f | 72 64 73 20 6f 75 74 3a |opy reco|rds out:|
|00003160| 41 70 70 65 6e 64 20 72 | 65 63 6f 72 64 73 20 69 |Append r|ecords i|
|00003170| 6e 22 0d 0a 63 68 6f 69 | 63 65 73 5b 32 5d 20 3d |n"..choi|ces[2] =|
|00003180| 20 22 49 6e 64 69 63 65 | 73 3a 53 65 6c 65 63 74 | "Indice|s:Select|
|00003190| 20 49 6e 64 69 63 65 73 | 3a 49 6e 64 65 78 20 6f | Indices|:Index o|
|000031a0| 72 64 65 72 3a 4e 65 77 | 20 49 6e 64 65 78 22 0d |rder:New| Index".|
|000031b0| 0a 63 68 6f 69 63 65 73 | 5b 33 5d 20 3d 20 22 45 |.choices|[3] = "E|
|000031c0| 64 69 74 69 6e 67 3a 46 | 69 65 6c 64 20 52 65 70 |diting:F|ield Rep|
|000031d0| 6c 61 63 65 6d 65 6e 74 | 3a 54 61 62 75 6c 61 72 |lacement|:Tabular|
|000031e0| 20 45 64 69 74 3a 56 65 | 72 74 69 63 61 6c 20 45 | Edit:Ve|rtical E|
|000031f0| 64 69 74 22 0d 0a 63 68 | 6f 69 63 65 73 5b 34 5d |dit"..ch|oices[4]|
|00003200| 20 3d 20 22 52 65 70 6f | 72 74 69 6e 67 3a 42 75 | = "Repo|rting:Bu|
|00003210| 69 6c 64 20 51 75 65 72 | 79 3a 50 72 69 6e 74 20 |ild Quer|y:Print |
|00003220| 4c 69 73 74 73 3a 48 75 | 6e 74 20 44 75 70 6c 69 |Lists:Hu|nt Dupli|
|00003230| 63 61 74 65 73 3a 43 72 | 65 61 74 65 20 4c 61 62 |cates:Cr|eate Lab|
|00003240| 65 6c 73 3a 57 72 69 74 | 65 20 46 6f 72 6d 20 4c |els:Writ|e Form L|
|00003250| 65 74 74 65 72 73 3a 53 | 75 6d 20 6f 72 20 41 76 |etters:S|um or Av|
|00003260| 65 72 61 67 65 20 61 20 | 46 69 65 6c 64 3a 46 69 |erage a |Field:Fi|
|00003270| 65 6c 64 20 4f 63 63 75 | 72 72 61 6e 63 65 22 0d |eld Occu|rrance".|
|00003280| 0a 63 68 6f 69 63 65 73 | 5b 35 5d 20 3d 20 22 4f |.choices|[5] = "O|
|00003290| 74 68 65 72 3a 4c 69 73 | 74 20 74 65 78 74 20 66 |ther:Lis|t text f|
|000032a0| 69 6c 65 3a 44 65 73 69 | 67 6e 20 53 63 72 65 65 |ile:Desi|gn Scree|
|000032b0| 6e 20 41 70 70 65 61 72 | 61 6e 63 65 3a 43 68 61 |n Appear|ance:Cha|
|000032c0| 6e 67 65 20 44 69 72 65 | 63 74 6f 72 79 22 0d 0a |nge Dire|ctory"..|
|000032d0| 63 68 6f 69 63 65 73 5b | 36 5d 20 3d 20 22 51 75 |choices[|6] = "Qu|
|000032e0| 69 74 3a 51 75 69 74 3a | 41 75 74 68 6f 72 3a 49 |it:Quit:|Author:I|
|000032f0| 6e 66 6f 22 0d 0a 73 66 | 5f 73 65 6c 20 3d 20 31 |nfo"..sf|_sel = 1|
|00003300| 2e 30 31 0d 0a 0d 0a 2a | 2d 20 64 65 66 69 6e 65 |.01....*|- define|
|00003310| 20 6d 65 6e 75 20 62 6f | 78 65 73 0d 0a 50 52 49 | menu bo|xes..PRI|
|00003320| 56 41 54 45 20 62 6f 78 | 64 61 74 61 5b 37 5d 0d |VATE box|data[7].|
|00003330| 0a 62 6f 78 64 61 74 61 | 5b 31 5d 20 3d 20 21 28 |.boxdata|[1] = !(|
|00003340| 49 53 43 4f 4c 4f 52 28 | 29 29 ff 20 06 26 26 20 |ISCOLOR(|)). .&& |
|00003350| 64 72 61 77 20 74 68 65 | 20 74 6f 70 20 62 61 72 |draw the| top bar|
|00003360| 20 62 6f 78 20 3f 0d 0a | 62 6f 78 64 61 74 61 5b | box ?..|boxdata[|
|00003370| 32 5d 20 3d 20 6d 2d 3e | 63 5f 6e 6f 72 6d 63 6f |2] = m->|c_normco|
|00003380| 6c ff 20 06 26 26 20 74 | 6f 70 20 62 61 72 20 63 |l. .&& t|op bar c|
|00003390| 6f 6c 6f 72 20 73 74 72 | 69 6e 67 0d 0a 62 6f 78 |olor str|ing..box|
|000033a0| 64 61 74 61 5b 33 5d 20 | 3d 20 6d 2d 3e 63 5f 70 |data[3] |= m->c_p|
|000033b0| 6f 70 6d 65 6e 75 ff 20 | 06 26 26 20 64 72 6f 70 |opmenu. |.&& drop|
|000033c0| 20 62 6f 78 20 63 6f 6c | 6f 72 0d 0a 62 6f 78 64 | box col|or..boxd|
|000033d0| 61 74 61 5b 34 5d 20 3d | 20 6d 2d 3e 63 5f 66 72 |ata[4] =| m->c_fr|
|000033e0| 61 6d 65 ff 20 08 26 26 | 20 64 72 6f 70 20 62 6f |ame. .&&| drop bo|
|000033f0| 78 20 66 72 61 6d 65 0d | 0a 62 6f 78 64 61 74 61 |x frame.|.boxdata|
|00003400| 5b 35 5d 20 3d 20 33 ff | 20 11 26 26 20 64 72 6f |[5] = 3.| .&& dro|
|00003410| 70 20 62 6f 78 20 73 68 | 61 64 6f 77 20 70 6f 73 |p box sh|adow pos|
|00003420| 69 74 69 6f 6e 20 28 31 | 2c 33 2c 37 2c 39 2c 30 |ition (1|,3,7,9,0|
|00003430| 29 0d 0a 62 6f 78 64 61 | 74 61 5b 36 5d 20 3d 20 |)..boxda|ta[6] = |
|00003440| 6d 2d 3e 63 5f 73 68 61 | 64 61 74 74 ff 20 06 26 |m->c_sha|datt. .&|
|00003450| 26 20 64 72 6f 70 20 62 | 6f 78 20 73 68 61 64 6f |& drop b|ox shado|
|00003460| 77 20 61 74 74 72 69 62 | 75 74 65 0d 0a 62 6f 78 |w attrib|ute..box|
|00003470| 64 61 74 61 5b 37 5d 20 | 3d 20 30 ff 20 11 26 26 |data[7] |= 0. .&&|
|00003480| 20 72 6f 77 20 23 20 6f | 66 20 6d 65 6e 75 20 62 | row # o|f menu b|
|00003490| 61 72 0d 0a 0d 0a 44 4f | 20 57 48 49 4c 45 20 2e |ar....DO| WHILE .|
|000034a0| 54 2e 0d 0a ff 20 03 73 | 66 5f 73 68 6f 77 28 29 |T.... .s|f_show()|
|000034b0| ff 20 13 26 26 20 64 69 | 73 70 6c 61 79 20 64 62 |. .&& di|splay db|
|000034c0| 66 73 20 61 6e 64 20 69 | 6e 64 65 78 65 73 0d 0a |fs and i|ndexes..|
|000034d0| ff 20 03 0d 0a ff 20 03 | 0d 0a ff 20 03 2a 2d 20 |. .... .|... .*- |
|000034e0| 64 6f 20 74 68 65 20 6d | 65 6e 75 0d 0a ff 20 03 |do the m|enu... .|
|000034f0| 73 66 5f 73 65 6c 20 3d | 20 70 75 6c 6c 64 6e 28 |sf_sel =| pulldn(|
|00003500| 6d 2d 3e 73 66 5f 73 65 | 6c 2c 6d 2d 3e 63 68 6f |m->sf_se|l,m->cho|
|00003510| 69 63 65 73 2c 6d 2d 3e | 62 6f 78 64 61 74 61 29 |ices,m->|boxdata)|
|00003520| 0d 0a ff 20 03 0d 0a ff | 20 03 0d 0a ff 20 03 2a |... ....| .... .*|
|00003530| 2d 20 69 66 20 30 20 72 | 65 74 75 72 6e 65 64 2c |- if 0 r|eturned,|
|00003540| 20 73 65 6c 65 63 74 69 | 6f 6e 20 69 73 20 51 55 | selecti|on is QU|
|00003550| 49 54 0d 0a ff 20 03 49 | 46 20 6d 2d 3e 73 66 5f |IT... .I|F m->sf_|
|00003560| 73 65 6c 20 3d 20 30 0d | 0a ff 20 06 6d 2d 3e 73 |sel = 0.|.. .m->s|
|00003570| 66 5f 73 65 6c 20 3d 20 | 36 2e 30 31 0d 0a ff 20 |f_sel = |6.01... |
|00003580| 03 45 4e 44 49 46 0d 0a | ff 20 03 0d 0a ff 20 03 |.ENDIF..|. .... .|
|00003590| 0d 0a ff 20 03 2a 2d 20 | 64 6f 20 74 68 65 20 61 |... .*- |do the a|
|000035a0| 63 74 69 6f 6e 20 63 6f | 72 72 65 73 70 6f 6e 64 |ction co|rrespond|
|000035b0| 69 6e 67 20 74 6f 20 74 | 68 65 20 6d 65 6e 75 20 |ing to t|he menu |
|000035c0| 63 68 6f 69 63 65 0d 0a | ff 20 03 44 4f 20 43 41 |choice..|. .DO CA|
|000035d0| 53 45 0d 0a ff 20 03 43 | 41 53 45 20 6d 2d 3e 73 |SE... .C|ASE m->s|
|000035e0| 66 5f 73 65 6c 20 3d 20 | 31 2e 30 31 ff 20 05 26 |f_sel = |1.01. .&|
|000035f0| 26 20 73 65 6c 65 63 74 | 20 61 20 44 42 46 0d 0a |& select| a DBF..|
|00003600| ff 20 06 0d 0a ff 20 06 | 49 46 20 41 64 69 72 28 |. .... .|IF Adir(|
|00003610| 27 2a 2e 64 62 66 27 29 | 20 3e 20 30 0d 0a ff 20 |'*.dbf')| > 0... |
|00003620| 09 73 66 5f 70 69 63 6b | 64 62 66 28 29 0d 0a ff |.sf_pick|dbf()...|
|00003630| 20 06 45 4c 53 45 0d 0a | ff 20 09 6d 73 67 28 22 | .ELSE..|. .msg("|
|00003640| 4e 6f 20 44 42 46 73 20 | 64 65 74 65 63 74 65 64 |No DBFs |detected|
|00003650| 20 69 6e 20 74 68 69 73 | 20 64 69 72 65 63 74 6f | in this| directo|
|00003660| 72 79 22 29 0d 0a ff 20 | 06 45 4e 44 49 46 0d 0a |ry")... |.ENDIF..|
|00003670| ff 20 06 0d 0a ff 20 06 | 0d 0a ff 20 03 43 41 53 |. .... .|... .CAS|
|00003680| 45 20 6d 2d 3e 73 66 5f | 73 65 6c 20 3d 20 31 2e |E m->sf_|sel = 1.|
|00003690| 30 32 ff 20 03 26 26 20 | 63 72 65 61 74 65 20 73 |02. .&& |create s|
|000036a0| 74 72 75 63 74 75 72 65 | 0d 0a ff 20 06 0d 0a ff |tructure|... ....|
|000036b0| 20 06 49 46 20 6d 65 73 | 73 79 6e 28 22 44 61 74 | .IF mes|syn("Dat|
|000036c0| 61 66 69 6c 65 73 20 77 | 69 6c 6c 20 62 65 20 63 |afiles w|ill be c|
|000036d0| 6c 6f 73 65 64 20 77 68 | 69 6c 65 20 64 65 66 69 |losed wh|ile defi|
|000036e0| 6e 69 6e 67 20 6e 65 77 | 20 64 61 74 61 66 69 6c |ning new| datafil|
|000036f0| 65 22 2c 22 43 6f 6e 74 | 69 6e 75 65 22 2c 22 51 |e","Cont|inue","Q|
|00003700| 75 69 74 22 2c 31 30 2c | 31 30 29 0d 0a ff 20 09 |uit",10,|10)... .|
|00003710| 6d 6f 64 69 73 28 22 43 | 22 29 0d 0a ff 20 09 43 |modis("C|")... .C|
|00003720| 4c 4f 53 45 20 44 41 54 | 41 0d 0a ff 20 09 69 73 |LOSE DAT|A... .is|
|00003730| 66 6f 70 65 6e 20 3d 20 | 2e 46 2e 0d 0a ff 20 09 |fopen = |.F.... .|
|00003740| 64 62 66 6e 61 6d 65 20 | 3d 20 27 27 0d 0a ff 20 |dbfname |= ''... |
|00003750| 06 45 4e 44 49 46 0d 0a | ff 20 06 0d 0a ff 20 06 |.ENDIF..|. .... .|
|00003760| 0d 0a ff 20 03 43 41 53 | 45 20 6d 2d 3e 73 66 5f |... .CAS|E m->sf_|
|00003770| 73 65 6c 20 3d 20 31 2e | 30 33 ff 20 03 26 26 20 |sel = 1.|03. .&& |
|00003780| 6d 6f 64 69 66 79 20 73 | 74 72 75 63 74 75 72 65 |modify s|tructure|
|00003790| 0d 0a ff 20 06 49 46 20 | 6d 65 73 73 79 6e 28 22 |... .IF |messyn("|
|000037a0| 44 61 74 61 66 69 6c 65 | 73 20 77 69 6c 6c 20 62 |Datafile|s will b|
|000037b0| 65 20 63 6c 6f 73 65 64 | 20 77 68 69 6c 65 20 6d |e closed| while m|
|000037c0| 6f 64 69 66 79 69 6e 67 | 20 64 61 74 61 66 69 6c |odifying| datafil|
|000037d0| 65 22 2c 22 43 6f 6e 74 | 69 6e 75 65 22 2c 22 51 |e","Cont|inue","Q|
|000037e0| 75 69 74 22 2c 31 30 2c | 31 30 29 0d 0a ff 20 09 |uit",10,|10)... .|
|000037f0| 6d 6f 64 69 73 28 22 4d | 22 29 0d 0a ff 20 09 43 |modis("M|")... .C|
|00003800| 4c 4f 53 45 20 44 41 54 | 41 0d 0a ff 20 09 69 73 |LOSE DAT|A... .is|
|00003810| 66 6f 70 65 6e 20 3d 20 | 2e 46 2e 0d 0a ff 20 09 |fopen = |.F.... .|
|00003820| 64 62 66 6e 61 6d 65 20 | 3d 20 27 27 0d 0a ff 20 |dbfname |= ''... |
|00003830| 06 45 4e 44 49 46 0d 0a | ff 20 06 0d 0a ff 20 06 |.ENDIF..|. .... .|
|00003840| 2a 2d 20 72 65 73 74 20 | 6f 66 20 6f 70 74 69 6f |*- rest |of optio|
|00003850| 6e 73 20 62 65 6c 6f 77 | 20 35 20 72 65 71 75 69 |ns below| 5 requi|
|00003860| 72 65 20 64 62 66 20 6f | 70 65 6e 0d 0a ff 20 03 |re dbf o|pen... .|
|00003870| 43 41 53 45 20 6d 2d 3e | 73 66 5f 73 65 6c 20 3c |CASE m->|sf_sel <|
|00003880| 20 35 20 20 2e 41 4e 44 | 2e 20 21 6d 2d 3e 69 73 | 5 .AND|. !m->is|
|00003890| 66 6f 70 65 6e 0d 0a ff | 20 06 6d 73 67 28 22 4e |fopen...| .msg("N|
|000038a0| 65 65 64 20 61 20 44 42 | 66 20 6f 70 65 6e 20 66 |eed a DB|f open f|
|000038b0| 6f 72 20 74 68 69 73 20 | 6f 70 74 69 6f 6e 22 29 |or this |option")|
|000038c0| 0d 0a ff 20 06 0d 0a ff | 20 06 0d 0a ff 20 03 43 |... ....| .... .C|
|000038d0| 41 53 45 20 6d 2d 3e 73 | 66 5f 73 65 6c 20 3d 20 |ASE m->s|f_sel = |
|000038e0| 31 2e 30 34 ff 20 03 26 | 26 20 63 6f 70 79 20 72 |1.04. .&|& copy r|
|000038f0| 65 63 6f 72 64 73 20 6f | 75 74 0d 0a ff 20 06 63 |ecords o|ut... .c|
|00003900| 6f 70 79 69 74 6f 75 74 | 28 29 0d 0a ff 20 06 0d |opyitout|()... ..|
|00003910| 0a ff 20 03 43 41 53 45 | 20 6d 2d 3e 73 66 5f 73 |.. .CASE| m->sf_s|
|00003920| 65 6c 20 3d 20 31 2e 30 | 35 ff 20 03 26 26 20 61 |el = 1.0|5. .&& a|
|00003930| 70 70 65 6e 64 20 72 65 | 63 6f 72 64 73 20 69 6e |ppend re|cords in|
|00003940| 0d 0a ff 20 06 73 66 5f | 61 70 70 65 6e 64 28 29 |... .sf_|append()|
|00003950| 0d 0a ff 20 06 0d 0a ff | 20 03 43 41 53 45 20 6d |... ....| .CASE m|
|00003960| 2d 3e 73 66 5f 73 65 6c | 20 3d 32 2e 30 31 ff 20 |->sf_sel| =2.01. |
|00003970| 10 26 26 20 73 65 6c 65 | 63 74 20 69 6e 64 69 63 |.&& sele|ct indic|
|00003980| 65 73 0d 0a ff 20 06 49 | 46 20 41 64 69 72 28 6d |es... .I|F Adir(m|
|00003990| 2d 3e 64 65 66 69 6e 64 | 65 78 29 20 3e 20 30 0d |->defind|ex) > 0.|
|000039a0| 0a ff 20 09 73 66 5f 70 | 69 63 6b 6e 64 28 29 0d |.. .sf_p|icknd().|
|000039b0| 0a ff 20 06 45 4e 44 49 | 46 0d 0a ff 20 06 0d 0a |.. .ENDI|F... ...|
|000039c0| ff 20 03 43 41 53 45 20 | 6d 2d 3e 73 66 5f 73 65 |. .CASE |m->sf_se|
|000039d0| 6c 20 3d 20 32 2e 30 32 | ff 20 03 2e 41 4e 44 2e |l = 2.02|. ..AND.|
|000039e0| 20 21 45 4d 50 54 59 28 | 6d 2d 3e 6e 64 78 5f 73 | !EMPTY(|m->ndx_s|
|000039f0| 74 72 69 6e 67 29 20 20 | 26 26 20 69 6e 64 65 78 |tring) |&& index|
|00003a00| 20 6f 72 64 65 72 0d 0a | ff 20 06 0d 0a ff 20 06 | order..|. .... .|
|00003a10| 73 66 5f 6f 72 64 65 72 | 28 29 ff 20 0a 26 26 20 |sf_order|(). .&& |
|00003a20| 63 68 61 6e 67 65 20 69 | 6e 64 65 78 20 6f 72 64 |change i|ndex ord|
|00003a30| 65 72 0d 0a ff 20 06 0d | 0a ff 20 03 43 41 53 45 |er... ..|.. .CASE|
|00003a40| 20 6d 2d 3e 73 66 5f 73 | 65 6c 20 3d 20 32 2e 30 | m->sf_s|el = 2.0|
|00003a50| 33 ff 20 08 26 26 20 6d | 61 6b 65 20 74 65 6d 70 |3. .&& m|ake temp|
|00003a60| 20 69 6e 64 65 78 0d 0a | ff 20 06 69 6e 6e 61 6d | index..|. .innam|
|00003a70| 65 20 3d 20 62 6c 64 6e | 64 78 28 29 0d 0a ff 20 |e = bldn|dx()... |
|00003a80| 06 49 46 20 21 45 4d 50 | 54 59 28 6d 2d 3e 69 6e |.IF !EMP|TY(m->in|
|00003a90| 6e 61 6d 65 29 0d 0a ff | 20 09 41 69 6e 73 28 6d |name)...| .Ains(m|
|00003aa0| 2d 3e 73 66 5f 61 63 6e | 64 78 2c 31 29 ff 20 04 |->sf_acn|dx,1). .|
|00003ab0| 26 26 20 69 6e 73 65 72 | 74 20 69 6e 20 61 63 74 |&& inser|t in act|
|00003ac0| 69 76 65 20 69 6e 64 65 | 78 20 61 72 72 61 79 0d |ive inde|x array.|
|00003ad0| 0a ff 20 09 73 66 5f 61 | 63 6e 64 78 5b 31 5d 20 |.. .sf_a|cndx[1] |
|00003ae0| 3d 20 41 6c 6c 74 72 69 | 6d 28 6d 2d 3e 69 6e 6e |= Alltri|m(m->inn|
|00003af0| 61 6d 65 29 2b 49 6e 64 | 65 78 65 78 74 28 29 0d |ame)+Ind|exext().|
|00003b00| 0a ff 20 09 0d 0a ff 20 | 09 73 66 5f 6f 70 65 6e |.. .... |.sf_open|
|00003b10| 65 6d 28 29 ff 20 0c 26 | 26 20 72 65 6f 70 65 6e |em(). .&|& reopen|
|00003b20| 20 69 6e 64 65 78 65 73 | 0d 0a ff 20 09 6e 64 78 | indexes|... .ndx|
|00003b30| 5f 6f 72 64 65 72 20 3d | 20 31 0d 0a ff 20 06 45 |_order =| 1... .E|
|00003b40| 4e 44 49 46 0d 0a ff 20 | 06 0d 0a ff 20 03 43 41 |NDIF... |.... .CA|
|00003b50| 53 45 20 6d 2d 3e 73 66 | 5f 73 65 6c 20 3d 20 33 |SE m->sf|_sel = 3|
|00003b60| 2e 30 31 ff 20 0c 26 26 | 20 67 6c 6f 62 61 6c 20 |.01. .&&| global |
|00003b70| 72 65 70 6c 61 63 65 0d | 0a ff 20 06 67 6c 6f 62 |replace.|.. .glob|
|00003b80| 72 65 70 28 29 0d 0a ff | 20 06 0d 0a ff 20 03 43 |rep()...| .... .C|
|00003b90| 41 53 45 20 6d 2d 3e 73 | 66 5f 73 65 6c 20 3d 20 |ASE m->s|f_sel = |
|00003ba0| 33 2e 30 32 ff 20 0c 26 | 26 20 68 6f 72 69 7a 6f |3.02. .&|& horizo|
|00003bb0| 6e 74 61 6c 20 65 64 69 | 74 0d 0a ff 20 06 65 64 |ntal edi|t... .ed|
|00003bc0| 69 74 64 62 28 2e 54 2e | 29 0d 0a ff 20 06 0d 0a |itdb(.T.|)... ...|
|00003bd0| ff 20 03 43 41 53 45 20 | 6d 2d 3e 73 66 5f 73 65 |. .CASE |m->sf_se|
|00003be0| 6c 20 3d 20 33 2e 30 33 | ff 20 0c 26 26 20 76 65 |l = 3.03|. .&& ve|
|00003bf0| 72 74 69 63 61 6c 20 65 | 64 69 74 0d 0a ff 20 06 |rtical e|dit... .|
|00003c00| 50 52 49 56 41 54 45 20 | 6f 70 74 73 5b 32 5d 2c |PRIVATE |opts[2],|
|00003c10| 70 72 6f 63 73 5b 32 5d | ff 20 06 26 26 20 62 75 |procs[2]|. .&& bu|
|00003c20| 69 6c 64 20 61 72 72 61 | 79 73 20 66 6f 72 20 27 |ild arra|ys for '|
|00003c30| 4f 74 68 65 72 27 20 6d | 65 6e 75 0d 0a ff 20 06 |Other' m|enu... .|
|00003c40| 6f 70 74 73 5b 31 5d 3d | 22 53 69 6e 67 6c 65 20 |opts[1]=|"Single |
|00003c50| 46 6f 72 6d 6c 65 74 74 | 65 72 22 0d 0a ff 20 06 |Formlett|er"... .|
|00003c60| 6f 70 74 73 5b 32 5d 3d | 22 51 75 69 74 22 0d 0a |opts[2]=|"Quit"..|
|00003c70| ff 20 06 70 72 6f 63 73 | 5b 31 5d 20 3d 20 22 46 |. .procs|[1] = "F|
|00003c80| 41 53 54 46 4f 52 4d 22 | 0d 0a ff 20 06 70 72 6f |ASTFORM"|... .pro|
|00003c90| 63 73 5b 32 5d 20 3d 20 | 22 22 0d 0a ff 20 06 64 |cs[2] = |""... .d|
|00003ca0| 6f 69 74 61 6c 6c 28 6d | 2d 3e 6f 70 74 73 2c 6d |oitall(m|->opts,m|
|00003cb0| 2d 3e 70 72 6f 63 73 29 | 0d 0a ff 20 06 0d 0a ff |->procs)|... ....|
|00003cc0| 20 03 43 41 53 45 20 6d | 2d 3e 73 66 5f 73 65 6c | .CASE m|->sf_sel|
|00003cd0| 20 3d 20 34 2e 30 31 ff | 20 0c 26 26 20 71 75 65 | = 4.01.| .&& que|
|00003ce0| 72 79 0d 0a ff 20 06 71 | 75 65 72 79 5f 65 78 70 |ry... .q|uery_exp|
|00003cf0| 20 3d 20 51 55 45 52 59 | 28 29 0d 0a ff 20 06 0d | = QUERY|()... ..|
|00003d00| 0a ff 20 06 0d 0a ff 20 | 03 43 41 53 45 20 6d 2d |.. .... |.CASE m-|
|00003d10| 3e 73 66 5f 73 65 6c 20 | 3d 20 34 2e 30 32 ff 20 |>sf_sel |= 4.02. |
|00003d20| 0c 26 26 20 70 72 69 6e | 74 20 6c 69 73 74 0d 0a |.&& prin|t list..|
|00003d30| ff 20 06 6c 69 73 74 65 | 72 28 29 0d 0a ff 20 06 |. .liste|r()... .|
|00003d40| 0d 0a ff 20 03 43 41 53 | 45 20 6d 2d 3e 73 66 5f |... .CAS|E m->sf_|
|00003d50| 73 65 6c 20 3d 20 34 2e | 30 33 ff 20 0c 26 26 20 |sel = 4.|03. .&& |
|00003d60| 68 75 6e 74 20 64 75 70 | 6c 69 63 61 74 65 73 0d |hunt dup|licates.|
|00003d70| 0a ff 20 06 64 75 70 6c | 6f 6f 6b 28 29 0d 0a ff |.. .dupl|ook()...|
|00003d80| 20 06 0d 0a ff 20 06 2a | 2d 20 6f 70 65 6e 20 69 | .... .*|- open i|
|00003d90| 6e 64 65 78 20 66 69 6c | 65 73 20 61 67 61 69 6e |ndex fil|es again|
|00003da0| 0d 0a ff 20 06 73 66 5f | 6f 70 65 6e 65 6d 28 29 |... .sf_|openem()|
|00003db0| 0d 0a ff 20 06 0d 0a ff | 20 03 43 41 53 45 20 6d |... ....| .CASE m|
|00003dc0| 2d 3e 73 66 5f 73 65 6c | 20 3d 20 34 2e 30 34 ff |->sf_sel| = 4.04.|
|00003dd0| 20 0c 26 26 20 6c 61 62 | 65 6c 73 0d 0a ff 20 06 | .&& lab|els... .|
|00003de0| 63 6c 61 62 65 6c 28 29 | 0d 0a ff 20 06 0d 0a ff |clabel()|... ....|
|00003df0| 20 03 43 41 53 45 20 6d | 2d 3e 73 66 5f 73 65 6c | .CASE m|->sf_sel|
|00003e00| 20 3d 20 34 2e 30 35 ff | 20 08 26 26 20 66 6f 72 | = 4.05.| .&& for|
|00003e10| 6d 20 6c 65 74 74 65 72 | 0d 0a ff 20 06 66 6f 72 |m letter|... .for|
|00003e20| 6d 6c 65 74 72 28 29 0d | 0a ff 20 06 0d 0a ff 20 |mletr().|.. .... |
|00003e30| 03 43 41 53 45 20 6d 2d | 3e 73 66 5f 73 65 6c 20 |.CASE m-|>sf_sel |
|00003e40| 3d 20 34 2e 30 36 ff 20 | 05 26 26 20 73 75 6d 2f |= 4.06. |.&& sum/|
|00003e50| 41 56 45 52 41 47 45 0d | 0a ff 20 06 49 46 20 6d |AVERAGE.|.. .IF m|
|00003e60| 65 73 73 79 6e 28 22 53 | 75 6d 20 6f 72 20 41 76 |essyn("S|um or Av|
|00003e70| 65 72 61 67 65 3f 22 2c | 22 53 75 6d 22 2c 22 41 |erage?",|"Sum","A|
|00003e80| 76 65 72 61 67 65 22 29 | 0d 0a ff 20 09 73 75 6d |verage")|... .sum|
|00003e90| 5f 61 76 65 28 29 0d 0a | ff 20 06 45 4c 53 45 0d |_ave()..|. .ELSE.|
|00003ea0| 0a ff 20 09 73 75 6d 5f | 61 76 65 28 22 41 56 45 |.. .sum_|ave("AVE|
|00003eb0| 22 29 0d 0a ff 20 06 45 | 4e 44 49 46 0d 0a ff 20 |")... .E|NDIF... |
|00003ec0| 06 0d 0a ff 20 06 0d 0a | ff 20 03 43 41 53 45 20 |.... ...|. .CASE |
|00003ed0| 6d 2d 3e 73 66 5f 73 65 | 6c 20 3d 20 34 2e 30 37 |m->sf_se|l = 4.07|
|00003ee0| ff 20 04 26 26 20 6f 63 | 63 75 72 61 6e 63 65 0d |. .&& oc|curance.|
|00003ef0| 0a ff 20 06 6f 63 63 75 | 72 28 29 0d 0a ff 20 06 |.. .occu|r()... .|
|00003f00| 0d 0a ff 20 03 43 41 53 | 45 20 6d 2d 3e 73 66 5f |... .CAS|E m->sf_|
|00003f10| 73 65 6c 20 3d 20 35 2e | 30 31 ff 20 04 26 26 20 |sel = 5.|01. .&& |
|00003f20| 6c 69 73 74 20 74 65 78 | 74 20 66 69 6c 65 0d 0a |list tex|t file..|
|00003f30| ff 20 06 46 69 6c 65 72 | 65 61 64 28 29 0d 0a ff |. .Filer|ead()...|
|00003f40| 20 06 0d 0a ff 20 06 0d | 0a ff 20 03 43 41 53 45 | .... ..|.. .CASE|
|00003f50| 20 6d 2d 3e 73 66 5f 73 | 65 6c 20 3d 20 35 2e 30 | m->sf_s|el = 5.0|
|00003f60| 32 ff 20 0c 26 26 20 63 | 6f 6c 6f 72 20 73 65 74 |2. .&& c|olor set|
|00003f70| 74 69 6e 67 0d 0a ff 20 | 06 73 65 74 63 6f 6c 6f |ting... |.setcolo|
|00003f80| 72 73 28 29 0d 0a ff 20 | 06 69 6e 69 74 63 6f 6c |rs()... |.initcol|
|00003f90| 28 29 0d 0a ff 20 06 53 | 45 54 20 43 4f 4c 4f 52 |()... .S|ET COLOR|
|00003fa0| 20 54 4f 20 28 6d 2d 3e | 63 5f 6e 6f 72 6d 63 6f | TO (m->|c_normco|
|00003fb0| 6c 29 0d 0a ff 20 06 70 | 61 69 6e 74 5f 73 66 28 |l)... .p|aint_sf(|
|00003fc0| 29 ff 20 14 26 26 20 72 | 65 70 61 69 6e 74 20 73 |). .&& r|epaint s|
|00003fd0| 63 72 65 65 6e 0d 0a ff | 20 06 0d 0a ff 20 06 2a |creen...| .... .*|
|00003fe0| 2d 20 72 65 64 65 66 69 | 6e 65 20 6d 65 6e 75 20 |- redefi|ne menu |
|00003ff0| 62 6f 78 20 64 61 74 61 | 0d 0a ff 20 06 62 6f 78 |box data|... .box|
|00004000| 64 61 74 61 5b 31 5d 20 | 3d 20 21 28 49 53 43 4f |data[1] |= !(ISCO|
|00004010| 4c 4f 52 28 29 29 0d 0a | ff 20 06 62 6f 78 64 61 |LOR())..|. .boxda|
|00004020| 74 61 5b 32 5d 20 3d 20 | 6d 2d 3e 63 5f 6e 6f 72 |ta[2] = |m->c_nor|
|00004030| 6d 63 6f 6c 0d 0a ff 20 | 06 62 6f 78 64 61 74 61 |mcol... |.boxdata|
|00004040| 5b 33 5d 20 3d 20 6d 2d | 3e 63 5f 70 6f 70 6d 65 |[3] = m-|>c_popme|
|00004050| 6e 75 0d 0a ff 20 06 62 | 6f 78 64 61 74 61 5b 34 |nu... .b|oxdata[4|
|00004060| 5d 20 3d 20 6d 2d 3e 63 | 5f 66 72 61 6d 65 0d 0a |] = m->c|_frame..|
|00004070| ff 20 06 62 6f 78 64 61 | 74 61 5b 35 5d 20 3d 20 |. .boxda|ta[5] = |
|00004080| 6d 2d 3e 63 5f 73 68 61 | 64 70 6f 73 0d 0a ff 20 |m->c_sha|dpos... |
|00004090| 06 62 6f 78 64 61 74 61 | 5b 36 5d 20 3d 20 6d 2d |.boxdata|[6] = m-|
|000040a0| 3e 63 5f 73 68 61 64 61 | 74 74 0d 0a ff 20 06 62 |>c_shada|tt... .b|
|000040b0| 6f 78 64 61 74 61 5b 37 | 5d 20 3d 20 30 0d 0a ff |oxdata[7|] = 0...|
|000040c0| 20 06 0d 0a ff 20 06 0d | 0a ff 20 03 43 41 53 45 | .... ..|.. .CASE|
|000040d0| 20 6d 2d 3e 73 66 5f 73 | 65 6c 20 3d 20 35 2e 30 | m->sf_s|el = 5.0|
|000040e0| 33 20 20 26 26 20 64 69 | 72 20 70 69 63 6b 65 72 |3 && di|r picker|
|000040f0| 0d 0a ff 20 06 49 46 20 | 66 75 6c 6c 64 69 72 28 |... .IF |fulldir(|
|00004100| 29 0d 0a ff 20 09 43 4c | 4f 53 45 20 44 41 54 41 |)... .CL|OSE DATA|
|00004110| 0d 0a ff 20 09 69 73 66 | 6f 70 65 6e 20 3d 20 2e |... .isf|open = .|
|00004120| 46 2e 0d 0a ff 20 09 71 | 75 65 72 79 5f 65 78 70 |F.... .q|uery_exp|
|00004130| 3d 27 27 0d 0a ff 20 09 | 70 61 69 6e 74 5f 73 66 |=''... .|paint_sf|
|00004140| 28 29 0d 0a ff 20 06 45 | 4e 44 49 46 0d 0a ff 20 |()... .E|NDIF... |
|00004150| 06 0d 0a ff 20 06 0d 0a | ff 20 03 43 41 53 45 20 |.... ...|. .CASE |
|00004160| 6d 2d 3e 73 66 5f 73 65 | 6c 20 3d 20 36 2e 30 31 |m->sf_se|l = 6.01|
|00004170| ff 20 0c 26 26 20 71 75 | 69 74 0d 0a ff 20 06 49 |. .&& qu|it... .I|
|00004180| 46 20 6d 65 73 73 79 6e | 28 27 41 72 65 20 79 6f |F messyn|('Are yo|
|00004190| 75 20 73 75 72 65 3f 27 | 29 0d 0a ff 20 09 53 45 |u sure?'|)... .SE|
|000041a0| 54 20 43 55 52 53 4f 52 | 20 4f 4e 0d 0a ff 20 09 |T CURSOR| ON... .|
|000041b0| 43 4c 45 41 52 0d 0a ff | 20 09 45 58 49 54 0d 0a |CLEAR...| .EXIT..|
|000041c0| ff 20 06 45 4e 44 49 46 | 0d 0a ff 20 06 0d 0a ff |. .ENDIF|... ....|
|000041d0| 20 03 43 41 53 45 20 6d | 2d 3e 73 66 5f 73 65 6c | .CASE m|->sf_sel|
|000041e0| 20 3d 20 36 2e 30 32 0d | 0a ff 20 06 6d 73 67 28 | = 6.02.|.. .msg(|
|000041f0| 22 20 53 75 70 65 72 2e | 4c 69 62 20 4c 69 62 72 |" Super.|Lib Libr|
|00004200| 61 72 79 20 66 6f 72 20 | 43 6c 69 70 70 65 72 22 |ary for |Clipper"|
|00004210| 2c 22 22 2c 22 57 72 69 | 74 74 65 6e 20 62 79 20 |,"","Wri|tten by |
|00004220| 47 61 72 72 79 20 41 20 | 50 72 65 66 6f 6e 74 61 |Garry A |Prefonta|
|00004230| 69 6e 65 22 2c 22 39 32 | 30 20 4e 20 57 61 73 68 |ine","92|0 N Wash|
|00004240| 69 6e 67 74 6f 6e 22 2c | 22 45 64 6d 6f 6e 64 2c |ington",|"Edmond,|
|00004250| 20 4f 6b 6c 61 68 6f 6d | 61 2c 20 37 33 30 33 34 | Oklahom|a, 73034|
|00004260| 22 2c 22 28 34 30 35 29 | 20 33 34 30 2d 31 39 34 |","(405)| 340-194|
|00004270| 30 22 2c 22 43 6f 70 79 | 72 69 67 68 74 20 28 63 |0","Copy|right (c|
|00004280| 29 20 31 39 38 39 2c 20 | 47 61 72 72 79 20 41 20 |) 1989, |Garry A |
|00004290| 50 72 65 66 6f 6e 74 61 | 69 6e 65 22 29 0d 0a ff |Prefonta|ine")...|
|000042a0| 20 06 0d 0a ff 20 03 43 | 41 53 45 20 6d 2d 3e 73 | .... .C|ASE m->s|
|000042b0| 66 5f 73 65 6c 20 3d 20 | 36 2e 30 33 0d 0a ff 20 |f_sel = |6.03... |
|000042c0| 06 0d 0a ff 20 06 6d 73 | 67 28 22 20 54 68 69 73 |.... .ms|g(" This|
|000042d0| 20 70 72 6f 67 72 61 6d | 20 77 61 73 20 77 72 69 | program| was wri|
|000042e0| 74 74 65 6e 20 74 6f 20 | 64 65 6d 6f 6e 73 74 72 |tten to |demonstr|
|000042f0| 61 74 65 20 74 68 65 20 | 63 61 70 61 62 69 6c 69 |ate the |capabili|
|00004300| 74 69 65 73 22 2c 3b 0d | 0a ff 20 09 22 6f 66 20 |ties",;.|.. ."of |
|00004310| 74 68 65 20 53 75 70 65 | 72 2e 4c 69 62 20 4c 69 |the Supe|r.Lib Li|
|00004320| 62 72 61 72 79 20 66 6f | 72 20 43 6c 69 70 70 65 |brary fo|r Clippe|
|00004330| 72 2e 20 54 68 65 20 6c | 69 62 72 61 72 79 20 69 |r. The l|ibrary i|
|00004340| 73 20 61 76 61 69 6c 61 | 62 6c 65 22 2c 3b 0d 0a |s availa|ble",;..|
|00004350| ff 20 09 22 66 72 6f 6d | 3a 20 22 2c 3b 22 0d 0a |. ."from|: ",;"..|
|00004360| ff 20 06 22 ff 20 0a 46 | 75 6e 63 74 69 6f 6e 61 |. .". .F|unctiona|
|00004370| 6c 20 53 6f 66 74 77 61 | 72 65 22 2c 3b 0d 0a ff |l Softwa|re",;...|
|00004380| 20 09 22 ff 20 0a 39 32 | 30 20 4e 20 57 61 73 68 | .". .92|0 N Wash|
|00004390| 69 6e 67 74 6f 6e 22 2c | 3b 0d 0a ff 20 09 22 ff |ington",|;... .".|
|000043a0| 20 0a 45 64 6d 6f 6e 64 | 2c 20 4f 4b 2c 20 37 33 | .Edmond|, OK, 73|
|000043b0| 30 33 34 22 2c 3b 0d 0a | ff 20 09 22 ff 20 0a 28 |034",;..|. .". .(|
|000043c0| 34 30 35 29 20 33 34 30 | 2d 31 39 34 30 20 20 22 |405) 340|-1940 "|
|000043d0| 2c 3b 0d 0a ff 20 09 22 | 22 2c 3b 0d 0a ff 20 09 |,;... ."|",;... .|
|000043e0| 22 66 6f 72 20 24 34 37 | 2e 35 30 2e 20 53 6f 75 |"for $47|.50. Sou|
|000043f0| 72 63 65 20 63 6f 64 65 | 20 69 73 20 69 6e 63 6c |rce code| is incl|
|00004400| 75 64 65 64 2e 22 29 0d | 0a ff 20 06 0d 0a ff 20 |uded.").|.. .... |
|00004410| 03 45 4e 44 43 41 53 45 | 0d 0a 45 4e 44 44 4f 0d |.ENDCASE|..ENDDO.|
|00004420| 0a 0d 0a 0d 0a 2a 21 ff | 2a 45 0d 0a 2a 21 0d 0a |.....*!.|*E..*!..|
|00004430| 2a 21 ff 20 07 46 75 6e | 63 74 69 6f 6e 3a 20 53 |*!. .Fun|ction: S|
|00004440| 46 5f 50 49 43 4b 44 42 | 46 28 29 0d 0a 2a 21 0d |F_PICKDB|F()..*!.|
|00004450| 0a 2a 21 ff 20 06 43 61 | 6c 6c 65 64 20 62 79 3a |.*!. .Ca|lled by:|
|00004460| 20 53 46 2e 50 52 47 ff | 20 18 0d 0a 2a 21 0d 0a | SF.PRG.| ...*!..|
|00004470| 2a 21 ff 20 0a 43 61 6c | 6c 73 3a 20 50 4f 50 45 |*!. .Cal|ls: POPE|
|00004480| 58 28 29 ff 20 08 28 66 | 75 6e 63 74 69 6f 6e 20 |X(). .(f|unction |
|00004490| 69 6e 20 53 55 50 45 52 | 2e 4c 49 42 29 0d 0a 2a |in SUPER|.LIB)..*|
|000044a0| 21 ff 20 0f 3a 20 4d 53 | 47 28 29 ff 20 0a 28 66 |!. .: MS|G(). .(f|
|000044b0| 75 6e 63 74 69 6f 6e 20 | 69 6e 20 53 55 50 45 52 |unction |in SUPER|
|000044c0| 2e 4c 49 42 29 0d 0a 2a | 21 ff 20 0f 3a 20 44 45 |.LIB)..*|!. .: DE|
|000044d0| 4c 41 52 52 41 59 28 29 | ff 20 05 28 66 75 6e 63 |LARRAY()|. .(func|
|000044e0| 74 69 6f 6e 20 69 6e 20 | 53 55 50 45 52 2e 4c 49 |tion in |SUPER.LI|
|000044f0| 42 29 0d 0a 2a 21 0d 0a | 2a 21 ff 20 0b 55 73 65 |B)..*!..|*!. .Use|
|00004500| 73 3a 20 28 4d 2d 3e 44 | 42 46 50 49 43 4b 29 2e |s: (M->D|BFPICK).|
|00004510| 44 42 46 0d 0a 2a 21 0d | 0a 2a 21 ff 2a 45 0d 0a |DBF..*!.|.*!.*E..|
|00004520| 46 55 4e 43 54 49 4f 4e | 20 73 66 5f 70 69 63 6b |FUNCTION| sf_pick|
|00004530| 64 62 66 0d 0a 64 62 66 | 70 69 63 6b 20 3d 20 70 |dbf..dbf|pick = p|
|00004540| 6f 70 65 78 28 27 2a 2e | 64 62 66 27 29 0d 0a 49 |opex('*.|dbf')..I|
|00004550| 46 20 21 45 4d 50 54 59 | 28 6d 2d 3e 64 62 66 70 |F !EMPTY|(m->dbfp|
|00004560| 69 63 6b 29 0d 0a ff 20 | 03 55 53 45 20 28 6d 2d |ick)... |.USE (m-|
|00004570| 3e 64 62 66 70 69 63 6b | 29 0d 0a ff 20 03 49 46 |>dbfpick|)... .IF|
|00004580| 20 45 4d 50 54 59 28 41 | 4c 49 41 53 28 29 29 0d | EMPTY(A|LIAS()).|
|00004590| 0a ff 20 06 6d 73 67 28 | 22 55 4e 41 42 4c 45 20 |.. .msg(|"UNABLE |
|000045a0| 54 4f 20 af 17 ff 4f 50 | 45 4e 20 44 41 54 41 42 |TO ...OP|EN DATAB|
|000045b0| 41 53 45 20 20 2d 20 50 | 4f 53 53 49 42 4c 59 20 |ASE - P|OSSIBLY |
|000045c0| 43 4f 52 52 55 50 54 20 | 4f 52 20 2e 44 42 54 20 |CORRUPT |OR .DBT |
|000045d0| 46 49 4c 45 20 4d 49 53 | 53 49 4e 47 20 20 22 29 |FILE MIS|SING ")|
|000045e0| 0d 0a ff 20 06 52 45 54 | 55 52 4e 20 27 27 0d 0a |... .RET|URN ''..|
|000045f0| ff 20 03 45 4e 44 49 46 | 0d 0a ff 20 03 0d 0a ff |. .ENDIF|... ....|
|00004600| 20 03 2a 2d 20 73 65 74 | 20 67 6c 6f 62 61 6c 73 | .*- set| globals|
|00004610| 0d 0a ff 20 03 69 73 66 | 6f 70 65 6e 20 3d 20 2e |... .isf|open = .|
|00004620| 54 2e 0d 0a ff 20 03 71 | 75 65 72 79 5f 65 78 70 |T.... .q|uery_exp|
|00004630| 20 3d 20 27 27 0d 0a ff | 20 03 64 62 66 6e 61 6d | = ''...| .dbfnam|
|00004640| 65 20 3d 20 6d 2d 3e 64 | 62 66 70 69 63 6b 0d 0a |e = m->d|bfpick..|
|00004650| ff 20 03 64 65 6c 61 72 | 72 61 79 28 6d 2d 3e 73 |. .delar|ray(m->s|
|00004660| 66 5f 61 63 6e 64 78 29 | ff 20 04 26 26 20 64 65 |f_acndx)|. .&& de|
|00004670| 6c 65 74 65 20 69 6e 64 | 65 78 20 61 72 72 61 79 |lete ind|ex array|
|00004680| 0d 0a ff 20 03 6e 64 78 | 5f 73 74 72 69 6e 67 3d |... .ndx|_string=|
|00004690| 27 27 0d 0a ff 20 03 0d | 0a 45 4e 44 49 46 0d 0a |''... ..|.ENDIF..|
|000046a0| 52 45 54 55 52 4e 20 27 | 27 0d 0a 2a 21 ff 2a 45 |RETURN '|'..*!.*E|
|000046b0| 0d 0a 2a 21 0d 0a 2a 21 | ff 20 07 46 75 6e 63 74 |..*!..*!|. .Funct|
|000046c0| 69 6f 6e 3a 20 53 46 5f | 50 49 43 4b 4e 44 28 29 |ion: SF_|PICKND()|
|000046d0| 0d 0a 2a 21 0d 0a 2a 21 | ff 20 06 43 61 6c 6c 65 |..*!..*!|. .Calle|
|000046e0| 64 20 62 79 3a 20 53 46 | 2e 50 52 47 ff 20 18 0d |d by: SF|.PRG. ..|
|000046f0| 0a 2a 21 0d 0a 2a 21 ff | 20 0a 43 61 6c 6c 73 3a |.*!..*!.| .Calls:|
|00004700| 20 44 45 4c 41 52 52 41 | 59 28 29 ff 20 05 28 66 | DELARRA|Y(). .(f|
|00004710| 75 6e 63 74 69 6f 6e 20 | 69 6e 20 53 55 50 45 52 |unction |in SUPER|
|00004720| 2e 4c 49 42 29 0d 0a 2a | 21 ff 20 0f 3a 20 50 49 |.LIB)..*|!. .: PI|
|00004730| 43 4b 5f 4e 44 58 28 29 | ff 20 05 28 66 75 6e 63 |CK_NDX()|. .(func|
|00004740| 74 69 6f 6e 20 20 69 6e | 20 53 46 2e 50 52 47 29 |tion in| SF.PRG)|
|00004750| 0d 0a 2a 21 ff 20 0f 3a | 20 53 46 5f 4f 50 45 4e |..*!. .:| SF_OPEN|
|00004760| 45 4d 28 29 ff 20 04 28 | 66 75 6e 63 74 69 6f 6e |EM(). .(|function|
|00004770| 20 20 69 6e 20 53 46 2e | 50 52 47 29 0d 0a 2a 21 | in SF.|PRG)..*!|
|00004780| 0d 0a 2a 21 ff 2a 45 0d | 0a 46 55 4e 43 54 49 4f |..*!.*E.|.FUNCTIO|
|00004790| 4e 20 73 66 5f 70 69 63 | 6b 6e 64 0d 0a 0d 0a 64 |N sf_pic|knd....d|
|000047a0| 65 6c 61 72 72 61 79 28 | 6d 2d 3e 73 66 5f 61 63 |elarray(|m->sf_ac|
|000047b0| 6e 64 78 29 ff 20 04 26 | 26 20 64 65 6c 65 74 65 |ndx). .&|& delete|
|000047c0| 20 69 6e 64 65 78 20 61 | 72 72 61 79 0d 0a 41 64 | index a|rray..Ad|
|000047d0| 69 72 28 6d 2d 3e 64 65 | 66 69 6e 64 65 78 2c 6d |ir(m->de|findex,m|
|000047e0| 2d 3e 73 66 5f 6e 64 78 | 73 29 0d 0a 70 69 63 6b |->sf_ndx|s)..pick|
|000047f0| 5f 6e 64 78 28 29 ff 20 | 08 26 26 20 67 65 74 20 |_ndx(). |.&& get |
|00004800| 61 20 6c 69 73 74 20 6f | 66 20 61 63 74 69 76 65 |a list o|f active|
|00004810| 20 69 6e 64 69 63 65 73 | 20 69 6e 74 6f 20 73 66 | indices| into sf|
|00004820| 5f 61 63 6e 64 78 0d 0a | 73 66 5f 6f 70 65 6e 65 |_acndx..|sf_opene|
|00004830| 6d 28 29 ff 20 07 26 26 | 20 6f 70 65 6e 20 74 68 |m(). .&&| open th|
|00004840| 65 6d 0d 0a 52 45 54 55 | 52 4e 20 27 27 0d 0a 0d |em..RETU|RN ''...|
|00004850| 0a 2a 21 ff 2a 45 0d 0a | 2a 21 0d 0a 2a 21 ff 20 |.*!.*E..|*!..*!. |
|00004860| 07 46 75 6e 63 74 69 6f | 6e 3a 20 53 46 5f 4f 52 |.Functio|n: SF_OR|
|00004870| 44 45 52 28 29 0d 0a 2a | 21 0d 0a 2a 21 ff 20 06 |DER()..*|!..*!. .|
|00004880| 43 61 6c 6c 65 64 20 62 | 79 3a 20 53 46 2e 50 52 |Called b|y: SF.PR|
|00004890| 47 ff 20 18 0d 0a 2a 21 | 0d 0a 2a 21 ff 20 0a 43 |G. ...*!|..*!. .C|
|000048a0| 61 6c 6c 73 3a 20 4d 43 | 48 4f 49 43 45 28 29 ff |alls: MC|HOICE().|
|000048b0| 20 06 28 66 75 6e 63 74 | 69 6f 6e 20 69 6e 20 53 | .(funct|ion in S|
|000048c0| 55 50 45 52 2e 4c 49 42 | 29 0d 0a 2a 21 0d 0a 2a |UPER.LIB|)..*!..*|
|000048d0| 21 ff 2a 45 0d 0a 46 55 | 4e 43 54 49 4f 4e 20 73 |!.*E..FU|NCTION s|
|000048e0| 66 5f 6f 72 64 65 72 0d | 0a 50 52 49 56 41 54 45 |f_order.|.PRIVATE|
|000048f0| 20 6f 6c 64 5f 6f 0d 0a | 6f 6c 64 5f 6f 20 3d 20 | old_o..|old_o = |
|00004900| 6d 2d 3e 6e 64 78 5f 6f | 72 64 65 72 0d 0a 6e 64 |m->ndx_o|rder..nd|
|00004910| 78 5f 6f 72 64 65 72 20 | 3d 20 6d 63 68 6f 69 63 |x_order |= mchoic|
|00004920| 65 28 27 73 66 5f 61 63 | 6e 64 78 27 2c 31 30 2c |e('sf_ac|ndx',10,|
|00004930| 31 30 2c 32 30 2c 35 30 | 29 0d 0a 49 46 20 6d 2d |10,20,50|)..IF m-|
|00004940| 3e 6e 64 78 5f 6f 72 64 | 65 72 20 3d 20 30 0d 0a |>ndx_ord|er = 0..|
|00004950| ff 20 03 6e 64 78 5f 6f | 72 64 65 72 20 3d 20 6d |. .ndx_o|rder = m|
|00004960| 2d 3e 6f 6c 64 5f 6f 0d | 0a 45 4c 53 45 0d 0a ff |->old_o.|.ELSE...|
|00004970| 20 03 53 45 54 20 4f 52 | 44 45 52 20 54 4f 20 28 | .SET OR|DER TO (|
|00004980| 6d 2d 3e 6e 64 78 5f 6f | 72 64 65 72 29 0d 0a 45 |m->ndx_o|rder)..E|
|00004990| 4e 44 49 46 0d 0a 52 45 | 54 55 52 4e 20 27 27 0d |NDIF..RE|TURN ''.|
|000049a0| 0a 0d 0a 2a 21 ff 2a 45 | 0d 0a 2a 21 0d 0a 2a 21 |...*!.*E|..*!..*!|
|000049b0| ff 20 07 46 75 6e 63 74 | 69 6f 6e 3a 20 53 46 5f |. .Funct|ion: SF_|
|000049c0| 4f 50 45 4e 45 4d 28 29 | 0d 0a 2a 21 0d 0a 2a 21 |OPENEM()|..*!..*!|
|000049d0| ff 20 06 43 61 6c 6c 65 | 64 20 62 79 3a 20 53 46 |. .Calle|d by: SF|
|000049e0| 2e 50 52 47 ff 20 18 0d | 0a 2a 21 ff 20 0f 3a 20 |.PRG. ..|.*!. .: |
|000049f0| 53 46 5f 50 49 43 4b 4e | 44 28 29 ff 20 04 28 66 |SF_PICKN|D(). .(f|
|00004a00| 75 6e 63 74 69 6f 6e 20 | 20 69 6e 20 53 46 2e 50 |unction | in SF.P|
|00004a10| 52 47 29 0d 0a 2a 21 0d | 0a 2a 21 ff 20 0a 43 61 |RG)..*!.|.*!. .Ca|
|00004a20| 6c 6c 73 3a 20 41 4c 45 | 4e 47 28 29 ff 20 08 28 |lls: ALE|NG(). .(|
|00004a30| 66 75 6e 63 74 69 6f 6e | 20 69 6e 20 53 55 50 45 |function| in SUPE|
|00004a40| 52 2e 4c 49 42 29 0d 0a | 2a 21 0d 0a 2a 21 ff 20 |R.LIB)..|*!..*!. |
|00004a50| 08 49 6e 64 65 78 65 73 | 3a 20 28 53 46 5f 41 43 |.Indexes|: (SF_AC|
|00004a60| 4e 44 58 5b 31 5d 29 2e | 4e 44 58 0d 0a 2a 21 ff |NDX[1]).|NDX..*!.|
|00004a70| 20 0f 3a 20 28 53 46 5f | 41 43 4e 44 58 5b 32 5d | .: (SF_|ACNDX[2]|
|00004a80| 29 2e 4e 44 58 0d 0a 2a | 21 ff 20 0f 3a 20 28 53 |).NDX..*|!. .: (S|
|00004a90| 46 5f 41 43 4e 44 58 5b | 33 5d 29 2e 4e 44 58 0d |F_ACNDX[|3]).NDX.|
|00004aa0| 0a 2a 21 ff 20 0f 3a 20 | 28 53 46 5f 41 43 4e 44 |.*!. .: |(SF_ACND|
|00004ab0| 58 5b 34 5d 29 2e 4e 44 | 58 0d 0a 2a 21 ff 20 0f |X[4]).ND|X..*!. .|
|00004ac0| 3a 20 28 53 46 5f 41 43 | 4e 44 58 5b 35 5d 29 2e |: (SF_AC|NDX[5]).|
|00004ad0| 4e 44 58 0d 0a 2a 21 ff | 20 0f 3a 20 28 53 46 5f |NDX..*!.| .: (SF_|
|00004ae0| 41 43 4e 44 58 5b 36 5d | 29 2e 4e 44 58 0d 0a 2a |ACNDX[6]|).NDX..*|
|00004af0| 21 0d 0a 2a 21 ff 2a 45 | 0d 0a 46 55 4e 43 54 49 |!..*!.*E|..FUNCTI|
|00004b00| 4f 4e 20 73 66 5f 6f 70 | 65 6e 65 6d 0d 0a 50 52 |ON sf_op|enem..PR|
|00004b10| 49 56 41 54 45 20 74 69 | 6e 64 65 78 5b 36 5d 0d |IVATE ti|ndex[6].|
|00004b20| 0a 0d 0a 61 66 69 6c 6c | 28 6d 2d 3e 74 69 6e 64 |...afill|(m->tind|
|00004b30| 65 78 2c 22 22 29 0d 0a | 6e 64 78 5f 73 74 72 69 |ex,"")..|ndx_stri|
|00004b40| 6e 67 20 3d 20 27 27 0d | 0a 50 52 49 56 41 54 45 |ng = ''.|.PRIVATE|
|00004b50| 20 6b 6e 74 2c 49 0d 0a | 6b 6e 74 20 3d 20 61 6c | knt,I..|knt = al|
|00004b60| 65 6e 67 28 6d 2d 3e 73 | 66 5f 61 63 6e 64 78 29 |eng(m->s|f_acndx)|
|00004b70| 0d 0a 46 4f 52 20 49 20 | 3d 20 31 20 54 4f 20 4d |..FOR I |= 1 TO M|
|00004b80| 2d 3e 4b 4e 54 0d 0a ff | 20 03 6e 64 78 5f 73 74 |->KNT...| .ndx_st|
|00004b90| 72 69 6e 67 20 3d 20 6d | 2d 3e 6e 64 78 5f 73 74 |ring = m|->ndx_st|
|00004ba0| 72 69 6e 67 2b 73 66 5f | 61 63 6e 64 78 5b 6d 2d |ring+sf_|acndx[m-|
|00004bb0| 3e 69 5d 2b 27 20 27 0d | 0a ff 20 03 74 69 6e 64 |>i]+' '.|.. .tind|
|00004bc0| 65 78 5b 6d 2d 3e 69 5d | 20 3d 20 73 66 5f 61 63 |ex[m->i]| = sf_ac|
|00004bd0| 6e 64 78 5b 6d 2d 3e 69 | 5d 0d 0a 4e 45 58 54 0d |ndx[m->i|]..NEXT.|
|00004be0| 0a 53 45 54 20 49 4e 44 | 45 58 20 54 4f 20 28 74 |.SET IND|EX TO (t|
|00004bf0| 69 6e 64 65 78 5b 31 5d | 29 2c 28 74 69 6e 64 65 |index[1]|),(tinde|
|00004c00| 78 5b 32 5d 29 2c 28 74 | 69 6e 64 65 78 5b 33 5d |x[2]),(t|index[3]|
|00004c10| 29 2c 28 74 69 6e 64 65 | 78 5b 34 5d 29 2c 28 74 |),(tinde|x[4]),(t|
|00004c20| 69 6e 64 65 78 5b 35 5d | 29 2c 28 74 69 6e 64 65 |index[5]|),(tinde|
|00004c30| 78 5b 36 5d 29 0d 0a 53 | 45 54 20 4f 52 44 45 52 |x[6])..S|ET ORDER|
|00004c40| 20 54 4f 20 28 6d 2d 3e | 6e 64 78 5f 6f 72 64 65 | TO (m->|ndx_orde|
|00004c50| 72 29 0d 0a 52 45 54 55 | 52 4e 20 27 27 0d 0a 0d |r)..RETU|RN ''...|
|00004c60| 0a 2a 21 ff 2a 45 0d 0a | 2a 21 0d 0a 2a 21 ff 20 |.*!.*E..|*!..*!. |
|00004c70| 07 46 75 6e 63 74 69 6f | 6e 3a 20 50 49 43 4b 5f |.Functio|n: PICK_|
|00004c80| 4e 44 58 28 29 0d 0a 2a | 21 0d 0a 2a 21 ff 20 06 |NDX()..*|!..*!. .|
|00004c90| 43 61 6c 6c 65 64 20 62 | 79 3a 20 53 46 5f 50 49 |Called b|y: SF_PI|
|00004ca0| 43 4b 4e 44 28 29 ff 20 | 04 28 66 75 6e 63 74 69 |CKND(). |.(functi|
|00004cb0| 6f 6e 20 20 69 6e 20 53 | 46 2e 50 52 47 29 0d 0a |on in S|F.PRG)..|
|00004cc0| 2a 21 0d 0a 2a 21 ff 20 | 0a 43 61 6c 6c 73 3a 20 |*!..*!. |.Calls: |
|00004cd0| 54 45 4d 50 49 44 5b 41 | 44 49 52 28 29 20 20 28 |TEMPID[A|DIR() (|
|00004ce0| 66 75 6e 63 74 69 6f 6e | 20 69 6e 20 53 55 50 45 |function| in SUPE|
|00004cf0| 52 2e 4c 49 42 29 0d 0a | 2a 21 ff 20 0f 3a 20 4b |R.LIB)..|*!. .: K|
|00004d00| 42 44 5f 45 53 43 41 50 | 45 2e 50 52 47 0d 0a 2a |BD_ESCAP|E.PRG..*|
|00004d10| 21 ff 20 0f 3a 20 4d 41 | 4b 45 42 4f 58 28 29 ff |!. .: MA|KEBOX().|
|00004d20| 20 06 28 66 75 6e 63 74 | 69 6f 6e 20 69 6e 20 53 | .(funct|ion in S|
|00004d30| 55 50 45 52 2e 4c 49 42 | 29 0d 0a 2a 21 ff 20 0f |UPER.LIB|)..*!. .|
|00004d40| 3a 20 4e 4b 45 59 28 29 | ff 20 09 28 66 75 6e 63 |: NKEY()|. .(func|
|00004d50| 74 69 6f 6e 20 69 6e 20 | 53 55 50 45 52 2e 4c 49 |tion in |SUPER.LI|
|00004d60| 42 29 0d 0a 2a 21 ff 20 | 0f 3a 20 4d 53 47 28 29 |B)..*!. |.: MSG()|
|00004d70| ff 20 0a 28 66 75 6e 63 | 74 69 6f 6e 20 69 6e 20 |. .(func|tion in |
|00004d80| 53 55 50 45 52 2e 4c 49 | 42 29 0d 0a 2a 21 ff 20 |SUPER.LI|B)..*!. |
|00004d90| 0f 3a 20 55 4e 42 4f 58 | 28 29 ff 20 08 28 66 75 |.: UNBOX|(). .(fu|
|00004da0| 6e 63 74 69 6f 6e 20 69 | 6e 20 53 55 50 45 52 2e |nction i|n SUPER.|
|00004db0| 4c 49 42 29 0d 0a 2a 21 | 0d 0a 2a 21 ff 2a 45 0d |LIB)..*!|..*!.*E.|
|00004dc0| 0a 46 55 4e 43 54 49 4f | 4e 20 70 69 63 6b 5f 6e |.FUNCTIO|N pick_n|
|00004dd0| 64 78 0d 0a 0d 0a 50 52 | 49 56 41 54 45 20 6e 77 |dx....PR|IVATE nw|
|00004de0| 69 6e 2c 6e 65 78 74 6e | 64 78 2c 70 72 5f 65 6c |in,nextn|dx,pr_el|
|00004df0| 2c 6e 5f 6e 61 6d 65 0d | 0a 50 52 49 56 41 54 45 |,n_name.|.PRIVATE|
|00004e00| 20 74 65 6d 70 69 64 5b | 61 64 69 72 28 6d 2d 3e | tempid[|adir(m->|
|00004e10| 64 65 66 69 6e 64 65 78 | 29 2b 31 5d 0d 0a 0d 0a |defindex|)+1]....|
|00004e20| 0d 0a 2a 2d 20 73 65 74 | 20 75 70 20 74 65 6d 70 |..*- set| up temp|
|00004e30| 20 61 72 72 61 79 20 66 | 6f 72 20 6d 61 72 6b 69 | array f|or marki|
|00004e40| 6e 67 20 73 65 6c 65 63 | 74 65 64 20 69 6e 64 65 |ng selec|ted inde|
|00004e50| 78 65 73 0d 0a 41 63 6f | 70 79 28 6d 2d 3e 73 66 |xes..Aco|py(m->sf|
|00004e60| 5f 6e 64 78 73 2c 6d 2d | 3e 74 65 6d 70 69 64 29 |_ndxs,m-|>tempid)|
|00004e70| 0d 0a 0d 0a 2a 2d 20 6d | 61 6b 65 20 46 31 30 20 |....*- m|ake F10 |
|00004e80| 73 65 65 6d 20 6c 69 6b | 65 20 45 53 43 41 50 45 |seem lik|e ESCAPE|
|00004e90| 0d 0a 53 45 54 20 4b 45 | 59 20 2d 39 20 54 4f 20 |..SET KE|Y -9 TO |
|00004ea0| 6b 62 64 5f 65 73 63 61 | 70 65 0d 0a 0d 0a 2a 2d |kbd_esca|pe....*-|
|00004eb0| 20 64 72 61 77 20 74 68 | 65 20 62 6f 78 0d 0a 6e | draw th|e box..n|
|00004ec0| 77 69 6e 20 3d 20 6d 61 | 6b 65 62 6f 78 28 31 2c |win = ma|kebox(1,|
|00004ed0| 32 30 2c 31 37 2c 35 30 | 2c 6d 2d 3e 63 5f 6e 6f |20,17,50|,m->c_no|
|00004ee0| 72 6d 63 6f 6c 29 0d 0a | 40 31 2c 32 32 20 53 41 |rmcol)..|@1,22 SA|
|00004ef0| 59 20 20 22 5b 53 65 6c | 65 63 74 2f 44 65 73 65 |Y "[Sel|ect/Dese|
|00004f00| 6c 65 63 74 20 49 6e 64 | 69 63 65 73 5d 22 0d 0a |lect Ind|ices]"..|
|00004f10| 40 31 37 2c 32 32 20 53 | 41 59 20 22 5b 50 72 65 |@17,22 S|AY "[Pre|
|00004f20| 73 73 20 46 31 30 20 77 | 68 65 6e 20 64 6f 6e 65 |ss F10 w|hen done|
|00004f30| ff 20 03 5d 22 0d 0a 0d | 0a 6e 65 78 74 6e 64 78 |. .]"...|.nextndx|
|00004f40| 3d 20 31 0d 0a 70 72 5f | 65 6c 20 3d 20 31 0d 0a |= 1..pr_|el = 1..|
|00004f50| 44 4f 20 57 48 49 4c 45 | 20 2e 54 2e 0d 0a ff 20 |DO WHILE| .T.... |
|00004f60| 03 0d 0a ff 20 03 2a 2d | 20 67 65 74 20 61 20 73 |.... .*-| get a s|
|00004f70| 65 6c 65 63 74 69 6f 6e | 0d 0a ff 20 03 70 72 5f |election|... .pr_|
|00004f80| 65 6c 20 3d 20 20 41 63 | 68 6f 69 63 65 28 32 2c |el = Ac|hoice(2,|
|00004f90| 32 31 2c 31 36 2c 34 39 | 2c 6d 2d 3e 74 65 6d 70 |21,16,49|,m->temp|
|00004fa0| 69 64 2c 27 27 2c 27 27 | 2c 6d 2d 3e 70 72 5f 65 |id,'',''|,m->pr_e|
|00004fb0| 6c 29 0d 0a ff 20 03 49 | 46 20 6d 2d 3e 70 72 5f |l)... .I|F m->pr_|
|00004fc0| 65 6c 20 3d 20 30 0d 0a | ff 20 06 45 58 49 54 0d |el = 0..|. .EXIT.|
|00004fd0| 0a ff 20 03 45 4e 44 49 | 0d 0a ff 20 03 0d 0a ff |.. .ENDI|... ....|
|00004fe0| 20 03 2a 2d 20 69 66 20 | 69 74 73 20 6e 6f 74 20 | .*- if |its not |
|00004ff0| 61 6c 72 65 61 64 79 20 | 6d 61 72 6b 65 64 2c 20 |already |marked, |
|00005000| 6d 61 72 6b 20 69 74 0d | 0a ff 20 03 49 46 20 4c |mark it.|.. .IF L|
|00005010| 45 46 54 28 74 65 6d 70 | 69 64 5b 6d 2d 3e 70 72 |EFT(temp|id[m->pr|
|00005020| 5f 65 6c 5d 2c 32 29 3c | 3e 22 fb 20 22 0d 0a ff |_el],2)<|>". "...|
|00005030| 20 06 6e 5f 6e 61 6d 65 | 20 3d 20 73 66 5f 6e 64 | .n_name| = sf_nd|
|00005040| 78 73 5b 6d 2d 3e 70 72 | 5f 65 6c 5d 0d 0a ff 20 |xs[m->pr|_el]... |
|00005050| 06 0d 0a ff 20 06 2a 2d | 20 67 65 74 20 69 6e 64 |.... .*-| get ind|
|00005060| 65 78 20 6b 65 79 20 74 | 6f 20 74 65 73 74 0d 0a |ex key t|o test..|
|00005070| ff 20 06 4b 45 59 20 3d | 20 41 6c 6c 74 72 69 6d |. .KEY =| Alltrim|
|00005080| 28 6e 6b 65 79 28 6d 2d | 3e 6e 5f 6e 61 6d 65 29 |(nkey(m-|>n_name)|
|00005090| 29 0d 0a ff 20 06 49 46 | 20 21 28 54 59 50 45 28 |)... .IF| !(TYPE(|
|000050a0| 22 26 4b 45 59 22 29 3d | 3d 20 22 55 22 20 2e 4f |"&KEY")=|= "U" .O|
|000050b0| 52 2e 20 54 59 50 45 28 | 22 26 4b 45 59 22 29 20 |R. TYPE(|"&KEY") |
|000050c0| 3d 3d 20 22 55 45 22 29 | ff 20 03 26 26 20 73 65 |== "UE")|. .&& se|
|000050d0| 65 20 69 66 20 74 68 65 | 20 69 6e 64 65 78 20 6b |e if the| index k|
|000050e0| 65 79 20 77 69 6c 6c 20 | 65 76 61 6c 75 61 74 65 |ey will |evaluate|
|000050f0| 20 77 2f 6f 75 74 20 45 | 52 52 4f 52 53 0d 0a ff | w/out E|RRORS...|
|00005100| 20 09 74 65 6d 70 69 64 | 5b 6d 2d 3e 70 72 5f 65 | .tempid|[m->pr_e|
|00005110| 6c 5d 20 3d 20 27 fb 20 | 27 2b 74 65 6d 70 69 64 |l] = '. |'+tempid|
|00005120| 5b 6d 2d 3e 70 72 5f 65 | 6c 5d 0d 0a ff 20 09 73 |[m->pr_e|l]... .s|
|00005130| 66 5f 61 63 6e 64 78 5b | 6d 2d 3e 6e 65 78 74 4e |f_acndx[|m->nextN|
|00005140| 44 58 5d ff 20 03 3d 20 | 73 66 5f 6e 64 78 73 5b |DX]. .= |sf_ndxs[|
|00005150| 6d 2d 3e 70 72 5f 65 6c | 5d 0d 0a ff 20 09 6e 65 |m->pr_el|]... .ne|
|00005160| 78 74 6e 64 78 20 3d 20 | 6d 2d 3e 6e 65 78 74 6e |xtndx = |m->nextn|
|00005170| 64 78 2b 20 31 0d 0a ff | 20 06 45 4c 53 45 0d 0a |dx+ 1...| .ELSE..|
|00005180| ff 20 09 6d 73 67 28 22 | 54 68 61 74 20 69 6e 64 |. .msg("|That ind|
|00005190| 65 78 20 65 69 74 68 65 | 72 20 64 6f 65 73 20 6e |ex eithe|r does n|
|000051a0| 6f 74 20 6d 61 74 63 68 | 20 74 68 65 20 44 42 46 |ot match| the DBF|
|000051b0| 22 2c 22 6f 72 20 74 68 | 69 73 20 70 72 6f 67 72 |","or th|is progr|
|000051c0| 61 6d 20 64 6f 65 73 20 | 6e 6f 74 20 73 75 70 70 |am does |not supp|
|000051d0| 6f 72 74 20 61 20 66 75 | 6e 63 74 69 6f 6e 22 2c |ort a fu|nction",|
|000051e0| 22 69 6e 20 74 68 65 20 | 69 6e 64 65 78 20 65 78 |"in the |index ex|
|000051f0| 70 72 65 73 73 69 6f 6e | 22 29 0d 0a ff 20 09 6d |pression|")... .m|
|00005200| 73 67 28 22 46 6f 72 20 | 79 6f 75 72 20 69 6e 66 |sg("For |your inf|
|00005210| 6f 2c 20 74 68 65 20 69 | 6e 64 65 78 20 65 78 70 |o, the i|ndex exp|
|00005220| 72 65 73 73 69 6f 6e 20 | 69 73 3a 22 2c 4b 45 59 |ression |is:",KEY|
|00005230| 29 0d 0a ff 20 06 45 4e | 44 49 46 0d 0a ff 20 03 |)... .EN|DIF... .|
|00005240| 45 4c 53 45 ff 20 04 26 | 26 20 6f 74 68 65 72 77 |ELSE. .&|& otherw|
|00005250| 69 73 65 2c 20 75 6e 6d | 61 72 6b 20 69 74 0d 0a |ise, unm|ark it..|
|00005260| ff 20 06 74 65 6d 70 69 | 64 5b 6d 2d 3e 70 72 5f |. .tempi|d[m->pr_|
|00005270| 65 6c 5d 20 3d 20 53 55 | 42 53 54 28 74 65 6d 70 |el] = SU|BST(temp|
|00005280| 69 64 5b 6d 2d 3e 70 72 | 5f 65 6c 5d 2c 33 29 0d |id[m->pr|_el],3).|
|00005290| 0a ff 20 06 74 61 6b 65 | 6f 75 74 20 3d 20 41 73 |.. .take|out = As|
|000052a0| 63 61 6e 28 6d 2d 3e 73 | 66 5f 61 63 6e 64 78 2c |can(m->s|f_acndx,|
|000052b0| 74 65 6d 70 69 64 5b 6d | 2d 3e 70 72 5f 65 6c 5d |tempid[m|->pr_el]|
|000052c0| 29 0d 0a ff 20 06 41 64 | 65 6c 28 6d 2d 3e 73 66 |)... .Ad|el(m->sf|
|000052d0| 5f 61 63 6e 64 78 2c 6d | 2d 3e 74 61 6b 65 6f 75 |_acndx,m|->takeou|
|000052e0| 74 29 0d 0a ff 20 06 6e | 65 78 74 6e 64 78 3d 20 |t)... .n|extndx= |
|000052f0| 6d 2d 3e 6e 65 78 74 6e | 64 78 2d 20 31 0d 0a ff |m->nextn|dx- 1...|
|00005300| 20 03 45 4e 44 49 46 0d | 0a ff 20 03 0d 0a ff 20 | .ENDIF.|.. .... |
|00005310| 03 2a 2d 20 69 66 20 77 | 65 27 76 65 20 67 6f 74 |.*- if w|e've got|
|00005320| 20 36 2c 20 74 68 61 74 | 27 73 20 61 6c 6c 20 77 | 6, that|'s all w|
|00005330| 65 20 6d 61 64 65 20 72 | 6f 6f 6d 20 66 6f 72 0d |e made r|oom for.|
|00005340| 0a ff 20 03 49 46 20 6d | 2d 3e 6e 65 78 74 6e 64 |.. .IF m|->nextnd|
|00005350| 78 20 3d 20 37 0d 0a ff | 20 06 45 58 49 54 0d 0a |x = 7...| .EXIT..|
|00005360| ff 20 03 45 4e 44 49 46 | 0d 0a 45 4e 44 44 4f 0d |. .ENDIF|..ENDDO.|
|00005370| 0a 0d 0a 53 45 54 20 4b | 45 59 20 2d 39 20 54 4f |...SET K|EY -9 TO|
|00005380| 0d 0a 75 6e 62 6f 78 28 | 6d 2d 3e 6e 77 69 6e 29 |..unbox(|m->nwin)|
|00005390| 0d 0a 52 45 54 55 52 4e | 20 27 27 0d 0a 0d 0a 0d |..RETURN| ''.....|
|000053a0| 0a 2a 21 ff 2a 45 0d 0a | 2a 21 0d 0a 2a 21 ff 20 |.*!.*E..|*!..*!. |
|000053b0| 07 46 75 6e 63 74 69 6f | 6e 3a 20 50 41 49 4e 54 |.Functio|n: PAINT|
|000053c0| 5f 53 46 28 29 0d 0a 2a | 21 0d 0a 2a 21 ff 20 06 |_SF()..*|!..*!. .|
|000053d0| 43 61 6c 6c 65 64 20 62 | 79 3a 20 53 46 2e 50 52 |Called b|y: SF.PR|
|000053e0| 47 ff 20 18 0d 0a 2a 21 | 0d 0a 2a 21 ff 20 0a 43 |G. ...*!|..*!. .C|
|000053f0| 61 6c 6c 73 3a 20 42 58 | 58 28 29 ff 20 0a 28 66 |alls: BX|X(). .(f|
|00005400| 75 6e 63 74 69 6f 6e 20 | 69 6e 20 53 55 50 45 52 |unction |in SUPER|
|00005410| 2e 4c 49 42 29 0d 0a 2a | 21 ff 20 0f 3a 20 53 54 |.LIB)..*|!. .: ST|
|00005420| 41 4e 44 41 52 44 28 29 | ff 20 05 28 66 75 6e 63 |ANDARD()|. .(func|
|00005430| 74 69 6f 6e 20 69 6e 20 | 53 55 50 45 52 2e 4c 49 |tion in |SUPER.LI|
|00005440| 42 29 0d 0a 2a 21 ff 20 | 0f 3a 20 50 52 4e 54 28 |B)..*!. |.: PRNT(|
|00005450| 29 ff 20 09 28 66 75 6e | 63 74 69 6f 6e 20 69 6e |). .(fun|ction in|
|00005460| 20 53 55 50 45 52 2e 4c | 49 42 29 0d 0a 2a 21 0d | SUPER.L|IB)..*!.|
|00005470| 0a 2a 21 ff 2a 45 0d 0a | 46 55 4e 43 54 49 4f 4e |.*!.*E..|FUNCTION|
|00005480| 20 70 61 69 6e 74 5f 73 | 66 0d 0a 0d 0a 53 65 74 | paint_s|f....Set|
|00005490| 63 6f 6c 6f 72 28 6d 2d | 3e 63 5f 6e 6f 72 6d 63 |color(m-|>c_normc|
|000054a0| 6f 6c 29 0d 0a 43 4c 45 | 41 52 0d 0a 2a 2d 20 64 |ol)..CLE|AR..*- d|
|000054b0| 72 61 77 20 63 65 6e 74 | 65 72 20 62 6f 78 20 77 |raw cent|er box w|
|000054c0| 69 74 68 20 43 20 66 75 | 6e 63 74 69 6f 6e 20 62 |ith C fu|nction b|
|000054d0| 78 78 28 29 0d 0a 62 78 | 78 28 32 2c 30 2c 31 38 |xx()..bx|x(2,0,18|
|000054e0| 2c 37 39 2c 73 74 61 6e | 64 61 72 64 28 29 2c 30 |,79,stan|dard(),0|
|000054f0| 2c 30 2c 27 ff b1 09 27 | 2c 35 30 29 0d 0a 49 46 |,0,'...'|,50)..IF|
|00005500| 20 21 49 53 43 4f 4c 4f | 52 28 29 0d 0a ff 20 03 | !ISCOLO|R()... .|
|00005510| 62 78 78 28 31 39 2c 30 | 2c 32 34 2c 37 39 29 0d |bxx(19,0|,24,79).|
|00005520| 0a 45 4e 44 49 46 0d 0a | 53 65 74 63 6f 6c 6f 72 |.ENDIF..|Setcolor|
|00005530| 28 6d 2d 3e 63 5f 70 6f | 70 63 6f 6c 29 0d 0a 62 |(m->c_po|pcol)..b|
|00005540| 78 78 28 31 30 2c 32 30 | 2c 31 33 2c 35 39 2c 73 |xx(10,20|,13,59,s|
|00005550| 74 61 6e 64 61 72 64 28 | 29 2c 33 2c 6d 2d 3e 63 |tandard(|),3,m->c|
|00005560| 5f 73 68 61 64 61 74 74 | 2c 27 ff 20 09 27 2c 35 |_shadatt|,'. .',5|
|00005570| 30 29 0d 0a 2a 2d 20 70 | 72 69 6e 74 20 74 65 78 |0)..*- p|rint tex|
|00005580| 74 20 77 69 74 68 20 43 | 20 66 75 6e 63 74 69 6f |t with C| functio|
|00005590| 6e 20 70 72 6e 74 28 29 | 0d 0a 70 72 6e 74 28 31 |n prnt()|..prnt(1|
|000055a0| 31 2c 32 32 2c 22 53 75 | 70 65 72 2e 4c 69 62 20 |1,22,"Su|per.Lib |
|000055b0| 20 44 65 6d 6f 6e 73 74 | 72 61 74 69 6f 6e 20 50 | Demonst|ration P|
|000055c0| 72 6f 67 72 61 6d 22 2c | 73 74 61 6e 64 61 72 64 |rogram",|standard|
|000055d0| 28 29 29 0d 0a 70 72 6e | 74 28 31 32 2c 33 34 2c |())..prn|t(12,34,|
|000055e0| 22 56 65 72 73 69 6f 6e | 20 31 2e 35 31 22 2c 73 |"Version| 1.51",s|
|000055f0| 74 61 6e 64 61 72 64 28 | 29 29 0d 0a 53 65 74 63 |tandard(|))..Setc|
|00005600| 6f 6c 6f 72 28 6d 2d 3e | 63 5f 6e 6f 72 6d 6d 65 |olor(m->|c_normme|
|00005610| 6e 75 29 0d 0a 52 45 54 | 55 52 4e 20 27 27 0d 0a |nu)..RET|URN ''..|
|00005620| 0d 0a 0d 0a 0d 0a 2a 21 | ff 2a 45 0d 0a 2a 21 0d |......*!|.*E..*!.|
|00005630| 0a 2a 21 ff 20 07 46 75 | 6e 63 74 69 6f 6e 3a 20 |.*!. .Fu|nction: |
|00005640| 43 4f 50 59 49 54 4f 55 | 54 28 29 0d 0a 2a 21 0d |COPYITOU|T()..*!.|
|00005650| 0a 2a 21 ff 20 06 43 61 | 6c 6c 65 64 20 62 79 3a |.*!. .Ca|lled by:|
|00005660| 20 53 46 2e 50 52 47 ff | 20 18 0d 0a 2a 21 0d 0a | SF.PRG.| ...*!..|
|00005670| 2a 21 ff 20 0a 43 61 6c | 6c 73 3a 20 4d 45 4e 55 |*!. .Cal|ls: MENU|
|00005680| 5f 56 28 29 ff 20 07 28 | 66 75 6e 63 74 69 6f 6e |_V(). .(|function|
|00005690| 20 69 6e 20 53 55 50 45 | 52 2e 4c 49 42 29 0d 0a | in SUPE|R.LIB)..|
|000056a0| 2a 21 ff 20 0f 3a 20 54 | 41 47 49 54 28 29 ff 20 |*!. .: T|AGIT(). |
|000056b0| 08 28 66 75 6e 63 74 69 | 6f 6e 20 69 6e 20 53 55 |.(functi|on in SU|
|000056c0| 50 45 52 2e 4c 49 42 29 | 0d 0a 2a 21 ff 20 0f 3a |PER.LIB)|..*!. .:|
|000056d0| 20 4d 45 53 53 59 4e 28 | 29 ff 20 07 28 66 75 6e | MESSYN(|). .(fun|
|000056e0| 63 74 69 6f 6e 20 69 6e | 20 53 55 50 45 52 2e 4c |ction in| SUPER.L|
|000056f0| 49 42 29 0d 0a 2a 21 ff | 20 0f 3a 20 4f 4e 45 5f |IB)..*!.| .: ONE_|
|00005700| 52 45 41 44 28 29 ff 20 | 05 28 66 75 6e 63 74 69 |READ(). |.(functi|
|00005710| 6f 6e 20 69 6e 20 53 55 | 50 45 52 2e 4c 49 42 29 |on in SU|PER.LIB)|
|00005720| 0d 0a 2a 21 ff 20 0f 3a | 20 50 4c 53 57 41 49 54 |..*!. .:| PLSWAIT|
|00005730| 28 29 ff 20 06 28 66 75 | 6e 63 74 69 6f 6e 20 69 |(). .(fu|nction i|
|00005740| 6e 20 53 55 50 45 52 2e | 4c 49 42 29 0d 0a 2a 21 |n SUPER.|LIB)..*!|
|00005750| ff 20 0f 3a 20 4d 53 47 | 28 29 ff 20 0a 28 66 75 |. .: MSG|(). .(fu|
|00005760| 6e 63 74 69 6f 6e 20 69 | 6e 20 53 55 50 45 52 2e |nction i|n SUPER.|
|00005770| 4c 49 42 29 0d 0a 2a 21 | 0d 0a 2a 21 ff 20 0b 55 |LIB)..*!|..*!. .U|
|00005780| 73 65 73 3a 20 28 4d 2d | 3e 54 48 45 5f 44 42 46 |ses: (M-|>THE_DBF|
|00005790| 29 2e 44 42 46 0d 0a 2a | 21 ff 20 0f 3a 20 28 4d |).DBF..*|!. .: (M|
|000057a0| 2d 3e 4e 45 57 46 49 4c | 45 29 2e 44 42 46 0d 0a |->NEWFIL|E).DBF..|
|000057b0| 2a 21 0d 0a 2a 21 ff 2a | 45 0d 0a 46 55 4e 43 54 |*!..*!.*|E..FUNCT|
|000057c0| 49 4f 4e 20 63 6f 70 79 | 69 74 6f 75 74 0d 0a 0d |ION copy|itout...|
|000057d0| 0a 2a 2d 20 67 65 74 20 | 73 65 6c 65 63 74 69 6f |.*- get |selectio|
|000057e0| 6e 0d 0a 63 68 6f 69 63 | 65 20 3d 20 6d 65 6e 75 |n..choic|e = menu|
|000057f0| 5f 76 28 22 22 2c 22 54 | 61 67 20 72 65 63 6f 72 |_v("","T|ag recor|
|00005800| 64 73 20 74 6f 20 63 6f | 70 79 22 2c 22 43 6f 70 |ds to co|py","Cop|
|00005810| 79 20 72 65 63 6f 72 64 | 73 20 6d 65 65 74 69 6e |y record|s meetin|
|00005820| 67 20 51 75 65 72 79 22 | 2c 22 43 6f 70 79 20 61 |g Query"|,"Copy a|
|00005830| 6c 6c 22 2c 22 46 6f 72 | 67 65 74 20 69 74 22 29 |ll","For|get it")|
|00005840| 0d 0a 44 4f 20 43 41 53 | 45 0d 0a 43 41 53 45 20 |..DO CAS|E..CASE |
|00005850| 6d 2d 3e 63 68 6f 69 63 | 65 20 3d 20 31 ff 20 03 |m->choic|e = 1. .|
|00005860| 26 26 20 74 61 67 0d 0a | ff 20 03 44 4f 20 57 48 |&& tag..|. .DO WH|
|00005870| 49 4c 45 20 2e 54 2e 0d | 0a ff 20 06 50 52 49 56 |ILE .T..|.. .PRIV|
|00005880| 41 54 45 20 74 61 67 5b | 31 30 30 5d 0d 0a ff 20 |ATE tag[|100]... |
|00005890| 06 74 61 67 69 74 28 6d | 2d 3e 74 61 67 29 0d 0a |.tagit(m|->tag)..|
|000058a0| ff 20 06 49 46 20 6d 65 | 73 73 79 6e 28 22 43 6f |. .IF me|ssyn("Co|
|000058b0| 70 79 20 6d 61 72 6b 65 | 64 20 72 65 63 6f 72 64 |py marke|d record|
|000058c0| 73 20 74 6f 20 61 20 44 | 42 46 20 3f 22 29 0d 0a |s to a D|BF ?")..|
|000058d0| ff 20 09 74 68 65 5f 64 | 62 66 20 3d 20 53 50 41 |. .the_d|bf = SPA|
|000058e0| 43 45 28 31 32 29 0d 0a | ff 20 09 6f 6e 65 5f 72 |CE(12)..|. .one_r|
|000058f0| 65 61 64 28 22 4e 61 6d | 65 20 6f 66 20 64 61 74 |ead("Nam|e of dat|
|00005900| 61 66 69 6c 65 20 74 6f | 20 63 6f 70 79 20 74 6f |afile to| copy to|
|00005910| 20 3a 20 22 2c 22 74 68 | 65 5f 64 62 66 22 2c 22 | : ","th|e_dbf","|
|00005920| 40 21 22 29 0d 0a ff 20 | 09 49 46 20 45 4d 50 54 |@!")... |.IF EMPT|
|00005930| 59 28 6d 2d 3e 74 68 65 | 5f 64 62 66 29 0d 0a ff |Y(m->the|_dbf)...|
|00005940| 20 0c 45 58 49 54 0d 0a | ff 20 09 45 4e 44 49 46 | .EXIT..|. .ENDIF|
|00005950| 0d 0a ff 20 09 74 68 65 | 5f 64 62 66 20 3d 20 41 |... .the|_dbf = A|
|00005960| 6c 6c 74 72 69 6d 28 6d | 2d 3e 74 68 65 5f 64 62 |lltrim(m|->the_db|
|00005970| 66 29 0d 0a ff 20 09 74 | 68 65 5f 64 62 66 20 3d |f)... .t|he_dbf =|
|00005980| 49 49 46 28 2e 4e 4f 54 | 2e 20 22 2e 44 42 46 22 |IIF(.NOT|. ".DBF"|
|00005990| 20 24 20 6d 2d 3e 74 68 | 65 5f 64 62 66 2c 20 6d | $ m->th|e_dbf, m|
|000059a0| 2d 3e 74 68 65 5f 64 62 | 66 2b 22 2e 44 42 46 22 |->the_db|f+".DBF"|
|000059b0| 2c 6d 2d 3e 74 68 65 5f | 64 62 66 29 0d 0a ff 20 |,m->the_|dbf)... |
|000059c0| 09 0d 0a ff 20 09 2a 2d | 20 69 66 20 69 74 20 61 |.... .*-| if it a|
|000059d0| 6c 72 65 61 64 79 20 65 | 78 69 73 74 73 2c 20 64 |lready e|xists, d|
|000059e0| 6f 6e 27 74 20 6f 76 65 | 72 77 72 69 74 65 20 69 |on't ove|rwrite i|
|000059f0| 74 0d 0a ff 20 09 2a 2d | 20 6c 6f 6f 70 20 61 72 |t... .*-| loop ar|
|00005a00| 6f 75 6e 64 20 61 6e 64 | 20 67 65 74 20 61 6e 6f |ound and| get ano|
|00005a10| 74 68 65 72 20 66 69 6c | 65 73 70 65 63 0d 0a ff |ther fil|espec...|
|00005a20| 20 09 49 46 20 46 49 4c | 45 28 6d 2d 3e 74 68 65 | .IF FIL|E(m->the|
|00005a30| 5f 64 62 66 29 0d 0a ff | 20 0c 49 46 20 6d 65 73 |_dbf)...| .IF mes|
|00005a40| 73 79 6e 28 22 44 61 74 | 61 62 61 73 65 20 22 2b |syn("Dat|abase "+|
|00005a50| 6d 2d 3e 74 68 65 5f 64 | 62 66 2b 22 20 61 6c 72 |m->the_d|bf+" alr|
|00005a60| 65 61 64 79 20 65 78 69 | 73 74 73 20 2d 20 22 2c |eady exi|sts - ",|
|00005a70| 22 55 73 65 20 61 6e 6f | 74 68 65 72 20 6e 61 6d |"Use ano|ther nam|
|00005a80| 65 22 2c 22 4f 76 65 72 | 77 72 69 74 65 22 29 0d |e","Over|write").|
|00005a90| 0a ff 20 0f 74 68 65 5f | 64 62 66 20 3d 20 27 27 |.. .the_|dbf = ''|
|00005aa0| 0d 0a ff 20 0f 4c 4f 4f | 50 0d 0a ff 20 0c 45 4e |... .LOO|P... .EN|
|00005ab0| 44 49 46 0d 0a ff 20 09 | 45 4e 44 49 46 0d 0a ff |DIF... .|ENDIF...|
|00005ac0| 20 09 70 6c 73 77 61 69 | 74 28 2e 54 2e 2c 22 43 | .plswai|t(.T.,"C|
|00005ad0| 6f 70 79 69 6e 67 ff 2e | 04 22 29 0d 0a ff 20 09 |opying..|.")... .|
|00005ae0| 43 4f 50 59 20 54 4f 20 | 28 6d 2d 3e 74 68 65 5f |COPY TO |(m->the_|
|00005af0| 64 62 66 29 20 46 4f 52 | 20 28 41 73 63 61 6e 28 |dbf) FOR| (Ascan(|
|00005b00| 6d 2d 3e 74 61 67 2c 52 | 45 43 4e 4f 28 29 29 3e |m->tag,R|ECNO())>|
|00005b10| 20 30 29 0d 0a ff 20 09 | 70 6c 73 77 61 69 74 28 | 0)... .|plswait(|
|00005b20| 2e 46 2e 29 0d 0a ff 20 | 06 45 4e 44 49 46 0d 0a |.F.)... |.ENDIF..|
|00005b30| ff 20 06 45 58 49 54 0d | 0a ff 20 03 45 4e 44 44 |. .EXIT.|.. .ENDD|
|00005b40| 4f 0d 0a 43 41 53 45 20 | 63 68 6f 69 63 65 20 3d |O..CASE |choice =|
|00005b50| 20 32 ff 20 09 26 26 20 | 63 6f 70 79 20 66 6f 72 | 2. .&& |copy for|
|00005b60| 20 71 75 65 72 79 0d 0a | ff 20 03 49 46 20 45 4d | query..|. .IF EM|
|00005b70| 50 54 59 28 6d 2d 3e 71 | 75 65 72 79 5f 65 78 70 |PTY(m->q|uery_exp|
|00005b80| 29 0d 0a ff 20 06 6d 73 | 67 28 22 4e 6f 20 51 75 |)... .ms|g("No Qu|
|00005b90| 65 72 79 20 73 65 74 22 | 29 0d 0a ff 20 06 52 45 |ery set"|)... .RE|
|00005ba0| 54 55 52 4e 20 27 27 0d | 0a ff 20 03 45 4e 44 49 |TURN ''.|.. .ENDI|
|00005bb0| 46 0d 0a ff 20 03 50 52 | 49 56 41 54 45 20 6e 65 |F... .PR|IVATE ne|
|00005bc0| 77 66 69 6c 65 2c 74 6e | 66 0d 0a ff 20 03 6e 65 |wfile,tn|f... .ne|
|00005bd0| 77 66 69 6c 65 20 3d 20 | 53 50 41 43 45 28 34 30 |wfile = |SPACE(40|
|00005be0| 29 0d 0a ff 20 03 6f 6e | 65 5f 72 65 61 64 28 22 |)... .on|e_read("|
|00005bf0| 4e 65 77 20 44 42 46 20 | 66 69 6c 65 20 6e 61 6d |New DBF |file nam|
|00005c00| 65 20 28 75 73 65 20 50 | 41 54 48 29 ff 20 15 22 |e (use P|ATH). ."|
|00005c10| 2c 22 6e 65 77 66 69 6c | 65 22 2c 22 40 21 22 29 |,"newfil|e","@!")|
|00005c20| 0d 0a ff 20 03 49 46 20 | 4c 41 53 54 4b 45 59 28 |... .IF |LASTKEY(|
|00005c30| 29 20 3d 20 32 37 0d 0a | ff 20 06 52 45 54 55 52 |) = 27..|. .RETUR|
|00005c40| 4e 20 27 27 0d 0a ff 20 | 03 45 4e 44 49 46 0d 0a |N ''... |.ENDIF..|
|00005c50| ff 20 03 6e 65 77 66 69 | 6c 65 20 3d 20 41 6c 6c |. .newfi|le = All|
|00005c60| 74 72 69 6d 28 6d 2d 3e | 6e 65 77 66 69 6c 65 29 |trim(m->|newfile)|
|00005c70| 0d 0a ff 20 03 49 46 20 | 21 20 41 54 28 27 2e 27 |... .IF |! AT('.'|
|00005c80| 2c 6d 2d 3e 6e 65 77 66 | 69 6c 65 29 20 3e 20 30 |,m->newf|ile) > 0|
|00005c90| 0d 0a ff 20 06 6e 65 77 | 66 69 6c 65 20 3d 20 6d |... .new|file = m|
|00005ca0| 2d 3e 6e 65 77 66 69 6c | 65 2b 27 2e 64 62 66 27 |->newfil|e+'.dbf'|
|00005cb0| 0d 0a ff 20 03 45 4e 44 | 49 46 0d 0a ff 20 03 49 |... .END|IF... .I|
|00005cc0| 46 20 46 49 4c 45 28 6d | 2d 3e 6e 65 77 66 69 6c |F FILE(m|->newfil|
|00005cd0| 65 29 0d 0a ff 20 06 49 | 46 20 21 6d 65 73 73 79 |e)... .I|F !messy|
|00005ce0| 6e 28 6d 2d 3e 6e 65 77 | 66 69 6c 65 2b 27 20 61 |n(m->new|file+' a|
|00005cf0| 6c 72 65 61 64 79 20 65 | 78 69 73 74 73 20 2d 20 |lready e|xists - |
|00005d00| 6f 76 65 72 77 72 69 74 | 65 3f 27 29 0d 0a ff 20 |overwrit|e?')... |
|00005d10| 09 52 45 54 55 52 4e 20 | 27 27 0d 0a ff 20 06 45 |.RETURN |''... .E|
|00005d20| 4e 44 49 46 0d 0a ff 20 | 03 45 4e 44 49 46 0d 0a |NDIF... |.ENDIF..|
|00005d30| ff 20 03 70 6c 73 77 61 | 69 74 28 2e 54 2e 2c 22 |. .plswa|it(.T.,"|
|00005d40| 43 6f 70 79 69 6e 67 ff | 2e 04 22 29 0d 0a ff 20 |Copying.|..")... |
|00005d50| 03 43 4f 50 e1 17 fa 59 | 20 54 4f 20 28 6d 2d 3e |.COP...Y| TO (m->|
|00005d60| 6e 65 77 66 69 6c 65 29 | 20 46 4f 52 20 26 71 75 |newfile)| FOR &qu|
|00005d70| 65 72 79 5f 65 78 70 0d | 0a fa 20 03 70 6c 73 77 |ery_exp.|.. .plsw|
|00005d80| 61 69 74 28 2e 46 2e 29 | 0d 0a fa 20 03 52 45 54 |ait(.F.)|... .RET|
|00005d90| 55 52 4e 20 27 27 0d 0a | fa 20 03 0d 0a 43 41 53 |URN ''..|. ...CAS|
|00005da0| 45 20 63 68 6f 69 63 65 | 20 3d 20 33 fa 20 09 26 |E choice| = 3. .&|
|00005db0| 26 20 63 6f 70 79 20 61 | 6c 6c 0d 0a fa 20 03 44 |& copy a|ll... .D|
|00005dc0| 4f 20 57 48 49 4c 45 20 | 2e 54 2e 0d 0a fa 20 06 |O WHILE |.T.... .|
|00005dd0| 74 68 65 5f 64 62 66 20 | 3d 20 53 50 41 43 45 28 |the_dbf |= SPACE(|
|00005de0| 31 32 29 0d 0a fa 20 06 | 6f 6e 65 5f 72 65 61 64 |12)... .|one_read|
|00005df0| 28 22 4e 61 6d 65 20 6f | 66 20 64 61 74 61 66 69 |("Name o|f datafi|
|00005e00| 6c 65 20 74 6f 20 63 6f | 70 79 20 74 6f 20 3a 20 |le to co|py to : |
|00005e10| 22 2c 22 74 68 65 5f 64 | 62 66 22 2c 22 40 21 22 |","the_d|bf","@!"|
|00005e20| 29 0d 0a fa 20 06 49 46 | 20 45 4d 50 54 59 28 6d |)... .IF| EMPTY(m|
|00005e30| 2d 3e 74 68 65 5f 64 62 | 66 29 0d 0a fa 20 09 45 |->the_db|f)... .E|
|00005e40| 58 49 54 0d 0a fa 20 06 | 45 4e 44 49 46 0d 0a fa |XIT... .|ENDIF...|
|00005e50| 20 06 74 68 65 5f 64 62 | 66 20 3d 20 41 6c 6c 74 | .the_db|f = Allt|
|00005e60| 72 69 6d 28 6d 2d 3e 74 | 68 65 5f 64 62 66 29 0d |rim(m->t|he_dbf).|
|00005e70| 0a fa 20 06 74 68 65 5f | 64 62 66 20 3d 49 49 46 |.. .the_|dbf =IIF|
|00005e80| 28 2e 4e 4f 54 2e 20 22 | 2e 44 42 46 22 20 24 20 |(.NOT. "|.DBF" $ |
|00005e90| 6d 2d 3e 74 68 65 5f 64 | 62 66 2c 20 6d 2d 3e 74 |m->the_d|bf, m->t|
|00005ea0| 68 65 5f 64 62 66 2b 22 | 2e 44 42 46 22 2c 6d 2d |he_dbf+"|.DBF",m-|
|00005eb0| 3e 74 68 65 5f 64 62 66 | 29 0d 0a fa 20 06 0d 0a |>the_dbf|)... ...|
|00005ec0| fa 20 06 2a 2d 20 69 66 | 20 69 74 20 61 6c 72 65 |. .*- if| it alre|
|00005ed0| 61 64 79 20 65 78 69 73 | 74 73 2c 20 64 6f 6e 27 |ady exis|ts, don'|
|00005ee0| 74 20 6f 76 65 72 77 72 | 69 74 65 20 69 74 0d 0a |t overwr|ite it..|
|00005ef0| fa 20 06 2a 2d 20 6c 6f | 6f 70 20 61 72 6f 75 6e |. .*- lo|op aroun|
|00005f00| 64 20 61 6e 64 20 67 65 | 74 20 61 6e 6f 74 68 65 |d and ge|t anothe|
|00005f10| 72 20 66 69 6c 65 73 70 | 65 63 0d 0a fa 20 06 49 |r filesp|ec... .I|
|00005f20| 46 20 46 49 4c 45 28 6d | 2d 3e 74 68 65 5f 64 62 |F FILE(m|->the_db|
|00005f30| 66 29 0d 0a fa 20 09 49 | 46 20 6d 65 73 73 79 6e |f)... .I|F messyn|
|00005f40| 28 22 44 61 74 61 62 61 | 73 65 20 22 2b 6d 2d 3e |("Databa|se "+m->|
|00005f50| 74 68 65 5f 64 62 66 2b | 22 20 61 6c 72 65 61 64 |the_dbf+|" alread|
|00005f60| 79 20 65 78 69 73 74 73 | 20 2d 20 22 2c 22 55 73 |y exists| - ","Us|
|00005f70| 65 20 61 6e 6f 74 68 65 | 72 20 6e 61 6d 65 22 2c |e anothe|r name",|
|00005f80| 22 4f 76 65 72 77 72 69 | 74 65 22 29 0d 0a fa 20 |"Overwri|te")... |
|00005f90| 0c 74 68 65 5f 64 62 66 | 20 3d 20 27 27 0d 0a fa |.the_dbf| = ''...|
|00005fa0| 20 0c 4c 4f 4f 50 0d 0a | fa 20 09 45 4e 44 49 46 | .LOOP..|. .ENDIF|
|00005fb0| 0d 0a fa 20 06 45 4e 44 | 49 46 0d 0a fa 20 06 70 |... .END|IF... .p|
|00005fc0| 6c 73 77 61 69 74 28 2e | 54 2e 2c 22 43 6f 70 79 |lswait(.|T.,"Copy|
|00005fd0| 69 6e 67 fa 2e 04 22 29 | 0d 0a fa 20 06 43 4f 50 |ing...")|... .COP|
|00005fe0| 59 20 54 4f 20 28 6d 2d | 3e 74 68 65 5f 64 62 66 |Y TO (m-|>the_dbf|
|00005ff0| 29 0d 0a fa 20 06 70 6c | 73 77 61 69 74 28 2e 46 |)... .pl|swait(.F|
|00006000| 2e 29 0d 0a fa 20 06 45 | 58 49 54 0d 0a fa 20 03 |.)... .E|XIT... .|
|00006010| 45 4e 44 44 4f 0d 0a fa | 20 03 0d 0a 43 41 53 45 |ENDDO...| ...CASE|
|00006020| 20 63 68 6f 69 63 65 20 | 3d 20 34 20 20 26 26 20 | choice |= 4 && |
|00006030| 71 75 69 74 0d 0a 45 4e | 44 43 41 53 45 0d 0a 52 |quit..EN|DCASE..R|
|00006040| 45 54 55 52 4e 20 27 27 | 0d 0a 0d 0a 2a 21 fa 2a |ETURN ''|....*!.*|
|00006050| 45 0d 0a 2a 21 0d 0a 2a | 21 fa 20 07 46 75 6e 63 |E..*!..*|!. .Func|
|00006060| 74 69 6f 6e 3a 20 53 46 | 5f 41 50 50 45 4e 44 28 |tion: SF|_APPEND(|
|00006070| 29 0d 0a 2a 21 0d 0a 2a | 21 fa 20 06 43 61 6c 6c |)..*!..*|!. .Call|
|00006080| 65 64 20 62 79 3a 20 53 | 46 2e 50 52 47 fa 20 18 |ed by: S|F.PRG. .|
|00006090| 0d 0a 2a 21 0d 0a 2a 21 | fa 20 0a 43 61 6c 6c 73 |..*!..*!|. .Calls|
|000060a0| 3a 20 50 4f 50 45 58 28 | 29 fa 20 08 28 66 75 6e |: POPEX(|). .(fun|
|000060b0| 63 74 69 6f 6e 20 69 6e | 20 53 55 50 45 52 2e 4c |ction in| SUPER.L|
|000060c0| 49 42 29 0d 0a 2a 21 fa | 20 0f 3a 20 4d 53 47 28 |IB)..*!.| .: MSG(|
|000060d0| 29 fa 20 0a 28 66 75 6e | 63 74 69 6f 6e 20 69 6e |). .(fun|ction in|
|000060e0| 20 53 55 50 45 52 2e 4c | 49 42 29 0d 0a 2a 21 fa | SUPER.L|IB)..*!.|
|000060f0| 20 0f 3a 20 4d 45 53 53 | 59 4e 28 29 fa 20 07 28 | .: MESS|YN(). .(|
|00006100| 66 75 6e 63 74 69 6f 6e | 20 69 6e 20 53 55 50 45 |function| in SUPE|
|00006110| 52 2e 4c 49 42 29 0d 0a | 2a 21 0d 0a 2a 21 fa 20 |R.LIB)..|*!..*!. |
|00006120| 0b 55 73 65 73 3a 20 28 | 4d 2d 3e 54 54 44 42 46 |.Uses: (|M->TTDBF|
|00006130| 29 2e 44 42 46 20 0d 0a | 2a 21 fa 20 0f 3a 20 26 |).DBF ..|*!. .: &|
|00006140| 54 54 44 42 46 fa 20 09 | 0d 0a 2a 21 0d 0a 2a 21 |TTDBF. .|..*!..*!|
|00006150| fa 2a 45 0d 0a 46 55 4e | 43 54 49 4f 4e 20 73 66 |.*E..FUN|CTION sf|
|00006160| 5f 61 70 70 65 6e 64 0d | 0a 50 52 49 56 41 54 45 |_append.|.PRIVATE|
|00006170| 20 74 74 64 62 66 2c 70 | 72 65 73 65 6c 0d 0a 74 | ttdbf,p|resel..t|
|00006180| 74 64 62 66 20 20 3d 70 | 6f 70 65 78 28 27 2a 2e |tdbf =p|opex('*.|
|00006190| 64 62 66 27 29 0d 0a 0d | 0a 2a 2d 20 73 61 76 65 |dbf')...|.*- save|
|000061a0| 20 71 75 65 72 79 20 66 | 6f 72 20 74 68 69 73 20 | query f|or this |
|000061b0| 61 72 65 61 0d 0a 70 72 | 65 71 75 20 3d 20 6d 2d |area..pr|equ = m-|
|000061c0| 3e 71 75 65 72 79 5f 65 | 78 70 0d 0a 49 46 20 21 |>query_e|xp..IF !|
|000061d0| 45 4d 50 54 59 28 6d 2d | 3e 74 74 64 62 66 29 20 |EMPTY(m-|>ttdbf) |
|000061e0| 2e 41 4e 44 2e 20 21 28 | 6d 2d 3e 74 74 64 62 66 |.AND. !(|m->ttdbf|
|000061f0| 3d 6d 2d 3e 64 62 66 6e | 61 6d 65 29 0d 0a fa 20 |=m->dbfn|ame)... |
|00006200| 03 70 72 65 73 65 6c 20 | 3d 20 53 45 4c 45 28 29 |.presel |= SELE()|
|00006210| 0d 0a fa 20 03 53 45 4c | 45 20 30 0d 0a fa 20 03 |... .SEL|E 0... .|
|00006220| 55 53 45 20 28 6d 2d 3e | 74 74 64 62 66 29 0d 0a |USE (m->|ttdbf)..|
|00006230| fa 20 03 49 46 20 45 4d | 50 54 59 28 41 4c 49 41 |. .IF EM|PTY(ALIA|
|00006240| 53 28 29 29 0d 0a fa 20 | 06 6d 73 67 28 22 55 4e |S())... |.msg("UN|
|00006250| 41 42 4c 45 20 54 4f 20 | 4f 50 45 4e 20 44 41 54 |ABLE TO |OPEN DAT|
|00006260| 41 42 41 53 45 20 20 2d | 20 50 4f 53 53 49 42 4c |ABASE -| POSSIBL|
|00006270| 59 20 43 4f 52 52 55 50 | 54 20 4f 52 20 2e 44 42 |Y CORRUP|T OR .DB|
|00006280| 54 20 46 49 4c 45 20 4d | 49 53 53 49 4e 47 20 20 |T FILE M|ISSING |
|00006290| 22 29 0d 0a fa 20 06 53 | 45 4c 45 20 28 6d 2d 3e |")... .S|ELE (m->|
|000062a0| 70 72 65 73 65 6c 29 0d | 0a fa 20 06 52 45 54 55 |presel).|.. .RETU|
|000062b0| 52 4e 20 27 27 0d 0a fa | 20 03 45 4e 44 49 46 0d |RN ''...| .ENDIF.|
|000062c0| 0a fa 20 03 61 70 70 71 | 20 3d 20 27 2e 74 2e 27 |.. .appq| = '.t.'|
|000062d0| 0d 0a fa 20 03 49 46 20 | 6d 65 73 73 79 6e 28 22 |... .IF |messyn("|
|000062e0| 41 70 70 65 6e 64 20 2d | 22 2c 22 66 6f 72 20 51 |Append -|","for Q|
|000062f0| 75 65 72 79 20 43 6f 6e | 64 69 74 69 6f 6e 22 2c |uery Con|dition",|
|00006300| 22 41 6c 6c 20 72 65 63 | 6f 72 64 73 22 29 0d 0a |"All rec|ords")..|
|00006310| fa 20 06 2a 2d 20 62 75 | 69 6c 64 20 71 75 65 72 |. .*- bu|ild quer|
|00006320| 79 20 66 6f 72 20 6f 74 | 68 65 72 20 61 72 65 61 |y for ot|her area|
|00006330| 0d 0a fa 20 06 61 70 70 | 71 20 3d 20 51 55 45 52 |... .app|q = QUER|
|00006340| 59 28 29 0d 0a fa 20 06 | 61 70 70 71 20 3d 20 49 |Y()... .|appq = I|
|00006350| 49 46 28 45 4d 50 54 59 | 28 6d 2d 3e 61 70 70 71 |IF(EMPTY|(m->appq|
|00006360| 29 2c 27 2e 74 2e 27 2c | 6d 2d 3e 61 70 70 71 29 |),'.t.',|m->appq)|
|00006370| 0d 0a fa 20 06 71 75 65 | 72 79 5f 65 78 70 20 3d |... .que|ry_exp =|
|00006380| 20 6d 2d 3e 70 72 65 71 | 75 0d 0a fa 20 06 0d 0a | m->preq|u... ...|
|00006390| fa 20 03 45 4e 44 49 46 | 0d 0a fa 20 03 55 53 45 |. .ENDIF|... .USE|
|000063a0| 0d 0a fa 20 03 53 45 4c | 45 20 28 6d 2d 3e 70 72 |... .SEL|E (m->pr|
|000063b0| 65 73 65 6c 29 0d 0a fa | 20 03 49 46 20 6d 65 73 |esel)...| .IF mes|
|000063c0| 73 79 6e 28 22 47 6f 20 | 61 68 65 61 64 20 77 69 |syn("Go |ahead wi|
|000063d0| 74 68 20 41 50 50 45 4e | 44 20 46 52 4f 4d 20 22 |th APPEN|D FROM "|
|000063e0| 2b 6d 2d 3e 74 74 64 62 | 66 2b 22 20 69 6e 74 6f |+m->ttdb|f+" into|
|000063f0| 20 22 2b 64 62 66 6e 61 | 6d 65 2b 22 20 3f 22 29 | "+dbfna|me+" ?")|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
