home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-03-10 | 15.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| AMOS Picture Packer (image/amosPicturePacker)
| ext
| Supported |
| 1%
| dexvert
| Debian floppy split (archive/debianFloppySplit)
| ext
| Unsupported |
| 1%
| dexvert
| Sound Images sound sample (audio/soundImagesSoundSample)
| ext
| Unsupported |
| 1%
| dexvert
| STarKos tune (music/sTarKosTune)
| ext
| Unsupported |
| 1%
| dexvert
| CADVANCE drawing (image/cadvanceDrawing)
| ext
| Unsupported |
| 1%
| dexvert
| DESI-III drawing (image/desiIIIDrawing)
| ext
| Unsupported |
| 1%
| dexvert
| MS-DOS PMODE extender executable (executable/msdosPMODEExtenderExecutable)
| ext
| Unsupported |
| 1%
| dexvert
| Alien Trilogytextures (other/alienTrilogyTextures)
| ext
| Unsupported |
| 1%
| dexvert
| APT cache data (other/aptCacheData)
| ext
| Unsupported |
| 1%
| dexvert
| CADVANCE 2D symbol (other/cadvance2DSymbol)
| ext
| Unsupported |
| 1%
| dexvert
| Cakewalk Groove (other/cakewalkGroove)
| ext
| Unsupported |
| 1%
| dexvert
| Comic Book Creator Background (other/comicBookCreatorBackground)
| ext
| Unsupported |
| 1%
| dexvert
| Comic Book Creator shape Table (other/comicBookCreatorShapeTable)
| ext
| Unsupported |
| 1%
| dexvert
| CorelTRACE configuration (other/corelTRACEConfiguration)
| ext
| Unsupported |
| 1%
| dexvert
| Dreamcast Disc (other/dreamcastDisc)
| ext
| Unsupported |
| 1%
| dexvert
| EST flat binary (other/estFlatBinary)
| ext
| Unsupported |
| 1%
| dexvert
| Finale Enigma Binary Format (other/finaleEnigmaBinaryFormat)
| ext
| Unsupported |
| 1%
| dexvert
| Sega Genesis/Megadrive/32x ROM (other/genesisROM)
| ext
| Unsupported |
| 1%
| dexvert
| Myth: The Fallen Lords game archive (other/mythTheFallenLordsGameArchive)
| ext
| Unsupported |
| 1%
| dexvert
| Sega Saturn ROM (other/segaSaturnROM)
| ext
| Unsupported |
| 1%
| dexvert
| Sound Images Sound Driver (other/soundImagesSoundDriver)
| ext
| Unsupported |
| 1%
| dexvert
| Symantec/Norton Config (other/symantecNortonConfig)
| ext
| Unsupported |
| 1%
| dexvert
| Vectrex ROM (other/vectrexROM)
| ext
| Unsupported |
| 1%
| dexvert
| Adrenaline Rush Hour game data (other/adrenalineRushHourGameData)
| ext
| Unsupported |
| 1%
| dexvert
| Bandai Tamagochi game data (other/bandaiTamagochiGameData)
| ext
| Unsupported |
| 1%
| dexvert
| BIS raP encoded format (other/bisraPEncoded)
| ext
| Unsupported |
| 1%
| dexvert
| Linksys RT31P2-NA firmware (other/linksysRT31P2NAFirmware)
| ext
| Unsupported |
| 1%
| dexvert
| Pascal Script binary (other/pascalScriptBinary)
| ext
| Unsupported |
| 1%
| dexvert
| 7th Level game data archive (other/seventhLevelGameDataArchive)
| ext
| Unsupported |
| 1%
| dexvert
| Star Wars Galaxies TRE archive (other/starWarsGalaxiesTREArchive)
| ext
| Unsupported |
| 1%
| dexvert
| Statistica MFM data (other/statisticaMFMData)
| ext
| Unsupported |
| 1%
| dexvert
| Surf's Up game data archive (other/surfsUpGameDataArchive)
| ext
| Unsupported |
| 1%
| dexvert
| TP-Link router firmware (other/tpLinkRouterFirmware)
| ext
| Unsupported |
| 1%
| dexvert
| Binary Text (image/binaryText)
| fallback
| Supported |
| 100%
| file
| Adobe Photoshop Color swatch, version 0, 490 colors; 1st RGB space (0), w 0x21, x 0, y 0, z 0 ; 2nd RGB space (0), w 0, x 0, y 0, z 0
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| MacBinary 1
| default (weak)
| |
| 100%
| siegfried
| x-fmt/342 Microsoft FoxPro Memo
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 01 ea 00 00 00 21 | 00 00 00 00 00 00 00 00 |.......!|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 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 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 01 00 00 00 e8 | 53 45 54 20 53 59 53 4d |........|SET SYSM|
|00000220| 45 4e 55 20 41 55 54 4f | 4d 41 54 49 43 0d 0a 45 |ENU AUTO|MATIC..E|
|00000230| 58 54 45 52 4e 41 4c 20 | 50 52 4f 43 45 44 55 52 |XTERNAL |PROCEDUR|
|00000240| 45 20 73 68 6f 77 70 6f | 70 2c 20 6a 75 73 74 73 |E showpo|p, justs|
|00000250| 74 65 6d 2c 20 6a 75 73 | 74 66 6e 61 6d 65 2c 20 |tem, jus|tfname, |
|00000260| 6a 75 73 74 70 61 74 68 | 2c 20 61 64 64 62 73 2c |justpath|, addbs,|
|00000270| 20 3b 0d 0a 20 20 20 66 | 6f 72 63 65 65 78 74 2c | ;.. f|orceext,|
|00000280| 20 64 65 66 61 75 6c 74 | 65 78 74 2c 20 6a 75 73 | default|ext, jus|
|00000290| 74 65 78 74 0d 0a 0d 0a | 49 46 20 54 59 50 45 28 |text....|IF TYPE(|
|000002a0| 22 53 4b 49 50 56 41 52 | 22 29 20 3c 3e 20 22 55 |"SKIPVAR|") <> "U|
|000002b0| 22 0d 0a 20 20 20 52 45 | 4c 45 41 53 45 20 6d 2e |".. RE|LEASE m.|
|000002c0| 73 6b 69 70 76 61 72 0d | 0a 45 4e 44 49 46 0d 0a |skipvar.|.ENDIF..|
|000002d0| 50 55 42 4c 49 43 20 6d | 2e 73 6b 69 70 76 61 72 |PUBLIC m|.skipvar|
|000002e0| 0d 0a 6d 2e 73 6b 69 70 | 76 61 72 20 3d 20 2e 46 |..m.skip|var = .F|
|000002f0| 2e 0d 0a 43 4c 45 41 52 | 20 4d 41 43 52 4f 0d 0a |...CLEAR| MACRO..|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 09 |........|........|
|00000320| 5f 4d 53 59 53 4d 45 4e | 55 00 00 00 00 00 00 00 |_MSYSMEN|U.......|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000340| 06 5c 3c 46 69 6c 65 00 | 00 00 00 00 00 00 00 00 |.\<File.|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000360| 00 04 46 69 6c 65 00 00 | 00 00 00 00 00 00 00 00 |..File..|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000380| 00 00 0d 5c 3c 50 72 69 | 6e 74 20 53 65 74 75 70 |...\<Pri|nt Setup|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000003a0| 00 00 00 0a 5f 4d 46 49 | 5f 53 45 54 55 50 00 00 |...._MFI|_SETUP..|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 01 00 00 00 02 5c 2d 00 | 00 00 00 00 00 00 00 00 |.....\-.|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 01 00 00 00 0a 5f 71 | 39 6f 30 6b 6b 70 76 6d |......_q|9o0kkpvm|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 01 00 00 00 06 5c | 3c 51 75 69 74 00 00 00 |.......\|<Quit...|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 01 00 00 00 92 | 2a 20 53 65 6c 65 63 74 |........|* Select|
|00000430| 20 74 68 65 20 6d 61 69 | 6e 20 64 61 74 61 62 61 | the mai|n databa|
|00000440| 73 65 0d 0a 64 62 66 73 | 74 65 6d 20 3d 20 6d 61 |se..dbfs|tem = ma|
|00000450| 6b 65 61 6c 69 61 73 28 | 6a 75 73 74 73 74 65 6d |kealias(|juststem|
|00000460| 28 6d 2e 64 62 66 6e 61 | 6d 65 29 29 0d 0a 53 45 |(m.dbfna|me))..SE|
|00000470| 4c 45 43 54 20 28 64 62 | 66 73 74 65 6d 29 0d 0a |LECT (db|fstem)..|
|00000480| 3d 61 63 74 77 69 6e 28 | 77 6f 75 74 70 75 74 28 |=actwin(|woutput(|
|00000490| 29 29 0d 0a 0d 0a 62 61 | 69 6c 6f 75 74 20 3d 20 |))....ba|ilout = |
|000004a0| 2e 54 2e 0d 0a 43 4c 45 | 41 52 20 52 45 41 44 0d |.T...CLE|AR READ.|
|000004b0| 0a 0d 0a 0d 0a 20 20 20 | 0d 0a 00 00 00 00 00 00 |..... |........|
|000004c0| 00 00 00 00 00 00 00 00 | 01 00 00 00 06 5c 3c 45 |........|.....\<E|
|000004d0| 64 69 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |dit.....|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 05 41 4c |........|......AL|
|000004f0| 54 2b 45 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |T+E.....|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 04 45 |........|.......E|
|00000510| 64 69 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |dit.....|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 05 |........|........|
|00000530| 43 75 5c 3c 74 00 00 00 | 00 00 00 00 00 00 00 00 |Cu\<t...|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000550| 06 43 54 52 4c 2b 58 00 | 00 00 00 00 00 00 00 00 |.CTRL+X.|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000570| 00 06 43 74 72 6c 2b 58 | 00 00 00 00 00 00 00 00 |..Ctrl+X|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000590| 00 00 08 5f 4d 45 44 5f | 43 55 54 00 00 00 00 00 |..._MED_|CUT.....|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000005b0| 00 00 00 06 5c 3c 43 6f | 70 79 00 00 00 00 00 00 |....\<Co|py......|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 01 00 00 00 06 43 54 52 | 4c 2b 43 00 00 00 00 00 |.....CTR|L+C.....|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 01 00 00 00 06 43 74 | 72 6c 2b 43 30 20 20 20 |......Ct|rl+C0 |
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 01 00 00 00 09 5f | 4d 45 44 5f 43 4f 50 59 |......._|MED_COPY|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 01 00 00 00 07 | 5c 3c 50 61 73 74 65 00 |........|\<Paste.|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 01 00 00 00 | 06 43 54 52 4c 2b 56 00 |........|.CTRL+V.|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 01 00 00 | 00 06 43 74 72 6c 2b 56 |........|..Ctrl+V|
|00000680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 01 00 | 00 00 0a 5f 4d 45 44 5f |........|..._MED_|
|000006a0| 50 41 53 54 45 00 00 00 | 00 00 00 00 00 00 00 00 |PASTE...|........|
|000006b0| 00 00 00 00 00 00 00 01 | 00 00 00 12 50 61 73 74 |........|....Past|
|000006c0| 65 20 5c 3c 53 70 65 63 | 69 61 6c 2e 2e 2e 00 00 |e \<Spec|ial.....|
|000006d0| 00 00 00 00 00 00 00 00 | 01 00 00 00 0a 5f 4d 45 |........|....._ME|
|000006e0| 44 5f 50 53 54 4c 4b 00 | 00 00 00 00 00 00 00 00 |D_PSTLK.|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 05 43 6c |........|......Cl|
|00000700| 65 61 72 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ear.....|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0a 5f |........|......._|
|00000720| 4d 45 44 5f 43 4c 45 41 | 52 00 00 00 00 00 00 00 |MED_CLEA|R.......|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 02 |........|........|
|00000740| 5c 2d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |\-......|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000760| 0a 5f 4d 45 44 5f 53 50 | 32 30 30 00 00 00 00 00 |._MED_SP|200.....|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000780| 00 12 5c 3c 49 6e 73 65 | 72 74 20 4f 62 6a 65 63 |..\<Inse|rt Objec|
|00000790| 74 2e 2e 2e 00 00 00 00 | 00 00 00 00 00 00 01 00 |t.......|........|
|000007a0| 00 00 0a 5f 4d 45 44 5f | 49 4e 53 4f 42 00 00 00 |..._MED_|INSOB...|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000007c0| 00 00 00 0b 5c 3c 4f 62 | 6a 65 63 74 2e 2e 2e 00 |....\<Ob|ject....|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 01 00 00 00 08 5f 4d 45 | 44 5f 4f 42 4a 00 00 00 |....._ME|D_OBJ...|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 01 00 00 00 0d 43 68 | 61 6e 67 65 20 4c 69 6e |......Ch|ange Lin|
|00000810| 5c 3c 6b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |\<k.....|........|
|00000820| 00 00 01 00 00 00 09 5f | 4d 45 44 5f 4c 49 4e 4b |......._|MED_LINK|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 01 00 00 00 13 | 43 6f 6e 5c 3c 76 65 72 |........|Con\<ver|
|00000850| 74 20 54 6f 20 53 74 61 | 74 69 63 00 00 00 00 00 |t To Sta|tic.....|
|00000860| 00 00 00 00 01 00 00 00 | 0a 5f 4d 45 44 5f 43 56 |........|._MED_CV|
|00000870| 54 53 54 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |TST.....|........|
|00000880| 00 00 00 00 00 01 00 00 | 00 02 5c 2d 00 00 00 00 |........|..\-....|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 01 00 | 00 00 0a 5f 6d 65 64 5f |........|..._med_|
|000008b0| 73 70 33 30 30 00 00 00 | 00 00 00 00 00 00 00 00 |sp300...|........|
|000008c0| 00 00 00 00 00 00 00 01 | 00 00 00 0c 53 65 6c 65 |........|....Sele|
|000008d0| 63 74 20 5c 3c 41 6c 6c | 00 00 00 00 00 00 00 00 |ct \<All|........|
|000008e0| 00 00 00 00 00 00 00 00 | 01 00 00 00 06 43 54 52 |........|.....CTR|
|000008f0| 4c 2b 41 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |L+A.....|........|
|00000900| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 06 43 74 |........|......Ct|
|00000910| 72 6c 2b 41 00 00 00 00 | 00 00 00 00 00 00 00 00 |rl+A....|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0a 5f |........|......._|
|00000930| 4d 45 44 5f 53 4c 43 54 | 41 00 00 00 00 00 00 00 |MED_SLCT|A.......|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 02 |........|........|
|00000950| 5c 2d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |\-......|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000970| 0a 5f 4d 45 44 5f 53 50 | 33 30 30 00 00 00 00 00 |._MED_SP|300.....|
|00000980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000990| 00 10 5c 3c 50 72 65 66 | 65 72 65 6e 63 65 73 2e |..\<Pref|erences.|
|000009a0| 2e 2e 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000009b0| 00 00 09 5f 4d 45 44 5f | 50 52 45 46 00 00 00 00 |..._MED_|PREF....|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000009d0| 00 00 00 0d 5c 3c 41 70 | 70 6c 69 63 61 74 69 6f |....\<Ap|plicatio|
|000009e0| 6e 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |n.......|........|
|000009f0| 01 00 00 00 05 41 4c 54 | 2b 41 00 00 00 00 00 00 |.....ALT|+A......|
|00000a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a10| 00 01 00 00 00 01 20 00 | 00 00 00 00 00 00 00 00 |...... .|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 01 00 00 00 0a 41 | 70 70 6c 69 63 61 74 69 |.......A|pplicati|
|00000a40| 6f 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |o.......|........|
|00000a50| 00 00 00 01 00 00 00 05 | 5c 3c 54 6f 70 00 00 00 |........|\<Top...|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 01 00 00 00 | 02 46 32 00 00 00 00 00 |........|.F2.....|
|00000a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a90| 00 00 00 00 00 01 00 00 | 00 02 46 32 00 00 00 00 |........|..F2....|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 01 00 | 00 00 10 73 6b 69 70 76 |........|...skipv|
|00000ac0| 61 72 20 6f 72 20 62 6f | 66 28 29 00 00 00 00 00 |ar or bo|f().....|
|00000ad0| 00 00 00 00 00 00 00 01 | 00 00 00 a2 47 4f 54 4f |........|....GOTO|
|00000ae0| 20 54 4f 50 0d 0a 49 46 | 20 21 6d 2e 77 69 7a 5f | TOP..IF| !m.wiz_|
|00000af0| 73 63 72 65 65 6e 0d 0a | 20 20 20 41 43 54 49 56 |screen..| ACTIV|
|00000b00| 41 54 45 20 57 49 4e 44 | 4f 57 20 61 70 70 63 74 |ATE WIND|OW appct|
|00000b10| 72 6c 0d 0a 45 4e 44 49 | 46 0d 0a 49 46 20 6d 2e |rl..ENDI|F..IF m.|
|00000b20| 77 69 7a 5f 73 63 72 65 | 65 6e 0d 0a 20 20 20 53 |wiz_scre|en.. S|
|00000b30| 43 41 54 54 45 52 20 4d | 45 4d 56 41 52 20 4d 45 |CATTER M|EMVAR ME|
|00000b40| 4d 4f 0d 0a 45 4e 44 49 | 46 20 20 20 20 20 20 0d |MO..ENDI|F .|
|00000b50| 0a 57 41 49 54 20 57 49 | 4e 44 4f 57 20 22 54 6f |.WAIT WI|NDOW "To|
|00000b60| 70 20 6f 66 20 66 69 6c | 65 22 20 4e 4f 57 41 49 |p of fil|e" NOWAI|
|00000b70| 54 0d 0a 53 48 4f 57 20 | 47 45 54 53 0d 0a 00 00 |T..SHOW |GETS....|
|00000b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000ba0| 00 0a 5c 3c 50 72 65 76 | 69 6f 75 73 00 00 00 00 |..\<Prev|ious....|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000bc0| 00 00 02 46 35 00 00 00 | 00 00 00 00 00 00 00 00 |...F5...|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00000be0| 00 00 00 02 46 35 00 00 | 00 00 00 00 00 00 00 00 |....F5..|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 01 00 00 00 10 73 6b 69 | 70 76 61 72 20 6f 72 20 |.....ski|pvar or |
|00000c10| 62 6f 66 28 29 00 00 00 | 00 00 00 00 00 00 00 00 |bof()...|........|
|00000c20| 00 01 00 00 00 8d 53 4b | 49 50 20 2d 31 0d 0a 49 |......SK|IP -1..I|
|00000c30| 46 20 42 4f 46 28 29 0d | 0a 20 20 20 57 41 49 54 |F BOF().|. WAIT|
|00000c40| 20 57 49 4e 44 4f 57 20 | 22 54 6f 70 20 6f 66 20 | WINDOW |"Top of |
|00000c50| 66 69 6c 65 22 20 4e 4f | 57 41 49 54 0d 0a 20 20 |file" NO|WAIT.. |
|00000c60| 20 47 4f 54 4f 20 54 4f | 50 0d 0a 45 4e 44 49 46 | GOTO TO|P..ENDIF|
|00000c70| 0d 0a 49 46 20 6d 2e 77 | 69 7a 5f 73 63 72 65 65 |..IF m.w|iz_scree|
|00000c80| 6e 0d 0a 20 20 20 53 43 | 41 54 54 45 52 20 4d 45 |n.. SC|ATTER ME|
|00000c90| 4d 56 41 52 20 4d 45 4d | 4f 0d 0a 45 4e 44 49 46 |MVAR MEM|O..ENDIF|
|00000ca0| 20 20 20 20 20 20 0d 0a | 53 48 4f 57 20 47 45 54 | ..|SHOW GET|
|00000cb0| 53 0d 0a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |S.......|........|
|00000cc0| 00 00 00 00 00 00 01 00 | 00 00 06 5c 3c 4e 65 78 |........|...\<Nex|
|00000cd0| 74 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |t.......|........|
|00000ce0| 00 00 00 00 00 00 00 01 | 00 00 00 02 46 34 00 00 |........|....F4..|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 00 00 00 00 00 00 | 01 00 00 00 02 46 34 00 |........|.....F4.|
|00000d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d20| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 10 73 6b |........|......sk|
|00000d30| 69 70 76 61 72 20 6f 72 | 20 65 6f 66 28 29 00 00 |ipvar or| eof()..|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 8d 53 |........|.......S|
|00000d50| 4b 49 50 0d 0a 49 46 20 | 45 4f 46 28 29 0d 0a 20 |KIP..IF |EOF().. |
|00000d60| 20 20 57 41 49 54 20 57 | 49 4e 44 4f 57 20 22 45 | WAIT W|INDOW "E|
|00000d70| 6e 64 20 6f 66 20 66 69 | 6c 65 22 20 4e 4f 57 41 |nd of fi|le" NOWA|
|00000d80| 49 54 0d 0a 20 20 20 47 | 4f 54 4f 20 42 4f 54 54 |IT.. G|OTO BOTT|
|00000d90| 4f 4d 0d 0a 45 4e 44 49 | 46 0d 0a 49 46 20 6d 2e |OM..ENDI|F..IF m.|
|00000da0| 77 69 7a 5f 73 63 72 65 | 65 6e 0d 0a 20 20 20 53 |wiz_scre|en.. S|
|00000db0| 43 41 54 54 45 52 20 4d | 45 4d 56 41 52 20 4d 45 |CATTER M|EMVAR ME|
|00000dc0| 4d 4f 0d 0a 45 4e 44 49 | 46 20 20 20 20 20 20 0d |MO..ENDI|F .|
|00000dd0| 0a 53 48 4f 57 20 47 45 | 54 53 0d 0a 00 00 00 00 |.SHOW GE|TS......|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00000df0| 00 00 00 05 5c 3c 45 6e | 64 ba 0d 0a 2a 20 20 20 |....\<En|d...* |
|00000e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e10| 01 00 00 00 02 46 33 00 | 00 00 00 00 00 00 00 00 |.....F3.|........|
|00000e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e30| 00 01 00 00 00 02 46 33 | 00 00 00 00 00 00 00 00 |......F3|........|
|00000e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e50| 00 00 01 00 00 00 10 73 | 6b 69 70 76 61 72 20 6f |.......s|kipvar o|
|00000e60| 72 20 65 6f 66 28 29 00 | 00 00 00 00 00 00 00 00 |r eof().|........|
|00000e70| 00 00 00 01 00 00 00 70 | 47 4f 54 4f 20 42 4f 54 |.......p|GOTO BOT|
|00000e80| 54 4f 4d 0d 0a 49 46 20 | 6d 2e 77 69 7a 5f 73 63 |TOM..IF |m.wiz_sc|
|00000e90| 72 65 65 6e 0d 0a 20 20 | 20 53 43 41 54 54 45 52 |reen.. | SCATTER|
|00000ea0| 20 4d 45 4d 56 41 52 20 | 4d 45 4d 4f 0d 0a 45 4e | MEMVAR |MEMO..EN|
|00000eb0| 44 49 46 20 20 20 20 20 | 20 0d 0a 57 41 49 54 20 |DIF | ..WAIT |
|00000ec0| 57 49 4e 44 4f 57 20 22 | 45 6e 64 20 6f 66 20 66 |WINDOW "|End of f|
|00000ed0| 69 6c 65 22 20 4e 4f 57 | 41 49 54 0d 0a 53 48 4f |ile" NOW|AIT..SHO|
|00000ee0| 57 20 47 45 54 53 0d 0a | 00 00 00 00 00 00 00 00 |W GETS..|........|
|00000ef0| 00 00 00 00 00 00 00 01 | 00 00 00 07 43 5c 3c 79 |........|....C\<y|
|00000f00| 63 6c 65 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |cle.....|........|
|00000f10| 00 00 00 00 00 00 00 00 | 01 00 00 00 07 43 54 52 |........|.....CTR|
|00000f20| 4c 2b 46 31 00 00 00 00 | 00 00 00 00 00 00 00 00 |L+F1....|........|
|00000f30| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 07 43 74 |........|......Ct|
|00000f40| 72 6c 2b 46 31 00 00 00 | 00 00 00 00 00 00 00 00 |rl+F1...|........|
|00000f50| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0a 5f |........|......._|
|00000f60| 4d 57 49 5f 52 4f 54 41 | 54 00 00 00 00 00 00 00 |MWI_ROTA|T.......|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 02 |........|........|
|00000f80| 5c 2d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |\-......|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000fa0| 0c 5c 3c 41 64 64 20 52 | 65 63 6f 72 64 00 00 00 |.\<Add R|ecord...|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000fc0| 00 06 43 54 52 4c 2b 4e | 00 00 00 00 00 00 00 00 |..CTRL+N|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000fe0| 00 00 06 43 74 72 6c 2b | 4e 00 00 00 00 00 00 00 |...Ctrl+|N.......|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001000| 00 00 00 07 73 6b 69 70 | 76 61 72 00 00 00 00 00 |....skip|var.....|
|00001010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001020| 01 00 00 0b 60 23 44 45 | 46 49 4e 45 20 43 5f 4e |....`#DE|FINE C_N|
|00001030| 4f 50 41 52 45 4e 54 09 | 09 22 59 6f 75 20 63 61 |OPARENT.|."You ca|
|00001040| 6e 6e 6f 74 20 61 64 64 | 20 61 20 63 68 69 6c 64 |nnot add| a child|
|00001050| 20 72 65 63 6f 72 64 20 | 69 66 20 74 68 65 72 65 | record |if there|
|00001060| 20 69 73 20 6e 6f 20 70 | 61 72 65 6e 74 2e 22 0d | is no p|arent.".|
|00001070| 0a 0d 0a 49 46 20 6d 2e | 77 69 7a 5f 73 63 72 65 |...IF m.|wiz_scre|
|00001080| 65 6e 0d 0a 20 20 64 6f | 20 28 22 62 74 6e 5f 76 |en.. do| ("btn_v|
|00001090| 61 6c 22 29 20 57 49 54 | 48 20 22 41 44 44 22 0d |al") WIT|H "ADD".|
|000010a0| 0a 45 4c 53 45 0d 0a 20 | 20 2a 20 41 64 64 20 61 |.ELSE.. | * Add a|
|000010b0| 20 72 65 63 6f 72 64 20 | 74 6f 20 74 68 65 20 63 | record |to the c|
|000010c0| 75 72 72 65 6e 74 20 64 | 61 74 61 62 61 73 65 2e |urrent d|atabase.|
|000010d0| 20 43 61 6c 6c 65 64 20 | 66 72 6f 6d 20 22 41 64 | Called |from "Ad|
|000010e0| 64 20 52 65 63 6f 72 64 | 22 20 6d 65 6e 75 20 6f |d Record|" menu o|
|000010f0| 70 74 69 6f 6e 2c 20 69 | 66 0d 0a 20 20 2a 20 74 |ption, i|f.. * t|
|00001100| 68 69 73 20 69 73 20 6e | 6f 74 20 61 20 77 69 7a |his is n|ot a wiz|
|00001110| 61 72 64 20 73 63 72 65 | 65 6e 2e 0d 0a 20 20 2a |ard scre|en... *|
|00001120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00001170| 0a 0d 0a 20 20 45 58 54 | 45 52 4e 41 4c 20 41 52 |... EXT|ERNAL AR|
|00001180| 52 41 59 20 64 62 66 6c | 69 73 74 0d 0a 0d 0a 20 |RAY dbfl|ist.... |
|00001190| 20 50 52 49 56 41 54 45 | 20 61 6c 6c 62 6c 61 6e | PRIVATE| allblan|
|000011a0| 6b 2c 20 69 2c 20 66 6c | 64 6e 61 6d 65 2c 20 73 |k, i, fl|dname, s|
|000011b0| 6e 61 6d 65 2c 20 63 5f | 72 65 63 0d 0a 0d 0a 20 |name, c_|rec.... |
|000011c0| 20 49 46 20 28 6d 2e 6e | 65 78 74 64 62 66 20 3c | IF (m.n|extdbf <|
|000011d0| 3d 20 32 29 20 4f 52 20 | 28 41 4c 49 41 53 28 29 |= 2) OR |(ALIAS()|
|000011e0| 20 3d 20 64 62 66 6c 69 | 73 74 5b 31 2c 6d 2e 63 | = dbfli|st[1,m.c|
|000011f0| 73 74 65 6d 6e 75 6d 5d | 29 0d 0a 20 20 20 20 20 |stemnum]|).. |
|00001200| 2a 20 41 70 70 65 6e 64 | 69 6e 67 20 69 6e 74 6f |* Append|ing into|
|00001210| 20 6d 61 69 6e 20 64 61 | 74 61 62 61 73 65 0d 0a | main da|tabase..|
|00001220| 20 20 0d 0a 20 20 20 20 | 20 2a 20 41 6c 77 61 79 | .. | * Alway|
|00001230| 73 20 61 6c 6c 6f 77 20 | 74 68 69 73 20 69 66 20 |s allow |this if |
|00001240| 74 68 65 72 65 20 61 72 | 65 20 6e 6f 20 72 65 63 |there ar|e no rec|
|00001250| 6f 72 64 73 3b 20 6f 74 | 68 65 72 77 69 73 65 20 |ords; ot|herwise |
|00001260| 63 68 65 63 6b 20 66 6f | 72 20 65 78 69 73 74 69 |check fo|r existi|
|00001270| 6e 67 0d 0a 20 20 20 20 | 20 2a 20 62 6c 61 6e 6b |ng.. | * blank|
|00001280| 20 72 65 63 6f 72 64 73 | 2e 0d 0a 20 20 20 20 20 | records|... |
|00001290| 61 6c 6c 62 6c 61 6e 6b | 20 3d 20 2e 46 2e 0d 0a |allblank| = .F...|
|000012a0| 20 20 20 20 20 49 46 20 | 52 45 43 43 4f 55 4e 54 | IF |RECCOUNT|
|000012b0| 28 29 20 3e 20 30 0d 0a | 20 20 20 20 20 20 20 20 |() > 0..| |
|000012c0| 73 6e 61 6d 65 20 3d 20 | 6d 61 6b 65 61 6c 69 61 |sname = |makealia|
|000012d0| 73 28 6a 75 73 74 73 74 | 65 6d 28 6d 2e 64 62 66 |s(justst|em(m.dbf|
|000012e0| 6e 61 6d 65 29 29 0d 0a | 20 20 20 20 20 20 20 20 |name))..| |
|000012f0| 53 45 4c 45 43 54 20 28 | 73 6e 61 6d 65 29 0d 0a |SELECT (|sname)..|
|00001300| 20 20 20 20 20 20 20 20 | 47 4f 54 4f 20 54 4f 50 | |GOTO TOP|
|00001310| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 44 4f 20 57 |.... | DO W|
|00001320| 48 49 4c 45 20 44 45 4c | 45 54 45 44 28 29 20 41 |HILE DEL|ETED() A|
|00001330| 4e 44 20 21 45 4f 46 28 | 29 0d 0a 20 20 20 20 20 |ND !EOF(|).. |
|00001340| 20 20 20 20 20 20 53 4b | 49 50 0d 0a 20 20 20 20 | SK|IP.. |
|00001350| 20 20 20 20 45 4e 44 44 | 4f 0d 0a 20 20 20 20 20 | ENDD|O.. |
|00001360| 20 20 20 49 46 20 45 4f | 46 28 29 20 20 20 26 26 | IF EO|F() &&|
|00001370| 20 61 6c 6c 20 72 65 63 | 6f 72 64 73 20 61 70 70 | all rec|ords app|
|00001380| 65 61 72 20 74 6f 20 62 | 65 20 64 65 6c 65 74 65 |ear to b|e delete|
|00001390| 64 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 47 4f |d.. | GO|
|000013a0| 54 4f 20 54 4f 50 0d 0a | 20 20 20 20 20 20 20 20 |TO TOP..| |
|000013b0| 45 4e 44 49 46 0d 0a 0d | 0a 20 20 20 20 20 20 20 |ENDIF...|. |
|000013c0| 20 3d 61 63 74 77 69 6e | 28 6d 2e 77 69 6e 5f 6e | =actwin|(m.win_n|
|000013d0| 61 6d 65 29 0d 0a 0d 0a | 20 20 20 20 20 20 20 20 |ame)....| |
|000013e0| 6d 2e 61 6c 6c 62 6c 61 | 6e 6b 20 3d 20 2e 54 2e |m.allbla|nk = .T.|
|000013f0| 0d 0a 20 20 20 20 20 20 | 20 20 46 4f 52 20 69 20 |.. | FOR i |
|00001400| 3d 20 31 20 54 4f 20 46 | 43 4f 55 4e 54 28 29 0d |= 1 TO F|COUNT().|
|00001410| 0a 20 20 20 20 20 20 20 | 20 20 20 20 6d 2e 66 6c |. | m.fl|
|00001420| 64 6e 61 6d 65 20 3d 20 | 46 49 45 4c 44 28 69 29 |dname = |FIELD(i)|
|00001430| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 49 46 20 |.. | IF |
|00001440| 21 45 4d 50 54 59 28 26 | 66 6c 64 6e 61 6d 65 29 |!EMPTY(&|fldname)|
|00001450| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00001460| 6d 2e 61 6c 6c 62 6c 61 | 6e 6b 20 3d 20 2e 46 2e |m.allbla|nk = .F.|
|00001470| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |.. | END|
|00001480| 49 46 0d 0a 20 20 20 20 | 20 20 20 20 45 4e 44 46 |IF.. | ENDF|
|00001490| 4f 52 0d 0a 20 20 0d 0a | 20 20 20 20 20 20 20 20 |OR.. ..| |
|000014a0| 2a 20 4d 61 6b 65 20 73 | 75 72 65 20 61 6c 6c 20 |* Make s|ure all |
|000014b0| 72 65 63 6f 72 64 73 20 | 61 72 65 6e 27 74 20 64 |records |aren't d|
|000014c0| 65 6c 65 74 65 64 0d 0a | 20 20 20 20 20 20 20 20 |eleted..| |
|000014d0| 49 46 20 6d 2e 61 6c 6c | 62 6c 61 6e 6b 0d 0a 20 |IF m.all|blank.. |
|000014e0| 20 20 20 20 20 20 20 20 | 20 20 49 46 20 52 45 43 | | IF REC|
|000014f0| 43 4f 55 4e 54 28 29 20 | 3c 20 31 30 20 20 20 26 |COUNT() |< 10 &|
|00001500| 26 20 6a 75 73 74 20 61 | 20 72 75 6c 65 20 6f 66 |& just a| rule of|
|00001510| 20 74 68 75 6d 62 0d 0a | 20 20 20 20 20 20 20 20 | thumb..| |
|00001520| 20 20 20 20 20 20 43 4f | 55 4e 54 20 46 4f 52 20 | CO|UNT FOR |
|00001530| 21 44 45 4c 45 54 45 44 | 28 29 20 54 4f 20 6e 6f |!DELETED|() TO no|
|00001540| 74 64 65 6c 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |tdel.. | |
|00001550| 20 20 20 20 47 4f 54 4f | 20 54 4f 50 0d 0a 20 20 | GOTO| TOP.. |
|00001560| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 46 20 6d | | IF m|
|00001570| 2e 6e 6f 74 64 65 6c 20 | 3d 20 30 0d 0a 20 20 20 |.notdel |= 0.. |
|00001580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 2e | | m.|
|00001590| 61 6c 6c 62 6c 61 6e 6b | 20 3d 20 2e 46 2e 0d 0a |allblank| = .F...|
|000015a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4e | | EN|
|000015b0| 44 49 46 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |DIF.. | |
|000015c0| 45 4e 44 49 46 0d 0a 20 | 20 20 20 20 20 20 20 45 |ENDIF.. | E|
|000015d0| 4e 44 49 46 0d 0a 20 20 | 20 20 20 45 4e 44 49 46 |NDIF.. | ENDIF|
|000015e0| 0d 0a 0d 0a 20 20 20 20 | 20 49 46 20 21 6d 2e 61 |.... | IF !m.a|
|000015f0| 6c 6c 62 6c 61 6e 6b 0d | 0a 20 20 20 20 20 20 20 |llblank.|. |
|00001600| 20 41 50 50 45 4e 44 20 | 42 4c 41 4e 4b 0d 0a 20 | APPEND |BLANK.. |
|00001610| 20 20 20 20 20 20 20 53 | 48 4f 57 20 47 45 54 53 | S|HOW GETS|
|00001620| 0d 0a 20 20 20 20 20 45 | 4e 44 49 46 0d 0a 0d 0a |.. E|NDIF....|
|00001630| 20 20 20 20 20 5f 43 55 | 52 4f 42 4a 20 3d 20 31 | _CU|ROBJ = 1|
|00001640| 0d 0a 20 20 0d 0a 20 20 | 20 20 20 49 46 20 6d 2e |.. .. | IF m.|
|00001650| 77 69 7a 5f 73 63 72 65 | 65 6e 0d 0a 20 20 20 20 |wiz_scre|en.. |
|00001660| 20 20 20 20 53 43 41 54 | 54 45 52 20 4d 45 4d 56 | SCAT|TER MEMV|
|00001670| 41 52 20 4d 45 4d 4f 0d | 0a 20 20 20 20 20 20 20 |AR MEMO.|. |
|00001680| 20 53 48 4f 57 20 47 45 | 54 53 0d 0a 20 20 20 20 | SHOW GE|TS.. |
|00001690| 20 45 4e 44 49 46 0d 0a | 0d 0a 20 20 20 20 20 3d | ENDIF..|.. =|
|000016a0| 61 63 74 77 69 6e 28 6d | 2e 77 69 6e 5f 6e 61 6d |actwin(m|.win_nam|
|000016b0| 65 29 0d 0a 0d 0a 20 20 | 45 4c 53 45 20 20 20 26 |e).... |ELSE &|
|000016c0| 26 20 61 70 70 65 6e 64 | 69 6e 67 20 72 65 63 6f |& append|ing reco|
|000016d0| 72 64 20 69 6e 74 6f 20 | 61 20 63 68 69 6c 64 20 |rd into |a child |
|000016e0| 62 72 6f 77 73 65 0d 0a | 20 20 20 20 20 2a 20 46 |browse..| * F|
|000016f0| 69 6c 6c 20 69 6e 20 74 | 68 65 20 6b 65 79 20 66 |ill in t|he key f|
|00001700| 69 65 6c 64 73 2e 20 20 | 46 69 72 73 74 20 66 69 |ields. |First fi|
|00001710| 6e 64 20 74 68 65 20 64 | 62 66 6c 69 73 74 20 72 |nd the d|bflist r|
|00001720| 65 63 6f 72 64 20 66 6f | 72 20 74 68 69 73 20 0d |ecord fo|r this .|
|00001730| 0a 20 20 20 20 20 2a 20 | 64 61 74 61 62 61 73 65 |. * |database|
|00001740| 2e 0d 0a 20 20 20 20 20 | 69 20 3d 20 31 0d 0a 20 |... |i = 1.. |
|00001750| 20 20 20 20 67 6f 74 5f | 69 74 20 3d 20 2e 46 2e | got_|it = .F.|
|00001760| 0d 0a 20 20 20 20 20 44 | 4f 20 57 48 49 4c 45 20 |.. D|O WHILE |
|00001770| 69 20 3c 3d 20 6d 2e 6e | 75 6d 61 72 65 61 73 20 |i <= m.n|umareas |
|00001780| 41 4e 44 20 21 67 6f 74 | 5f 69 74 0d 0a 20 20 20 |AND !got|_it.. |
|00001790| 20 20 20 20 20 49 46 20 | 55 50 50 45 52 28 64 62 | IF |UPPER(db|
|000017a0| 66 6c 69 73 74 5b 69 2c | 6d 2e 63 73 74 65 6d 6e |flist[i,|m.cstemn|
|000017b0| 75 6d 5d 29 20 3d 3d 20 | 41 4c 49 41 53 28 29 0d |um]) == |ALIAS().|
|000017c0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 67 6f 74 5f |. | got_|
|000017d0| 69 74 20 3d 20 2e 54 2e | 0d 0a 20 20 20 20 20 20 |it = .T.|.. |
|000017e0| 20 20 45 4c 53 45 0d 0a | 20 20 20 20 20 20 20 20 | ELSE..| |
|000017f0| 20 20 20 69 20 3d 20 69 | 20 2b 20 31 0d 0a 20 20 | i = i| + 1.. |
|00001800| 20 20 20 20 20 20 45 4e | 44 49 46 0d 0a 20 20 20 | EN|DIF.. |
|00001810| 20 20 45 4e 44 44 4f 0d | 0a 20 20 20 20 20 2a 20 | ENDDO.|. * |
|00001820| 49 66 20 77 65 20 66 6f | 75 6e 64 20 74 68 65 20 |If we fo|und the |
|00001830| 63 75 72 72 65 6e 74 20 | 64 61 74 61 62 61 73 65 |current |database|
|00001840| 2c 20 66 69 67 75 72 65 | 20 6f 75 74 20 77 68 61 |, figure| out wha|
|00001850| 74 20 74 68 65 20 70 61 | 72 65 6e 74 20 64 61 74 |t the pa|rent dat|
|00001860| 61 62 61 73 65 20 0d 0a | 20 20 20 20 20 2a 20 69 |abase ..| * i|
|00001870| 73 20 61 6e 64 20 6d 61 | 6b 65 20 73 75 72 65 20 |s and ma|ke sure |
|00001880| 74 68 61 74 20 74 68 65 | 20 70 61 72 65 6e 74 20 |that the| parent |
|00001890| 69 73 20 6e 6f 74 20 61 | 74 20 45 4f 46 28 29 2e |is not a|t EOF().|
|000018a0| 0d 0a 20 20 20 20 20 49 | 46 20 21 45 4f 46 28 64 |.. I|F !EOF(d|
|000018b0| 62 66 6c 69 73 74 5b 6d | 2e 69 2c 6d 2e 70 64 62 |bflist[m|.i,m.pdb|
|000018c0| 66 6e 75 6d 5d 29 0d 0a | 20 20 09 20 20 20 2a 20 |fnum])..| . * |
|000018d0| 41 6c 73 6f 20 64 65 74 | 65 72 6d 69 6e 65 20 77 |Also det|ermine w|
|000018e0| 68 61 74 20 69 74 73 20 | 6b 65 79 20 66 69 65 6c |hat its |key fiel|
|000018f0| 64 20 69 73 20 61 6e 64 | 20 6d 61 6b 65 20 69 74 |d is and| make it|
|00001900| 20 64 65 66 61 75 6c 74 | 0d 0a 20 20 09 20 20 20 | default|.. . |
|00001910| 2a 20 74 6f 20 74 68 65 | 20 63 6f 72 72 65 73 70 |* to the| corresp|
|00001920| 6f 6e 64 69 6e 67 20 76 | 61 6c 75 65 20 69 6e 20 |onding v|alue in |
|00001930| 74 68 65 20 70 61 72 65 | 6e 74 20 64 61 74 61 62 |the pare|nt datab|
|00001940| 61 73 65 2e 20 20 46 6f | 72 20 0d 0a 09 20 20 20 |ase. Fo|r ... |
|00001950| 2a 20 65 78 61 6d 70 6c | 65 2c 20 69 66 20 74 68 |* exampl|e, if th|
|00001960| 65 20 63 75 72 72 65 6e | 74 20 64 61 74 61 62 61 |e curren|t databa|
|00001970| 73 65 20 69 73 20 61 6e | 20 69 6e 76 6f 69 63 65 |se is an| invoice|
|00001980| 20 66 69 6c 65 2c 20 6d | 61 6b 65 20 74 68 65 0d | file, m|ake the.|
|00001990| 0a 09 20 20 20 2a 20 63 | 75 73 74 6f 6d 65 72 20 |.. * c|ustomer |
|000019a0| 6e 75 6d 62 65 72 20 64 | 65 66 61 75 6c 74 20 74 |number d|efault t|
|000019b0| 6f 20 74 68 65 20 63 75 | 73 74 6f 6d 65 72 20 6e |o the cu|stomer n|
|000019c0| 75 6d 62 65 72 20 6f 66 | 20 74 68 65 20 63 75 72 |umber of| the cur|
|000019d0| 72 65 6e 74 0d 0a 09 20 | 20 20 2a 20 72 65 63 6f |rent... | * reco|
|000019e0| 72 64 20 69 6e 20 74 68 | 65 20 63 75 73 74 6f 6d |rd in th|e custom|
|000019f0| 65 72 20 66 69 6c 65 2e | 0d 0a 09 20 20 20 41 50 |er file.|... AP|
|00001a00| 50 45 4e 44 20 42 4c 41 | 4e 4b 0d 0a 09 20 20 20 |PEND BLA|NK... |
|00001a10| 49 46 20 67 6f 74 5f 69 | 74 0d 0a 09 20 20 20 20 |IF got_i|t... |
|00001a20| 20 20 2a 20 64 62 66 6c | 69 73 74 5b 6d 2e 69 2c | * dbfl|ist[m.i,|
|00001a30| 6d 2e 63 66 6c 64 6e 75 | 6d 5d 20 6c 6f 6f 6b 73 |m.cfldnu|m] looks|
|00001a40| 20 6c 69 6b 65 20 22 44 | 45 54 41 49 4c 2e 49 4e | like "D|ETAIL.IN|
|00001a50| 4f 22 0d 0a 09 20 20 20 | 20 20 20 63 68 69 6c 64 |O"... | child|
|00001a60| 66 6c 64 20 20 3d 20 64 | 62 66 6c 69 73 74 5b 6d |fld = d|bflist[m|
|00001a70| 2e 69 2c 6d 2e 63 66 6c | 64 6e 75 6d 5d 0d 0a 09 |.i,m.cfl|dnum]...|
|00001a80| 20 20 20 20 20 20 70 61 | 72 65 6e 74 66 6c 64 20 | pa|rentfld |
|00001a90| 3d 20 64 62 66 6c 69 73 | 74 5b 6d 2e 69 2c 6d 2e |= dbflis|t[m.i,m.|
|00001aa0| 70 66 6c 64 6e 75 6d 5d | 0d 0a 0d 0a 09 20 20 20 |pfldnum]|..... |
|00001ab0| 20 20 20 2a 20 52 65 70 | 6c 61 63 65 20 74 68 65 | * Rep|lace the|
|00001ac0| 20 6b 65 79 20 66 69 65 | 6c 64 20 69 6e 74 6f 20 | key fie|ld into |
|00001ad0| 74 68 65 20 6e 65 77 6c | 79 20 61 70 70 65 6e 64 |the newl|y append|
|00001ae0| 65 64 20 72 65 63 6f 72 | 64 0d 0a 09 20 20 20 20 |ed recor|d... |
|00001af0| 20 20 52 45 50 4c 41 43 | 45 20 26 63 68 69 6c 64 | REPLAC|E &child|
|00001b00| 66 6c 64 20 57 49 54 48 | 20 26 70 61 72 65 6e 74 |fld WITH| &parent|
|00001b10| 66 6c 64 0d 0a 09 20 20 | 20 45 4e 44 49 46 0d 0a |fld... | ENDIF..|
|00001b20| 20 20 09 20 45 4c 53 45 | 0d 0a 09 20 20 20 57 41 | . ELSE|... WA|
|00001b30| 49 54 20 57 49 4e 44 4f | 57 20 43 5f 4e 4f 50 41 |IT WINDO|W C_NOPA|
|00001b40| 52 45 4e 54 20 0d 0a 09 | 20 45 4e 44 49 46 0d 0a |RENT ...| ENDIF..|
|00001b50| 09 20 53 48 4f 57 20 57 | 49 4e 44 4f 57 20 28 41 |. SHOW W|INDOW (A|
|00001b60| 4c 49 41 53 28 29 29 20 | 52 45 46 52 45 53 48 0d |LIAS()) |REFRESH.|
|00001b70| 0a 20 20 45 4e 44 49 46 | 0d 0a 45 4e 44 49 46 0d |. ENDIF|..ENDIF.|
|00001b80| 0a 0d 0a 0d 0a 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b90| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0d 5c 3c |........|......\<|
|00001ba0| 43 6f 70 79 20 52 65 63 | 6f 72 64 00 00 00 00 00 |Copy Rec|ord.....|
|00001bb0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 17 73 |........|.......s|
|00001bc0| 6b 69 70 76 61 72 20 4f | 52 20 6d 2e 77 69 7a 5f |kipvar O|R m.wiz_|
|00001bd0| 73 63 72 65 65 6e 00 00 | 00 00 00 01 00 00 00 d6 |screen..|........|
|00001be0| 53 43 41 54 54 45 52 20 | 4d 45 4d 56 41 52 0d 0a |SCATTER |MEMVAR..|
|00001bf0| 41 50 50 45 4e 44 20 42 | 4c 41 4e 4b 0d 0a 47 41 |APPEND B|LANK..GA|
|00001c00| 54 48 45 52 20 4d 45 4d | 56 41 52 0d 0a 49 46 20 |THER MEM|VAR..IF |
|00001c10| 54 59 50 45 28 22 44 42 | 46 4c 49 53 54 22 29 20 |TYPE("DB|FLIST") |
|00001c20| 3d 20 22 55 22 20 4f 52 | 20 41 4c 49 41 53 28 29 |= "U" OR| ALIAS()|
|00001c30| 20 3d 3d 20 55 50 50 45 | 52 28 64 62 66 6c 69 73 | == UPPE|R(dbflis|
|00001c40| 74 5b 31 2c 6d 2e 63 73 | 74 65 6d 6e 75 6d 5d 29 |t[1,m.cs|temnum])|
|00001c50| 0d 0a 20 20 20 53 48 4f | 57 20 47 45 54 53 0d 0a |.. SHO|W GETS..|
|00001c60| 20 20 20 3d 61 63 74 77 | 69 6e 28 6d 2e 77 69 6e | =actw|in(m.win|
|00001c70| 5f 6e 61 6d 65 29 20 20 | 20 26 26 20 61 63 74 69 |_name) | && acti|
|00001c80| 76 61 74 65 20 75 73 65 | 72 20 77 69 6e 64 6f 77 |vate use|r window|
|00001c90| 0d 0a 45 4e 44 49 46 0d | 0a 53 48 4f 57 20 57 49 |..ENDIF.|.SHOW WI|
|00001ca0| 4e 44 4f 57 20 28 41 4c | 49 41 53 28 29 29 20 52 |NDOW (AL|IAS()) R|
|00001cb0| 45 46 52 45 53 48 00 00 | 00 00 00 00 00 00 00 00 |EFRESH..|........|
|00001cc0| 00 00 01 00 00 00 0f 5c | 3c 44 65 6c 65 74 65 20 |.......\|<Delete |
|00001cd0| 52 65 63 6f 72 64 00 00 | 00 00 00 00 00 00 00 00 |Record..|........|
|00001ce0| 00 00 00 01 00 00 00 06 | 43 54 52 4c 2b 44 00 00 |........|CTRL+D..|
|00001cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d00| 00 00 00 00 01 00 00 00 | 06 43 74 72 6c 2b 44 00 |........|.Ctrl+D.|
|00001d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d20| 00 00 00 00 00 01 00 00 | 00 07 73 6b 69 70 76 61 |........|..skipva|
|00001d30| 72 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |r.......|........|
|00001d40| 00 00 00 00 00 00 01 00 | 00 05 2f 2a 20 44 65 6c |........|../* Del|
|00001d50| 65 74 65 20 74 68 69 73 | 20 72 65 63 6f 72 64 20 |ete this| record |
|00001d60| 28 61 6e 64 20 61 6e 79 | 20 63 68 69 6c 64 72 65 |(and any| childre|
|00001d70| 6e 20 66 6f 72 20 77 68 | 69 63 68 20 74 68 65 20 |n for wh|ich the |
|00001d80| 63 61 73 63 61 64 69 6e | 67 0d 0a 2a 20 64 65 6c |cascadin|g..* del|
|00001d90| 65 74 65 20 6f 70 74 69 | 6f 6e 20 69 73 20 73 65 |ete opti|on is se|
|00001da0| 74 29 20 66 72 6f 6d 20 | 74 68 65 20 63 75 72 72 |t) from |the curr|
|00001db0| 65 6e 74 20 64 61 74 61 | 62 61 73 65 2e 0d 0a 0d |ent data|base....|
|00001dc0| 0a 50 52 49 56 41 54 45 | 20 6d 2e 64 65 6c 72 65 |.PRIVATE| m.delre|
|00001dd0| 63 2c 20 6d 2e 77 61 73 | 64 65 6c 65 74 65 64 0d |c, m.was|deleted.|
|00001de0| 0a 6d 2e 77 61 73 64 65 | 6c 65 74 65 64 20 3d 20 |.m.wasde|leted = |
|00001df0| 2e 46 2e 0d 0a 49 46 20 | 52 45 43 43 4f 55 4e 54 |.F...IF |RECCOUNT|
|00001e00| 28 29 20 3e 20 30 0d 0a | 20 20 49 46 20 6d 2e 77 |() > 0..| IF m.w|
|00001e10| 69 7a 5f 73 63 72 65 65 | 6e 0d 0a 20 20 20 20 6d |iz_scree|n.. m|
|00001e20| 2e 64 65 6c 72 65 63 20 | 3d 20 72 65 63 6e 6f 28 |.delrec |= recno(|
|00001e30| 29 0d 0a 20 20 20 20 44 | 4f 20 28 22 62 74 6e 5f |).. D|O ("btn_|
|00001e40| 76 61 6c 22 29 20 57 49 | 54 48 20 22 44 45 4c 45 |val") WI|TH "DELE|
|00001e50| 54 45 22 0d 0a 20 20 20 | 20 6d 2e 77 61 73 64 65 |TE".. | m.wasde|
|00001e60| 6c 65 74 65 64 20 3d 20 | 52 45 43 4e 4f 28 29 20 |leted = |RECNO() |
|00001e70| 3c 3e 20 6d 2e 64 65 6c | 72 65 63 09 09 26 26 20 |<> m.del|rec..&& |
|00001e80| 57 69 7a 61 72 64 20 63 | 6f 64 65 20 64 65 6c 65 |Wizard c|ode dele|
|00001e90| 74 65 73 20 72 65 63 6f | 72 64 20 61 6e 64 20 6d |tes reco|rd and m|
|00001ea0| 6f 76 65 73 20 72 65 63 | 6f 72 64 20 0d 0a 20 20 |oves rec|ord .. |
|00001eb0| 20 20 09 09 09 09 09 09 | 09 09 09 09 26 26 20 70 | ......|....&& p|
|00001ec0| 6f 69 6e 74 65 72 2e 20 | 55 73 65 20 74 68 69 73 |ointer. |Use this|
|00001ed0| 20 74 6f 20 64 65 74 65 | 63 74 20 64 65 6c 65 74 | to dete|ct delet|
|00001ee0| 69 6f 6e 20 28 75 73 65 | 72 0d 0a 20 20 20 20 09 |ion (use|r.. .|
|00001ef0| 09 09 09 09 09 09 09 09 | 09 26 26 20 63 6f 75 6c |........|.&& coul|
|00001f00| 64 20 68 61 76 65 20 43 | 61 6e 63 65 6c 65 64 29 |d have C|anceled)|
|00001f10| 2e 20 49 6e 20 46 6f 78 | 41 70 70 2c 20 77 65 20 |. In Fox|App, we |
|00001f20| 77 61 6e 74 20 74 6f 20 | 0d 0a 20 20 20 20 09 09 |want to |.. ..|
|00001f30| 09 09 09 09 09 09 09 09 | 26 26 20 63 61 6c 6c 20 |........|&& call |
|00001f40| 70 72 6f 63 65 64 75 72 | 65 20 43 61 73 63 61 64 |procedur|e Cascad|
|00001f50| 65 20 62 65 66 6f 72 65 | 20 74 68 65 20 64 65 6c |e before| the del|
|00001f60| 65 74 69 6f 6e 2c 20 0d | 0a 20 20 20 20 09 09 09 |etion, .|. ...|
|00001f70| 09 09 09 09 09 09 09 26 | 26 20 73 6f 20 72 65 63 |.......&|& so rec|
|00001f80| 61 6c 6c 20 61 6e 64 20 | 64 65 6c 65 74 65 20 61 |all and |delete a|
|00001f90| 67 61 69 6e 20 61 66 74 | 65 72 77 61 72 64 2e 0d |gain aft|erward..|
|00001fa0| 0a 20 20 20 20 47 4f 20 | 6d 2e 64 65 6c 72 65 63 |. GO |m.delrec|
|00001fb0| 0d 0a 20 20 20 20 52 45 | 43 41 4c 4c 0d 0a 20 20 |.. RE|CALL.. |
|00001fc0| 45 4c 53 45 0d 0a 20 20 | 20 20 20 57 41 49 54 20 |ELSE.. | WAIT |
|00001fd0| 57 49 4e 44 4f 57 20 22 | 44 65 6c 65 74 69 6e 67 |WINDOW "|Deleting|
|00001fe0| 2d 2d 50 6c 65 61 73 65 | 20 77 61 69 74 2e 22 20 |--Please| wait." |
|00001ff0| 4e 4f 57 41 49 54 0d 0a | 20 20 20 20 20 6d 2e 77 |NOWAIT..| m.w|
|00002000| 61 73 64 65 6c 65 74 65 | 64 20 3d 20 2e 74 2e 0d |asdelete|d = .t..|
|00002010| 0a 20 20 45 4e 44 49 46 | 0d 0a 20 20 0d 0a 20 20 |. ENDIF|.. .. |
|00002020| 49 46 20 6d 2e 77 61 73 | 64 65 6c 65 74 65 64 0d |IF m.was|deleted.|
|00002030| 0a 20 20 20 20 20 2a 20 | 50 65 72 66 6f 72 6d 20 |. * |Perform |
|00002040| 61 6e 79 20 6e 65 63 65 | 73 73 61 72 79 20 63 61 |any nece|ssary ca|
|00002050| 73 63 61 64 69 6e 67 20 | 64 65 6c 65 74 65 73 20 |scading |deletes |
|00002060| 0d 0a 20 20 20 20 20 49 | 46 20 6d 2e 6e 65 78 74 |.. I|F m.next|
|00002070| 64 62 66 20 3e 20 31 0d | 0a 20 20 20 20 20 20 20 |dbf > 1.|. |
|00002080| 20 44 4f 20 43 61 73 63 | 61 64 65 20 57 49 54 48 | DO Casc|ade WITH|
|00002090| 20 41 4c 49 41 53 28 29 | 2c 20 22 44 45 4c 45 54 | ALIAS()|, "DELET|
|000020a0| 45 22 0d 0a 20 20 20 20 | 20 45 4e 44 49 46 0d 0a |E".. | ENDIF..|
|000020b0| 20 20 20 0d 0a 20 20 20 | 20 20 44 45 4c 45 54 45 | .. | DELETE|
|000020c0| 0d 0a 0d 0a 20 20 20 20 | 20 2a 20 4d 6f 76 69 6e |.... | * Movin|
|000020d0| 67 20 6f 66 66 20 74 68 | 65 20 64 65 6c 65 74 65 |g off th|e delete|
|000020e0| 64 20 72 65 63 6f 72 64 | 20 69 66 20 77 65 20 61 |d record| if we a|
|000020f0| 72 65 20 69 6e 20 74 68 | 65 20 6d 61 69 6e 20 73 |re in th|e main s|
|00002100| 63 72 65 65 6e 0d 0a 20 | 20 20 20 20 49 46 20 54 |creen.. | IF T|
|00002110| 59 50 45 28 22 44 42 46 | 4c 49 53 54 22 29 20 3d |YPE("DBF|LIST") =|
|00002120| 20 22 55 22 20 4f 52 20 | 41 4c 49 41 53 28 29 20 | "U" OR |ALIAS() |
|00002130| 3d 20 64 62 66 6c 69 73 | 74 5b 31 2c 6d 2e 63 73 |= dbflis|t[1,m.cs|
|00002140| 74 65 6d 6e 75 6d 5d 0d | 0a 20 20 20 20 20 20 20 |temnum].|. |
|00002150| 20 49 46 20 21 45 4f 46 | 28 29 0d 0a 20 20 20 20 | IF !EOF|().. |
|00002160| 20 20 20 20 20 20 20 53 | 4b 49 50 0d 0a 20 20 20 | S|KIP.. |
|00002170| 20 20 20 20 20 45 4e 44 | 49 46 0d 0a 20 20 20 20 | END|IF.. |
|00002180| 20 20 20 20 49 46 20 45 | 4f 46 28 29 0d 0a 20 20 | IF E|OF().. |
|00002190| 20 20 20 20 20 20 20 20 | 20 47 4f 54 4f 20 54 4f | | GOTO TO|
|000021a0| 50 0d 0a 20 20 20 20 20 | 20 20 20 45 4e 44 49 46 |P.. | ENDIF|
|000021b0| 0d 0a 20 20 20 20 20 20 | 20 20 49 46 20 6d 2e 77 |.. | IF m.w|
|000021c0| 69 7a 5f 73 63 72 65 65 | 6e 0d 0a 20 20 20 20 20 |iz_scree|n.. |
|000021d0| 20 20 20 20 20 20 53 43 | 41 54 54 45 52 20 4d 45 | SC|ATTER ME|
|000021e0| 4d 56 41 52 20 4d 45 4d | 4f 0d 0a 20 20 20 20 20 |MVAR MEM|O.. |
|000021f0| 20 20 20 45 4e 44 49 46 | 20 20 20 20 20 20 0d 0a | ENDIF| ..|
|00002200| 20 20 20 20 20 20 20 20 | 53 48 4f 57 20 47 45 54 | |SHOW GET|
|00002210| 53 0d 0a 20 20 20 20 20 | 45 4c 53 45 0d 0a 20 20 |S.. |ELSE.. |
|00002220| 20 20 20 20 20 20 53 48 | 4f 57 20 57 49 4e 44 4f | SH|OW WINDO|
|00002230| 57 20 28 41 4c 49 41 53 | 28 29 29 20 52 45 46 52 |W (ALIAS|()) REFR|
|00002240| 45 53 48 0d 0a 20 20 20 | 20 20 45 4e 44 49 46 0d |ESH.. | ENDIF.|
|00002250| 0a 20 20 20 20 20 20 0d | 0a 20 20 20 20 20 57 41 |. .|. WA|
|00002260| 49 54 20 43 4c 45 41 52 | 0d 0a 20 20 45 4e 44 49 |IT CLEAR|.. ENDI|
|00002270| 46 0d 0a 45 4e 44 49 46 | 0d 0a 00 00 00 00 00 00 |F..ENDIF|........|
|00002280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00002290| 00 00 00 02 5c 2d 00 00 | 00 00 00 00 00 00 00 00 |....\-..|........|
|000022a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022b0| 01 00 00 00 06 4c 6f 63 | 61 74 65 00 00 00 00 00 |.....Loc|ate.....|
|000022c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022d0| 00 01 00 00 00 07 73 6b | 69 70 76 61 72 00 00 00 |......sk|ipvar...|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 01 00 00 02 2d 6d | 2e 73 6b 69 70 76 61 72 |......-m|.skipvar|
|00002300| 20 3d 20 2e 54 2e 0d 0a | 64 62 66 73 74 65 6d 20 | = .T...|dbfstem |
|00002310| 3d 20 6d 61 6b 65 61 6c | 69 61 73 28 6a 75 73 74 |= makeal|ias(just|
|00002320| 73 74 65 6d 28 6d 2e 64 | 62 66 6e 61 6d 65 29 29 |stem(m.d|bfname))|
|00002330| 0d 0a 53 45 4c 45 43 54 | 20 28 64 62 66 73 74 65 |..SELECT| (dbfste|
|00002340| 6d 29 0d 0a 49 46 20 6d | 2e 77 69 7a 5f 73 63 72 |m)..IF m|.wiz_scr|
|00002350| 65 65 6e 0d 0a 20 20 44 | 4f 20 28 22 62 74 6e 5f |een.. D|O ("btn_|
|00002360| 76 61 6c 22 29 20 57 49 | 54 48 20 22 4c 4f 43 41 |val") WI|TH "LOCA|
|00002370| 54 45 22 0d 0a 45 4c 53 | 45 0d 0a 20 20 44 45 46 |TE"..ELS|E.. DEF|
|00002380| 49 4e 45 20 57 49 4e 44 | 4f 57 20 46 41 5f 6c 6f |INE WIND|OW FA_lo|
|00002390| 63 20 46 52 4f 4d 20 31 | 2c 31 20 54 4f 20 32 30 |c FROM 1|,1 TO 20|
|000023a0| 2c 34 30 3b 0d 0a 09 53 | 59 53 54 45 4d 20 47 52 |,40;...S|YSTEM GR|
|000023b0| 4f 57 20 43 4c 4f 53 45 | 20 5a 4f 4f 4d 20 46 4c |OW CLOSE| ZOOM FL|
|000023c0| 4f 41 54 0d 0a 20 20 4d | 4f 56 45 20 57 49 4e 44 |OAT.. M|OVE WIND|
|000023d0| 4f 57 20 46 41 5f 6c 6f | 63 20 43 45 4e 54 45 52 |OW FA_lo|c CENTER|
|000023e0| 0d 0a 20 20 4f 4e 20 4b | 45 59 20 4c 41 42 45 4c |.. ON K|EY LABEL|
|000023f0| 20 65 6e 74 65 72 20 4b | 45 59 42 4f 41 52 44 28 | enter K|EYBOARD(|
|00002400| 43 48 52 28 32 33 29 29 | 0d 0a 20 20 42 52 4f 57 |CHR(23))|.. BROW|
|00002410| 53 45 20 57 49 4e 44 4f | 57 20 46 41 5f 6c 6f 63 |SE WINDO|W FA_loc|
|00002420| 20 4e 4f 45 44 49 54 20 | 4e 4f 44 45 4c 45 54 45 | NOEDIT |NODELETE|
|00002430| 20 4e 4f 41 50 50 45 4e | 44 20 3b 0d 0a 09 4e 4f | NOAPPEN|D ;...NO|
|00002440| 4d 45 4e 55 20 54 49 54 | 4c 45 20 22 4c 6f 63 61 |MENU TIT|LE "Loca|
|00002450| 74 65 20 52 65 63 6f 72 | 64 22 20 43 4f 4c 4f 52 |te Recor|d" COLOR|
|00002460| 20 53 43 48 45 4d 45 20 | 31 30 0d 0a 20 20 4f 4e | SCHEME |10.. ON|
|00002470| 20 4b 45 59 20 4c 41 42 | 45 4c 20 65 6e 74 65 72 | KEY LAB|EL enter|
|00002480| 0d 0a 20 20 52 45 4c 45 | 41 53 45 20 57 49 4e 44 |.. RELE|ASE WIND|
|00002490| 4f 57 20 46 41 5f 6c 6f | 63 20 0d 0a 20 20 53 48 |OW FA_lo|c .. SH|
|000024a0| 4f 57 20 4d 45 4e 55 20 | 5f 6d 73 79 73 6d 65 6e |OW MENU |_msysmen|
|000024b0| 75 0d 0a 20 20 3d 61 63 | 74 77 69 6e 28 77 6f 75 |u.. =ac|twin(wou|
|000024c0| 74 70 75 74 28 29 29 0d | 0a 45 4e 44 49 46 0d 0a |tput()).|.ENDIF..|
|000024d0| 6d 2e 73 6b 69 70 76 61 | 72 20 3d 20 2e 46 2e 0d |m.skipva|r = .F..|
|000024e0| 0a 49 46 20 6d 2e 77 69 | 7a 5f 73 63 72 65 65 6e |.IF m.wi|z_screen|
|000024f0| 0d 0a 20 20 20 53 43 41 | 54 54 45 52 20 4d 45 4d |.. SCA|TTER MEM|
|00002500| 56 41 52 20 4d 45 4d 4f | 0d 0a 45 4e 44 49 46 20 |VAR MEMO|..ENDIF |
|00002510| 20 20 20 20 20 0d 0a 0d | 0a 53 48 4f 57 20 47 45 | ...|.SHOW GE|
|00002520| 54 53 0d 0a 00 00 00 00 | 00 00 00 00 00 00 00 00 |TS......|........|
|00002530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002540| 00 00 00 00 01 00 00 00 | 0b 5c 3c 53 65 61 72 63 |........|.\<Searc|
|00002550| 68 2e 2e 2e 00 00 00 00 | 00 00 00 00 00 00 00 00 |h.......|........|
|00002560| 00 00 00 00 00 01 00 00 | 00 06 43 54 52 4c 2b 53 |........|..CTRL+S|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002580| 00 00 00 00 00 00 01 00 | 00 00 06 43 74 72 6c 2b |........|...Ctrl+|
|00002590| 53 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |S.......|........|
|000025a0| 00 00 00 00 00 00 00 01 | 00 00 00 07 73 6b 69 70 |........|....skip|
|000025b0| 76 61 72 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |var.....|........|
|000025c0| 00 00 00 00 00 00 00 00 | 01 00 00 00 db 6d 2e 64 |........|.....m.d|
|000025d0| 62 66 73 74 65 6d 20 3d | 20 6d 61 6b 65 61 6c 69 |bfstem =| makeali|
|000025e0| 61 73 28 6a 75 73 74 73 | 74 65 6d 28 6d 2e 64 62 |as(justs|tem(m.db|
|000025f0| 66 6e 61 6d 65 29 29 0d | 0a 53 45 4c 45 43 54 20 |fname)).|.SELECT |
|00002600| 28 6d 2e 64 62 66 73 74 | 65 6d 29 0d 0a 49 46 20 |(m.dbfst|em)..IF |
|00002610| 21 6d 2e 72 65 67 65 6e | 0d 0a 20 20 20 6d 2e 6d |!m.regen|.. m.m|
|00002620| 6e 61 6d 65 20 3d 20 27 | 61 70 70 73 72 63 68 2e |name = '|appsrch.|
|00002630| 70 72 67 27 0d 0a 45 4c | 53 45 0d 0a 20 20 20 6d |prg'..EL|SE.. m|
|00002640| 2e 6d 6e 61 6d 65 20 3d | 20 27 61 70 70 73 72 63 |.mname =| 'appsrc|
|00002650| 68 2e 73 70 72 27 0d 0a | 45 4e 44 49 46 0d 0a 44 |h.spr'..|ENDIF..D|
|00002660| 4f 20 28 6d 2e 6d 6e 61 | 6d 65 29 0d 0a 49 46 20 |O (m.mna|me)..IF |
|00002670| 6d 2e 77 69 7a 5f 73 63 | 72 65 65 6e 0d 0a 20 20 |m.wiz_sc|reen.. |
|00002680| 20 53 43 41 54 54 45 52 | 20 4d 45 4d 56 41 52 20 | SCATTER| MEMVAR |
|00002690| 4d 45 4d 4f 0d 0a 45 4e | 44 49 46 0d 0a 53 48 4f |MEMO..EN|DIF..SHO|
|000026a0| 57 20 47 45 54 53 0d 0a | 00 00 00 00 00 00 00 01 |W GETS..|........|
|000026b0| 00 00 00 0b 5c 3c 46 69 | 6c 74 65 72 2e 2e 2e 00 |....\<Fi|lter....|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 01 00 00 00 06 43 54 52 | 4c 2b 46 00 00 00 00 00 |.....CTR|L+F.....|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 01 00 00 00 06 43 74 | 72 6c 2b 46 00 00 00 00 |......Ct|rl+F....|
|00002700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002710| 00 00 01 00 00 00 07 73 | 6b 69 70 76 61 72 00 00 |.......s|kipvar..|
|00002720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002730| 00 00 00 01 00 00 01 b2 | 6d 2e 6f 72 69 67 5f 72 |........|m.orig_r|
|00002740| 65 63 20 3d 20 52 45 43 | 4e 4f 28 29 0d 0a 47 45 |ec = REC|NO()..GE|
|00002750| 54 45 58 50 52 20 27 46 | 69 6c 74 65 72 20 45 78 |TEXPR 'F|ilter Ex|
|00002760| 70 72 65 73 73 69 6f 6e | 27 20 54 4f 20 6d 2e 66 |pression|' TO m.f|
|00002770| 69 6c 74 5f 65 78 70 72 | 20 54 59 50 45 20 27 4c |ilt_expr| TYPE 'L|
|00002780| 27 20 44 45 46 41 55 4c | 54 20 6d 2e 66 69 6c 74 |' DEFAUL|T m.filt|
|00002790| 5f 65 78 70 72 0d 0a 49 | 46 20 21 45 4d 50 54 59 |_expr..I|F !EMPTY|
|000027a0| 28 6d 2e 66 69 6c 74 5f | 65 78 70 72 29 0d 0a 20 |(m.filt_|expr).. |
|000027b0| 20 20 53 45 54 20 46 49 | 4c 54 45 52 20 54 4f 20 | SET FI|LTER TO |
|000027c0| 26 66 69 6c 74 5f 65 78 | 70 72 0d 0a 20 20 20 47 |&filt_ex|pr.. G|
|000027d0| 4f 54 4f 20 54 4f 50 0d | 0a 20 20 20 49 46 20 45 |OTO TOP.|. IF E|
|000027e0| 4f 46 28 29 0d 0a 20 20 | 20 20 20 20 57 41 49 54 |OF().. | WAIT|
|000027f0| 20 57 49 4e 44 4f 57 20 | 22 4e 6f 20 72 65 63 6f | WINDOW |"No reco|
|00002800| 72 64 73 20 6d 61 74 63 | 68 20 74 68 61 74 20 66 |rds matc|h that f|
|00002810| 69 6c 74 65 72 22 20 4e | 4f 57 41 49 54 0d 0a 20 |ilter" N|OWAIT.. |
|00002820| 20 20 20 20 20 53 45 54 | 20 46 49 4c 54 45 52 20 | SET| FILTER |
|00002830| 54 4f 0d 0a 20 20 20 20 | 20 20 49 46 20 6d 2e 6f |TO.. | IF m.o|
|00002840| 72 69 67 5f 72 65 63 20 | 3c 3d 20 52 45 43 43 4f |rig_rec |<= RECCO|
|00002850| 55 4e 54 28 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |UNT().. | |
|00002860| 47 4f 54 4f 20 6d 2e 6f | 72 69 67 5f 72 65 63 0d |GOTO m.o|rig_rec.|
|00002870| 0a 20 20 20 20 20 20 45 | 4e 44 49 46 0d 0a 20 20 |. E|NDIF.. |
|00002880| 20 45 4e 44 49 46 0d 0a | 45 4c 53 45 0d 0a 20 20 | ENDIF..|ELSE.. |
|00002890| 20 53 45 54 20 46 49 4c | 54 45 52 20 54 4f 0d 0a | SET FIL|TER TO..|
|000028a0| 45 4e 44 49 46 0d 0a 49 | 46 20 6d 2e 77 69 7a 5f |ENDIF..I|F m.wiz_|
|000028b0| 73 63 72 65 65 6e 0d 0a | 20 20 20 53 43 41 54 54 |screen..| SCATT|
|000028c0| 45 52 20 4d 45 4d 56 41 | 52 20 4d 45 4d 4f 0d 0a |ER MEMVA|R MEMO..|
|000028d0| 45 4e 44 49 46 20 20 20 | 20 20 20 0d 0a 0d 0a 53 |ENDIF | ....S|
|000028e0| 48 4f 57 20 47 45 54 53 | 0d 0a 00 00 00 00 00 00 |HOW GETS|........|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002900| 00 01 00 00 00 0a 5c 3c | 4f 72 64 65 72 2e 2e 2e |......\<|Order...|
|00002910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002920| 00 00 01 00 00 00 06 43 | 54 52 4c 2b 4f 00 00 00 |.......C|TRL+O...|
|00002930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002940| 00 00 00 01 00 00 00 06 | 43 74 72 6c 2b 4f 00 00 |........|Ctrl+O..|
|00002950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002960| 00 00 00 00 01 00 00 00 | 17 73 6b 69 70 76 61 72 |........|.skipvar|
|00002970| 20 4f 52 20 6d 2e 77 69 | 7a 5f 73 63 72 65 65 6e | OR m.wi|z_screen|
|00002980| 00 00 00 00 00 01 00 00 | 01 49 6d 2e 64 62 66 73 |........|.Im.dbfs|
|00002990| 74 65 6d 20 3d 20 6d 61 | 6b 65 61 6c 69 61 73 28 |tem = ma|kealias(|
|000029a0| 6a 75 73 74 73 74 65 6d | 28 6d 2e 64 62 66 6e 61 |juststem|(m.dbfna|
|000029b0| 6d 65 29 29 0d 0a 53 45 | 4c 45 43 54 20 28 6d 2e |me))..SE|LECT (m.|
|000029c0| 64 62 66 73 74 65 6d 29 | 0d 0a 49 46 20 21 45 4d |dbfstem)|..IF !EM|
|000029d0| 50 54 59 28 43 44 58 28 | 31 29 29 0d 0a 20 20 20 |PTY(CDX(|1)).. |
|000029e0| 49 46 20 21 6d 2e 72 65 | 67 65 6e 0d 0a 20 20 20 |IF !m.re|gen.. |
|000029f0| 20 20 20 6d 2e 6d 6e 61 | 6d 65 20 3d 20 27 67 65 | m.mna|me = 'ge|
|00002a00| 74 6f 72 64 65 72 2e 70 | 72 67 27 0d 0a 20 20 20 |torder.p|rg'.. |
|00002a10| 45 4c 53 45 0d 0a 20 20 | 20 20 20 20 6d 2e 6d 6e |ELSE.. | m.mn|
|00002a20| 61 6d 65 20 3d 20 27 67 | 65 74 6f 72 64 65 72 2e |ame = 'g|etorder.|
|00002a30| 73 70 72 27 0d 0a 20 20 | 20 45 4e 44 49 46 0d 0a |spr'.. | ENDIF..|
|00002a40| 20 20 20 44 4f 20 28 6d | 2e 6d 6e 61 6d 65 29 0d | DO (m|.mname).|
|00002a50| 0a 20 20 20 49 46 20 6d | 2e 77 69 7a 5f 73 63 72 |. IF m|.wiz_scr|
|00002a60| 65 65 6e 0d 0a 20 20 20 | 20 20 20 53 43 41 54 54 |een.. | SCATT|
|00002a70| 45 52 20 4d 45 4d 56 41 | 52 20 4d 45 4d 4f 0d 0a |ER MEMVA|R MEMO..|
|00002a80| 20 20 20 45 4e 44 49 46 | 20 20 20 20 20 20 0d 0a | ENDIF| ..|
|00002a90| 20 20 20 53 48 4f 57 20 | 47 45 54 53 0d 0a 45 4c | SHOW |GETS..EL|
|00002aa0| 53 45 0d 0a 20 20 20 57 | 41 49 54 20 57 49 4e 44 |SE.. W|AIT WIND|
|00002ab0| 4f 57 20 22 4e 6f 20 69 | 6e 64 65 78 65 73 20 77 |OW "No i|ndexes w|
|00002ac0| 65 72 65 20 66 6f 75 6e | 64 22 0d 0a 45 4e 44 49 |ere foun|d"..ENDI|
|00002ad0| 46 0d 0a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |F.......|........|
|00002ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002af0| 01 00 00 00 02 5c 2d 00 | 00 00 00 00 00 00 00 00 |.....\-.|........|
|00002b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b10| 00 01 00 00 00 0b 50 69 | 63 6b 20 5c 3c 4c 69 73 |......Pi|ck \<Lis|
|00002b20| 74 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |t.......|........|
|00002b30| 00 00 01 00 00 00 06 43 | 54 52 4c 2b 4c 00 00 00 |.......C|TRL+L...|
|00002b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b50| 00 00 00 01 00 00 00 06 | 43 74 72 6c 2b 4c 00 00 |........|Ctrl+L..|
|00002b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b70| 00 00 00 00 01 00 00 00 | 1b 6d 2e 73 6b 69 70 76 |........|.m.skipv|
|00002b80| 61 72 20 6f 72 20 6d 2e | 6e 65 78 74 64 62 66 20 |ar or m.|nextdbf |
|00002b90| 3c 3d 20 32 00 00 00 00 | 00 00 00 00 00 00 00 00 |<= 2....|........|
|00002ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bb0| 00 00 00 00 00 00 01 00 | 00 00 21 44 4f 20 73 68 |........|..!DO sh|
|00002bc0| 6f 77 70 6f 70 20 57 49 | 54 48 20 41 4c 49 41 53 |owpop WI|TH ALIAS|
|00002bd0| 28 29 2c 56 41 52 52 45 | 41 44 28 29 00 00 00 00 |(),VARRE|AD()....|
|00002be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bf0| 00 00 00 00 00 00 00 00 | 01 00 00 00 02 5c 2d 00 |........|.....\-.|
|00002c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c10| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0a 5c 3c |........|......\<|
|00002c20| 51 75 65 72 79 2e 2e 2e | 00 00 00 00 00 00 00 00 |Query...|........|
|00002c30| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 06 43 |........|.......C|
|00002c40| 54 52 4c 2b 51 00 00 00 | 00 00 00 00 00 00 00 00 |TRL+Q...|........|
|00002c50| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 06 |........|........|
|00002c60| 43 74 72 6c 2b 51 00 00 | 00 00 00 00 00 00 00 00 |Ctrl+Q..|........|
|00002c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00002c80| 1e 73 6b 69 70 76 61 72 | 20 6f 72 20 28 27 45 58 |.skipvar| or ('EX|
|00002c90| 45 27 20 24 20 56 45 52 | 53 49 4f 4e 28 29 29 00 |E' $ VER|SION()).|
|00002ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00002cc0| 00 0b 5e 50 52 49 56 41 | 54 45 20 67 65 6e 5f 6e |..^PRIVA|TE gen_n|
|00002cd0| 61 6d 65 2c 20 69 2c 20 | 71 6e 61 6d 65 2c 20 70 |ame, i, |qname, p|
|00002ce0| 6e 61 6d 65 2c 20 77 69 | 6e 5f 6e 61 6d 65 0d 0a |name, wi|n_name..|
|00002cf0| 0d 0a 43 52 45 41 54 45 | 20 56 49 45 57 20 71 70 |..CREATE| VIEW qp|
|00002d00| 72 76 69 65 77 0d 0a 0d | 0a 2a 20 53 65 6c 65 63 |rview...|.* Selec|
|00002d10| 74 20 74 68 65 20 6d 61 | 69 6e 20 64 61 74 61 62 |t the ma|in datab|
|00002d20| 61 73 65 0d 0a 6d 2e 64 | 62 66 73 74 65 6d 20 3d |ase..m.d|bfstem =|
|00002d30| 20 6d 61 6b 65 61 6c 69 | 61 73 28 6a 75 73 74 73 | makeali|as(justs|
|00002d40| 74 65 6d 28 6d 2e 64 62 | 66 6e 61 6d 65 29 29 0d |tem(m.db|fname)).|
|00002d50| 0a 53 45 4c 45 43 54 20 | 28 6d 2e 64 62 66 73 74 |.SELECT |(m.dbfst|
|00002d60| 65 6d 29 0d 0a 0d 0a 6d | 2e 73 6b 69 70 76 61 72 |em)....m|.skipvar|
|00002d70| 20 3d 20 2e 54 2e 0d 0a | 6d 2e 67 65 6e 5f 6e 61 | = .T...|m.gen_na|
|00002d80| 6d 65 20 3d 20 2e 46 2e | 0d 0a 0d 0a 2a 20 44 65 |me = .F.|....* De|
|00002d90| 66 61 75 6c 74 20 71 75 | 65 72 79 20 6e 61 6d 65 |fault qu|ery name|
|00002da0| 20 69 73 20 74 68 65 20 | 64 61 74 61 62 61 73 65 | is the |database|
|00002db0| 20 6e 61 6d 65 20 77 69 | 74 68 20 61 20 51 50 52 | name wi|th a QPR|
|00002dc0| 20 65 78 74 65 6e 73 69 | 6f 6e 2e 0d 0a 6d 2e 71 | extensi|on...m.q|
|00002dd0| 6e 61 6d 65 20 3d 20 61 | 64 64 62 73 28 6d 2e 71 |name = a|ddbs(m.q|
|00002de0| 70 72 70 61 74 68 29 20 | 2b 20 66 6f 72 63 65 65 |prpath) |+ forcee|
|00002df0| 78 74 28 6a 75 73 74 66 | 6e 61 6d 65 28 6d 2e 64 |xt(justf|name(m.d|
|00002e00| 62 66 6e 61 6d 65 29 2c | 27 51 50 52 27 29 0d 0a |bfname),|'QPR')..|
|00002e10| 0d 0a 2a 20 49 66 20 74 | 68 65 72 65 20 61 72 65 |..* If t|here are|
|00002e20| 20 6d 75 6c 74 69 70 6c | 65 20 64 61 74 61 62 61 | multipl|e databa|
|00002e30| 73 65 73 20 69 6e 20 74 | 68 69 73 20 61 70 70 2c |ses in t|his app,|
|00002e40| 20 63 72 65 61 74 65 20 | 61 20 71 75 65 72 79 20 | create |a query |
|00002e50| 74 65 6d 70 6c 61 74 65 | 0d 0a 2a 20 73 6f 20 74 |template|..* so t|
|00002e60| 68 61 74 20 74 68 65 20 | 75 73 65 72 20 64 6f 65 |hat the |user doe|
|00002e70| 73 6e 27 74 20 68 61 76 | 65 20 74 6f 20 65 6e 74 |sn't hav|e to ent|
|00002e80| 65 72 20 61 6c 6c 20 74 | 68 65 20 72 65 6c 61 74 |er all t|he relat|
|00002e90| 69 6f 6e 73 20 61 67 61 | 69 6e 2e 0d 0a 49 46 20 |ions aga|in...IF |
|00002ea0| 6d 2e 6e 65 78 74 64 62 | 66 20 3e 20 32 20 41 4e |m.nextdb|f > 2 AN|
|00002eb0| 44 20 54 59 50 45 28 22 | 64 62 66 6c 69 73 74 22 |D TYPE("|dbflist"|
|00002ec0| 29 20 3c 3e 20 22 55 22 | 0d 0a 20 20 20 2a 20 43 |) <> "U"|.. * C|
|00002ed0| 72 65 61 74 65 20 61 20 | 62 6c 61 6e 6b 20 71 75 |reate a |blank qu|
|00002ee0| 65 72 79 20 66 69 6c 65 | 20 74 6f 20 70 61 73 73 |ery file| to pass|
|00002ef0| 20 74 68 65 20 64 61 74 | 61 62 61 73 65 73 20 61 | the dat|abases a|
|00002f00| 6e 64 20 72 65 6c 61 74 | 69 6f 6e 73 0d 0a 20 20 |nd relat|ions.. |
|00002f10| 20 2a 20 61 6c 6f 6e 67 | 20 74 6f 20 52 51 42 45 | * along| to RQBE|
|00002f20| 0d 0a 0d 0a 20 20 20 2a | 20 54 72 79 20 74 6f 20 |.... *| Try to |
|00002f30| 63 6f 6d 65 20 75 70 20 | 77 69 74 68 20 61 20 72 |come up |with a r|
|00002f40| 65 61 73 6f 6e 61 62 6c | 65 2d 73 6f 75 6e 64 69 |easonabl|e-soundi|
|00002f50| 6e 67 20 75 6e 69 71 75 | 65 20 6e 61 6d 65 20 66 |ng uniqu|e name f|
|00002f60| 6f 72 20 74 68 65 20 71 | 75 65 72 79 2c 0d 0a 20 |or the q|uery,.. |
|00002f70| 20 20 2a 20 69 66 20 74 | 68 65 20 64 65 66 61 75 | * if t|he defau|
|00002f80| 6c 74 20 6e 61 6d 65 20 | 69 73 20 61 6c 72 65 61 |lt name |is alrea|
|00002f90| 64 79 20 74 61 6b 65 6e | 2e 0d 0a 20 20 20 6d 2e |dy taken|... m.|
|00002fa0| 69 20 3d 20 30 0d 0a 20 | 20 20 44 4f 20 57 48 49 |i = 0.. | DO WHI|
|00002fb0| 4c 45 20 46 49 4c 45 28 | 6d 2e 71 6e 61 6d 65 29 |LE FILE(|m.qname)|
|00002fc0| 20 41 4e 44 20 69 20 3c | 20 31 30 30 0d 0a 20 20 | AND i <| 100.. |
|00002fd0| 20 20 20 20 6d 2e 71 6e | 61 6d 65 20 3d 20 41 4c | m.qn|ame = AL|
|00002fe0| 4c 54 52 49 4d 28 4c 45 | 46 54 28 6a 75 73 74 73 |LTRIM(LE|FT(justs|
|00002ff0| 74 65 6d 28 6d 2e 71 6e | 61 6d 65 29 2c 36 29 29 |tem(m.qn|ame),6))|
|00003000| 20 2b 20 53 54 52 28 6d | 2e 69 2c 32 29 0d 0a 20 | + STR(m|.i,2).. |
|00003010| 20 20 20 20 20 6d 2e 71 | 6e 61 6d 65 20 3d 20 43 | m.q|name = C|
|00003020| 48 52 54 52 41 4e 28 6d | 2e 71 6e 61 6d 65 2c 27 |HRTRAN(m|.qname,'|
|00003030| 20 27 2c 27 30 27 29 0d | 0a 20 20 20 20 20 20 6d | ','0').|. m|
|00003040| 2e 71 6e 61 6d 65 20 3d | 20 66 6f 72 63 65 65 78 |.qname =| forceex|
|00003050| 74 28 6d 2e 71 6e 61 6d | 65 2c 27 51 50 52 27 29 |t(m.qnam|e,'QPR')|
|00003060| 0d 0a 20 20 20 20 20 20 | 6d 2e 71 6e 61 6d 65 20 |.. |m.qname |
|00003070| 3d 20 61 64 64 62 73 28 | 6d 2e 71 70 72 70 61 74 |= addbs(|m.qprpat|
|00003080| 68 29 20 2b 20 6d 2e 71 | 6e 61 6d 65 0d 0a 20 20 |h) + m.q|name.. |
|00003090| 20 20 20 20 6d 2e 69 20 | 3d 20 6d 2e 69 20 2b 20 | m.i |= m.i + |
|000030a0| 31 0d 0a 20 20 20 45 4e | 44 44 4f 0d 0a 0d 0a 20 |1.. EN|DDO.... |
|000030b0| 20 20 2a 20 50 72 6f 6d | 70 74 20 74 68 65 20 75 | * Prom|pt the u|
|000030c0| 73 65 72 20 66 6f 72 20 | 74 68 65 20 71 75 65 72 |ser for |the quer|
|000030d0| 79 20 6e 61 6d 65 20 61 | 6e 64 20 61 6c 6c 6f 77 |y name a|nd allow|
|000030e0| 20 63 68 61 6e 67 65 73 | 2e 20 0d 0a 20 20 20 2a | changes|. .. *|
|000030f0| 20 43 68 61 6e 67 65 20 | 74 6f 20 74 68 65 20 64 | Change |to the d|
|00003100| 69 72 65 63 74 6f 72 79 | 20 74 68 65 20 75 73 65 |irectory| the use|
|00003110| 72 20 77 61 6e 74 73 20 | 74 6f 20 75 73 65 20 73 |r wants |to use s|
|00003120| 6f 20 74 68 61 74 20 74 | 68 65 20 0d 0a 20 20 20 |o that t|he .. |
|00003130| 2a 20 50 55 54 46 49 4c | 45 20 64 69 72 65 63 74 |* PUTFIL|E direct|
|00003140| 6f 72 79 20 64 65 66 61 | 75 6c 74 73 20 61 72 65 |ory defa|ults are|
|00003150| 20 72 69 67 68 74 2e 0d | 0a 20 20 20 6d 2e 69 6e | right..|. m.in|
|00003160| 5f 64 69 72 20 3d 20 53 | 45 54 28 27 44 45 46 41 |_dir = S|ET('DEFA|
|00003170| 55 4c 54 27 29 2b 43 55 | 52 44 49 52 28 29 0d 0a |ULT')+CU|RDIR()..|
|00003180| 20 20 20 53 45 54 20 44 | 45 46 41 55 4c 54 20 54 | SET D|EFAULT T|
|00003190| 4f 20 28 71 70 72 70 61 | 74 68 29 0d 0a 20 20 20 |O (qprpa|th).. |
|000031a0| 6d 2e 71 6e 61 6d 65 20 | 3d 20 50 55 54 46 49 4c |m.qname |= PUTFIL|
|000031b0| 45 28 27 51 75 65 72 79 | 20 6e 61 6d 65 27 2c 6d |E('Query| name',m|
|000031c0| 2e 71 6e 61 6d 65 2c 27 | 51 50 52 27 2c 27 4f 4b |.qname,'|QPR','OK|
|000031d0| 27 29 0d 0a 20 20 20 53 | 45 54 20 44 45 46 41 55 |').. S|ET DEFAU|
|000031e0| 4c 54 20 54 4f 20 28 6d | 2e 69 6e 5f 64 69 72 29 |LT TO (m|.in_dir)|
|000031f0| 0d 0a 0d 0a 20 20 20 49 | 46 20 45 4d 50 54 59 28 |.... I|F EMPTY(|
|00003200| 6d 2e 71 6e 61 6d 65 29 | 20 20 20 26 26 20 75 73 |m.qname)| && us|
|00003210| 65 72 20 63 68 61 6e 67 | 65 64 20 68 69 73 20 6d |er chang|ed his m|
|00003220| 69 6e 64 2e 0d 0a 20 20 | 20 20 20 20 6d 2e 73 6b |ind... | m.sk|
|00003230| 69 70 76 61 72 20 3d 20 | 2e 46 2e 0d 0a 20 20 20 |ipvar = |.F... |
|00003240| 20 20 20 52 45 54 55 52 | 4e 0d 0a 20 20 20 45 4c | RETUR|N.. EL|
|00003250| 53 45 0d 0a 20 20 20 20 | 20 20 2a 20 55 73 65 20 |SE.. | * Use |
|00003260| 74 68 69 73 20 70 61 74 | 68 20 66 6f 72 20 66 75 |this pat|h for fu|
|00003270| 74 75 72 65 20 71 75 65 | 72 69 65 73 0d 0a 20 20 |ture que|ries.. |
|00003280| 20 20 20 20 6d 2e 71 70 | 72 70 61 74 68 20 3d 20 | m.qp|rpath = |
|00003290| 6a 75 73 74 70 61 74 68 | 28 6d 2e 71 6e 61 6d 65 |justpath|(m.qname|
|000032a0| 29 0d 0a 20 20 20 45 4e | 44 49 46 0d 0a 0d 0a 20 |).. EN|DIF.... |
|000032b0| 20 20 2a 20 43 72 65 61 | 74 65 20 74 68 65 20 71 | * Crea|te the q|
|000032c0| 75 65 72 79 20 74 65 6d | 70 6c 61 74 65 20 66 69 |uery tem|plate fi|
|000032d0| 6c 65 0d 0a 20 20 20 53 | 45 54 20 54 45 58 54 4d |le.. S|ET TEXTM|
|000032e0| 45 52 47 45 20 54 4f 20 | 28 6d 2e 71 6e 61 6d 65 |ERGE TO |(m.qname|
|000032f0| 29 0d 0a 20 20 20 53 45 | 54 20 54 45 58 54 4d 45 |).. SE|T TEXTME|
|00003300| 52 47 45 20 4f 4e 0d 0a | 20 20 20 53 45 54 20 43 |RGE ON..| SET C|
|00003310| 4f 4e 53 4f 4c 45 20 4f | 46 46 0d 0a 0d 0a 20 20 |ONSOLE O|FF.... |
|00003320| 20 6d 2e 67 65 6e 5f 6e | 61 6d 65 20 3d 20 2e 54 | m.gen_n|ame = .T|
|00003330| 2e 20 20 20 20 20 26 26 | 20 6e 6f 74 65 20 74 68 |. &&| note th|
|00003340| 61 74 20 74 68 69 73 20 | 69 73 20 61 20 67 65 6e |at this |is a gen|
|00003350| 65 72 61 74 65 64 20 66 | 69 6c 65 0d 0a 0d 0a 20 |erated f|ile.... |
|00003360| 20 20 5c 53 45 4c 45 43 | 54 20 2a 20 3b 0d 0a 20 | \SELEC|T * ;.. |
|00003370| 20 20 5c 20 46 52 4f 4d | 20 3c 3c 64 62 66 6c 69 | \ FROM| <<dbfli|
|00003380| 73 74 5b 31 2c 6d 2e 63 | 73 74 65 6d 6e 75 6d 5d |st[1,m.c|stemnum]|
|00003390| 3e 3e 0d 0a 20 20 20 46 | 4f 52 20 6d 2e 69 20 3d |>>.. F|OR m.i =|
|000033a0| 20 32 20 54 4f 20 6d 2e | 6e 65 78 74 64 62 66 20 | 2 TO m.|nextdbf |
|000033b0| 2d 20 31 0d 0a 20 20 20 | 20 20 20 5c 5c 2c 20 3c |- 1.. | \\, <|
|000033c0| 3c 64 62 66 6c 69 73 74 | 5b 6d 2e 69 2c 6d 2e 63 |<dbflist|[m.i,m.c|
|000033d0| 73 74 65 6d 6e 75 6d 5d | 3e 3e 0d 0a 20 20 20 45 |stemnum]|>>.. E|
|000033e0| 4e 44 46 4f 52 0d 0a 20 | 20 20 5c 5c 20 3b 0d 0a |NDFOR.. | \\ ;..|
|000033f0| 20 20 20 5c 20 57 48 45 | 52 45 20 3b 20 0d 0a 20 | \ WHE|RE ; .. |
|00003400| 20 20 46 4f 52 20 6d 2e | 69 20 3d 20 32 20 54 4f | FOR m.|i = 2 TO|
|00003410| 20 6d 2e 6e 65 78 74 64 | 62 66 20 2d 20 31 0d 0a | m.nextd|bf - 1..|
|00003420| 20 20 20 20 20 20 49 46 | 20 6d 2e 69 20 3e 20 32 | IF| m.i > 2|
|00003430| 0d 0a 20 20 20 20 20 20 | 20 20 20 5c 20 20 20 41 |.. | \ A|
|00003440| 4e 44 0d 0a 20 20 20 20 | 20 20 45 4c 53 45 0d 0a |ND.. | ELSE..|
|00003450| 20 20 20 20 20 20 20 20 | 20 5c 0d 0a 20 20 20 20 | | \.. |
|00003460| 20 20 45 4e 44 49 46 0d | 0a 20 20 20 20 20 20 5c | ENDIF.|. \|
|00003470| 5c 20 20 20 3c 3c 64 62 | 66 6c 69 73 74 5b 6d 2e |\ <<db|flist[m.|
|00003480| 69 2c 6d 2e 63 66 6c 64 | 6e 75 6d 5d 3e 3e 20 3d |i,m.cfld|num]>> =|
|00003490| 20 3c 3c 64 62 66 6c 69 | 73 74 5b 6d 2e 69 2c 6d | <<dbfli|st[m.i,m|
|000034a0| 2e 70 66 6c 64 6e 75 6d | 5d 3e 3e 20 3b 0d 0a 20 |.pfldnum|]>> ;.. |
|000034b0| 20 20 45 4e 44 46 4f 52 | 0d 0a 20 20 20 5c 49 4e | ENDFOR|.. \IN|
|000034c0| 54 4f 20 43 55 52 53 4f | 52 20 46 6f 78 41 70 70 |TO CURSO|R FoxApp|
|000034d0| 0d 0a 20 20 20 5c 42 52 | 4f 57 53 45 20 4e 4f 4d |.. \BR|OWSE NOM|
|000034e0| 4f 44 49 46 59 0d 0a 0d | 0a 20 20 20 53 45 54 20 |ODIFY...|. SET |
|000034f0| 43 4f 4e 53 4f 4c 45 20 | 4f 4e 0d 0a 20 20 20 53 |CONSOLE |ON.. S|
|00003500| 45 54 20 54 45 58 54 4d | 45 52 47 45 20 4f 46 46 |ET TEXTM|ERGE OFF|
|00003510| 0d 0a 20 20 20 53 45 54 | 20 54 45 58 54 4d 45 52 |.. SET| TEXTMER|
|00003520| 47 45 20 54 4f 0d 0a 45 | 4c 53 45 0d 0a 20 20 20 |GE TO..E|LSE.. |
|00003530| 2a 20 50 72 6f 6d 70 74 | 20 74 68 65 20 75 73 65 |* Prompt| the use|
|00003540| 72 20 66 6f 72 20 74 68 | 65 20 71 75 65 72 79 20 |r for th|e query |
|00003550| 6e 61 6d 65 0d 0a 20 20 | 20 6d 2e 71 6e 61 6d 65 |name.. | m.qname|
|00003560| 20 3d 20 50 55 54 46 49 | 4c 45 28 27 51 75 65 72 | = PUTFI|LE('Quer|
|00003570| 79 20 6e 61 6d 65 27 2c | 6d 2e 71 6e 61 6d 65 2c |y name',|m.qname,|
|00003580| 27 51 50 52 27 2c 27 4f | 4b 27 29 0d 0a 45 4e 44 |'QPR','O|K')..END|
|00003590| 49 46 0d 0a 0d 0a 49 46 | 20 21 45 4d 50 54 59 28 |IF....IF| !EMPTY(|
|000035a0| 6d 2e 71 6e 61 6d 65 29 | 0d 0a 20 20 20 6d 2e 77 |m.qname)|.. m.w|
|000035b0| 69 6e 5f 6e 61 6d 65 20 | 3d 20 57 4f 55 54 50 55 |in_name |= WOUTPU|
|000035c0| 54 28 29 0d 0a 20 20 20 | 41 43 54 49 56 41 54 45 |T().. |ACTIVATE|
|000035d0| 20 53 43 52 45 45 4e 0d | 0a 20 20 20 49 46 20 46 | SCREEN.|. IF F|
|000035e0| 49 4c 45 28 6d 2e 71 6e | 61 6d 65 29 0d 0a 20 20 |ILE(m.qn|ame).. |
|000035f0| 20 20 20 20 4d 4f 44 49 | 46 59 20 51 55 45 52 59 | MODI|FY QUERY|
|00003600| 20 28 6d 2e 71 6e 61 6d | 65 29 0d 0a 20 20 20 45 | (m.qnam|e).. E|
|00003610| 4c 53 45 0d 0a 20 20 20 | 20 20 20 43 52 45 41 54 |LSE.. | CREAT|
|00003620| 45 20 51 55 45 52 59 20 | 28 6d 2e 71 6e 61 6d 65 |E QUERY |(m.qname|
|00003630| 29 0d 0a 20 20 20 45 4e | 44 49 46 0d 0a 20 20 20 |).. EN|DIF.. |
|00003640| 43 4c 45 41 52 0d 0a 20 | 20 20 49 46 20 21 45 4d |CLEAR.. | IF !EM|
|00003650| 50 54 59 28 6d 2e 77 69 | 6e 5f 6e 61 6d 65 29 0d |PTY(m.wi|n_name).|
|00003660| 0a 20 20 20 20 20 20 41 | 43 54 49 56 41 54 45 20 |. A|CTIVATE |
|00003670| 57 49 4e 44 4f 57 20 28 | 6d 2e 77 69 6e 5f 6e 61 |WINDOW (|m.win_na|
|00003680| 6d 65 29 0d 0a 20 20 20 | 45 4e 44 49 46 0d 0a 45 |me).. |ENDIF..E|
|00003690| 4c 53 45 0d 0a 20 20 20 | 2a 20 44 65 6c 65 74 65 |LSE.. |* Delete|
|000036a0| 20 74 68 69 73 20 66 69 | 6c 65 20 69 66 20 69 74 | this fi|le if it|
|000036b0| 20 77 61 73 20 61 20 67 | 65 6e 65 72 61 74 65 64 | was a g|enerated|
|000036c0| 20 66 69 6c 65 20 61 6e | 64 20 74 68 65 20 0d 0a | file an|d the ..|
|000036d0| 20 20 20 2a 20 75 73 65 | 72 20 63 61 6e 63 65 6c | * use|r cancel|
|000036e0| 6c 65 64 20 74 68 65 20 | 71 75 65 72 79 2e 0d 0a |led the |query...|
|000036f0| 20 20 20 49 46 20 6d 2e | 67 65 6e 5f 6e 61 6d 65 | IF m.|gen_name|
|00003700| 20 41 4e 44 20 46 49 4c | 45 28 6d 2e 71 6e 61 6d | AND FIL|E(m.qnam|
|00003710| 65 29 0d 0a 20 20 20 20 | 20 20 44 45 4c 45 54 45 |e).. | DELETE|
|00003720| 20 46 49 4c 45 20 6d 2e | 71 6e 61 6d 65 0d 0a 20 | FILE m.|qname.. |
|00003730| 20 20 45 4e 44 49 46 0d | 0a 45 4e 44 49 46 0d 0a | ENDIF.|.ENDIF..|
|00003740| 49 46 20 45 4d 50 54 59 | 28 6f 70 65 6e 64 62 66 |IF EMPTY|(opendbf|
|00003750| 28 6d 2e 64 62 66 6e 61 | 6d 65 29 29 0d 0a 20 20 |(m.dbfna|me)).. |
|00003760| 20 6d 2e 64 62 66 6e 61 | 6d 65 20 3d 20 4c 4f 43 | m.dbfna|me = LOC|
|00003770| 46 49 4c 45 28 6d 2e 64 | 62 66 6e 61 6d 65 2c 27 |FILE(m.d|bfname,'|
|00003780| 44 42 46 27 2c 27 50 6c | 65 61 73 65 20 6c 6f 63 |DBF','Pl|ease loc|
|00003790| 61 74 65 20 74 68 65 20 | 64 61 74 61 62 61 73 65 |ate the |database|
|000037a0| 27 29 0d 0a 45 4e 44 49 | 46 0d 0a 6d 2e 73 6b 69 |')..ENDI|F..m.ski|
|000037b0| 70 76 61 72 20 3d 20 2e | 46 2e 0d 0a 0d 0a 49 46 |pvar = .|F.....IF|
|000037c0| 20 46 49 4c 45 28 27 71 | 70 72 76 69 65 77 2e 76 | FILE('q|prview.v|
|000037d0| 75 65 27 29 0d 0a 20 20 | 20 53 45 54 20 56 49 45 |ue').. | SET VIE|
|000037e0| 57 20 54 4f 20 71 70 72 | 76 69 65 77 0d 0a 45 4e |W TO qpr|view..EN|
|000037f0| 44 49 46 0d 0a 4b 45 59 | 42 4f 41 52 44 20 43 48 |DIF..KEY|BOARD CH|
|00003800| 52 28 32 37 29 20 20 20 | 26 26 20 66 6f 72 63 65 |R(27) |&& force|
|00003810| 20 73 63 72 65 65 6e 20 | 72 65 66 72 65 73 68 0d | screen |refresh.|
|00003820| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003830| 00 00 00 00 00 00 00 01 | 00 00 00 0b 5c 3c 52 65 |........|....\<Re|
|00003840| 70 6f 72 74 2e 2e 2e 00 | 00 00 00 00 00 00 00 00 |port....|........|
|00003850| 00 00 00 00 00 00 00 00 | 01 00 00 00 06 43 54 52 |........|.....CTR|
|00003860| 4c 2b 52 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |L+R.....|........|
|00003870| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 06 43 74 |........|......Ct|
|00003880| 72 6c 2b 52 00 00 00 00 | 00 00 00 00 00 00 00 00 |rl+R....|........|
|00003890| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 07 73 |........|.......s|
|000038a0| 6b 69 70 76 61 72 00 00 | 00 00 00 00 00 00 00 00 |kipvar..|........|
|000038b0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 60 |........|.......`|
|000038c0| 49 46 20 21 6d 2e 72 65 | 67 65 6e 0d 0a 20 20 20 |IF !m.re|gen.. |
|000038d0| 6d 2e 6d 6e 61 6d 65 20 | 3d 20 27 70 72 74 6f 70 |m.mname |= 'prtop|
|000038e0| 74 73 2e 70 72 67 27 0d | 0a 45 4c 53 45 0d 0a 20 |ts.prg'.|.ELSE.. |
|000038f0| 20 20 6d 2e 6d 6e 61 6d | 65 20 3d 20 27 70 72 74 | m.mnam|e = 'prt|
|00003900| 6f 70 74 73 2e 73 70 72 | 27 0d 0a 45 4e 44 49 46 |opts.spr|'..ENDIF|
|00003910| 0d 0a 44 4f 20 28 6d 2e | 6d 6e 61 6d 65 29 0d 0a |..DO (m.|mname)..|
|00003920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00003940| 00 00 00 0b 5c 3c 55 74 | 69 6c 69 74 69 65 73 00 |....\<Ut|ilities.|
|00003950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003960| 01 00 00 00 05 41 4c 54 | 2b 55 00 00 00 00 00 00 |.....ALT|+U......|
|00003970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003980| 00 01 00 00 00 01 20 00 | 00 00 00 00 00 00 00 00 |...... .|........|
|00003990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039a0| 00 00 01 00 00 00 09 55 | 74 69 6c 69 74 69 65 73 |.......U|tilities|
|000039b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039c0| 00 00 00 01 00 00 00 10 | 5c 3c 52 65 66 72 65 73 |........|\<Refres|
|000039d0| 68 20 53 63 72 65 65 6e | 00 00 00 00 00 00 00 00 |h Screen|........|
|000039e0| 00 00 00 00 01 00 00 00 | 07 73 6b 69 70 76 61 72 |........|.skipvar|
|000039f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a00| 00 00 00 00 00 01 00 00 | 00 41 3d 61 63 74 77 69 |........|.A=actwi|
|00003a10| 6e 28 6d 2e 77 69 6e 5f | 6e 61 6d 65 29 20 20 20 |n(m.win_|name) |
|00003a20| 26 26 20 61 63 74 69 76 | 61 74 65 20 75 73 65 72 |&& activ|ate user|
|00003a30| 20 77 69 6e 64 6f 77 0d | 0a 4b 45 59 42 4f 41 52 | window.|.KEYBOAR|
|00003a40| 44 20 43 48 52 28 32 37 | 29 0d 0a 00 00 00 00 00 |D CHR(27|).......|
|00003a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a60| 00 00 00 00 00 00 00 00 | 01 00 00 00 11 5c 3c 43 |........|.....\<C|
|00003a70| 6f 6e 73 74 72 75 63 74 | 20 49 6e 64 65 78 00 00 |onstruct| Index..|
|00003a80| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 07 73 6b |........|......sk|
|00003a90| 69 70 76 61 72 00 00 00 | 00 00 00 00 00 00 00 00 |ipvar...|........|
|00003aa0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 77 44 |........|......wD|
|00003ab0| 4f 20 69 6e 76 65 72 74 | 20 57 49 54 48 20 41 4c |O invert| WITH AL|
|00003ac0| 49 41 53 28 29 0d 0a 53 | 45 54 20 4f 52 44 45 52 |IAS()..S|ET ORDER|
|00003ad0| 20 54 4f 20 31 0d 0a 47 | 4f 54 4f 20 54 4f 50 0d | TO 1..G|OTO TOP.|
|00003ae0| 0a 5f 43 55 52 4f 42 4a | 20 3d 20 31 0d 0a 57 41 |._CUROBJ| = 1..WA|
|00003af0| 49 54 20 57 49 4e 44 4f | 57 20 22 52 65 69 6e 64 |IT WINDO|W "Reind|
|00003b00| 65 78 69 6e 67 20 63 6f | 6d 70 6c 65 74 65 64 22 |exing co|mpleted"|
|00003b10| 20 4e 4f 57 41 49 54 0d | 0a 53 48 4f 57 20 47 45 | NOWAIT.|.SHOW GE|
|00003b20| 54 53 0d 0a 0d 0a 00 00 | 00 00 00 00 00 00 01 00 |TS......|........|
|00003b30| 00 00 06 5c 3c 50 61 63 | 6b 00 00 00 00 00 00 00 |...\<Pac|k.......|
|00003b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00003b50| 00 00 00 07 73 6b 69 70 | 76 61 72 00 00 00 00 00 |....skip|var.....|
|00003b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b70| 01 00 00 00 dd 50 41 43 | 4b 20 20 20 26 26 20 61 |.....PAC|K && a|
|00003b80| 6c 73 6f 20 72 65 69 6e | 64 65 78 65 73 20 74 68 |lso rein|dexes th|
|00003b90| 65 20 66 69 6c 65 0d 0a | 53 45 54 20 4f 52 44 45 |e file..|SET ORDE|
|00003ba0| 52 20 54 4f 20 31 0d 0a | 47 4f 54 4f 20 54 4f 50 |R TO 1..|GOTO TOP|
|00003bb0| 0d 0a 49 46 20 52 45 43 | 43 4f 55 4e 54 28 29 20 |..IF REC|COUNT() |
|00003bc0| 3d 20 30 0d 0a 20 20 20 | 41 50 50 45 4e 44 20 42 |= 0.. |APPEND B|
|00003bd0| 4c 41 4e 4b 0d 0a 45 4e | 44 49 46 0d 0a 57 41 49 |LANK..EN|DIF..WAI|
|00003be0| 54 20 57 49 4e 44 4f 57 | 20 22 50 61 63 6b 20 63 |T WINDOW| "Pack c|
|00003bf0| 6f 6d 70 6c 65 74 65 64 | 22 20 4e 4f 57 41 49 54 |ompleted|" NOWAIT|
|00003c00| 0d 0a 4b 45 59 42 4f 41 | 52 44 20 43 48 52 28 32 |..KEYBOA|RD CHR(2|
|00003c10| 37 29 20 20 20 20 26 26 | 20 63 61 75 73 65 73 20 |7) &&| causes |
|00003c20| 73 63 72 65 65 6e 20 72 | 65 66 72 65 73 68 20 61 |screen r|efresh a|
|00003c30| 6e 64 20 72 65 73 74 6f | 72 65 73 20 62 72 6f 77 |nd resto|res brow|
|00003c40| 73 65 73 0d 0a 53 48 4f | 57 20 47 45 54 53 0d 0a |ses..SHO|W GETS..|
|00003c50| 0d 0a 00 00 00 00 00 01 | 00 00 00 06 5c 3c 48 65 |........|....\<He|
|00003c60| 6c 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |lp......|........|
|00003c70| 00 00 00 00 00 00 00 00 | 01 00 00 00 05 41 4c 54 |........|.....ALT|
|00003c80| 2b 53 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |+S......|........|
|00003c90| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 04 48 65 |........|......He|
|00003ca0| 6c 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |lp......|........|
|00003cb0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 09 5c |........|.......\|
|00003cc0| 3c 48 65 6c 70 2e 2e 2e | 00 00 00 00 00 00 00 00 |<Help...|........|
|00003cd0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 02 |........|........|
|00003ce0| 46 31 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |F1......|........|
|00003cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00003d00| 02 46 31 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.F1.....|........|
|00003d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00003d20| 00 09 5f 4d 53 54 5f 48 | 45 4c 50 00 00 00 00 00 |.._MST_H|ELP.....|
|00003d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00003d40| 00 00 02 5c 2d 00 00 00 | 00 00 00 00 00 00 00 00 |...\-...|........|
|00003d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00003d60| 00 00 00 08 5c 3c 4d 61 | 63 72 6f 73 00 00 00 00 |....\<Ma|cros....|
|00003d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d80| 01 00 00 00 0a 5f 4d 53 | 54 5f 4d 41 43 52 4f 00 |....._MS|T_MACRO.|
|00003d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003da0| 00 01 00 00 00 0c 5c 3c | 43 61 6c 63 75 6c 61 74 |......\<|Calculat|
|00003db0| 6f 72 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |or......|........|
|00003dc0| 00 00 01 00 00 00 0a 5f | 4d 53 54 5f 43 41 4c 43 |......._|MST_CALC|
|00003dd0| 55 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |U.......|........|
|00003de0| 00 00 00 01 00 00 00 10 | 43 61 6c 65 6e 64 61 72 |........|Calendar|
|00003df0| 2f 5c 3c 44 69 61 72 79 | c9 fe 11 00 7b 17 32 fb |/\<Diary|....{.2.|
|00003e00| 00 00 00 00 01 00 00 00 | 0a 5f 4d 53 54 5f 44 49 |........|._MST_DI|
|00003e10| 41 52 59 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ARY.....|........|
|00003e20| 00 00 00 00 00 01 00 00 | 00 08 50 75 5c 3c 7a 7a |........|..Pu\<zz|
|00003e30| 6c 65 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |le......|........|
|00003e40| 00 00 00 00 00 00 01 00 | 00 00 0a 5f 4d 53 54 5f |........|..._MST_|
|00003e50| 50 55 5a 5a 4c 00 00 00 | 00 00 00 00 00 00 00 00 |PUZZL...|........|
|00003e60| 00 00 00 00 00 00 00 01 | 00 00 00 02 5c 2d 00 00 |........|....\-..|
|00003e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e80| 00 00 00 00 00 00 00 00 | 01 00 00 00 07 4e 65 77 |........|.....New|
|00003e90| 49 74 65 6d 00 00 00 00 | 00 00 00 00 00 00 00 00 |Item....|........|
|00003ea0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0a 5c 3c |........|......\<|
|00003eb0| 41 62 6f 75 74 2e 2e 2e | 00 00 00 00 00 00 00 00 |About...|........|
|00003ec0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 5a 49 |........|......ZI|
|00003ed0| 46 20 21 72 65 67 65 6e | 0d 0a 20 20 20 6d 6e 61 |F !regen|.. mna|
|00003ee0| 6d 65 20 3d 20 27 61 70 | 70 61 62 6f 75 74 2e 70 |me = 'ap|pabout.p|
|00003ef0| 72 67 27 0d 0a 45 4c 53 | 45 0d 0a 20 20 20 6d 6e |rg'..ELS|E.. mn|
|00003f00| 61 6d 65 20 3d 20 27 61 | 70 70 61 62 6f 75 74 2e |ame = 'a|ppabout.|
|00003f10| 73 70 72 27 0d 0a 45 4e | 44 49 46 0d 0a 44 4f 20 |spr'..EN|DIF..DO |
|00003f20| 28 6d 6e 61 6d 65 29 0d | 0a |(mname).|. |
+--------+-------------------------+-------------------------+--------+--------+
