home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-03-10 | 61.3 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
|
|---|
| 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, 1902 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)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 07 6e 00 00 00 21 | 00 00 00 00 00 00 00 00 |...n...!|........|
|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 06 | 61 70 70 67 65 6e 00 00 |........|appgen..|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 01 00 00 00 | 20 22 20 46 6f 78 50 72 |........| " FoxPr|
|00000240| 6f 20 41 70 70 6c 69 63 | 61 74 69 6f 6e 20 47 65 |o Applic|ation Ge|
|00000250| 6e 65 72 61 74 6f 72 20 | 22 00 00 00 00 00 00 00 |nerator |".......|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 01 00 | 00 00 17 3f 3f 20 43 48 |........|...?? CH|
|00000280| 52 28 37 29 0d 0a 52 45 | 54 55 52 4e 20 2e 46 2e |R(7)..RE|TURN .F.|
|00000290| 0d 0a 00 00 00 00 00 01 | 00 00 00 0c 61 70 70 73 |........|....apps|
|000002a0| 63 78 73 68 6f 77 28 29 | 00 00 00 00 00 00 00 00 |cxshow()|........|
|000002b0| 00 00 00 00 00 00 00 00 | 01 00 00 22 c9 2a 21 2a |........|...".*!*|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0a 2a 21 |********|****..*!|
|00000310| 0d 0a 2a 3a 20 20 20 20 | 20 50 72 6f 67 72 61 6d |..*: | Program|
|00000320| 3a 20 41 50 50 53 43 58 | 20 2d 20 53 45 54 55 50 |: APPSCX| - SETUP|
|00000330| 0d 0a 2a 21 0d 0a 2a 21 | 2a 2a 2a 2a 2a 2a 2a 2a |..*!..*!|********|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 2a 2a 2a 0d 0a 2a | 20 46 6f 78 41 70 70 20 |*****..*| FoxApp |
|00000390| 32 2e 35 20 2d 2d 20 46 | 6f 78 50 72 6f 20 32 2e |2.5 -- F|oxPro 2.|
|000003a0| 35 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 67 65 |5 applic|ation ge|
|000003b0| 6e 65 72 61 74 6f 72 0d | 0a 2a 20 41 75 74 68 6f |nerator.|.* Autho|
|000003c0| 72 3a 20 57 61 6c 74 65 | 72 20 4a 2e 20 4b 65 6e |r: Walte|r J. Ken|
|000003d0| 6e 61 6d 65 72 0d 0a 2a | 20 43 6f 70 79 72 69 67 |namer..*| Copyrig|
|000003e0| 68 74 20 31 39 39 33 2c | 20 4d 69 63 72 6f 73 6f |ht 1993,| Microso|
|000003f0| 66 74 20 43 6f 72 70 6f | 72 61 74 69 6f 6e 0d 0a |ft Corpo|ration..|
|00000400| 2a 0d 0a 23 54 52 41 4e | 20 53 4e 49 50 50 45 54 |*..#TRAN| SNIPPET|
|00000410| 20 4f 4e 4c 59 0d 0a 23 | 53 45 43 54 49 4f 4e 20 | ONLY..#|SECTION |
|00000420| 31 0d 0a 23 53 45 43 54 | 49 4f 4e 20 32 0d 0a 0d |1..#SECT|ION 2...|
|00000430| 0a 2a 20 43 6c 65 61 72 | 20 6f 75 74 20 61 6e 79 |.* Clear| out any|
|00000440| 20 6f 66 20 74 68 65 73 | 65 20 70 75 62 6c 69 63 | of thes|e public|
|00000450| 20 76 61 72 69 61 62 6c | 65 73 20 74 68 61 74 20 | variabl|es that |
|00000460| 6d 61 79 20 61 6c 72 65 | 61 64 79 20 65 78 69 73 |may alre|ady exis|
|00000470| 74 0d 0a 2a 20 4e 6f 74 | 65 3a 20 6d 2e 61 70 70 |t..* Not|e: m.app|
|00000480| 66 69 6c 65 20 77 61 73 | 20 6f 72 69 67 69 6e 61 |file was| origina|
|00000490| 6c 6c 20 69 6e 20 74 68 | 69 73 20 6c 69 73 74 2c |ll in th|is list,|
|000004a0| 20 62 75 74 20 77 61 73 | 20 72 65 6d 6f 76 65 64 | but was| removed|
|000004b0| 2e 20 49 74 27 73 20 6e | 6f 77 0d 0a 2a 20 69 6e |. It's n|ow..* in|
|000004c0| 69 74 69 61 6c 69 7a 65 | 64 20 69 6e 20 46 58 41 |itialize|d in FXA|
|000004d0| 50 43 4f 44 45 2e 50 52 | 47 2e 0d 0a 0d 0a 52 45 |PCODE.PR|G.....RE|
|000004e0| 4c 45 41 53 45 20 6d 6e | 75 6e 61 6d 65 2c 20 64 |LEASE mn|uname, d|
|000004f0| 62 66 6e 61 6d 65 2c 20 | 73 63 78 6e 61 6d 65 2c |bfname, |scxname,|
|00000500| 20 72 65 70 6e 61 6d 65 | 2c 20 74 6d 66 6e 61 6d | repname|, tmfnam|
|00000510| 65 2c 20 3b 0d 0a 20 20 | 20 64 62 66 6c 69 73 74 |e, ;.. | dbflist|
|00000520| 2c 20 66 69 72 73 74 74 | 69 6d 65 2c 3b 0d 0a 20 |, firstt|ime,;.. |
|00000530| 20 20 6f 72 69 67 6e 61 | 6d 65 2c 20 61 70 70 5f | origna|me, app_|
|00000540| 65 72 72 6f 72 2c 20 61 | 70 70 5f 65 73 63 61 70 |error, a|pp_escap|
|00000550| 65 0d 0a 50 55 42 4c 49 | 43 20 20 6d 6e 75 6e 61 |e..PUBLI|C mnuna|
|00000560| 6d 65 2c 20 64 62 66 6e | 61 6d 65 2c 20 73 63 78 |me, dbfn|ame, scx|
|00000570| 6e 61 6d 65 2c 20 72 65 | 70 6e 61 6d 65 2c 20 74 |name, re|pname, t|
|00000580| 6d 66 6e 61 6d 65 2c 20 | 3b 0d 0a 20 20 20 6f 72 |mfname, |;.. or|
|00000590| 69 67 6e 61 6d 65 2c 20 | 61 70 70 5f 65 72 72 6f |igname, |app_erro|
|000005a0| 72 2c 20 61 70 70 5f 65 | 73 63 61 70 65 0d 0a 0d |r, app_e|scape...|
|000005b0| 0a 2a 20 53 74 6f 72 65 | 20 6f 70 65 6e 20 64 61 |.* Store| open da|
|000005c0| 74 61 62 61 73 65 73 2c | 20 65 74 63 2e 20 66 6f |tabases,| etc. fo|
|000005d0| 72 20 72 65 73 74 6f 72 | 61 74 69 6f 6e 20 61 74 |r restor|ation at|
|000005e0| 20 70 72 6f 67 72 61 6d | 20 74 65 72 6d 69 6e 61 | program| termina|
|000005f0| 74 69 6f 6e 0d 0a 43 52 | 45 41 54 45 20 56 49 45 |tion..CR|EATE VIE|
|00000600| 57 20 66 6f 78 61 70 70 | 0d 0a 0d 0a 50 55 53 48 |W foxapp|....PUSH|
|00000610| 20 4b 45 59 0d 0a 0d 0a | 2a 20 53 65 74 20 73 63 | KEY....|* Set sc|
|00000620| 72 65 65 6e 20 66 6f 6e | 74 20 74 6f 20 73 6f 6d |reen fon|t to som|
|00000630| 65 74 68 69 6e 67 20 72 | 65 61 73 6f 6e 61 62 6c |ething r|easonabl|
|00000640| 65 0d 0a 49 46 20 21 20 | 5f 44 4f 53 0d 0a 20 20 |e..IF ! |_DOS.. |
|00000650| 6d 2e 73 63 72 6e 5f 66 | 6f 6e 74 20 20 20 3d 20 |m.scrn_f|ont = |
|00000660| 57 46 4f 4e 54 28 31 2c | 22 22 29 0d 0a 20 20 6d |WFONT(1,|"").. m|
|00000670| 2e 73 63 72 6e 5f 66 73 | 69 7a 65 20 20 3d 20 57 |.scrn_fs|ize = W|
|00000680| 46 4f 4e 54 28 32 2c 22 | 22 29 0d 0a 20 20 6d 2e |FONT(2,"|").. m.|
|00000690| 73 63 72 6e 5f 66 73 74 | 79 6c 65 20 3d 20 57 46 |scrn_fst|yle = WF|
|000006a0| 4f 4e 54 28 33 2c 22 22 | 29 0d 0a 20 20 4d 4f 44 |ONT(3,""|).. MOD|
|000006b0| 49 46 59 20 57 49 4e 44 | 4f 57 20 53 43 52 45 45 |IFY WIND|OW SCREE|
|000006c0| 4e 20 46 4f 4e 54 20 6d | 2e 67 5f 64 66 6c 74 66 |N FONT m|.g_dfltf|
|000006d0| 66 61 63 65 2c 6d 2e 67 | 5f 64 66 6c 74 66 73 69 |face,m.g|_dfltfsi|
|000006e0| 7a 65 20 53 54 59 4c 45 | 20 6d 2e 67 5f 64 66 6c |ze STYLE| m.g_dfl|
|000006f0| 74 66 73 74 79 6c 65 0d | 0a 45 4e 44 49 46 0d 0a |tfstyle.|.ENDIF..|
|00000700| 0d 0a 2a 20 53 74 61 72 | 74 20 77 69 74 68 20 61 |..* Star|t with a|
|00000710| 20 63 6c 65 61 6e 20 73 | 6c 61 74 65 2d 2d 74 68 | clean s|late--th|
|00000720| 65 79 20 77 69 6c 6c 20 | 62 65 20 72 65 73 74 6f |ey will |be resto|
|00000730| 72 65 64 20 61 74 20 63 | 6c 65 61 6e 2d 75 70 2e |red at c|lean-up.|
|00000740| 0d 0a 43 4c 4f 53 45 20 | 44 41 54 41 42 41 53 45 |..CLOSE |DATABASE|
|00000750| 53 0d 0a 0d 0a 2a 20 4e | 6f 74 65 20 74 68 65 20 |S....* N|ote the |
|00000760| 63 75 72 72 65 6e 74 20 | 4f 4e 20 45 52 52 4f 52 |current |ON ERROR|
|00000770| 20 72 6f 75 74 69 6e 65 | 20 73 6f 20 74 68 61 74 | routine| so that|
|00000780| 20 77 65 20 63 61 6e 20 | 72 65 73 74 6f 72 65 20 | we can |restore |
|00000790| 69 74 20 6c 61 74 65 72 | 2e 0d 0a 6d 2e 61 70 70 |it later|...m.app|
|000007a0| 5f 65 72 72 6f 72 20 3d | 20 4f 4e 28 27 45 52 52 |_error =| ON('ERR|
|000007b0| 4f 52 27 29 0d 0a 0d 0a | 2a 20 54 68 69 73 20 4f |OR')....|* This O|
|000007c0| 4e 20 45 52 52 4f 52 20 | 72 6f 75 74 69 6e 65 20 |N ERROR |routine |
|000007d0| 69 73 20 69 6e 20 74 68 | 65 20 63 6c 65 61 6e 75 |is in th|e cleanu|
|000007e0| 70 20 73 6e 69 70 70 65 | 74 0d 0a 4f 4e 20 45 52 |p snippe|t..ON ER|
|000007f0| 52 4f 52 20 44 4f 20 61 | 70 70 65 72 72 6f 72 20 |ROR DO a|pperror |
|00000800| 57 49 54 48 20 50 52 4f | 47 52 41 4d 28 29 2c 4d |WITH PRO|GRAM(),M|
|00000810| 45 53 53 41 47 45 28 29 | 2c 4d 45 53 53 41 47 45 |ESSAGE()|,MESSAGE|
|00000820| 28 31 29 2c 4c 49 4e 45 | 4e 4f 28 29 2c 45 52 52 |(1),LINE|NO(),ERR|
|00000830| 4f 52 28 29 0d 0a 0d 0a | 2a 20 4e 6f 74 65 20 74 |OR()....|* Note t|
|00000840| 68 65 20 63 75 72 72 65 | 6e 74 20 4f 4e 20 45 53 |he curre|nt ON ES|
|00000850| 43 41 50 45 20 72 6f 75 | 74 69 6e 65 20 73 6f 20 |CAPE rou|tine so |
|00000860| 74 68 61 74 20 77 65 20 | 63 61 6e 20 72 65 73 74 |that we |can rest|
|00000870| 6f 72 65 20 69 74 20 6c | 61 74 65 72 2e 0d 0a 6d |ore it l|ater...m|
|00000880| 2e 61 70 70 5f 65 73 63 | 61 70 65 20 3d 20 4f 4e |.app_esc|ape = ON|
|00000890| 28 27 45 53 43 41 50 45 | 27 29 0d 0a 0d 0a 2a 20 |('ESCAPE|')....* |
|000008a0| 54 68 69 73 20 4f 4e 20 | 45 53 43 41 50 45 20 72 |This ON |ESCAPE r|
|000008b0| 6f 75 74 69 6e 65 20 69 | 73 20 69 6e 20 74 68 65 |outine i|s in the|
|000008c0| 20 63 6c 65 61 6e 75 70 | 20 73 6e 69 70 70 65 74 | cleanup| snippet|
|000008d0| 0d 0a 4f 4e 20 45 53 43 | 41 50 45 20 44 4f 20 61 |..ON ESC|APE DO a|
|000008e0| 70 70 65 73 63 61 70 65 | 20 57 49 54 48 20 50 52 |ppescape| WITH PR|
|000008f0| 4f 47 52 41 4d 28 29 2c | 4d 45 53 53 41 47 45 28 |OGRAM(),|MESSAGE(|
|00000900| 29 2c 4d 45 53 53 41 47 | 45 28 31 29 2c 4c 49 4e |),MESSAG|E(1),LIN|
|00000910| 45 4e 4f 28 29 2c 45 52 | 52 4f 52 28 29 0d 0a 0d |ENO(),ER|ROR()...|
|00000920| 0a 0d 0a 53 45 54 20 53 | 59 53 4d 45 4e 55 20 41 |...SET S|YSMENU A|
|00000930| 55 54 4f 4d 41 54 49 43 | 0d 0a 50 55 53 48 20 4d |UTOMATIC|..PUSH M|
|00000940| 45 4e 55 20 5f 6d 73 79 | 73 6d 65 6e 75 0d 0a 0d |ENU _msy|smenu...|
|00000950| 0a 6d 2e 61 70 70 70 61 | 74 68 6c 65 6e 20 3d 20 |.m.apppa|thlen = |
|00000960| 49 49 46 28 5f 4d 41 43 | 2c 31 33 30 2c 37 39 29 |IIF(_MAC|,130,79)|
|00000970| 20 20 20 20 20 26 26 20 | 6d 61 78 69 6d 75 6d 20 | && |maximum |
|00000980| 66 69 6c 65 20 61 6e 64 | 20 70 61 74 68 20 6c 65 |file and| path le|
|00000990| 6e 67 74 68 20 66 6f 72 | 20 66 69 6c 65 20 6e 61 |ngth for| file na|
|000009a0| 6d 65 73 0d 0a 0d 0a 6d | 2e 64 62 66 6e 61 6d 65 |mes....m|.dbfname|
|000009b0| 20 20 3d 20 53 50 41 43 | 45 28 6d 2e 61 70 70 70 | = SPAC|E(m.appp|
|000009c0| 61 74 68 6c 65 6e 29 0d | 0a 6d 2e 73 63 78 6e 61 |athlen).|.m.scxna|
|000009d0| 6d 65 20 20 3d 20 53 50 | 41 43 45 28 6d 2e 61 70 |me = SP|ACE(m.ap|
|000009e0| 70 70 61 74 68 6c 65 6e | 29 0d 0a 6d 2e 72 65 70 |ppathlen|)..m.rep|
|000009f0| 6e 61 6d 65 20 20 3d 20 | 53 50 41 43 45 28 6d 2e |name = |SPACE(m.|
|00000a00| 61 70 70 70 61 74 68 6c | 65 6e 29 0d 0a 6d 2e 6d |apppathl|en)..m.m|
|00000a10| 6e 75 6e 61 6d 65 20 20 | 3d 20 27 41 50 50 4d 45 |nuname |= 'APPME|
|00000a20| 4e 55 2e 4d 4e 58 27 0d | 0a 6d 2e 67 65 6e 65 72 |NU.MNX'.|.m.gener|
|00000a30| 61 74 65 20 3d 20 30 0d | 0a 6d 2e 63 61 6e 63 62 |ate = 0.|.m.cancb|
|00000a40| 75 74 20 20 3d 20 30 0d | 0a 6d 2e 61 64 64 64 62 |ut = 0.|.m.adddb|
|00000a50| 66 20 20 20 3d 20 30 0d | 0a 6d 2e 61 64 64 73 63 |f = 0.|.m.addsc|
|00000a60| 78 20 20 20 3d 20 30 0d | 0a 6d 2e 6d 6f 64 73 63 |x = 0.|.m.modsc|
|00000a70| 78 20 20 20 3d 20 30 0d | 0a 6d 2e 6d 6f 64 64 62 |x = 0.|.m.moddb|
|00000a80| 66 20 20 20 3d 20 30 0d | 0a 0d 0a 6d 2e 64 62 66 |f = 0.|...m.dbf|
|00000a90| 6e 61 6d 65 20 20 3d 20 | 55 50 50 45 52 28 50 41 |name = |UPPER(PA|
|00000aa0| 44 52 28 6d 2e 64 62 66 | 6e 61 6d 65 2c 6d 2e 61 |DR(m.dbf|name,m.a|
|00000ab0| 70 70 70 61 74 68 6c 65 | 6e 29 29 0d 0a 6d 2e 73 |pppathle|n))..m.s|
|00000ac0| 63 78 6e 61 6d 65 20 20 | 3d 20 55 50 50 45 52 28 |cxname |= UPPER(|
|00000ad0| 50 41 44 52 28 6d 2e 73 | 63 78 6e 61 6d 65 2c 6d |PADR(m.s|cxname,m|
|00000ae0| 2e 61 70 70 70 61 74 68 | 6c 65 6e 29 29 0d 0a 6d |.apppath|len))..m|
|00000af0| 2e 72 65 70 6e 61 6d 65 | 20 20 3d 20 55 50 50 45 |.repname| = UPPE|
|00000b00| 52 28 50 41 44 52 28 6d | 2e 72 65 70 6e 61 6d 65 |R(PADR(m|.repname|
|00000b10| 2c 6d 2e 61 70 70 70 61 | 74 68 6c 65 6e 29 29 0d |,m.apppa|thlen)).|
|00000b20| 0a 6d 2e 6d 6e 75 6e 61 | 6d 65 20 20 3d 20 55 50 |.m.mnuna|me = UP|
|00000b30| 50 45 52 28 50 41 44 52 | 28 6d 2e 6d 6e 75 6e 61 |PER(PADR|(m.mnuna|
|00000b40| 6d 65 2c 6d 2e 61 70 70 | 70 61 74 68 6c 65 6e 29 |me,m.app|pathlen)|
|00000b50| 29 0d 0a 0d 0a 2a 20 48 | 69 64 65 20 74 68 65 20 |)....* H|ide the |
|00000b60| 63 6f 6d 6d 61 6e 64 20 | 77 69 6e 64 6f 77 2d 2d |command |window--|
|00000b70| 6e 65 63 65 73 73 61 72 | 79 20 69 66 20 77 65 27 |necessar|y if we'|
|00000b80| 72 65 20 72 75 6e 6e 69 | 6e 67 20 66 72 6f 6d 20 |re runni|ng from |
|00000b90| 74 68 65 20 73 79 73 74 | 65 6d 20 6d 65 6e 75 2e |the syst|em menu.|
|00000ba0| 0d 0a 49 46 20 57 56 49 | 53 49 42 4c 45 28 22 43 |..IF WVI|SIBLE("C|
|00000bb0| 4f 4d 4d 41 4e 44 22 29 | 0d 0a 20 20 20 48 49 44 |OMMAND")|.. HID|
|00000bc0| 45 20 57 49 4e 44 4f 57 | 20 43 4f 4d 4d 41 4e 44 |E WINDOW| COMMAND|
|00000bd0| 0d 0a 45 4e 44 49 46 0d | 0a 0d 0a 6d 2e 6e 75 6d |..ENDIF.|...m.num|
|00000be0| 63 6f 6c 73 20 20 20 3d | 20 20 31 33 20 20 20 26 |cols =| 13 &|
|00000bf0| 26 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 6f 6c 75 |& number| of colu|
|00000c00| 6d 6e 73 20 69 6e 20 44 | 42 46 4c 49 53 54 20 61 |mns in D|BFLIST a|
|00000c10| 72 72 61 79 2c 20 62 65 | 6c 6f 77 0d 0a 6d 2e 6e |rray, be|low..m.n|
|00000c20| 75 6d 61 72 65 61 73 20 | 20 3d 20 20 32 35 20 20 |umareas | = 25 |
|00000c30| 20 26 26 20 6e 75 6d 62 | 65 72 20 6f 66 20 64 61 | && numb|er of da|
|00000c40| 74 61 62 61 73 65 20 61 | 72 65 61 73 20 73 75 70 |tabase a|reas sup|
|00000c50| 70 6f 72 74 65 64 2e 0d | 0a 0d 0a 2a 20 53 65 74 |ported..|...* Set|
|00000c60| 20 75 70 20 64 65 66 69 | 6e 69 74 69 6f 6e 73 20 | up defi|nitions |
|00000c70| 66 6f 72 20 44 42 46 4c | 49 53 54 20 61 72 72 61 |for DBFL|IST arra|
|00000c80| 79 2c 20 64 65 63 6c 61 | 72 65 64 20 77 68 65 6e |y, decla|red when|
|00000c90| 20 22 52 65 6c 61 74 65 | 64 22 20 69 73 20 70 75 | "Relate|d" is pu|
|00000ca0| 73 68 65 64 2e 0d 0a 2a | 20 44 42 46 4c 49 53 54 |shed...*| DBFLIST|
|00000cb0| 20 68 61 73 20 4f 6e 65 | 20 72 6f 77 20 70 65 72 | has One| row per|
|00000cc0| 20 64 61 74 61 62 61 73 | 65 20 69 6e 20 74 68 65 | databas|e in the|
|00000cd0| 20 46 6f 78 41 70 70 20 | 61 70 70 6c 69 63 61 74 | FoxApp |applicat|
|00000ce0| 69 6f 6e 0d 0a 2a 20 52 | 6f 77 20 31 20 63 6f 6e |ion..* R|ow 1 con|
|00000cf0| 74 61 69 6e 73 20 64 61 | 74 61 20 6f 6e 20 74 68 |tains da|ta on th|
|00000d00| 65 20 6d 61 69 6e 20 64 | 61 74 61 62 61 73 65 0d |e main d|atabase.|
|00000d10| 0a 2a 0d 0a 2a 20 43 6f | 6c 75 6d 6e 20 20 20 20 |.*..* Co|lumn |
|00000d20| 20 20 20 20 20 4d 65 61 | 6e 69 6e 67 0d 0a 2a 20 | Mea|ning..* |
|00000d30| 20 20 31 20 20 20 20 20 | 20 20 20 20 20 20 20 53 | 1 | S|
|00000d40| 74 65 6d 20 6e 61 6d 65 | 20 66 6f 72 20 63 68 69 |tem name| for chi|
|00000d50| 6c 64 20 64 61 74 61 62 | 61 73 65 0d 0a 2a 20 20 |ld datab|ase..* |
|00000d60| 20 32 20 20 20 20 20 20 | 20 20 20 20 20 20 53 45 | 2 | SE|
|00000d70| 54 20 52 45 4c 41 54 49 | 4f 4e 20 63 6f 6d 6d 61 |T RELATI|ON comma|
|00000d80| 6e 64 0d 0a 2a 20 20 20 | 33 20 20 20 20 20 20 20 |nd..* |3 |
|00000d90| 20 20 20 20 20 50 61 72 | 65 6e 74 20 66 69 65 6c | Par|ent fiel|
|00000da0| 64 20 6e 61 6d 65 20 66 | 6f 72 20 72 65 6c 61 74 |d name f|or relat|
|00000db0| 69 6f 6e 0d 0a 2a 20 20 | 20 34 20 20 20 20 20 20 |ion..* | 4 |
|00000dc0| 20 20 20 20 20 20 43 68 | 69 6c 64 20 66 69 65 6c | Ch|ild fiel|
|00000dd0| 64 20 6e 61 6d 65 20 66 | 6f 72 20 72 65 6c 61 74 |d name f|or relat|
|00000de0| 69 6f 6e 0d 0a 2a 20 20 | 20 35 20 20 20 20 20 20 |ion..* | 5 |
|00000df0| 20 20 20 20 20 20 46 75 | 6c 6c 20 70 61 74 68 2f | Fu|ll path/|
|00000e00| 66 69 6c 65 6e 61 6d 65 | 20 66 6f 72 20 74 68 69 |filename| for thi|
|00000e10| 73 20 63 68 69 6c 64 20 | 64 61 74 61 62 61 73 65 |s child |database|
|00000e20| 0d 0a 2a 20 20 20 36 20 | 20 20 20 20 20 20 20 20 |..* 6 | |
|00000e30| 20 20 20 4e 61 6d 65 20 | 6f 66 20 70 61 72 65 6e | Name |of paren|
|00000e40| 74 20 64 61 74 61 62 61 | 73 65 0d 0a 2a 20 63 6f |t databa|se..* co|
|00000e50| 6c 75 6d 6e 20 6e 75 6d | 62 65 72 73 20 69 6e 20 |lumn num|bers in |
|00000e60| 64 62 66 6c 69 73 74 20 | 61 72 72 61 79 0d 0a 6d |dbflist |array..m|
|00000e70| 2e 63 73 74 65 6d 6e 75 | 6d 20 20 3d 20 20 31 20 |.cstemnu|m = 1 |
|00000e80| 20 20 26 26 20 63 6f 6c | 75 6d 6e 20 6e 75 6d 62 | && col|umn numb|
|00000e90| 65 72 20 66 6f 72 20 63 | 68 69 6c 64 20 64 61 74 |er for c|hild dat|
|00000ea0| 61 62 61 73 65 20 73 74 | 65 6d 0d 0a 6d 2e 72 65 |abase st|em..m.re|
|00000eb0| 6c 73 74 72 6e 75 6d 20 | 3d 20 20 32 20 20 20 26 |lstrnum |= 2 &|
|00000ec0| 26 20 63 6f 6c 75 6d 6e | 20 6e 75 6d 62 65 72 20 |& column| number |
|00000ed0| 66 6f 72 20 73 65 74 20 | 72 65 6c 61 74 69 6f 6e |for set |relation|
|00000ee0| 20 73 74 72 69 6e 67 0d | 0a 6d 2e 70 66 6c 64 6e | string.|.m.pfldn|
|00000ef0| 75 6d 20 20 20 3d 20 20 | 33 20 20 20 26 26 20 63 |um = |3 && c|
|00000f00| 6f 6c 75 6d 6e 20 6e 75 | 6d 62 65 72 20 66 6f 72 |olumn nu|mber for|
|00000f10| 20 70 61 72 65 6e 74 20 | 66 69 65 6c 64 20 69 6e | parent |field in|
|00000f20| 20 74 68 65 20 72 65 6c | 61 74 69 6f 6e 0d 0a 6d | the rel|ation..m|
|00000f30| 2e 63 66 6c 64 6e 75 6d | 20 20 20 3d 20 20 34 20 |.cfldnum| = 4 |
|00000f40| 20 20 26 26 20 63 6f 6c | 75 6d 6e 20 6e 75 6d 62 | && col|umn numb|
|00000f50| 65 72 20 66 6f 72 20 63 | 68 69 6c 64 20 66 69 65 |er for c|hild fie|
|00000f60| 6c 64 20 69 6e 20 74 68 | 65 20 72 65 6c 61 74 69 |ld in th|e relati|
|00000f70| 6f 6e 0d 0a 6d 2e 63 64 | 62 66 6e 75 6d 20 20 20 |on..m.cd|bfnum |
|00000f80| 3d 20 20 35 20 20 20 26 | 26 20 63 6f 6c 75 6d 6e |= 5 &|& column|
|00000f90| 20 6e 75 6d 62 65 72 20 | 66 6f 72 20 63 68 69 6c | number |for chil|
|00000fa0| 64 20 64 61 74 61 62 61 | 73 65 0d 0a 6d 2e 70 64 |d databa|se..m.pd|
|00000fb0| 62 66 6e 75 6d 20 20 20 | 3d 20 20 36 20 20 20 26 |bfnum |= 6 &|
|00000fc0| 26 20 63 6f 6c 75 6d 6e | 20 6e 75 6d 62 65 72 20 |& column| number |
|00000fd0| 66 6f 72 20 70 61 72 65 | 6e 74 20 64 61 74 61 62 |for pare|nt datab|
|00000fe0| 61 73 65 0d 0a 6d 2e 73 | 72 6f 77 6e 75 6d 20 20 |ase..m.s|rownum |
|00000ff0| 20 3d 20 20 37 20 20 20 | 26 26 20 63 6f 6c 75 6d | = 7 |&& colum|
|00001000| 6e 20 6e 75 6d 62 65 72 | 20 66 6f 72 20 73 74 61 |n number| for sta|
|00001010| 72 74 69 6e 67 20 72 6f | 77 20 70 6f 73 69 74 69 |rting ro|w positi|
|00001020| 6f 6e 20 28 73 74 72 29 | 0d 0a 6d 2e 73 63 6f 6c |on (str)|..m.scol|
|00001030| 6e 75 6d 20 20 20 3d 20 | 20 38 20 20 20 26 26 20 |num = | 8 && |
|00001040| 63 6f 6c 75 6d 6e 20 6e | 75 6d 62 65 72 20 66 6f |column n|umber fo|
|00001050| 72 20 73 74 61 72 74 69 | 6e 67 20 63 6f 6c 75 6d |r starti|ng colum|
|00001060| 6e 20 70 6f 73 69 74 69 | 6f 6e 20 28 73 74 72 29 |n positi|on (str)|
|00001070| 0d 0a 6d 2e 65 72 6f 77 | 6e 75 6d 20 20 20 3d 20 |..m.erow|num = |
|00001080| 20 39 20 20 20 26 26 20 | 63 6f 6c 75 6d 6e 20 6e | 9 && |column n|
|00001090| 75 6d 62 65 72 20 66 6f | 72 20 65 6e 64 69 6e 67 |umber fo|r ending|
|000010a0| 20 72 6f 77 20 70 6f 73 | 69 74 69 6f 6e 20 28 73 | row pos|ition (s|
|000010b0| 74 72 29 0d 0a 6d 2e 65 | 63 6f 6c 6e 75 6d 20 20 |tr)..m.e|colnum |
|000010c0| 20 3d 20 31 30 20 20 20 | 26 26 20 63 6f 6c 75 6d | = 10 |&& colum|
|000010d0| 6e 20 6e 75 6d 62 65 72 | 20 66 6f 72 20 65 6e 64 |n number| for end|
|000010e0| 69 6e 67 20 63 6f 6c 75 | 6d 6e 20 70 6f 73 69 74 |ing colu|mn posit|
|000010f0| 69 6f 6e 20 28 73 74 72 | 29 0d 0a 6d 2e 61 72 72 |ion (str|)..m.arr|
|00001100| 61 6e 67 65 64 20 20 3d | 20 31 31 20 20 20 26 26 |anged =| 11 &&|
|00001110| 20 63 6f 6c 75 6d 6e 20 | 6e 75 6d 62 65 72 20 66 | column |number f|
|00001120| 6f 72 20 61 72 72 61 6e | 67 65 64 3f 20 66 6c 61 |or arran|ged? fla|
|00001130| 67 0d 0a 6d 2e 74 68 65 | 66 6f 6e 74 20 20 20 3d |g..m.the|font =|
|00001140| 20 31 32 20 20 20 26 26 | 20 66 6f 6e 74 20 66 6f | 12 &&| font fo|
|00001150| 72 20 74 68 69 73 20 62 | 72 6f 77 73 65 20 77 69 |r this b|rowse wi|
|00001160| 6e 64 6f 77 0d 0a 6d 2e | 63 61 73 63 61 64 65 6e |ndow..m.|cascaden|
|00001170| 75 6d 3d 20 31 33 20 20 | 20 26 26 20 70 65 72 66 |um= 13 | && perf|
|00001180| 6f 72 6d 20 63 61 73 63 | 61 64 69 6e 67 20 64 65 |orm casc|ading de|
|00001190| 6c 65 74 65 73 20 6f 6e | 20 74 68 69 73 20 64 61 |letes on| this da|
|000011a0| 74 61 62 61 73 65 3f 0d | 0a 0d 0a 6d 2e 63 74 72 |tabase?.|...m.ctr|
|000011b0| 6c 72 6f 77 20 20 20 3d | 20 4d 41 58 28 52 4f 55 |lrow =| MAX(ROU|
|000011c0| 4e 44 28 53 52 4f 57 53 | 28 29 2d 35 2e 35 2c 30 |ND(SROWS|()-5.5,0|
|000011d0| 29 2c 30 29 20 20 20 20 | 20 20 26 26 20 64 65 66 |),0) | && def|
|000011e0| 61 75 6c 74 20 72 6f 77 | 20 70 6f 73 69 74 69 6f |ault row| positio|
|000011f0| 6e 20 66 6f 72 20 63 6f | 6e 74 72 6f 6c 20 70 61 |n for co|ntrol pa|
|00001200| 6e 65 6c 0d 0a 6d 2e 63 | 74 72 6c 63 6f 6c 20 20 |nel..m.c|trlcol |
|00001210| 20 3d 20 4d 41 58 28 52 | 4f 55 4e 44 28 53 43 4f | = MAX(R|OUND(SCO|
|00001220| 4c 53 28 29 2f 32 2d 37 | 34 2f 32 2c 30 29 2c 30 |LS()/2-7|4/2,0),0|
|00001230| 29 20 26 26 20 64 65 66 | 61 75 6c 74 20 63 6f 6c |) && def|ault col|
|00001240| 75 6d 6e 20 70 6f 73 69 | 74 69 6f 6e 20 66 6f 72 |umn posi|tion for|
|00001250| 20 63 6f 6e 74 72 6f 6c | 20 70 61 6e 65 6c 0d 0a | control| panel..|
|00001260| 0d 0a 6d 2e 6e 65 78 74 | 64 62 66 20 20 20 3d 20 |..m.next|dbf = |
|00001270| 20 30 20 20 20 20 20 20 | 20 20 26 26 20 6e 65 78 | 0 | && nex|
|00001280| 74 20 64 62 66 6c 69 73 | 74 20 70 6f 73 69 74 69 |t dbflis|t positi|
|00001290| 6f 6e 2c 20 30 20 61 74 | 20 73 74 61 72 74 0d 0a |on, 0 at| start..|
|000012a0| 0d 0a 2a 20 4d 61 6b 65 | 20 74 68 65 20 63 75 72 |..* Make| the cur|
|000012b0| 72 65 6e 74 20 66 6f 6e | 74 20 74 68 65 20 64 65 |rent fon|t the de|
|000012c0| 66 61 75 6c 74 20 66 6f | 72 20 6e 65 77 20 77 69 |fault fo|r new wi|
|000012d0| 6e 64 6f 77 73 2f 62 72 | 6f 77 73 65 73 0d 0a 0d |ndows/br|owses...|
|000012e0| 0a 6d 2e 64 65 66 61 75 | 6c 74 66 6f 6e 74 20 3d |.m.defau|ltfont =|
|000012f0| 20 57 46 4f 4e 54 28 31 | 2c 22 22 29 2b 22 2c 22 | WFONT(1|,"")+","|
|00001300| 2b 41 4c 4c 54 52 49 4d | 28 53 54 52 28 57 46 4f |+ALLTRIM|(STR(WFO|
|00001310| 4e 54 28 32 2c 22 22 29 | 2c 33 29 29 2b 22 2c 22 |NT(2,"")|,3))+","|
|00001320| 2b 57 46 4f 4e 54 28 33 | 2c 22 22 29 0d 0a 0d 0a |+WFONT(3|,"")....|
|00001330| 2a 20 53 65 74 20 74 68 | 65 20 64 65 66 61 75 6c |* Set th|e defaul|
|00001340| 74 20 66 6f 72 20 63 61 | 73 63 61 64 69 6e 67 20 |t for ca|scading |
|00001350| 64 65 6c 65 74 65 73 0d | 0a 6d 2e 64 65 66 61 75 |deletes.|.m.defau|
|00001360| 6c 74 63 61 73 63 20 3d | 20 27 4e 27 0d 0a 0d 0a |ltcasc =| 'N'....|
|00001370| 2a 20 53 65 74 20 64 65 | 66 61 75 6c 74 20 6f 70 |* Set de|fault op|
|00001380| 74 69 6f 6e 73 20 66 6f | 72 20 72 65 73 6f 75 72 |tions fo|r resour|
|00001390| 63 65 20 66 69 6c 65 20 | 68 61 6e 64 6c 69 6e 67 |ce file |handling|
|000013a0| 0d 0a 6d 2e 72 73 63 5f | 63 68 65 63 6b 20 3d 20 |..m.rsc_|check = |
|000013b0| 2e 46 2e 20 20 20 20 20 | 20 20 26 26 20 72 65 73 |.F. | && res|
|000013c0| 6f 75 72 63 65 20 66 69 | 6c 65 20 63 68 65 63 6b |ource fi|le check|
|000013d0| 65 64 20 66 6f 72 20 74 | 68 69 73 20 64 61 74 61 |ed for t|his data|
|000013e0| 62 61 73 65 20 79 65 74 | 3f 0d 0a 6d 2e 72 73 63 |base yet|?..m.rsc|
|000013f0| 5f 73 74 6f 72 65 64 3d | 20 2e 46 2e 20 20 20 20 |_stored=| .F. |
|00001400| 20 20 20 26 26 20 68 61 | 76 65 20 63 75 72 72 65 | && ha|ve curre|
|00001410| 6e 74 20 63 68 6f 69 63 | 65 73 20 62 65 65 6e 20 |nt choic|es been |
|00001420| 73 61 76 65 64 20 79 65 | 74 3f 0d 0a 0d 0a 2a 20 |saved ye|t?....* |
|00001430| 54 68 65 73 65 20 6f 70 | 74 69 6f 6e 73 20 63 61 |These op|tions ca|
|00001440| 6e 20 62 65 20 72 65 73 | 65 74 20 6f 6e 20 74 68 |n be res|et on th|
|00001450| 65 20 61 64 76 61 6e 63 | 65 64 20 6f 70 74 69 6f |e advanc|ed optio|
|00001460| 6e 73 20 73 63 72 65 65 | 6e 2e 0d 0a 2a 20 54 68 |ns scree|n...* Th|
|00001470| 65 69 72 20 64 65 66 61 | 75 6c 74 20 76 61 6c 75 |eir defa|ult valu|
|00001480| 65 73 20 61 72 65 20 73 | 65 74 20 62 61 73 65 64 |es are s|et based|
|00001490| 20 6f 6e 20 74 68 65 20 | 70 61 72 61 6d 65 74 65 | on the |paramete|
|000014a0| 72 73 20 70 61 73 73 65 | 64 20 74 6f 0d 0a 2a 20 |rs passe|d to..* |
|000014b0| 46 6f 78 41 70 70 2c 20 | 6f 72 20 74 6f 20 74 68 |FoxApp, |or to th|
|000014c0| 65 20 64 65 66 61 75 6c | 74 20 76 61 6c 75 65 20 |e defaul|t value |
|000014d0| 6f 66 20 72 73 63 75 73 | 65 64 2e 0d 0a 6d 2e 72 |of rscus|ed...m.r|
|000014e0| 65 74 72 69 65 76 65 72 | 73 63 20 3d 20 72 73 63 |etriever|sc = rsc|
|000014f0| 75 73 65 64 20 26 26 20 | 72 65 74 72 69 65 76 65 |used && |retrieve|
|00001500| 20 72 65 6c 61 74 69 6f | 6e 73 20 66 72 6f 6d 20 | relatio|ns from |
|00001510| 72 65 73 6f 75 72 63 65 | 20 66 69 6c 65 3f 0d 0a |resource| file?..|
|00001520| 6d 2e 73 74 6f 72 65 72 | 73 63 20 20 20 20 3d 20 |m.storer|sc = |
|00001530| 72 73 63 75 73 65 64 20 | 26 26 20 73 74 6f 72 65 |rscused |&& store|
|00001540| 20 72 65 6c 61 74 69 6f | 6e 73 20 74 6f 20 72 65 | relatio|ns to re|
|00001550| 73 6f 75 72 63 65 20 66 | 69 6c 65 3f 0d 0a 6d 2e |source f|ile?..m.|
|00001560| 72 73 63 74 79 70 65 20 | 20 20 20 20 3d 20 22 46 |rsctype | = "F|
|00001570| 4f 58 41 50 50 32 2e 30 | 41 22 20 20 20 20 26 26 |OXAPP2.0|A" &&|
|00001580| 20 74 79 70 65 20 63 6f | 64 65 20 66 6f 72 20 72 | type co|de for r|
|00001590| 65 73 6f 75 72 63 65 20 | 66 69 6c 65 20 65 6e 74 |esource |file ent|
|000015a0| 72 69 65 73 0d 0a 0d 0a | 2a 20 45 73 74 61 62 6c |ries....|* Establ|
|000015b0| 69 73 68 20 77 68 65 74 | 68 65 72 20 74 6f 20 70 |ish whet|her to p|
|000015c0| 75 74 20 46 6f 78 41 70 | 70 20 53 43 58 2f 53 50 |ut FoxAp|p SCX/SP|
|000015d0| 52 2f 4d 4e 58 2f 4d 50 | 52 20 66 69 6c 65 73 20 |R/MNX/MP|R files |
|000015e0| 69 6e 74 6f 20 74 68 65 | 0d 0a 2a 20 75 73 65 72 |into the|..* user|
|000015f0| 27 73 20 70 72 6f 6a 65 | 63 74 2c 20 77 68 69 63 |'s proje|ct, whic|
|00001600| 68 20 6d 61 6b 65 73 20 | 74 68 65 20 70 72 6f 6a |h makes |the proj|
|00001610| 65 63 74 20 6f 72 67 61 | 6e 69 7a 61 74 69 6f 6e |ect orga|nization|
|00001620| 20 65 61 73 79 20 74 6f | 0d 0a 2a 20 75 6e 64 65 | easy to|..* unde|
|00001630| 72 73 74 61 6e 64 20 61 | 6e 64 20 6d 6f 72 65 20 |rstand a|nd more |
|00001640| 22 46 6f 78 50 72 6f 2d | 6c 69 6b 65 2c 22 20 28 |"FoxPro-|like," (|
|00001650| 63 61 6c 6c 65 64 20 46 | 75 6c 6c 20 50 72 6f 6a |called F|ull Proj|
|00001660| 65 63 74 73 29 20 6f 72 | 20 50 52 47 0d 0a 2a 20 |ects) or| PRG..* |
|00001670| 66 69 6c 65 73 20 67 65 | 6e 65 72 61 74 65 64 20 |files ge|nerated |
|00001680| 66 72 6f 6d 20 74 68 65 | 20 53 43 58 2f 4d 4e 58 |from the| SCX/MNX|
|00001690| 20 66 69 6c 65 73 20 28 | 41 62 62 72 65 76 69 61 | files (|Abbrevia|
|000016a0| 74 65 64 20 50 72 6f 6a | 65 63 74 73 29 2e 0d 0a |ted Proj|ects)...|
|000016b0| 2a 20 54 68 65 20 6c 61 | 74 74 65 72 20 61 70 70 |* The la|tter app|
|000016c0| 72 6f 61 63 68 20 69 73 | 20 6d 6f 72 65 20 63 6f |roach is| more co|
|000016d0| 6e 66 75 73 69 6e 67 20 | 62 75 74 20 69 73 20 61 |nfusing |but is a|
|000016e0| 6c 73 6f 20 6d 75 63 68 | 20 66 61 73 74 65 72 0d |lso much| faster.|
|000016f0| 0a 2a 20 73 69 6e 63 65 | 20 74 68 65 20 46 6f 78 |.* since| the Fox|
|00001700| 41 70 70 20 70 69 65 63 | 65 73 20 28 65 2e 67 2e |App piec|es (e.g.|
|00001710| 2c 20 47 45 54 44 45 53 | 54 28 29 20 29 20 64 6f |, GETDES|T() ) do|
|00001720| 20 6e 6f 74 20 68 61 76 | 65 20 74 6f 20 62 65 0d | not hav|e to be.|
|00001730| 0a 2a 20 72 65 62 75 69 | 6c 74 20 77 68 65 6e 65 |.* rebui|lt whene|
|00001740| 76 65 72 20 61 20 75 73 | 65 72 20 70 72 6f 6a 65 |ver a us|er proje|
|00001750| 63 74 20 69 73 20 67 65 | 6e 65 72 61 74 65 64 2e |ct is ge|nerated.|
|00001760| 0d 0a 44 4f 20 43 41 53 | 45 0d 0a 43 41 53 45 20 |..DO CAS|E..CASE |
|00001770| 6d 2e 66 6f 72 63 65 72 | 65 67 65 6e 20 3d 20 31 |m.forcer|egen = 1|
|00001780| 0d 0a 20 20 20 6d 2e 72 | 65 67 65 6e 20 3d 20 2e |.. m.r|egen = .|
|00001790| 54 2e 0d 0a 43 41 53 45 | 20 66 6f 72 63 65 72 65 |T...CASE| forcere|
|000017a0| 67 65 6e 20 3d 20 32 0d | 0a 20 20 20 6d 2e 72 65 |gen = 2.|. m.re|
|000017b0| 67 65 6e 20 3d 20 2e 46 | 2e 0d 0a 4f 54 48 45 52 |gen = .F|...OTHER|
|000017c0| 57 49 53 45 0d 0a 20 20 | 20 2a 20 41 73 73 75 6d |WISE.. | * Assum|
|000017d0| 65 20 66 75 6c 6c 20 70 | 72 6f 6a 65 63 74 20 67 |e full p|roject g|
|000017e0| 65 6e 65 72 61 74 69 6f | 6e 2c 20 62 75 74 20 63 |eneratio|n, but c|
|000017f0| 68 65 63 6b 20 43 4f 4e | 46 49 47 2e 46 50 0d 0a |heck CON|FIG.FP..|
|00001800| 20 20 20 6d 2e 72 65 67 | 65 6e 20 3d 20 2e 54 2e | m.reg|en = .T.|
|00001810| 0d 0a 20 20 20 49 46 20 | 46 49 4c 45 28 53 59 53 |.. IF |FILE(SYS|
|00001820| 28 32 30 31 39 29 29 20 | 20 20 20 20 20 20 20 20 |(2019)) | |
|00001830| 26 26 20 66 69 6e 64 20 | 43 4f 4e 46 49 47 2e 46 |&& find |CONFIG.F|
|00001840| 50 2c 20 69 66 20 6f 6e | 65 20 65 78 69 73 74 73 |P, if on|e exists|
|00001850| 0d 0a 20 20 20 20 20 20 | 6d 2e 66 70 20 3d 20 46 |.. |m.fp = F|
|00001860| 4f 50 45 4e 28 53 59 53 | 28 32 30 31 39 29 2c 30 |OPEN(SYS|(2019),0|
|00001870| 29 20 26 26 20 6f 70 65 | 6e 20 43 4f 4e 46 49 47 |) && ope|n CONFIG|
|00001880| 2e 46 50 20 72 65 61 64 | 2d 6f 6e 6c 79 0d 0a 20 |.FP read|-only.. |
|00001890| 20 20 20 20 20 49 46 20 | 6d 2e 66 70 20 3e 20 30 | IF |m.fp > 0|
|000018a0| 0d 0a 20 20 20 20 20 20 | 20 20 20 44 4f 20 57 48 |.. | DO WH|
|000018b0| 49 4c 45 20 21 46 45 4f | 46 28 66 70 29 0d 0a 20 |ILE !FEO|F(fp).. |
|000018c0| 20 20 20 20 20 20 20 20 | 20 20 20 6d 2e 62 75 66 | | m.buf|
|000018d0| 66 65 72 20 3d 20 41 4c | 4c 54 52 49 4d 28 55 50 |fer = AL|LTRIM(UP|
|000018e0| 50 45 52 28 46 47 45 54 | 53 28 6d 2e 66 70 29 29 |PER(FGET|S(m.fp))|
|000018f0| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |).. | I|
|00001900| 46 20 4c 45 46 54 28 62 | 75 66 66 65 72 2c 36 29 |F LEFT(b|uffer,6)|
|00001910| 20 3d 3d 20 27 46 4f 58 | 41 50 50 27 0d 0a 20 20 | == 'FOX|APP'.. |
|00001920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 2e 62 | | m.b|
|00001930| 75 66 66 65 72 20 3d 20 | 41 4c 4c 54 52 49 4d 28 |uffer = |ALLTRIM(|
|00001940| 53 55 42 53 54 52 28 6d | 2e 62 75 66 66 65 72 2c |SUBSTR(m|.buffer,|
|00001950| 41 54 28 27 3d 27 2c 6d | 2e 62 75 66 66 65 72 29 |AT('=',m|.buffer)|
|00001960| 2b 31 29 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |+1)).. | |
|00001970| 20 20 20 20 20 6d 2e 72 | 65 67 65 6e 20 3d 20 28 | m.r|egen = (|
|00001980| 27 47 45 4e 45 52 41 54 | 45 27 20 24 20 6d 2e 62 |'GENERAT|E' $ m.b|
|00001990| 75 66 66 65 72 29 0d 0a | 20 20 20 20 20 20 20 20 |uffer)..| |
|000019a0| 20 20 20 20 45 4e 44 49 | 46 0d 0a 20 20 20 20 20 | ENDI|F.. |
|000019b0| 20 20 20 20 45 4e 44 44 | 4f 0d 0a 20 20 20 20 20 | ENDD|O.. |
|000019c0| 20 20 20 20 3d 46 43 4c | 4f 53 45 28 6d 2e 66 70 | =FCL|OSE(m.fp|
|000019d0| 29 0d 0a 20 20 20 20 20 | 20 45 4c 53 45 0d 0a 20 |).. | ELSE.. |
|000019e0| 20 20 20 20 20 20 20 20 | 57 41 49 54 20 57 49 4e | |WAIT WIN|
|000019f0| 44 4f 57 20 22 45 72 72 | 6f 72 20 6f 70 65 6e 69 |DOW "Err|or openi|
|00001a00| 6e 67 20 43 4f 4e 46 49 | 47 2e 46 50 2e 22 20 4e |ng CONFI|G.FP." N|
|00001a10| 4f 57 41 49 54 0d 0a 20 | 20 20 20 20 20 45 4e 44 |OWAIT.. | END|
|00001a20| 49 46 0d 0a 20 20 20 45 | 4e 44 49 46 0d 0a 45 4e |IF.. E|NDIF..EN|
|00001a30| 44 43 41 53 45 0d 0a 0d | 0a 2a 20 44 65 66 61 75 |DCASE...|.* Defau|
|00001a40| 6c 74 73 20 74 6f 20 5c | 46 4f 58 41 50 50 20 75 |lts to \|FOXAPP u|
|00001a50| 6e 64 65 72 6e 65 61 74 | 68 20 46 6f 78 50 72 6f |nderneat|h FoxPro|
|00001a60| 20 73 74 61 72 74 75 70 | 20 64 69 72 65 63 74 6f | startup| directo|
|00001a70| 72 79 0d 0a 6d 2e 66 6f | 78 61 70 70 64 69 72 20 |ry..m.fo|xappdir |
|00001a80| 3d 20 61 64 64 62 73 28 | 53 59 53 28 32 30 30 34 |= addbs(|SYS(2004|
|00001a90| 29 29 2b 27 46 4f 58 41 | 50 50 27 0d 0a 0d 0a 2a |))+'FOXA|PP'....*|
|00001aa0| 20 46 69 72 73 74 20 6d | 61 6b 65 20 73 75 72 65 | First m|ake sure|
|00001ab0| 20 74 68 61 74 20 74 68 | 65 20 46 6f 78 41 70 70 | that th|e FoxApp|
|00001ac0| 20 73 6f 75 72 63 65 20 | 66 69 6c 65 73 20 68 61 | source |files ha|
|00001ad0| 76 65 20 62 65 65 6e 20 | 69 6e 73 74 61 6c 6c 65 |ve been |installe|
|00001ae0| 64 2e 0d 0a 2a 20 49 66 | 20 74 68 65 79 20 68 61 |d...* If| they ha|
|00001af0| 76 65 6e 27 74 2c 20 49 | 20 63 61 6e 27 74 20 62 |ven't, I| can't b|
|00001b00| 75 69 6c 64 20 61 20 70 | 72 6f 6a 65 63 74 2e 0d |uild a p|roject..|
|00001b10| 0a 6d 2e 66 6f 78 61 70 | 70 64 69 72 20 3d 20 66 |.m.foxap|pdir = f|
|00001b20| 69 6e 64 73 72 63 28 6d | 2e 66 6f 78 61 70 70 64 |indsrc(m|.foxappd|
|00001b30| 69 72 29 0d 0a 0d 0a 2a | 20 49 74 20 69 73 20 69 |ir)....*| It is i|
|00001b40| 6d 70 6f 72 74 61 6e 74 | 20 66 6f 72 20 74 68 65 |mportant| for the|
|00001b50| 20 41 50 50 4d 45 4e 55 | 2e 4d 50 52 20 61 6e 64 | APPMENU|.MPR and|
|00001b60| 20 41 50 50 4d 45 4e 55 | 2e 50 52 47 20 66 69 6c | APPMENU|.PRG fil|
|00001b70| 65 73 20 74 6f 20 62 65 | 20 69 64 65 6e 74 69 63 |es to be| identic|
|00001b80| 61 6c 2e 0d 0a 2a 20 41 | 50 50 4d 45 4e 55 20 72 |al...* A|PPMENU r|
|00001b90| 65 6c 69 65 73 20 6f 6e | 20 4c 4f 43 46 49 4c 45 |elies on| LOCFILE|
|00001ba0| 20 74 6f 20 66 69 6e 64 | 20 69 74 73 65 6c 66 20 | to find| itself |
|00001bb0| 73 6f 20 74 68 61 74 20 | 72 6f 75 74 69 6e 65 73 |so that |routines|
|00001bc0| 20 69 6e 20 69 74 0d 0a | 2a 20 63 61 6e 20 62 65 | in it..|* can be|
|00001bd0| 20 65 78 65 63 75 74 65 | 64 2c 20 65 76 65 6e 20 | execute|d, even |
|00001be0| 77 68 65 6e 20 69 74 20 | 69 73 20 6e 6f 20 6c 6f |when it |is no lo|
|00001bf0| 6e 67 65 72 20 69 6e 20 | 74 68 65 20 63 61 6c 6c |nger in |the call|
|00001c00| 69 6e 67 20 63 68 61 69 | 6e 2e 0d 0a 2a 20 54 68 |ing chai|n...* Th|
|00001c10| 65 20 4c 4f 43 46 49 4c | 45 20 73 74 61 74 65 6d |e LOCFIL|E statem|
|00001c20| 65 6e 74 73 20 65 6d 69 | 74 74 65 64 20 62 79 20 |ents emi|tted by |
|00001c30| 47 45 4e 4d 45 4e 55 20 | 6c 6f 6f 6b 20 66 69 72 |GENMENU |look fir|
|00001c40| 73 74 20 66 6f 72 20 41 | 50 50 4d 45 4e 55 2e 4d |st for A|PPMENU.M|
|00001c50| 50 52 0d 0a 2a 20 69 66 | 20 69 74 20 66 69 6e 64 |PR..* if| it find|
|00001c60| 73 20 69 74 2c 20 69 74 | 20 74 72 69 65 73 20 74 |s it, it| tries t|
|00001c70| 6f 20 65 78 65 63 75 74 | 65 20 74 68 65 20 70 72 |o execut|e the pr|
|00001c80| 6f 63 65 64 75 72 65 20 | 6f 75 74 20 6f 66 20 41 |ocedure |out of A|
|00001c90| 50 50 4d 45 4e 55 2e 4d | 50 52 0d 0a 2a 20 61 6e |PPMENU.M|PR..* an|
|00001ca0| 64 20 72 65 70 6f 72 74 | 73 20 61 6e 20 65 72 72 |d report|s an err|
|00001cb0| 6f 72 20 69 66 20 74 68 | 65 20 70 72 6f 63 65 64 |or if th|e proced|
|00001cc0| 75 72 65 20 63 61 6e 6e | 6f 74 20 62 65 20 66 6f |ure cann|ot be fo|
|00001cd0| 75 6e 64 2e 20 20 53 69 | 6e 63 65 20 74 68 65 0d |und. Si|nce the.|
|00001ce0| 0a 2a 20 70 72 6f 63 65 | 64 75 72 65 20 6e 61 6d |.* proce|dure nam|
|00001cf0| 65 73 20 61 72 65 20 67 | 65 6e 65 72 61 74 65 64 |es are g|enerated|
|00001d00| 20 62 79 20 47 45 4e 4d | 45 4e 55 20 6f 66 66 20 | by GENM|ENU off |
|00001d10| 74 68 65 20 74 69 6d 65 | 72 2c 20 69 66 20 41 50 |the time|r, if AP|
|00001d20| 50 4d 45 4e 55 2e 4d 50 | 52 0d 0a 2a 20 61 6e 64 |PMENU.MP|R..* and|
|00001d30| 20 41 50 50 4d 45 4e 55 | 2e 50 52 47 20 77 65 72 | APPMENU|.PRG wer|
|00001d40| 65 20 67 65 6e 65 72 61 | 74 65 64 20 61 74 20 64 |e genera|ted at d|
|00001d50| 69 66 66 65 72 65 6e 74 | 20 74 69 6d 65 73 2c 20 |ifferent| times, |
|00001d60| 74 68 65 20 70 72 6f 63 | 65 64 75 72 65 73 20 77 |the proc|edures w|
|00001d70| 69 6c 6c 0d 0a 2a 20 68 | 61 76 65 20 64 69 66 66 |ill..* h|ave diff|
|00001d80| 65 72 65 6e 74 20 6e 61 | 6d 65 73 2e 20 20 54 68 |erent na|mes. Th|
|00001d90| 75 73 2c 20 74 68 65 20 | 66 69 6c 65 73 20 6d 75 |us, the |files mu|
|00001da0| 73 74 20 62 65 20 65 78 | 61 63 74 20 63 6f 70 69 |st be ex|act copi|
|00001db0| 65 73 20 6f 66 20 65 61 | 63 68 0d 0a 2a 20 6f 74 |es of ea|ch..* ot|
|00001dc0| 68 65 72 2e 20 20 54 68 | 65 20 66 6f 6c 6c 6f 77 |her. Th|e follow|
|00001dd0| 69 6e 67 20 63 6f 64 65 | 20 61 73 73 75 72 65 73 |ing code| assures|
|00001de0| 20 74 68 69 73 20 74 6f | 20 62 65 20 74 68 65 20 | this to| be the |
|00001df0| 63 61 73 65 2e 0d 0a 49 | 46 20 6d 2e 72 65 67 65 |case...I|F m.rege|
|00001e00| 6e 0d 0a 20 20 20 44 4f | 20 43 41 53 45 0d 0a 20 |n.. DO| CASE.. |
|00001e10| 20 20 43 41 53 45 20 46 | 49 4c 45 28 27 4d 45 4e | CASE F|ILE('MEN|
|00001e20| 55 53 5c 41 50 50 4d 45 | 4e 55 2e 50 52 47 27 29 |US\APPME|NU.PRG')|
|00001e30| 20 41 4e 44 20 46 49 4c | 45 28 27 4d 45 4e 55 53 | AND FIL|E('MENUS|
|00001e40| 5c 41 50 50 4d 45 4e 55 | 2e 4d 50 52 27 29 0d 0a |\APPMENU|.MPR')..|
|00001e50| 20 20 20 20 20 20 6d 70 | 72 5f 6e 61 6d 65 20 3d | mp|r_name =|
|00001e60| 20 46 55 4c 4c 50 41 54 | 48 28 27 4d 45 4e 55 53 | FULLPAT|H('MENUS|
|00001e70| 5c 41 50 50 4d 45 4e 55 | 2e 4d 50 52 27 29 0d 0a |\APPMENU|.MPR')..|
|00001e80| 20 20 20 20 20 20 43 4f | 50 59 20 46 49 4c 45 20 | CO|PY FILE |
|00001e90| 6d 65 6e 75 73 5c 61 70 | 70 6d 65 6e 75 2e 70 72 |menus\ap|pmenu.pr|
|00001ea0| 67 20 54 4f 20 28 6d 70 | 72 5f 6e 61 6d 65 29 0d |g TO (mp|r_name).|
|00001eb0| 0a 20 20 20 43 41 53 45 | 20 46 49 4c 45 28 27 61 |. CASE| FILE('a|
|00001ec0| 70 70 6d 65 6e 75 2e 70 | 72 67 27 29 20 41 4e 44 |ppmenu.p|rg') AND|
|00001ed0| 20 46 49 4c 45 28 27 61 | 70 70 6d 65 6e 75 2e 6d | FILE('a|ppmenu.m|
|00001ee0| 70 72 27 29 0d 0a 20 20 | 20 20 20 20 6d 2e 6d 70 |pr').. | m.mp|
|00001ef0| 72 5f 6e 61 6d 65 20 3d | 20 46 55 4c 4c 50 41 54 |r_name =| FULLPAT|
|00001f00| 48 28 27 61 70 70 6d 65 | 6e 75 2e 6d 70 72 27 29 |H('appme|nu.mpr')|
|00001f10| 0d 0a 20 20 20 20 20 20 | 43 4f 50 59 20 46 49 4c |.. |COPY FIL|
|00001f20| 45 20 61 70 70 6d 65 6e | 75 2e 70 72 67 20 54 4f |E appmen|u.prg TO|
|00001f30| 20 28 6d 70 72 5f 6e 61 | 6d 65 29 0d 0a 20 20 20 | (mpr_na|me).. |
|00001f40| 43 41 53 45 20 46 49 4c | 45 28 27 46 4f 58 41 50 |CASE FIL|E('FOXAP|
|00001f50| 50 5c 4d 45 4e 55 53 5c | 41 50 50 4d 45 4e 55 2e |P\MENUS\|APPMENU.|
|00001f60| 50 52 47 27 29 20 41 4e | 44 20 46 49 4c 45 28 27 |PRG') AN|D FILE('|
|00001f70| 46 4f 58 41 50 50 5c 4d | 45 4e 55 53 5c 41 50 50 |FOXAPP\M|ENUS\APP|
|00001f80| 4d 45 4e 55 2e 4d 50 52 | 27 29 0d 0a 20 20 20 20 |MENU.MPR|').. |
|00001f90| 20 20 6d 2e 6d 70 72 5f | 6e 61 6d 65 20 3d 20 46 | m.mpr_|name = F|
|00001fa0| 55 4c 4c 50 41 54 48 28 | 27 46 4f 58 41 50 50 5c |ULLPATH(|'FOXAPP\|
|00001fb0| 4d 45 4e 55 53 5c 41 50 | 50 4d 45 4e 55 2e 4d 50 |MENUS\AP|PMENU.MP|
|00001fc0| 52 27 29 0d 0a 20 20 20 | 20 20 20 43 4f 50 59 20 |R').. | COPY |
|00001fd0| 46 49 4c 45 20 66 6f 78 | 61 70 70 5c 6d 65 6e 75 |FILE fox|app\menu|
|00001fe0| 73 5c 61 70 70 6d 65 6e | 75 2e 70 72 67 20 54 4f |s\appmen|u.prg TO|
|00001ff0| 20 28 6d 70 72 5f 6e 61 | 6d 65 29 0d 0a 20 20 20 | (mpr_na|me).. |
|00002000| 45 4e 44 43 41 53 45 0d | 0a 45 4c 53 45 0d 0a 20 |ENDCASE.|.ELSE.. |
|00002010| 20 20 49 46 20 46 49 4c | 45 28 27 4d 45 4e 55 53 | IF FIL|E('MENUS|
|00002020| 5c 41 50 50 4d 45 4e 55 | 2e 50 52 47 27 29 20 41 |\APPMENU|.PRG') A|
|00002030| 4e 44 20 46 49 4c 45 28 | 27 4d 45 4e 55 53 5c 41 |ND FILE(|'MENUS\A|
|00002040| 50 50 4d 45 4e 55 2e 4d | 50 52 27 29 0d 0a 20 20 |PPMENU.M|PR').. |
|00002050| 20 20 20 20 6d 2e 6d 70 | 72 5f 6e 61 6d 65 20 3d | m.mp|r_name =|
|00002060| 20 46 55 4c 4c 50 41 54 | 48 28 27 4d 45 4e 55 53 | FULLPAT|H('MENUS|
|00002070| 5c 41 50 50 4d 45 4e 55 | 2e 4d 50 52 27 29 0d 0a |\APPMENU|.MPR')..|
|00002080| 20 20 20 20 20 20 44 45 | 4c 45 54 45 20 46 49 4c | DE|LETE FIL|
|00002090| 45 20 28 6d 70 72 5f 6e | 61 6d 65 29 0d 0a 20 20 |E (mpr_n|ame).. |
|000020a0| 20 45 4e 44 49 46 0d 0a | 20 20 20 49 46 20 46 49 | ENDIF..| IF FI|
|000020b0| 4c 45 28 27 61 70 70 6d | 65 6e 75 2e 70 72 67 27 |LE('appm|enu.prg'|
|000020c0| 29 20 41 4e 44 20 46 49 | 4c 45 28 27 61 70 70 6d |) AND FI|LE('appm|
|000020d0| 65 6e 75 2e 6d 70 72 27 | 29 0d 0a 20 20 20 20 20 |enu.mpr'|).. |
|000020e0| 20 6d 2e 6d 70 72 5f 6e | 61 6d 65 20 3d 20 46 55 | m.mpr_n|ame = FU|
|000020f0| 4c 4c 50 41 54 48 28 27 | 61 70 70 6d 65 6e 75 2e |LLPATH('|appmenu.|
|00002100| 6d 70 72 27 29 0d 0a 20 | 20 20 20 20 20 44 45 4c |mpr').. | DEL|
|00002110| 45 54 45 20 46 49 4c 45 | 20 28 6d 70 72 5f 6e 61 |ETE FILE| (mpr_na|
|00002120| 6d 65 29 0d 0a 20 20 20 | 45 4e 44 49 46 0d 0a 20 |me).. |ENDIF.. |
|00002130| 20 20 49 46 20 46 49 4c | 45 28 27 46 4f 58 41 50 | IF FIL|E('FOXAP|
|00002140| 50 5c 4d 45 4e 55 53 5c | 41 50 50 4d 45 4e 55 2e |P\MENUS\|APPMENU.|
|00002150| 50 52 47 27 29 20 41 4e | 44 20 46 49 4c 45 28 27 |PRG') AN|D FILE('|
|00002160| 46 4f 58 41 50 50 5c 4d | 45 4e 55 53 5c 41 50 50 |FOXAPP\M|ENUS\APP|
|00002170| 4d 45 4e 55 2e 4d 50 52 | 27 29 0d 0a 20 20 20 20 |MENU.MPR|').. |
|00002180| 20 20 6d 2e 6d 70 72 5f | 6e 61 6d 65 20 3d 20 46 | m.mpr_|name = F|
|00002190| 55 4c 4c 50 41 54 48 28 | 27 46 4f 58 41 50 50 5c |ULLPATH(|'FOXAPP\|
|000021a0| 4d 45 4e 55 53 5c 41 50 | 50 4d 45 4e 55 2e 4d 50 |MENUS\AP|PMENU.MP|
|000021b0| 52 27 29 0d 0a 20 20 20 | 20 20 20 44 45 4c 45 54 |R').. | DELET|
|000021c0| 45 20 46 49 4c 45 20 28 | 6d 70 72 5f 6e 61 6d 65 |E FILE (|mpr_name|
|000021d0| 29 0d 0a 20 20 20 45 4e | 44 49 46 0d 0a 20 20 20 |).. EN|DIF.. |
|000021e0| 2a 20 47 65 74 20 74 68 | 65 20 4d 50 58 20 66 69 |* Get th|e MPX fi|
|000021f0| 6c 65 73 20 74 6f 6f 0d | 0a 20 20 20 49 46 20 46 |les too.|. IF F|
|00002200| 49 4c 45 28 27 4d 45 4e | 55 53 5c 41 50 50 4d 45 |ILE('MEN|US\APPME|
|00002210| 4e 55 2e 50 52 47 27 29 | 20 41 4e 44 20 46 49 4c |NU.PRG')| AND FIL|
|00002220| 45 28 27 4d 45 4e 55 53 | 5c 41 50 50 4d 45 4e 55 |E('MENUS|\APPMENU|
|00002230| 2e 4d 50 58 27 29 0d 0a | 20 20 20 20 20 20 6d 2e |.MPX')..| m.|
|00002240| 6d 70 78 5f 6e 61 6d 65 | 20 3d 20 46 55 4c 4c 50 |mpx_name| = FULLP|
|00002250| 41 54 48 28 27 4d 45 4e | 55 53 5c 41 50 50 4d 45 |ATH('MEN|US\APPME|
|00002260| 4e 55 2e 4d 50 58 27 29 | 0d 0a 20 20 20 20 20 20 |NU.MPX')|.. |
|00002270| 44 45 4c 45 54 45 20 46 | 49 4c 45 20 28 6d 70 78 |DELETE F|ILE (mpx|
|00002280| 5f 6e 61 6d 65 29 0d 0a | 20 20 20 45 4e 44 49 46 |_name)..| ENDIF|
|00002290| 0d 0a 20 20 20 49 46 20 | 46 49 4c 45 28 27 61 70 |.. IF |FILE('ap|
|000022a0| 70 6d 65 6e 75 2e 70 72 | 67 27 29 20 41 4e 44 20 |pmenu.pr|g') AND |
|000022b0| 46 49 4c 45 28 27 61 70 | 70 6d 65 6e 75 2e 4d 50 |FILE('ap|pmenu.MP|
|000022c0| 58 27 29 0d 0a 20 20 20 | 20 20 20 6d 2e 6d 70 78 |X').. | m.mpx|
|000022d0| 5f 6e 61 6d 65 20 3d 20 | 46 55 4c 4c 50 41 54 48 |_name = |FULLPATH|
|000022e0| 28 27 61 70 70 6d 65 6e | 75 2e 4d 50 58 27 29 0d |('appmen|u.MPX').|
|000022f0| 0a 20 20 20 20 20 20 44 | 45 4c 45 54 45 20 46 49 |. D|ELETE FI|
|00002300| 4c 45 20 28 6d 70 78 5f | 6e 61 6d 65 29 0d 0a 20 |LE (mpx_|name).. |
|00002310| 20 20 45 4e 44 49 46 0d | 0a 20 20 20 49 46 20 46 | ENDIF.|. IF F|
|00002320| 49 4c 45 28 27 46 4f 58 | 41 50 50 5c 4d 45 4e 55 |ILE('FOX|APP\MENU|
|00002330| 53 5c 41 50 50 4d 45 4e | 55 2e 50 52 47 27 29 20 |S\APPMEN|U.PRG') |
|00002340| 41 4e 44 20 46 49 4c 45 | 28 27 46 4f 58 41 50 50 |AND FILE|('FOXAPP|
|00002350| 5c 4d 45 4e 55 53 5c 41 | 50 50 4d 45 4e 55 2e 4d |\MENUS\A|PPMENU.M|
|00002360| 50 58 27 29 0d 0a 20 20 | 20 20 20 20 6d 2e 6d 70 |PX').. | m.mp|
|00002370| 78 5f 6e 61 6d 65 20 3d | 20 46 55 4c 4c 50 41 54 |x_name =| FULLPAT|
|00002380| 48 28 27 46 4f 58 41 50 | 50 5c 4d 45 4e 55 53 5c |H('FOXAP|P\MENUS\|
|00002390| 41 50 50 4d 45 4e 55 2e | 4d 50 58 27 29 0d 0a 20 |APPMENU.|MPX').. |
|000023a0| 20 20 20 20 20 44 45 4c | 45 54 45 20 46 49 4c 45 | DEL|ETE FILE|
|000023b0| 20 28 6d 70 78 5f 6e 61 | 6d 65 29 0d 0a 20 20 20 | (mpx_na|me).. |
|000023c0| 45 4e 44 49 46 0d 0a 45 | 4e 44 49 46 0d 0a 0d 0a |ENDIF..E|NDIF....|
|000023d0| 2a 20 44 69 73 61 62 6c | 65 20 74 68 65 20 57 69 |* Disabl|e the Wi|
|000023e0| 6e 64 6f 77 20 70 61 64 | 20 77 68 69 6c 65 20 77 |ndow pad| while w|
|000023f0| 65 27 72 65 20 69 6e 20 | 74 68 65 20 67 65 6e 65 |e're in |the gene|
|00002400| 72 61 74 69 6f 6e 20 64 | 69 61 6c 6f 67 2e 0d 0a |ration d|ialog...|
|00002410| 53 45 54 20 53 4b 49 50 | 20 4f 46 20 50 41 44 20 |SET SKIP| OF PAD |
|00002420| 5f 6d 73 6d 5f 77 69 6e | 64 6f 20 4f 46 20 5f 6d |_msm_win|do OF _m|
|00002430| 73 79 73 6d 65 6e 75 20 | 2e 54 2e 0d 0a 6d 2e 71 |sysmenu |.T...m.q|
|00002440| 75 69 74 74 69 6e 67 20 | 3d 20 2e 46 2e 20 20 20 |uitting |= .F. |
|00002450| 26 26 20 73 65 74 20 62 | 79 20 63 61 6e 63 65 6c |&& set b|y cancel|
|00002460| 20 62 75 74 74 6f 6e 0d | 0a 0d 0a 2a 20 47 65 74 | button.|...* Get|
|00002470| 20 72 65 61 64 79 20 74 | 6f 20 70 72 6f 76 69 64 | ready t|o provid|
|00002480| 65 20 68 65 6c 70 0d 0a | 6d 2e 6d 74 6f 70 69 63 |e help..|m.mtopic|
|00002490| 20 3d 20 53 45 54 28 22 | 54 4f 50 49 43 22 29 0d | = SET("|TOPIC").|
|000024a0| 0a 44 4f 20 43 41 53 45 | 0d 0a 43 41 53 45 20 55 |.DO CASE|..CASE U|
|000024b0| 50 50 45 52 28 52 49 47 | 48 54 28 53 45 54 28 27 |PPER(RIG|HT(SET('|
|000024c0| 68 65 6c 70 27 2c 31 29 | 2c 31 31 29 29 20 3d 20 |help',1)|,11)) = |
|000024d0| 22 46 4f 58 48 45 4c 50 | 2e 48 4c 50 22 0d 0a 20 |"FOXHELP|.HLP".. |
|000024e0| 20 20 53 45 54 20 54 4f | 50 49 43 20 54 4f 20 22 | SET TO|PIC TO "|
|000024f0| 46 6f 78 41 70 70 22 0d | 0a 43 41 53 45 20 55 50 |FoxApp".|.CASE UP|
|00002500| 50 45 52 28 52 49 47 48 | 54 28 53 45 54 28 27 68 |PER(RIGH|T(SET('h|
|00002510| 65 6c 70 27 2c 31 29 2c | 31 31 29 29 20 3d 20 22 |elp',1),|11)) = "|
|00002520| 46 4f 58 48 45 4c 50 2e | 44 42 46 22 0d 0a 20 20 |FOXHELP.|DBF".. |
|00002530| 20 53 45 54 20 54 4f 50 | 49 43 20 54 4f 20 43 48 | SET TOP|IC TO CH|
|00002540| 52 28 31 36 29 20 2b 20 | 22 20 20 46 6f 78 41 70 |R(16) + |" FoxAp|
|00002550| 70 20 2d 20 42 75 69 6c | 64 20 41 70 70 6c 69 63 |p - Buil|d Applic|
|00002560| 61 74 69 6f 6e 73 22 0d | 0a 45 4e 44 43 41 53 45 |ations".|.ENDCASE|
|00002570| 0d 0a 4f 4e 20 4b 45 59 | 20 4c 41 42 45 4c 20 46 |..ON KEY| LABEL F|
|00002580| 31 20 48 45 4c 50 00 00 | 00 00 00 00 00 00 00 00 |1 HELP..|........|
|00002590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025a0| 00 00 00 00 00 00 00 01 | 00 00 0f a3 0d 0a 2a 20 |........|......* |
|000025b0| 43 6c 65 61 6e 75 70 20 | 63 6f 64 65 20 74 6f 20 |Cleanup |code to |
|000025c0| 63 6f 6e 73 74 72 75 63 | 74 20 43 44 58 20 66 69 |construc|t CDX fi|
|000025d0| 6c 65 20 61 6e 64 20 73 | 74 61 72 74 20 74 68 65 |le and s|tart the|
|000025e0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 0d 0a 0d 0a | applica|tion....|
|000025f0| 2a 20 49 66 20 63 61 6e | 63 65 6c 20 62 75 74 74 |* If can|cel butt|
|00002600| 6f 6e 20 70 72 65 73 73 | 65 64 2c 20 71 75 69 74 |on press|ed, quit|
|00002610| 20 6e 6f 77 0d 0a 49 46 | 20 6d 2e 71 75 69 74 74 | now..IF| m.quitt|
|00002620| 69 6e 67 0d 0a 20 20 20 | 44 4f 20 63 6c 6f 73 65 |ing.. |DO close|
|00002630| 5f 75 70 0d 0a 20 20 20 | 52 45 54 55 52 4e 0d 0a |_up.. |RETURN..|
|00002640| 45 4e 44 49 46 0d 0a 0d | 0a 2a 20 54 68 69 73 20 |ENDIF...|.* This |
|00002650| 53 45 54 20 54 41 4c 4b | 20 4f 46 46 20 69 73 20 |SET TALK| OFF is |
|00002660| 6e 65 63 65 73 73 61 72 | 79 20 62 65 63 61 75 73 |necessar|y becaus|
|00002670| 65 20 74 68 65 20 73 63 | 72 65 65 6e 20 67 65 6e |e the sc|reen gen|
|00002680| 65 72 61 74 6f 72 20 72 | 65 73 74 6f 72 65 73 0d |erator r|estores.|
|00002690| 0a 2a 20 74 68 65 20 6f | 72 69 67 69 6e 61 6c 20 |.* the o|riginal |
|000026a0| 54 41 4c 4b 20 73 65 74 | 74 69 6e 67 20 62 65 66 |TALK set|ting bef|
|000026b0| 6f 72 65 20 65 78 65 63 | 75 74 69 6e 67 20 74 68 |ore exec|uting th|
|000026c0| 65 20 63 6c 65 61 6e 75 | 70 20 73 6e 69 70 70 65 |e cleanu|p snippe|
|000026d0| 74 2e 0d 0a 53 45 54 20 | 54 41 4c 4b 20 4f 46 46 |t...SET |TALK OFF|
|000026e0| 0d 0a 0d 0a 6d 2e 73 63 | 78 6e 61 6d 65 20 3d 20 |....m.sc|xname = |
|000026f0| 41 4c 4c 54 52 49 4d 28 | 55 50 50 45 52 28 6d 2e |ALLTRIM(|UPPER(m.|
|00002700| 73 63 78 6e 61 6d 65 29 | 29 0d 0a 6d 2e 64 62 66 |scxname)|)..m.dbf|
|00002710| 6e 61 6d 65 20 3d 20 41 | 4c 4c 54 52 49 4d 28 55 |name = A|LLTRIM(U|
|00002720| 50 50 45 52 28 6d 2e 64 | 62 66 6e 61 6d 65 29 29 |PPER(m.d|bfname))|
|00002730| 0d 0a 49 46 20 21 46 49 | 4c 45 28 6d 2e 73 63 78 |..IF !FI|LE(m.scx|
|00002740| 6e 61 6d 65 29 0d 0a 20 | 20 20 57 41 49 54 20 57 |name).. | WAIT W|
|00002750| 49 4e 44 4f 57 20 22 54 | 68 65 20 73 63 72 65 65 |INDOW "T|he scree|
|00002760| 6e 20 66 69 6c 65 20 69 | 73 20 6d 69 73 73 69 6e |n file i|s missin|
|00002770| 67 2e 22 0d 0a 20 20 20 | 44 4f 20 63 6c 6f 73 65 |g.".. |DO close|
|00002780| 5f 75 70 0d 0a 20 20 20 | 72 65 74 75 72 6e 0d 0a |_up.. |return..|
|00002790| 45 4e 44 49 46 0d 0a 49 | 46 20 21 46 49 4c 45 28 |ENDIF..I|F !FILE(|
|000027a0| 6d 2e 64 62 66 6e 61 6d | 65 29 0d 0a 20 20 20 57 |m.dbfnam|e).. W|
|000027b0| 41 49 54 20 57 49 4e 44 | 4f 57 20 22 54 68 65 20 |AIT WIND|OW "The |
|000027c0| 64 61 74 61 62 61 73 65 | 20 66 69 6c 65 20 69 73 |database| file is|
|000027d0| 20 6d 69 73 73 69 6e 67 | 2e 22 0d 0a 20 20 20 44 | missing|.".. D|
|000027e0| 4f 20 63 6c 6f 73 65 5f | 75 70 0d 0a 20 20 20 72 |O close_|up.. r|
|000027f0| 65 74 75 72 6e 0d 0a 45 | 4e 44 49 46 0d 0a 0d 0a |eturn..E|NDIF....|
|00002800| 2a 20 49 6e 76 65 72 74 | 20 74 68 65 20 64 61 74 |* Invert| the dat|
|00002810| 61 62 61 73 65 20 69 66 | 20 74 68 65 72 65 20 69 |abase if| there i|
|00002820| 73 6e 27 74 20 61 20 43 | 44 58 20 66 69 6c 65 20 |sn't a C|DX file |
|00002830| 70 72 65 73 65 6e 74 20 | 61 6c 72 65 61 64 79 0d |present |already.|
|00002840| 0a 6d 2e 69 6e 76 73 74 | 65 6d 20 3d 20 6d 61 6b |.m.invst|em = mak|
|00002850| 65 61 6c 69 61 73 28 6a | 75 73 74 73 74 65 6d 28 |ealias(j|uststem(|
|00002860| 6d 2e 64 62 66 6e 61 6d | 65 29 29 0d 0a 6d 2e 63 |m.dbfnam|e))..m.c|
|00002870| 64 78 6e 61 6d 65 20 3d | 20 66 6f 72 63 65 65 78 |dxname =| forceex|
|00002880| 74 28 6d 2e 64 62 66 6e | 61 6d 65 2c 27 43 44 58 |t(m.dbfn|ame,'CDX|
|00002890| 27 29 0d 0a 49 46 20 46 | 49 4c 45 28 6d 2e 63 64 |')..IF F|ILE(m.cd|
|000028a0| 78 6e 61 6d 65 29 0d 0a | 20 20 20 49 46 20 55 53 |xname)..| IF US|
|000028b0| 45 44 28 6d 2e 69 6e 76 | 73 74 65 6d 29 0d 0a 20 |ED(m.inv|stem).. |
|000028c0| 20 20 20 20 20 53 45 4c | 45 43 54 20 28 6d 2e 69 | SEL|ECT (m.i|
|000028d0| 6e 76 73 74 65 6d 29 0d | 0a 20 20 20 45 4c 53 45 |nvstem).|. ELSE|
|000028e0| 0d 0a 20 20 20 20 20 20 | 53 45 4c 45 43 54 20 30 |.. |SELECT 0|
|000028f0| 0d 0a 20 20 20 20 20 20 | 55 53 45 20 28 4c 4f 43 |.. |USE (LOC|
|00002900| 46 49 4c 45 28 6d 2e 64 | 62 66 6e 61 6d 65 2c 27 |FILE(m.d|bfname,'|
|00002910| 44 42 46 27 2c 27 4c 6f | 63 61 74 65 20 27 2b 6d |DBF','Lo|cate '+m|
|00002920| 2e 64 62 66 6e 61 6d 65 | 2b 27 20 70 6c 65 61 73 |.dbfname|+' pleas|
|00002930| 65 27 29 29 0d 0a 20 20 | 20 45 4e 44 49 46 0d 0a |e')).. | ENDIF..|
|00002940| 0d 0a 20 20 20 2a 20 45 | 6e 73 75 72 65 20 74 68 |.. * E|nsure th|
|00002950| 61 74 20 74 68 65 20 64 | 61 74 61 62 61 73 65 20 |at the d|atabase |
|00002960| 69 73 6e 27 74 20 65 6d | 70 74 79 0d 0a 20 20 20 |isn't em|pty.. |
|00002970| 49 46 20 52 45 43 43 4f | 55 4e 54 28 29 20 3d 20 |IF RECCO|UNT() = |
|00002980| 30 0d 0a 20 20 20 20 20 | 20 41 50 50 45 4e 44 20 |0.. | APPEND |
|00002990| 42 4c 41 4e 4b 0d 0a 20 | 20 20 45 4e 44 49 46 0d |BLANK.. | ENDIF.|
|000029a0| 0a 45 4c 53 45 0d 0a 20 | 20 20 44 4f 20 69 6e 76 |.ELSE.. | DO inv|
|000029b0| 65 72 74 20 57 49 54 48 | 20 6d 2e 64 62 66 6e 61 |ert WITH| m.dbfna|
|000029c0| 6d 65 0d 0a 45 4e 44 49 | 46 0d 0a 0d 0a 2a 20 44 |me..ENDI|F....* D|
|000029d0| 69 73 70 6c 61 79 20 61 | 20 6d 65 73 73 61 67 65 |isplay a| message|
|000029e0| 20 74 65 6c 6c 69 6e 67 | 20 74 68 65 20 75 73 65 | telling| the use|
|000029f0| 72 20 68 6f 77 20 74 6f | 20 72 75 6e 20 74 68 65 |r how to| run the|
|00002a00| 20 0d 0a 2a 20 67 65 6e | 65 72 61 74 65 64 20 61 | ..* gen|erated a|
|00002a10| 70 70 6c 69 63 61 74 69 | 6f 6e 20 69 6e 20 74 68 |pplicati|on in th|
|00002a20| 65 20 66 75 74 75 72 65 | 2e 0d 0a 43 4c 45 41 52 |e future|...CLEAR|
|00002a30| 20 57 49 4e 44 4f 57 0d | 0a 49 46 20 55 53 45 44 | WINDOW.|.IF USED|
|00002a40| 28 6d 2e 69 6e 76 73 74 | 65 6d 29 0d 0a 20 20 20 |(m.invst|em).. |
|00002a50| 53 45 4c 45 43 54 20 28 | 6d 2e 69 6e 76 73 74 65 |SELECT (|m.invste|
|00002a60| 6d 29 0d 0a 45 4c 53 45 | 0d 0a 20 20 20 53 45 4c |m)..ELSE|.. SEL|
|00002a70| 45 43 54 20 30 0d 0a 20 | 20 20 55 53 45 20 28 4c |ECT 0.. | USE (L|
|00002a80| 4f 43 46 49 4c 45 28 6d | 2e 64 62 66 6e 61 6d 65 |OCFILE(m|.dbfname|
|00002a90| 2c 27 44 42 46 27 2c 27 | 4c 6f 63 61 74 65 20 27 |,'DBF','|Locate '|
|00002aa0| 2b 6d 2e 64 62 66 6e 61 | 6d 65 2b 27 20 70 6c 65 |+m.dbfna|me+' ple|
|00002ab0| 61 73 65 27 29 29 0d 0a | 45 4e 44 49 46 0d 0a 47 |ase'))..|ENDIF..G|
|00002ac0| 4f 54 4f 20 54 4f 50 0d | 0a 43 4c 45 41 52 0d 0a |OTO TOP.|.CLEAR..|
|00002ad0| 0d 0a 6d 2e 66 6e 74 5f | 66 61 63 65 20 20 3d 20 |..m.fnt_|face = |
|00002ae0| 6d 2e 67 5f 64 66 6c 74 | 66 66 61 63 65 0d 0a 6d |m.g_dflt|fface..m|
|00002af0| 2e 66 6e 74 5f 73 69 7a | 65 20 20 3d 20 6d 2e 67 |.fnt_siz|e = m.g|
|00002b00| 5f 64 66 6c 74 66 73 69 | 7a 65 0d 0a 6d 2e 66 6e |_dfltfsi|ze..m.fn|
|00002b10| 74 5f 73 74 79 6c 65 20 | 3d 20 6d 2e 67 5f 64 66 |t_style |= m.g_df|
|00002b20| 6c 74 66 73 74 79 6c 65 | 0d 0a 0d 0a 2a 20 46 69 |ltfstyle|....* Fi|
|00002b30| 67 75 72 65 20 6f 75 74 | 20 68 6f 77 20 62 69 67 |gure out| how big|
|00002b40| 20 74 68 65 20 70 61 6e | 65 6c 20 6e 65 65 64 73 | the pan|el needs|
|00002b50| 20 74 6f 20 62 65 20 69 | 6e 20 74 68 65 20 63 75 | to be i|n the cu|
|00002b60| 72 72 65 6e 74 20 73 63 | 72 65 65 6e 20 66 6f 6e |rrent sc|reen fon|
|00002b70| 74 0d 0a 6d 2e 6c 69 6e | 65 31 20 3d 20 27 20 20 |t..m.lin|e1 = ' |
|00002b80| 20 46 6f 78 41 70 70 20 | 68 61 73 20 63 72 65 61 | FoxApp |has crea|
|00002b90| 74 65 64 20 61 6e 20 61 | 70 70 6c 69 63 61 74 69 |ted an a|pplicati|
|00002ba0| 6f 6e 20 6e 61 6d 65 64 | 20 27 2b 4c 45 46 54 28 |on named| '+LEFT(|
|00002bb0| 6a 75 73 74 66 6e 61 6d | 65 28 6d 2e 61 70 70 66 |justfnam|e(m.appf|
|00002bc0| 69 6c 65 29 2c 35 30 29 | 0d 0a 6d 2e 6c 69 6e 65 |ile),50)|..m.line|
|00002bd0| 32 20 3d 20 27 20 20 20 | 69 6e 20 74 68 65 20 27 |2 = ' |in the '|
|00002be0| 2b 6a 75 73 74 70 61 74 | 68 28 6d 2e 61 70 70 66 |+justpat|h(m.appf|
|00002bf0| 69 6c 65 29 2b 27 20 64 | 69 72 65 63 74 6f 72 79 |ile)+' d|irectory|
|00002c00| 2e 27 0d 0a 6d 2e 6d 61 | 78 63 6f 6c 20 3d 20 54 |.'..m.ma|xcol = T|
|00002c10| 58 54 57 49 44 54 48 28 | 6d 2e 6c 69 6e 65 31 2b |XTWIDTH(|m.line1+|
|00002c20| 27 20 20 20 27 2c 6d 2e | 67 5f 64 66 6c 74 66 66 |' ',m.|g_dfltff|
|00002c30| 61 63 65 2c 20 6d 2e 67 | 5f 64 66 6c 74 66 73 69 |ace, m.g|_dfltfsi|
|00002c40| 7a 65 2c 20 6d 2e 67 5f | 64 66 6c 74 66 73 74 79 |ze, m.g_|dfltfsty|
|00002c50| 6c 65 29 0d 0a 6d 2e 6d | 61 78 63 6f 6c 20 3d 20 |le)..m.m|axcol = |
|00002c60| 4d 41 58 28 6d 2e 6d 61 | 78 63 6f 6c 2c 20 54 58 |MAX(m.ma|xcol, TX|
|00002c70| 54 57 49 44 54 48 28 6d | 2e 6c 69 6e 65 32 2b 27 |TWIDTH(m|.line2+'|
|00002c80| 20 20 20 27 2c 6d 2e 67 | 5f 64 66 6c 74 66 66 61 | ',m.g|_dfltffa|
|00002c90| 63 65 2c 20 6d 2e 67 5f | 64 66 6c 74 66 73 69 7a |ce, m.g_|dfltfsiz|
|00002ca0| 65 2c 20 6d 2e 67 5f 64 | 66 6c 74 66 73 74 79 6c |e, m.g_d|fltfstyl|
|00002cb0| 65 29 20 29 0d 0a 0d 0a | 6d 2e 6d 61 78 63 6f 6c |e) )....|m.maxcol|
|00002cc0| 20 3d 20 4d 41 58 28 6d | 2e 6d 61 78 63 6f 6c 2c | = MAX(m|.maxcol,|
|00002cd0| 20 35 35 29 20 2b 20 31 | 32 0d 0a 0d 0a 6d 2e 74 | 55) + 1|2....m.t|
|00002ce0| 72 31 20 3d 20 35 20 20 | 20 20 2a 20 46 4f 4e 54 |r1 = 5 | * FONT|
|00002cf0| 4d 45 54 52 49 43 28 31 | 2c 6d 2e 66 6e 74 5f 66 |METRIC(1|,m.fnt_f|
|00002d00| 61 63 65 2c 20 6d 2e 66 | 6e 74 5f 73 69 7a 65 2c |ace, m.f|nt_size,|
|00002d10| 20 6d 2e 66 6e 74 5f 73 | 74 79 6c 65 29 20 3b 0d | m.fnt_s|tyle) ;.|
|00002d20| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2f 20 |. | / |
|00002d30| 46 4f 4e 54 4d 45 54 52 | 49 43 28 31 2c 57 46 4f |FONTMETR|IC(1,WFO|
|00002d40| 4e 54 28 31 2c 22 22 29 | 2c 57 46 4f 4e 54 28 32 |NT(1,"")|,WFONT(2|
|00002d50| 2c 22 22 29 2c 57 46 4f | 4e 54 28 33 2c 22 22 29 |,""),WFO|NT(3,"")|
|00002d60| 29 0d 0a 6d 2e 74 72 32 | 20 3d 20 31 37 20 20 20 |)..m.tr2| = 17 |
|00002d70| 2a 20 46 4f 4e 54 4d 45 | 54 52 49 43 28 31 2c 6d |* FONTME|TRIC(1,m|
|00002d80| 2e 66 6e 74 5f 66 61 63 | 65 2c 20 6d 2e 66 6e 74 |.fnt_fac|e, m.fnt|
|00002d90| 5f 73 69 7a 65 2c 20 6d | 2e 66 6e 74 5f 73 74 79 |_size, m|.fnt_sty|
|00002da0| 6c 65 29 20 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |le) ;.. | |
|00002db0| 20 20 20 20 2f 20 46 4f | 4e 54 4d 45 54 52 49 43 | / FO|NTMETRIC|
|00002dc0| 28 31 2c 57 46 4f 4e 54 | 28 31 2c 22 22 29 2c 57 |(1,WFONT|(1,""),W|
|00002dd0| 46 4f 4e 54 28 32 2c 22 | 22 29 2c 57 46 4f 4e 54 |FONT(2,"|"),WFONT|
|00002de0| 28 33 2c 22 22 29 29 0d | 0a 6d 2e 74 63 31 20 3d |(3,"")).|.m.tc1 =|
|00002df0| 20 36 20 20 20 20 2a 20 | 46 4f 4e 54 4d 45 54 52 | 6 * |FONTMETR|
|00002e00| 49 43 28 36 2c 6d 2e 66 | 6e 74 5f 66 61 63 65 2c |IC(6,m.f|nt_face,|
|00002e10| 20 6d 2e 66 6e 74 5f 73 | 69 7a 65 2c 20 6d 2e 66 | m.fnt_s|ize, m.f|
|00002e20| 6e 74 5f 73 74 79 6c 65 | 29 20 3b 0d 0a 20 20 20 |nt_style|) ;.. |
|00002e30| 20 20 20 20 20 20 20 20 | 20 20 2f 20 46 4f 4e 54 | | / FONT|
|00002e40| 4d 45 54 52 49 43 28 36 | 2c 57 46 4f 4e 54 28 31 |METRIC(6|,WFONT(1|
|00002e50| 2c 22 22 29 2c 57 46 4f | 4e 54 28 32 2c 22 22 29 |,""),WFO|NT(2,"")|
|00002e60| 2c 57 46 4f 4e 54 28 33 | 2c 22 22 29 29 0d 0a 6d |,WFONT(3|,""))..m|
|00002e70| 2e 74 63 32 20 3d 20 6d | 2e 6d 61 78 63 6f 6c 20 |.tc2 = m|.maxcol |
|00002e80| 2a 20 46 4f 4e 54 4d 45 | 54 52 49 43 28 36 2c 6d |* FONTME|TRIC(6,m|
|00002e90| 2e 66 6e 74 5f 66 61 63 | 65 2c 20 6d 2e 66 6e 74 |.fnt_fac|e, m.fnt|
|00002ea0| 5f 73 69 7a 65 2c 20 6d | 2e 66 6e 74 5f 73 74 79 |_size, m|.fnt_sty|
|00002eb0| 6c 65 29 20 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |le) ;.. | |
|00002ec0| 20 20 20 20 2f 20 46 4f | 4e 54 4d 45 54 52 49 43 | / FO|NTMETRIC|
|00002ed0| 28 36 2c 57 46 4f 4e 54 | 28 31 2c 22 22 29 2c 57 |(6,WFONT|(1,""),W|
|00002ee0| 46 4f 4e 54 28 32 2c 22 | 22 29 2c 57 46 4f 4e 54 |FONT(2,"|"),WFONT|
|00002ef0| 28 33 2c 22 22 29 29 0d | 0a 0d 0a 44 4f 20 70 75 |(3,"")).|...DO pu|
|00002f00| 74 70 61 6e 65 6c 20 57 | 49 54 48 20 22 61 70 70 |tpanel W|ITH "app|
|00002f10| 64 6f 63 22 2c 2e 54 2e | 2c 6d 2e 74 72 31 2c 6d |doc",.T.|,m.tr1,m|
|00002f20| 2e 74 63 31 2c 6d 2e 74 | 72 32 2c 6d 2e 74 63 32 |.tc1,m.t|r2,m.tc2|
|00002f30| 2c 2e 35 2c 2e 37 2c 20 | 6d 2e 66 6e 74 5f 66 61 |,.5,.7, |m.fnt_fa|
|00002f40| 63 65 2c 20 6d 2e 66 6e | 74 5f 73 69 7a 65 2c 20 |ce, m.fn|t_size, |
|00002f50| 6d 2e 66 6e 74 5f 73 74 | 79 6c 65 0d 0a 52 45 4c |m.fnt_st|yle..REL|
|00002f60| 45 41 53 45 20 6d 2e 74 | 72 31 2c 20 6d 2e 74 63 |EASE m.t|r1, m.tc|
|00002f70| 31 2c 20 6d 2e 74 72 32 | 2c 20 6d 2e 74 63 32 2c |1, m.tr2|, m.tc2,|
|00002f80| 20 6d 2e 6d 61 78 63 6f | 6c 0d 0a 0d 0a 53 45 54 | m.maxco|l....SET|
|00002f90| 20 43 55 52 53 4f 52 20 | 4f 46 46 0d 0a 6d 2e 69 | CURSOR |OFF..m.i|
|00002fa0| 6e 5f 77 72 61 70 20 3d | 20 5f 57 52 41 50 0d 0a |n_wrap =| _WRAP..|
|00002fb0| 6d 2e 69 6e 5f 6c 6d 61 | 72 67 69 6e 20 3d 20 5f |m.in_lma|rgin = _|
|00002fc0| 4c 4d 41 52 47 49 4e 0d | 0a 6d 2e 69 6e 5f 72 6d |LMARGIN.|.m.in_rm|
|00002fd0| 61 72 67 69 6e 20 3d 20 | 5f 52 4d 41 52 47 49 4e |argin = |_RMARGIN|
|00002fe0| 0d 0a 0d 0a 40 20 20 32 | 2c 31 20 53 41 59 20 6d |....@ 2|,1 SAY m|
|00002ff0| 2e 6c 69 6e 65 31 20 3b | 0d 0a 20 20 20 46 4f 4e |.line1 ;|.. FON|
|00003000| 54 20 6d 2e 66 6e 74 5f | 66 61 63 65 2c 6d 2e 66 |T m.fnt_|face,m.f|
|00003010| 6e 74 5f 73 69 7a 65 20 | 53 54 59 4c 45 20 6d 2e |nt_size |STYLE m.|
|00003020| 66 6e 74 5f 73 74 79 6c | 65 0d 0a 40 20 20 33 2c |fnt_styl|e..@ 3,|
|00003030| 31 20 53 41 59 20 6d 2e | 6c 69 6e 65 32 20 3b 0d |1 SAY m.|line2 ;.|
|00003040| 0a 20 20 20 46 4f 4e 54 | 20 6d 2e 66 6e 74 5f 66 |. FONT| m.fnt_f|
|00003050| 61 63 65 2c 6d 2e 66 6e | 74 5f 73 69 7a 65 20 53 |ace,m.fn|t_size S|
|00003060| 54 59 4c 45 20 6d 2e 66 | 6e 74 5f 73 74 79 6c 65 |TYLE m.f|nt_style|
|00003070| 0d 0a 0d 0a 40 20 20 35 | 2c 31 20 53 41 59 20 27 |....@ 5|,1 SAY '|
|00003080| 20 20 20 59 6f 75 20 63 | 61 6e 20 72 75 6e 20 79 | You c|an run y|
|00003090| 6f 75 72 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |our appl|ication |
|000030a0| 6e 6f 77 20 62 79 20 70 | 72 65 73 73 69 6e 67 20 |now by p|ressing |
|000030b0| 61 6e 79 20 6b 65 79 2e | 27 20 3b 0d 0a 20 20 20 |any key.|' ;.. |
|000030c0| 46 4f 4e 54 20 6d 2e 66 | 6e 74 5f 66 61 63 65 2c |FONT m.f|nt_face,|
|000030d0| 6d 2e 66 6e 74 5f 73 69 | 7a 65 20 53 54 59 4c 45 |m.fnt_si|ze STYLE|
|000030e0| 20 6d 2e 66 6e 74 5f 73 | 74 79 6c 65 0d 0a 40 20 | m.fnt_s|tyle..@ |
|000030f0| 20 36 2c 31 20 53 41 59 | 20 27 20 20 20 54 6f 20 | 6,1 SAY| ' To |
|00003100| 72 75 6e 20 69 74 20 69 | 6e 20 74 68 65 20 66 75 |run it i|n the fu|
|00003110| 74 75 72 65 2c 20 73 65 | 6c 65 63 74 20 74 68 69 |ture, se|lect thi|
|00003120| 73 20 66 69 6c 65 20 69 | 6e 20 74 68 65 27 20 3b |s file i|n the' ;|
|00003130| 0d 0a 20 20 20 46 4f 4e | 54 20 6d 2e 66 6e 74 5f |.. FON|T m.fnt_|
|00003140| 66 61 63 65 2c 6d 2e 66 | 6e 74 5f 73 69 7a 65 20 |face,m.f|nt_size |
|00003150| 53 54 59 4c 45 20 6d 2e | 66 6e 74 5f 73 74 79 6c |STYLE m.|fnt_styl|
|00003160| 65 0d 0a 40 20 20 37 2c | 31 20 53 41 59 20 27 20 |e..@ 7,|1 SAY ' |
|00003170| 20 20 22 50 72 6f 67 72 | 61 6d 22 20 74 61 62 20 | "Progr|am" tab |
|00003180| 6f 66 20 74 68 65 20 43 | 61 74 61 6c 6f 67 20 4d |of the C|atalog M|
|00003190| 61 6e 61 67 65 72 20 61 | 6e 64 20 63 6c 69 63 6b |anager a|nd click|
|000031a0| 27 20 3b 0d 0a 20 20 20 | 46 4f 4e 54 20 6d 2e 66 |' ;.. |FONT m.f|
|000031b0| 6e 74 5f 66 61 63 65 2c | 6d 2e 66 6e 74 5f 73 69 |nt_face,|m.fnt_si|
|000031c0| 7a 65 20 53 54 59 4c 45 | 20 6d 2e 66 6e 74 5f 73 |ze STYLE| m.fnt_s|
|000031d0| 74 79 6c 65 0d 0a 40 20 | 20 38 2c 31 20 53 41 59 |tyle..@ | 8,1 SAY|
|000031e0| 20 27 20 20 20 22 52 75 | 6e 22 2c 20 6f 72 20 73 | ' "Ru|n", or s|
|000031f0| 65 6c 65 63 74 20 22 41 | 70 70 6c 69 63 61 74 69 |elect "A|pplicati|
|00003200| 6f 6e 22 20 66 72 6f 6d | 20 74 68 65 20 52 55 4e |on" from| the RUN|
|00003210| 20 6d 65 6e 75 2e 27 20 | 3b 0d 0a 20 20 20 46 4f | menu.' |;.. FO|
|00003220| 4e 54 20 6d 2e 66 6e 74 | 5f 66 61 63 65 2c 6d 2e |NT m.fnt|_face,m.|
|00003230| 66 6e 74 5f 73 69 7a 65 | 20 53 54 59 4c 45 20 6d |fnt_size| STYLE m|
|00003240| 2e 66 6e 74 5f 73 74 79 | 6c 65 0d 0a 0d 0a 57 41 |.fnt_sty|le....WA|
|00003250| 49 54 20 57 49 4e 44 4f | 57 20 22 50 72 65 73 73 |IT WINDO|W "Press|
|00003260| 20 61 6e 79 20 6b 65 79 | 20 74 6f 20 73 74 61 72 | any key| to star|
|00003270| 74 20 79 6f 75 72 20 61 | 70 70 6c 69 63 61 74 69 |t your a|pplicati|
|00003280| 6f 6e 2e 22 0d 0a 0d 0a | 2a 20 52 65 73 74 6f 72 |on."....|* Restor|
|00003290| 65 20 6d 61 72 67 69 6e | 20 61 6e 64 20 77 72 61 |e margin| and wra|
|000032a0| 70 20 73 65 74 74 69 6e | 67 73 20 74 0d 0a 5f 57 |p settin|gs t.._W|
|000032b0| 52 41 50 20 3d 20 6d 2e | 69 6e 5f 77 72 61 70 0d |RAP = m.|in_wrap.|
|000032c0| 0a 5f 52 4d 41 52 47 49 | 4e 20 3d 20 6d 2e 69 6e |._RMARGI|N = m.in|
|000032d0| 5f 72 6d 61 72 67 69 6e | 0d 0a 5f 4c 4d 41 52 47 |_rmargin|.._LMARG|
|000032e0| 49 4e 20 3d 20 6d 2e 69 | 6e 5f 6c 6d 61 72 67 69 |IN = m.i|n_lmargi|
|000032f0| 6e 0d 0a 52 45 4c 45 41 | 53 45 20 6d 2e 69 6e 5f |n..RELEA|SE m.in_|
|00003300| 77 72 61 70 2c 20 6d 2e | 69 6e 5f 72 6d 61 72 67 |wrap, m.|in_rmarg|
|00003310| 69 6e 2c 20 6d 2e 69 6e | 5f 6c 6d 61 72 67 69 6e |in, m.in|_lmargin|
|00003320| 0d 0a 0d 0a 52 45 4c 45 | 41 53 45 20 57 49 4e 44 |....RELE|ASE WIND|
|00003330| 4f 57 20 61 70 70 64 6f | 63 0d 0a 53 45 54 20 43 |OW appdo|c..SET C|
|00003340| 55 52 53 4f 52 20 4f 4e | 0d 0a 0d 0a 2a 20 52 65 |URSOR ON|....* Re|
|00003350| 6c 65 61 73 65 20 50 55 | 42 4c 49 43 20 76 61 72 |lease PU|BLIC var|
|00003360| 69 61 62 6c 65 73 20 74 | 68 61 74 20 61 72 65 20 |iables t|hat are |
|00003370| 6e 6f 20 6c 6f 6e 67 65 | 72 20 6e 65 65 64 65 64 |no longe|r needed|
|00003380| 0d 0a 52 45 4c 45 41 53 | 45 20 73 63 78 6e 61 6d |..RELEAS|E scxnam|
|00003390| 65 2c 20 64 62 66 6e 61 | 6d 65 2c 20 69 6e 76 6e |e, dbfna|me, invn|
|000033a0| 61 6d 65 2c 20 63 64 78 | 6e 61 6d 65 2c 20 72 65 |ame, cdx|name, re|
|000033b0| 70 6e 61 6d 65 2c 20 74 | 6d 66 6e 61 6d 65 0d 0a |pname, t|mfname..|
|000033c0| 52 45 4c 45 41 53 45 20 | 62 61 69 6c 6f 75 74 2c |RELEASE |bailout,|
|000033d0| 20 6f 72 69 67 6e 61 6d | 65 2c 20 64 62 66 6c 69 | orignam|e, dbfli|
|000033e0| 73 74 2c 20 6d 6e 75 6e | 61 6d 65 0d 0a 0d 0a 43 |st, mnun|ame....C|
|000033f0| 4c 4f 53 45 20 44 41 54 | 41 42 41 53 45 53 0d 0a |LOSE DAT|ABASES..|
|00003400| 0d 0a 43 4c 45 41 52 20 | 50 52 4f 47 52 41 4d 0d |..CLEAR |PROGRAM.|
|00003410| 0a 0d 0a 50 4f 50 20 4d | 45 4e 55 20 5f 6d 73 79 |...POP M|ENU _msy|
|00003420| 73 6d 65 6e 75 0d 0a 0d | 0a 2a 20 41 70 70 73 68 |smenu...|.* Appsh|
|00003430| 65 6c 6c 20 73 74 61 72 | 74 73 20 74 68 65 20 6d |ell star|ts the m|
|00003440| 2e 61 70 70 66 69 6c 65 | 20 61 70 70 6c 69 63 61 |.appfile| applica|
|00003450| 74 69 6f 6e 2e 20 20 55 | 70 6f 6e 20 72 65 74 75 |tion. U|pon retu|
|00003460| 72 6e 20 66 72 6f 6d 20 | 6d 2e 61 70 70 66 69 6c |rn from |m.appfil|
|00003470| 65 2c 0d 0a 2a 20 69 74 | 20 70 72 6f 6d 70 74 73 |e,..* it| prompts|
|00003480| 20 66 6f 72 20 61 6e 6f | 74 68 65 72 20 61 70 70 | for ano|ther app|
|00003490| 6c 69 63 61 74 69 6f 6e | 20 74 6f 20 72 75 6e 2e |lication| to run.|
|000034a0| 0d 0a 44 4f 20 61 70 70 | 73 68 65 6c 6c 20 57 49 |..DO app|shell WI|
|000034b0| 54 48 20 6d 2e 61 70 70 | 66 69 6c 65 0d 0a 0d 0a |TH m.app|file....|
|000034c0| 6d 2e 66 78 61 70 41 70 | 70 6e 61 6d 65 20 3d 20 |m.fxapAp|pname = |
|000034d0| 61 6c 6c 74 72 69 6d 28 | 6d 2e 61 70 70 66 69 6c |alltrim(|m.appfil|
|000034e0| 65 29 09 09 26 26 20 73 | 74 6f 72 65 20 6e 61 6d |e)..&& s|tore nam|
|000034f0| 65 20 6f 66 20 2e 61 70 | 70 20 74 6f 20 6d 65 6d |e of .ap|p to mem|
|00003500| 76 61 72 0d 0a 09 09 09 | 09 09 09 09 09 09 09 26 |var.....|.......&|
|00003510| 26 20 70 61 73 73 65 64 | 20 69 6e 20 66 72 6f 6d |& passed| in from|
|00003520| 20 43 61 74 61 6c 6f 67 | 20 4d 61 6e 61 67 65 72 | Catalog| Manager|
|00003530| 0d 0a 0d 0a 44 4f 20 63 | 6c 6f 73 65 5f 75 70 0d |....DO c|lose_up.|
|00003540| 0a 0d 0a 52 45 54 55 52 | 4e 0d 0a 0d 0a 0d 0a 00 |...RETUR|N.......|
|00003550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003560| 00 01 00 00 00 08 6d 2e | 61 64 64 73 63 78 00 00 |......m.|addscx..|
|00003570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003580| 00 00 01 00 00 00 0f 22 | 40 2a 56 4e 20 43 5c 3c |......."|@*VN C\<|
|00003590| 72 65 61 74 65 22 00 00 | 00 00 00 00 00 00 00 00 |reate"..|........|
|000035a0| 00 00 00 01 00 00 00 0d | 41 64 64 53 63 78 56 61 |........|AddScxVa|
|000035b0| 6c 69 64 28 29 00 00 00 | 00 00 00 00 00 00 00 00 |lid()...|........|
|000035c0| 00 00 00 00 01 00 00 00 | 08 22 43 72 65 61 74 65 |........|."Create|
|000035d0| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|000035e0| 00 00 00 00 00 01 00 00 | 00 0e 22 53 63 72 65 65 |........|.."Scree|
|000035f0| 6e 20 6e 61 6d 65 3a 22 | 00 00 00 00 00 00 00 00 |n name:"|........|
|00003600| 00 00 00 00 00 00 01 00 | 00 00 0d 22 54 61 62 6c |........|..."Tabl|
|00003610| 65 20 6e 61 6d 65 3a 22 | 00 00 00 00 00 00 00 00 |e name:"|........|
|00003620| 00 00 00 00 00 00 00 01 | 00 00 00 24 22 53 74 65 |........|...$"Ste|
|00003630| 70 20 32 20 2d 20 43 72 | 65 61 74 65 20 6f 72 20 |p 2 - Cr|eate or |
|00003640| 4d 6f 64 69 66 79 20 61 | 20 53 63 72 65 65 6e 22 |Modify a| Screen"|
|00003650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003660| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 23 22 53 |........|.....#"S|
|00003670| 74 65 70 20 31 20 2d 20 | 43 72 65 61 74 65 20 6f |tep 1 - |Create o|
|00003680| 72 20 4d 6f 64 69 66 79 | 20 61 20 54 61 62 6c 65 |r Modify| a Table|
|00003690| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|000036a0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 09 |........|........|
|000036b0| 6d 2e 64 62 66 6e 61 6d | 65 00 00 00 00 00 00 00 |m.dbfnam|e.......|
|000036c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000036d0| 05 22 40 4b 33 22 00 00 | 00 00 00 00 00 00 00 00 |."@K3"..|........|
|000036e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000036f0| 00 0e 44 62 66 4e 61 6d | 65 56 61 6c 69 64 28 29 |..DbfNam|eValid()|
|00003700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00003710| 00 00 0d 44 62 66 4e 61 | 6d 65 57 68 65 6e 28 29 |...DbfNa|meWhen()|
|00003720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00003730| 00 00 00 08 6d 2e 61 64 | 64 64 62 66 00 00 00 00 |....m.ad|ddbf....|
|00003740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003750| 01 00 00 00 0f 22 40 2a | 56 4e 20 5c 3c 43 72 65 |....."@*|VN \<Cre|
|00003760| 61 74 65 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |ate"....|........|
|00003770| 00 01 00 00 00 0d 41 64 | 64 44 62 66 56 61 6c 69 |......Ad|dDbfVali|
|00003780| 64 28 29 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |d().....|........|
|00003790| 00 00 01 00 00 00 08 22 | 43 72 65 61 74 65 22 00 |......."|Create".|
|000037a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037b0| 00 00 00 01 00 00 00 08 | 6d 2e 6d 6f 64 64 62 66 |........|m.moddbf|
|000037c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037d0| 00 00 00 00 01 00 00 00 | 0f 22 40 2a 56 4e 20 5c |........|."@*VN \|
|000037e0| 3c 4d 6f 64 69 66 79 22 | 00 00 00 00 00 00 00 00 |<Modify"|........|
|000037f0| 00 00 00 00 00 01 00 00 | 00 0d 4d 6f 64 44 62 66 |........|..ModDbf|
|00003800| 56 61 6c 69 64 28 29 00 | 00 00 00 00 00 00 00 00 |Valid().|........|
|00003810| 00 00 00 00 00 00 01 00 | 00 00 08 22 4d 6f 64 69 |........|..."Modi|
|00003820| 66 79 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |fy".....|........|
|00003830| 00 00 00 00 00 00 00 01 | 00 00 00 09 6d 2e 4c 69 |........|....m.Li|
|00003840| 73 74 64 62 66 00 00 00 | 00 00 00 00 00 00 00 00 |stdbf...|........|
|00003850| 00 00 00 00 00 00 00 00 | 01 00 00 00 15 22 40 2a |........|....."@*|
|00003860| 56 4e 20 46 72 6f 6d 20 | 5c 3c 46 69 6c 65 2e 2e |VN From |\<File..|
|00003870| 2e 22 00 00 00 00 00 00 | 00 01 00 00 00 0e 4c 69 |."......|......Li|
|00003880| 73 74 44 62 66 56 61 6c | 69 64 28 29 00 00 00 00 |stDbfVal|id()....|
|00003890| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 26 6f |........|......&o|
|000038a0| 72 69 67 6e 61 6d 65 20 | 3d 20 41 4c 4c 54 52 49 |rigname |= ALLTRI|
|000038b0| 4d 28 55 50 50 45 52 28 | 6d 2e 64 62 66 6e 61 6d |M(UPPER(|m.dbfnam|
|000038c0| 65 29 29 0d 0a 00 00 00 | 00 00 00 00 00 00 00 00 |e)).....|........|
|000038d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000038e0| 0e 22 46 72 6f 6d 20 46 | 69 6c 65 2e 2e 2e 22 00 |."From F|ile...".|
|000038f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00003900| 00 07 6d 2e 6f 74 68 65 | 72 00 00 00 00 00 00 00 |..m.othe|r.......|
|00003910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00003920| 00 00 13 22 40 2a 48 4e | 20 52 65 5c 3c 6c 61 74 |..."@*HN| Re\<lat|
|00003930| 65 64 2e 2e 2e 22 00 00 | 00 00 00 00 00 00 00 01 |ed..."..|........|
|00003940| 00 00 00 0c 4f 74 68 65 | 72 56 61 6c 69 64 28 29 |....Othe|rValid()|
|00003950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003960| 01 00 00 00 0c 22 52 65 | 6c 61 74 65 64 2e 2e 2e |....."Re|lated...|
|00003970| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|00003980| 00 01 00 00 00 09 6d 2e | 73 63 78 6e 61 6d 65 00 |......m.|scxname.|
|00003990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000039a0| 00 00 01 00 00 00 05 22 | 40 33 4b 22 00 00 00 00 |......."|@3K"....|
|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 0e | 53 63 78 4e 61 6d 65 56 |........|ScxNameV|
|000039d0| 61 6c 69 64 28 29 00 00 | 00 00 00 00 00 00 00 00 |alid()..|........|
|000039e0| 00 00 00 00 01 00 00 00 | 0d 53 63 78 4e 61 6d 65 |........|.ScxName|
|000039f0| 57 68 65 6e 28 29 00 00 | 00 00 00 00 00 00 00 00 |When()..|........|
|00003a00| 00 00 00 00 00 01 00 00 | 00 08 6d 2e 6d 6f 64 73 |........|..m.mods|
|00003a10| 63 78 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |cx......|........|
|00003a20| 00 00 00 00 00 00 01 00 | 00 00 0f 22 40 2a 56 4e |........|..."@*VN|
|00003a30| 20 4d 5c 3c 6f 64 69 66 | 79 22 00 00 00 00 00 00 | M\<odif|y"......|
|00003a40| 00 00 00 00 00 00 00 01 | 00 00 00 0d 4d 6f 64 53 |........|....ModS|
|00003a50| 63 78 56 61 6c 69 64 28 | 29 00 00 00 00 00 00 00 |cxValid(|).......|
|00003a60| 00 00 00 00 00 00 00 00 | 01 00 00 00 0c 4d 6f 64 |........|.....Mod|
|00003a70| 53 63 78 57 68 65 6e 28 | 29 00 00 00 00 00 00 00 |ScxWhen(|).......|
|00003a80| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 08 22 4d |........|......"M|
|00003a90| 6f 64 69 66 79 22 00 00 | 00 00 00 00 00 00 00 00 |odify"..|........|
|00003aa0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 09 6d |........|.......m|
|00003ab0| 2e 4c 69 73 74 73 63 78 | 00 00 00 00 00 00 00 00 |.Listscx|........|
|00003ac0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 15 |........|........|
|00003ad0| 22 40 2a 56 4e 20 46 72 | 6f 6d 20 46 5c 3c 69 6c |"@*VN Fr|om F\<il|
|00003ae0| 65 2e 2e 2e 22 00 00 00 | 00 00 00 00 01 00 00 00 |e..."...|........|
|00003af0| 0e 4c 69 73 74 53 63 78 | 56 61 6c 69 64 28 29 00 |.ListScx|Valid().|
|00003b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00003b10| 00 0e 22 46 72 6f 6d 20 | 46 69 6c 65 2e 2e 2e 22 |.."From |File..."|
|00003b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00003b30| 00 00 09 6d 2e 61 72 72 | 61 6e 67 65 00 00 00 00 |...m.arr|ange....|
|00003b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00003b50| 00 00 00 10 22 40 2a 48 | 4e 20 5c 3c 41 72 72 61 |...."@*H|N \<Arra|
|00003b60| 6e 67 65 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |nge"....|........|
|00003b70| 01 00 00 00 0e 41 72 72 | 61 6e 67 65 56 61 6c 69 |.....Arr|angeVali|
|00003b80| 64 28 29 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |d().....|........|
|00003b90| 00 01 00 00 00 09 22 41 | 72 72 61 6e 67 65 22 00 |......"A|rrange".|
|00003ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bb0| 00 00 01 00 00 00 0a 6d | 2e 67 65 6e 65 72 61 74 |.......m|.generat|
|00003bc0| 65 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |e.......|........|
|00003bd0| 00 00 00 01 00 00 00 13 | 22 40 2a 56 4e 20 5c 21 |........|"@*VN \!|
|00003be0| 5c 3c 47 65 6e 65 72 61 | 74 65 22 00 00 00 00 00 |\<Genera|te".....|
|00003bf0| 00 00 00 00 01 00 00 00 | 0f 47 65 6e 65 72 61 74 |........|.Generat|
|00003c00| 65 56 61 6c 69 64 28 29 | 00 00 00 00 00 00 00 00 |eValid()|........|
|00003c10| 00 00 00 00 00 01 00 00 | 00 0a 22 47 65 6e 65 72 |........|.."Gener|
|00003c20| 61 74 65 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |ate"....|........|
|00003c30| 00 00 00 00 00 00 01 00 | 00 00 0a 6d 2e 61 64 76 |........|...m.adv|
|00003c40| 61 6e 63 65 64 00 00 00 | 00 00 00 00 00 00 00 00 |anced...|........|
|00003c50| 00 00 00 00 00 00 00 01 | 00 00 00 14 22 40 2a 48 |........|...."@*H|
|00003c60| 4e 20 41 64 5c 3c 76 61 | 6e 63 65 64 2e 2e 2e 22 |N Ad\<va|nced..."|
|00003c70| 00 00 00 00 00 00 00 00 | 01 00 00 00 10 44 4f 20 |........|.....DO |
|00003c80| 61 64 76 61 6e 63 65 2e | 73 70 72 0d 0a 00 00 00 |advance.|spr.....|
|00003c90| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0d 22 41 |........|......"A|
|00003ca0| 64 76 61 6e 63 65 64 2e | 2e 2e 22 00 00 00 00 00 |dvanced.|..".....|
|00003cb0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 09 6d |........|.......m|
|00003cc0| 2e 63 61 6e 63 62 75 74 | 00 00 00 00 00 00 00 00 |.cancbut|........|
|00003cd0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 11 |........|........|
|00003ce0| 22 40 2a 56 4e 20 5c 3f | 5c 3c 43 61 6e 63 65 6c |"@*VN \?|\<Cancel|
|00003cf0| 22 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |".......|........|
|00003d00| 1c 71 75 69 74 74 69 6e | 67 20 3d 20 2e 54 2e 0d |.quittin|g = .T..|
|00003d10| 0a 43 4c 45 41 52 20 52 | 45 41 44 0d 0a 00 00 00 |.CLEAR R|EAD.....|
|00003d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00003d40| 00 00 08 22 43 61 6e 63 | 65 6c 22 00 00 00 00 00 |..."Canc|el".....|
|00003d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00003d60| 00 00 00 06 61 70 70 67 | 65 6e 00 00 00 00 00 00 |....appg|en......|
|00003d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d80| 01 00 00 00 20 22 20 46 | 6f 78 50 72 6f 20 41 70 |.... " F|oxPro Ap|
|00003d90| 70 6c 69 63 61 74 69 6f | 6e 20 47 65 6e 65 72 61 |plicatio|n Genera|
|00003da0| 74 6f 72 20 22 00 00 00 | 00 00 00 00 00 00 00 00 |tor "...|........|
|00003db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003dc0| 00 00 01 00 00 00 0c 61 | 70 70 73 63 78 73 68 6f |.......a|ppscxsho|
|00003dd0| 77 28 29 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |w().....|........|
|00003de0| 00 00 00 01 00 00 00 17 | 3f 3f 20 43 48 52 28 37 |........|?? CHR(7|
|00003df0| 29 0d 0a 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 20 |)..RETUR|N .F... |
|00003e00| 00 00 00 00 01 00 00 10 | 05 0d 0a 2a 20 43 6c 65 |........|...* Cle|
|00003e10| 61 6e 75 70 20 63 6f 64 | 65 20 74 6f 20 63 6f 6e |anup cod|e to con|
|00003e20| 73 74 72 75 63 74 20 43 | 44 58 20 66 69 6c 65 20 |struct C|DX file |
|00003e30| 61 6e 64 20 73 74 61 72 | 74 20 74 68 65 20 61 70 |and star|t the ap|
|00003e40| 70 6c 69 63 61 74 69 6f | 6e 0d 0a 0d 0a 2a 20 49 |plicatio|n....* I|
|00003e50| 66 20 63 61 6e 63 65 6c | 20 62 75 74 74 6f 6e 20 |f cancel| button |
|00003e60| 70 72 65 73 73 65 64 2c | 20 71 75 69 74 20 6e 6f |pressed,| quit no|
|00003e70| 77 0d 0a 49 46 20 6d 2e | 71 75 69 74 74 69 6e 67 |w..IF m.|quitting|
|00003e80| 0d 0a 20 20 20 44 4f 20 | 63 6c 6f 73 65 5f 75 70 |.. DO |close_up|
|00003e90| 0d 0a 20 20 20 52 45 54 | 55 52 4e 0d 0a 45 4e 44 |.. RET|URN..END|
|00003ea0| 49 46 0d 0a 0d 0a 2a 20 | 54 68 69 73 20 53 45 54 |IF....* |This SET|
|00003eb0| 20 54 41 4c 4b 20 4f 46 | 46 20 69 73 20 6e 65 63 | TALK OF|F is nec|
|00003ec0| 65 73 73 61 72 79 20 62 | 65 63 61 75 73 65 20 74 |essary b|ecause t|
|00003ed0| 68 65 20 73 63 72 65 65 | 6e 20 67 65 6e 65 72 61 |he scree|n genera|
|00003ee0| 74 6f 72 20 72 65 73 74 | 6f 72 65 73 0d 0a 2a 20 |tor rest|ores..* |
|00003ef0| 74 68 65 20 6f 72 69 67 | 69 6e 61 6c 20 54 41 4c |the orig|inal TAL|
|00003f00| 4b 20 73 65 74 74 69 6e | 67 20 62 65 66 6f 72 65 |K settin|g before|
|00003f10| 20 65 78 65 63 75 74 69 | 6e 67 20 74 68 65 20 63 | executi|ng the c|
|00003f20| 6c 65 61 6e 75 70 20 73 | 6e 69 70 70 65 74 2e 0d |leanup s|nippet..|
|00003f30| 0a 53 45 54 20 54 41 4c | 4b 20 4f 46 46 0d 0a 0d |.SET TAL|K OFF...|
|00003f40| 0a 6d 2e 73 63 78 6e 61 | 6d 65 20 3d 20 41 4c 4c |.m.scxna|me = ALL|
|00003f50| 54 52 49 4d 28 55 50 50 | 45 52 28 6d 2e 73 63 78 |TRIM(UPP|ER(m.scx|
|00003f60| 6e 61 6d 65 29 29 0d 0a | 6d 2e 64 62 66 6e 61 6d |name))..|m.dbfnam|
|00003f70| 65 20 3d 20 41 4c 4c 54 | 52 49 4d 28 55 50 50 45 |e = ALLT|RIM(UPPE|
|00003f80| 52 28 6d 2e 64 62 66 6e | 61 6d 65 29 29 0d 0a 49 |R(m.dbfn|ame))..I|
|00003f90| 46 20 21 46 49 4c 45 28 | 6d 2e 73 63 78 6e 61 6d |F !FILE(|m.scxnam|
|00003fa0| 65 29 0d 0a 20 20 20 57 | 41 49 54 20 57 49 4e 44 |e).. W|AIT WIND|
|00003fb0| 4f 57 20 22 54 68 65 20 | 73 63 72 65 65 6e 20 66 |OW "The |screen f|
|00003fc0| 69 6c 65 20 69 73 20 6d | 69 73 73 69 6e 67 2e 22 |ile is m|issing."|
|00003fd0| 0d 0a 20 20 20 44 4f 20 | 63 6c 6f 73 65 5f 75 70 |.. DO |close_up|
|00003fe0| 0d 0a 20 20 20 72 65 74 | 75 72 6e 0d 0a 45 4e 44 |.. ret|urn..END|
|00003ff0| 49 46 0d 0a 49 46 20 21 | 46 49 4c 45 28 6d 2e 64 |IF..IF !|FILE(m.d|
|00004000| 62 66 6e 61 6d 65 29 0d | 0a 20 20 20 57 41 49 54 |bfname).|. WAIT|
|00004010| 20 57 49 4e 44 4f 57 20 | 22 54 68 65 20 64 61 74 | WINDOW |"The dat|
|00004020| 61 62 61 73 65 20 66 69 | 6c 65 20 69 73 20 6d 69 |abase fi|le is mi|
|00004030| 73 73 69 6e 67 2e 22 0d | 0a 20 20 20 44 4f 20 63 |ssing.".|. DO c|
|00004040| 6c 6f 73 65 5f 75 70 0d | 0a 20 20 20 72 65 74 75 |lose_up.|. retu|
|00004050| 72 6e 0d 0a 45 4e 44 49 | 46 0d 0a 0d 0a 2a 20 49 |rn..ENDI|F....* I|
|00004060| 6e 76 65 72 74 20 74 68 | 65 20 64 61 74 61 62 61 |nvert th|e databa|
|00004070| 73 65 20 69 66 20 74 68 | 65 72 65 20 69 73 6e 27 |se if th|ere isn'|
|00004080| 74 20 61 20 43 44 58 20 | 66 69 6c 65 20 70 72 65 |t a CDX |file pre|
|00004090| 73 65 6e 74 20 61 6c 72 | 65 61 64 79 0d 0a 6d 2e |sent alr|eady..m.|
|000040a0| 69 6e 76 73 74 65 6d 20 | 3d 20 6d 61 6b 65 61 6c |invstem |= makeal|
|000040b0| 69 61 73 28 6a 75 73 74 | 73 74 65 6d 28 6d 2e 64 |ias(just|stem(m.d|
|000040c0| 62 66 6e 61 6d 65 29 29 | 0d 0a 6d 2e 63 64 78 6e |bfname))|..m.cdxn|
|000040d0| 61 6d 65 20 3d 20 66 6f | 72 63 65 65 78 74 28 6d |ame = fo|rceext(m|
|000040e0| 2e 64 62 66 6e 61 6d 65 | 2c 27 43 44 58 27 29 0d |.dbfname|,'CDX').|
|000040f0| 0a 49 46 20 46 49 4c 45 | 28 6d 2e 63 64 78 6e 61 |.IF FILE|(m.cdxna|
|00004100| 6d 65 29 0d 0a 20 20 20 | 49 46 20 55 53 45 44 28 |me).. |IF USED(|
|00004110| 6d 2e 69 6e 76 73 74 65 | 6d 29 0d 0a 20 20 20 20 |m.invste|m).. |
|00004120| 20 20 53 45 4c 45 43 54 | 20 28 6d 2e 69 6e 76 73 | SELECT| (m.invs|
|00004130| 74 65 6d 29 0d 0a 20 20 | 20 45 4c 53 45 0d 0a 20 |tem).. | ELSE.. |
|00004140| 20 20 20 20 20 53 45 4c | 45 43 54 20 30 0d 0a 20 | SEL|ECT 0.. |
|00004150| 20 20 20 20 20 55 53 45 | 20 28 4c 4f 43 46 49 4c | USE| (LOCFIL|
|00004160| 45 28 6d 2e 64 62 66 6e | 61 6d 65 2c 27 44 42 46 |E(m.dbfn|ame,'DBF|
|00004170| 27 2c 27 4c 6f 63 61 74 | 65 20 27 2b 6d 2e 64 62 |','Locat|e '+m.db|
|00004180| 66 6e 61 6d 65 2b 27 20 | 70 6c 65 61 73 65 27 29 |fname+' |please')|
|00004190| 29 0d 0a 20 20 20 45 4e | 44 49 46 0d 0a 0d 0a 20 |).. EN|DIF.... |
|000041a0| 20 20 2a 20 45 6e 73 75 | 72 65 20 74 68 61 74 20 | * Ensu|re that |
|000041b0| 74 68 65 20 64 61 74 61 | 62 61 73 65 20 69 73 6e |the data|base isn|
|000041c0| 27 74 20 65 6d 70 74 79 | 0d 0a 20 20 20 49 46 20 |'t empty|.. IF |
|000041d0| 52 45 43 43 4f 55 4e 54 | 28 29 20 3d 20 30 0d 0a |RECCOUNT|() = 0..|
|000041e0| 20 20 20 20 20 20 41 50 | 50 45 4e 44 20 42 4c 41 | AP|PEND BLA|
|000041f0| 4e 4b 0d 0a 20 20 20 45 | 4e 44 49 46 0d 0a 45 4c |NK.. E|NDIF..EL|
|00004200| 53 45 0d 0a 20 20 20 44 | 4f 20 69 6e 76 65 72 74 |SE.. D|O invert|
|00004210| 20 57 49 54 48 20 6d 2e | 64 62 66 6e 61 6d 65 0d | WITH m.|dbfname.|
|00004220| 0a 45 4e 44 49 46 0d 0a | 0d 0a 2a 20 44 69 73 70 |.ENDIF..|..* Disp|
|00004230| 6c 61 79 20 61 20 6d 65 | 73 73 61 67 65 20 74 65 |lay a me|ssage te|
|00004240| 6c 6c 69 6e 67 20 74 68 | 65 20 75 73 65 72 20 68 |lling th|e user h|
|00004250| 6f 77 20 74 6f 20 72 75 | 6e 20 74 68 65 20 0d 0a |ow to ru|n the ..|
|00004260| 2a 20 67 65 6e 65 72 61 | 74 65 64 20 61 70 70 6c |* genera|ted appl|
|00004270| 69 63 61 74 69 6f 6e 20 | 69 6e 20 74 68 65 20 66 |ication |in the f|
|00004280| 75 74 75 72 65 2e 0d 0a | 43 4c 45 41 52 20 57 49 |uture...|CLEAR WI|
|00004290| 4e 44 4f 57 0d 0a 49 46 | 20 55 53 45 44 28 6d 2e |NDOW..IF| USED(m.|
|000042a0| 69 6e 76 73 74 65 6d 29 | 0d 0a 20 20 20 53 45 4c |invstem)|.. SEL|
|000042b0| 45 43 54 20 28 6d 2e 69 | 6e 76 73 74 65 6d 29 0d |ECT (m.i|nvstem).|
|000042c0| 0a 45 4c 53 45 0d 0a 20 | 20 20 53 45 4c 45 43 54 |.ELSE.. | SELECT|
|000042d0| 20 30 0d 0a 20 20 20 55 | 53 45 20 28 4c 4f 43 46 | 0.. U|SE (LOCF|
|000042e0| 49 4c 45 28 6d 2e 64 62 | 66 6e 61 6d 65 2c 27 44 |ILE(m.db|fname,'D|
|000042f0| 42 46 27 2c 27 4c 6f 63 | 61 74 65 20 27 2b 6d 2e |BF','Loc|ate '+m.|
|00004300| 64 62 66 6e 61 6d 65 2b | 27 20 70 6c 65 61 73 65 |dbfname+|' please|
|00004310| 27 29 29 0d 0a 45 4e 44 | 49 46 0d 0a 47 4f 54 4f |'))..END|IF..GOTO|
|00004320| 20 54 4f 50 0d 0a 43 4c | 45 41 52 0d 0a 0d 0a 6d | TOP..CL|EAR....m|
|00004330| 2e 66 6e 74 5f 66 61 63 | 65 20 20 3d 20 6d 2e 67 |.fnt_fac|e = m.g|
|00004340| 5f 64 66 6c 74 66 66 61 | 63 65 0d 0a 6d 2e 66 6e |_dfltffa|ce..m.fn|
|00004350| 74 5f 73 69 7a 65 20 20 | 3d 20 6d 2e 67 5f 64 66 |t_size |= m.g_df|
|00004360| 6c 74 66 73 69 7a 65 0d | 0a 6d 2e 66 6e 74 5f 73 |ltfsize.|.m.fnt_s|
|00004370| 74 79 6c 65 20 3d 20 6d | 2e 67 5f 64 66 6c 74 66 |tyle = m|.g_dfltf|
|00004380| 73 74 79 6c 65 0d 0a 0d | 0a 2a 20 46 69 67 75 72 |style...|.* Figur|
|00004390| 65 20 6f 75 74 20 68 6f | 77 20 62 69 67 20 74 68 |e out ho|w big th|
|000043a0| 65 20 70 61 6e 65 6c 20 | 6e 65 65 64 73 20 74 6f |e panel |needs to|
|000043b0| 20 62 65 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 | be in t|he curre|
|000043c0| 6e 74 20 73 63 72 65 65 | 6e 20 66 6f 6e 74 0d 0a |nt scree|n font..|
|000043d0| 6d 2e 6c 69 6e 65 31 20 | 3d 20 27 20 20 20 46 6f |m.line1 |= ' Fo|
|000043e0| 78 41 70 70 20 68 61 73 | 20 63 72 65 61 74 65 64 |xApp has| created|
|000043f0| 20 61 6e 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 | an appl|ication |
|00004400| 6e 61 6d 65 64 20 27 2b | 4c 45 46 54 28 6a 75 73 |named '+|LEFT(jus|
|00004410| 74 66 6e 61 6d 65 28 6d | 2e 61 70 70 66 69 6c 65 |tfname(m|.appfile|
|00004420| 29 2c 35 30 29 0d 0a 6d | 2e 6c 69 6e 65 32 20 3d |),50)..m|.line2 =|
|00004430| 20 27 20 20 20 69 6e 20 | 74 68 65 20 27 2b 6a 75 | ' in |the '+ju|
|00004440| 73 74 70 61 74 68 28 6d | 2e 61 70 70 66 69 6c 65 |stpath(m|.appfile|
|00004450| 29 2b 27 20 64 69 72 65 | 63 74 6f 72 79 2e 27 0d |)+' dire|ctory.'.|
|00004460| 0a 6d 2e 6d 61 78 63 6f | 6c 20 3d 20 54 58 54 57 |.m.maxco|l = TXTW|
|00004470| 49 44 54 48 28 6d 2e 6c | 69 6e 65 31 2b 27 20 20 |IDTH(m.l|ine1+' |
|00004480| 20 27 2c 6d 2e 67 5f 64 | 66 6c 74 66 66 61 63 65 | ',m.g_d|fltfface|
|00004490| 2c 20 6d 2e 67 5f 64 66 | 6c 74 66 73 69 7a 65 2c |, m.g_df|ltfsize,|
|000044a0| 20 6d 2e 67 5f 64 66 6c | 74 66 73 74 79 6c 65 29 | m.g_dfl|tfstyle)|
|000044b0| 0d 0a 6d 2e 6d 61 78 63 | 6f 6c 20 3d 20 4d 41 58 |..m.maxc|ol = MAX|
|000044c0| 28 6d 2e 6d 61 78 63 6f | 6c 2c 20 54 58 54 57 49 |(m.maxco|l, TXTWI|
|000044d0| 44 54 48 28 6d 2e 6c 69 | 6e 65 32 2b 27 20 20 20 |DTH(m.li|ne2+' |
|000044e0| 27 2c 6d 2e 67 5f 64 66 | 6c 74 66 66 61 63 65 2c |',m.g_df|ltfface,|
|000044f0| 20 6d 2e 67 5f 64 66 6c | 74 66 73 69 7a 65 2c 20 | m.g_dfl|tfsize, |
|00004500| 6d 2e 67 5f 64 66 6c 74 | 66 73 74 79 6c 65 29 20 |m.g_dflt|fstyle) |
|00004510| 29 0d 0a 0d 0a 6d 2e 6d | 61 78 63 6f 6c 20 3d 20 |)....m.m|axcol = |
|00004520| 4d 41 58 28 6d 2e 6d 61 | 78 63 6f 6c 2c 20 35 35 |MAX(m.ma|xcol, 55|
|00004530| 29 20 2b 20 31 32 0d 0a | 0d 0a 6d 2e 74 72 31 20 |) + 12..|..m.tr1 |
|00004540| 3d 20 35 20 20 20 20 2a | 20 46 4f 4e 54 4d 45 54 |= 5 *| FONTMET|
|00004550| 52 49 43 28 31 2c 6d 2e | 66 6e 74 5f 66 61 63 65 |RIC(1,m.|fnt_face|
|00004560| 2c 20 6d 2e 66 6e 74 5f | 73 69 7a 65 2c 20 6d 2e |, m.fnt_|size, m.|
|00004570| 66 6e 74 5f 73 74 79 6c | 65 29 20 3b 0d 0a 20 20 |fnt_styl|e) ;.. |
|00004580| 20 20 20 20 20 20 20 20 | 20 20 20 2f 20 46 4f 4e | | / FON|
|00004590| 54 4d 45 54 52 49 43 28 | 31 2c 57 46 4f 4e 54 28 |TMETRIC(|1,WFONT(|
|000045a0| 31 2c 22 22 29 2c 57 46 | 4f 4e 54 28 32 2c 22 22 |1,""),WF|ONT(2,""|
|000045b0| 29 2c 57 46 4f 4e 54 28 | 33 2c 22 22 29 29 0d 0a |),WFONT(|3,""))..|
|000045c0| 6d 2e 74 72 32 20 3d 20 | 31 37 20 20 20 2a 20 46 |m.tr2 = |17 * F|
|000045d0| 4f 4e 54 4d 45 54 52 49 | 43 28 31 2c 6d 2e 66 6e |ONTMETRI|C(1,m.fn|
|000045e0| 74 5f 66 61 63 65 2c 20 | 6d 2e 66 6e 74 5f 73 69 |t_face, |m.fnt_si|
|000045f0| 7a 65 2c 20 6d 2e 66 6e | 74 5f 73 74 79 6c 65 29 |ze, m.fn|t_style)|
|00004600| 20 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | ;.. | |
|00004610| 20 2f 20 46 4f 4e 54 4d | 45 54 52 49 43 28 31 2c | / FONTM|ETRIC(1,|
|00004620| 57 46 4f 4e 54 28 31 2c | 22 22 29 2c 57 46 4f 4e |WFONT(1,|""),WFON|
|00004630| 54 28 32 2c 22 22 29 2c | 57 46 4f 4e 54 28 33 2c |T(2,""),|WFONT(3,|
|00004640| 22 22 29 29 0d 0a 6d 2e | 74 63 31 20 3d 20 36 20 |""))..m.|tc1 = 6 |
|00004650| 20 20 20 2a 20 46 4f 4e | 54 4d 45 54 52 49 43 28 | * FON|TMETRIC(|
|00004660| 36 2c 6d 2e 66 6e 74 5f | 66 61 63 65 2c 20 6d 2e |6,m.fnt_|face, m.|
|00004670| 66 6e 74 5f 73 69 7a 65 | 2c 20 6d 2e 66 6e 74 5f |fnt_size|, m.fnt_|
|00004680| 73 74 79 6c 65 29 20 3b | 0d 0a 20 20 20 20 20 20 |style) ;|.. |
|00004690| 20 20 20 20 20 20 20 2f | 20 46 4f 4e 54 4d 45 54 | /| FONTMET|
|000046a0| 52 49 43 28 36 2c 57 46 | 4f 4e 54 28 31 2c 22 22 |RIC(6,WF|ONT(1,""|
|000046b0| 29 2c 57 46 4f 4e 54 28 | 32 2c 22 22 29 2c 57 46 |),WFONT(|2,""),WF|
|000046c0| 4f 4e 54 28 33 2c 22 22 | 29 29 0d 0a 6d 2e 74 63 |ONT(3,""|))..m.tc|
|000046d0| 32 20 3d 20 6d 2e 6d 61 | 78 63 6f 6c 20 2a 20 46 |2 = m.ma|xcol * F|
|000046e0| 4f 4e 54 4d 45 54 52 49 | 43 28 36 2c 6d 2e 66 6e |ONTMETRI|C(6,m.fn|
|000046f0| 74 5f 66 61 63 65 2c 20 | 6d 2e 66 6e 74 5f 73 69 |t_face, |m.fnt_si|
|00004700| 7a 65 2c 20 6d 2e 66 6e | 74 5f 73 74 79 6c 65 29 |ze, m.fn|t_style)|
|00004710| 20 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | ;.. | |
|00004720| 20 2f 20 46 4f 4e 54 4d | 45 54 52 49 43 28 36 2c | / FONTM|ETRIC(6,|
|00004730| 57 46 4f 4e 54 28 31 2c | 22 22 29 2c 57 46 4f 4e |WFONT(1,|""),WFON|
|00004740| 54 28 32 2c 22 22 29 2c | 57 46 4f 4e 54 28 33 2c |T(2,""),|WFONT(3,|
|00004750| 22 22 29 29 0d 0a 0d 0a | 44 4f 20 70 75 74 70 61 |""))....|DO putpa|
|00004760| 6e 65 6c 20 57 49 54 48 | 20 22 61 70 70 64 6f 63 |nel WITH| "appdoc|
|00004770| 22 2c 2e 54 2e 2c 6d 2e | 74 72 31 2c 6d 2e 74 63 |",.T.,m.|tr1,m.tc|
|00004780| 31 2c 6d 2e 74 72 32 2c | 6d 2e 74 63 32 2c 2e 35 |1,m.tr2,|m.tc2,.5|
|00004790| 2c 2e 37 2c 20 6d 2e 66 | 6e 74 5f 66 61 63 65 2c |,.7, m.f|nt_face,|
|000047a0| 20 6d 2e 66 6e 74 5f 73 | 69 7a 65 2c 20 6d 2e 66 | m.fnt_s|ize, m.f|
|000047b0| 6e 74 5f 73 74 79 6c 65 | 0d 0a 52 45 4c 45 41 53 |nt_style|..RELEAS|
|000047c0| 45 20 6d 2e 74 72 31 2c | 20 6d 2e 74 63 31 2c 20 |E m.tr1,| m.tc1, |
|000047d0| 6d 2e 74 72 32 2c 20 6d | 2e 74 63 32 2c 20 6d 2e |m.tr2, m|.tc2, m.|
|000047e0| 6d 61 78 63 6f 6c 0d 0a | 0d 0a 53 45 54 20 43 55 |maxcol..|..SET CU|
|000047f0| 52 53 4f 52 20 4f 46 46 | 0d 0a 6d 2e 69 6e 5f 77 |RSOR OFF|..m.in_w|
|00004800| 72 61 70 20 3d 20 5f 57 | 52 41 50 0d 0a 6d 2e 69 |rap = _W|RAP..m.i|
|00004810| 6e 5f 6c 6d 61 72 67 69 | 6e 20 3d 20 5f 4c 4d 41 |n_lmargi|n = _LMA|
|00004820| 52 47 49 4e 0d 0a 6d 2e | 69 6e 5f 72 6d 61 72 67 |RGIN..m.|in_rmarg|
|00004830| 69 6e 20 3d 20 5f 52 4d | 41 52 47 49 4e 0d 0a 0d |in = _RM|ARGIN...|
|00004840| 0a 40 20 20 33 2c 31 20 | 53 41 59 20 6d 2e 6c 69 |.@ 3,1 |SAY m.li|
|00004850| 6e 65 31 20 3b 0d 0a 20 | 20 20 46 4f 4e 54 20 6d |ne1 ;.. | FONT m|
|00004860| 2e 66 6e 74 5f 66 61 63 | 65 2c 6d 2e 66 6e 74 5f |.fnt_fac|e,m.fnt_|
|00004870| 73 69 7a 65 20 53 54 59 | 4c 45 20 6d 2e 66 6e 74 |size STY|LE m.fnt|
|00004880| 5f 73 74 79 6c 65 0d 0a | 40 20 20 34 2c 31 20 53 |_style..|@ 4,1 S|
|00004890| 41 59 20 6d 2e 6c 69 6e | 65 32 20 3b 0d 0a 20 20 |AY m.lin|e2 ;.. |
|000048a0| 20 46 4f 4e 54 20 6d 2e | 66 6e 74 5f 66 61 63 65 | FONT m.|fnt_face|
|000048b0| 2c 6d 2e 66 6e 74 5f 73 | 69 7a 65 20 53 54 59 4c |,m.fnt_s|ize STYL|
|000048c0| 45 20 6d 2e 66 6e 74 5f | 73 74 79 6c 65 0d 0a 0d |E m.fnt_|style...|
|000048d0| 0a 40 20 20 36 2c 31 20 | 53 41 59 20 27 20 20 20 |.@ 6,1 |SAY ' |
|000048e0| 59 6f 75 20 63 61 6e 20 | 72 75 6e 20 79 6f 75 72 |You can |run your|
|000048f0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 6e 6f 77 | applica|tion now|
|00004900| 20 62 79 20 70 72 65 73 | 73 69 6e 67 20 61 6e 79 | by pres|sing any|
|00004910| 20 6b 65 79 2e 27 20 3b | 0d 0a 20 20 20 46 4f 4e | key.' ;|.. FON|
|00004920| 54 20 6d 2e 66 6e 74 5f | 66 61 63 65 2c 6d 2e 66 |T m.fnt_|face,m.f|
|00004930| 6e 74 5f 73 69 7a 65 20 | 53 54 59 4c 45 20 6d 2e |nt_size |STYLE m.|
|00004940| 66 6e 74 5f 73 74 79 6c | 65 0d 0a 40 20 20 37 2c |fnt_styl|e..@ 7,|
|00004950| 31 20 53 41 59 20 27 20 | 20 20 54 6f 20 72 75 6e |1 SAY ' | To run|
|00004960| 20 69 74 20 69 6e 20 74 | 68 65 20 66 75 74 75 72 | it in t|he futur|
|00004970| 65 2c 20 73 65 6c 65 63 | 74 20 74 68 69 73 20 66 |e, selec|t this f|
|00004980| 69 6c 65 20 69 6e 20 74 | 68 65 27 20 3b 0d 0a 20 |ile in t|he' ;.. |
|00004990| 20 20 46 4f 4e 54 20 6d | 2e 66 6e 74 5f 66 61 63 | FONT m|.fnt_fac|
|000049a0| 65 2c 6d 2e 66 6e 74 5f | 73 69 7a 65 20 53 54 59 |e,m.fnt_|size STY|
|000049b0| 4c 45 20 6d 2e 66 6e 74 | 5f 73 74 79 6c 65 0d 0a |LE m.fnt|_style..|
|000049c0| 40 20 20 38 2c 31 20 53 | 41 59 20 27 20 20 20 22 |@ 8,1 S|AY ' "|
|000049d0| 50 72 6f 67 72 61 6d 22 | 20 74 61 62 20 6f 66 20 |Program"| tab of |
|000049e0| 74 68 65 20 43 61 74 61 | 6c 6f 67 20 4d 61 6e 61 |the Cata|log Mana|
|000049f0| 67 65 72 20 61 6e 64 20 | 63 6c 69 63 6b 27 20 3b |ger and |click' ;|
|00004a00| 0d 0a 20 20 20 46 4f 4e | 54 20 6d 2e 66 6e 74 5f |.. FON|T m.fnt_|
|00004a10| 66 61 63 65 2c 6d 2e 66 | 6e 74 5f 73 69 7a 65 20 |face,m.f|nt_size |
|00004a20| 53 54 59 4c 45 20 6d 2e | 66 6e 74 5f 73 74 79 6c |STYLE m.|fnt_styl|
|00004a30| 65 0d 0a 40 20 20 39 2c | 31 20 53 41 59 20 27 20 |e..@ 9,|1 SAY ' |
|00004a40| 20 20 22 52 75 6e 22 2c | 20 6f 72 20 73 65 6c 65 | "Run",| or sele|
|00004a50| 63 74 20 22 41 70 70 6c | 69 63 61 74 69 6f 6e 22 |ct "Appl|ication"|
|00004a60| 20 66 72 6f 6d 20 74 68 | 65 20 52 55 4e 20 6d 65 | from th|e RUN me|
|00004a70| 6e 75 2e 27 20 3b 0d 0a | 20 20 20 46 4f 4e 54 20 |nu.' ;..| FONT |
|00004a80| 6d 2e 66 6e 74 5f 66 61 | 63 65 2c 6d 2e 66 6e 74 |m.fnt_fa|ce,m.fnt|
|00004a90| 5f 73 69 7a 65 20 53 54 | 59 4c 45 20 6d 2e 66 6e |_size ST|YLE m.fn|
|00004aa0| 74 5f 73 74 79 6c 65 0d | 0a 2a 40 20 31 30 2c 31 |t_style.|.*@ 10,1|
|00004ab0| 20 53 41 59 20 27 20 20 | 20 20 20 20 44 4f 20 27 | SAY ' | DO '|
|00004ac0| 2b 6a 75 73 74 66 6e 61 | 6d 65 28 6d 2e 61 70 70 |+justfna|me(m.app|
|00004ad0| 66 69 6c 65 29 20 3b 0d | 0a 2a 20 20 20 46 4f 4e |file) ;.|.* FON|
|00004ae0| 54 20 6d 2e 66 6e 74 5f | 66 61 63 65 2c 6d 2e 66 |T m.fnt_|face,m.f|
|00004af0| 6e 74 5f 73 69 7a 65 20 | 53 54 59 4c 45 20 6d 2e |nt_size |STYLE m.|
|00004b00| 66 6e 74 5f 73 74 79 6c | 65 0d 0a 0d 0a 57 41 49 |fnt_styl|e....WAI|
|00004b10| 54 20 57 49 4e 44 4f 57 | 20 22 50 72 65 73 73 20 |T WINDOW| "Press |
|00004b20| 61 6e 79 20 6b 65 79 20 | 74 6f 20 73 74 61 72 74 |any key |to start|
|00004b30| 20 79 6f 75 72 20 61 70 | 70 6c 69 63 61 74 69 6f | your ap|plicatio|
|00004b40| 6e 2e 22 0d 0a 0d 0a 2a | 20 52 65 73 74 6f 72 65 |n."....*| Restore|
|00004b50| 20 6d 61 72 67 69 6e 20 | 61 6e 64 20 77 72 61 70 | margin |and wrap|
|00004b60| 20 73 65 74 74 69 6e 67 | 73 20 74 0d 0a 5f 57 52 | setting|s t.._WR|
|00004b70| 41 50 20 3d 20 6d 2e 69 | 6e 5f 77 72 61 70 0d 0a |AP = m.i|n_wrap..|
|00004b80| 5f 52 4d 41 52 47 49 4e | 20 3d 20 6d 2e 69 6e 5f |_RMARGIN| = m.in_|
|00004b90| 72 6d 61 72 67 69 6e 0d | 0a 5f 4c 4d 41 52 47 49 |rmargin.|._LMARGI|
|00004ba0| 4e 20 3d 20 6d 2e 69 6e | 5f 6c 6d 61 72 67 69 6e |N = m.in|_lmargin|
|00004bb0| 0d 0a 52 45 4c 45 41 53 | 45 20 6d 2e 69 6e 5f 77 |..RELEAS|E m.in_w|
|00004bc0| 72 61 70 2c 20 6d 2e 69 | 6e 5f 72 6d 61 72 67 69 |rap, m.i|n_rmargi|
|00004bd0| 6e 2c 20 6d 2e 69 6e 5f | 6c 6d 61 72 67 69 6e 0d |n, m.in_|lmargin.|
|00004be0| 0a 0d 0a 52 45 4c 45 41 | 53 45 20 57 49 4e 44 4f |...RELEA|SE WINDO|
|00004bf0| 57 20 61 70 70 64 6f 63 | 0d 0a 53 45 54 20 43 55 |W appdoc|..SET CU|
|00004c00| 52 53 4f 52 20 4f 4e 0d | 0a 0d 0a 2a 20 52 65 6c |RSOR ON.|...* Rel|
|00004c10| 65 61 73 65 20 50 55 42 | 4c 49 43 20 76 61 72 69 |ease PUB|LIC vari|
|00004c20| 61 62 6c 65 73 20 74 68 | 61 74 20 61 72 65 20 6e |ables th|at are n|
|00004c30| 6f 20 6c 6f 6e 67 65 72 | 20 6e 65 65 64 65 64 0d |o longer| needed.|
|00004c40| 0a 52 45 4c 45 41 53 45 | 20 73 63 78 6e 61 6d 65 |.RELEASE| scxname|
|00004c50| 2c 20 64 62 66 6e 61 6d | 65 2c 20 69 6e 76 6e 61 |, dbfnam|e, invna|
|00004c60| 6d 65 2c 20 63 64 78 6e | 61 6d 65 2c 20 72 65 70 |me, cdxn|ame, rep|
|00004c70| 6e 61 6d 65 2c 20 74 6d | 66 6e 61 6d 65 0d 0a 52 |name, tm|fname..R|
|00004c80| 45 4c 45 41 53 45 20 62 | 61 69 6c 6f 75 74 2c 20 |ELEASE b|ailout, |
|00004c90| 6f 72 69 67 6e 61 6d 65 | 2c 20 64 62 66 6c 69 73 |origname|, dbflis|
|00004ca0| 74 2c 20 6d 6e 75 6e 61 | 6d 65 0d 0a 0d 0a 43 4c |t, mnuna|me....CL|
|00004cb0| 4f 53 45 20 44 41 54 41 | 42 41 53 45 53 0d 0a 0d |OSE DATA|BASES...|
|00004cc0| 0a 43 4c 45 41 52 20 50 | 52 4f 47 52 41 4d 0d 0a |.CLEAR P|ROGRAM..|
|00004cd0| 0d 0a 50 4f 50 20 4d 45 | 4e 55 20 5f 6d 73 79 73 |..POP ME|NU _msys|
|00004ce0| 6d 65 6e 75 0d 0a 0d 0a | 2a 20 41 70 70 73 68 65 |menu....|* Appshe|
|00004cf0| 6c 6c 20 73 74 61 72 74 | 73 20 74 68 65 20 6d 2e |ll start|s the m.|
|00004d00| 61 70 70 66 69 6c 65 20 | 61 70 70 6c 69 63 61 74 |appfile |applicat|
|00004d10| 69 6f 6e 2e 20 20 55 70 | 6f 6e 20 72 65 74 75 72 |ion. Up|on retur|
|00004d20| 6e 20 66 72 6f 6d 20 6d | 2e 61 70 70 66 69 6c 65 |n from m|.appfile|
|00004d30| 2c 0d 0a 2a 20 69 74 20 | 70 72 6f 6d 70 74 73 20 |,..* it |prompts |
|00004d40| 66 6f 72 20 61 6e 6f 74 | 68 65 72 20 61 70 70 6c |for anot|her appl|
|00004d50| 69 63 61 74 69 6f 6e 20 | 74 6f 20 72 75 6e 2e 0d |ication |to run..|
|00004d60| 0a 44 4f 20 61 70 70 73 | 68 65 6c 6c 20 57 49 54 |.DO apps|hell WIT|
|00004d70| 48 20 6d 2e 61 70 70 66 | 69 6c 65 0d 0a 0d 0a 6d |H m.appf|ile....m|
|00004d80| 2e 66 78 61 70 41 70 70 | 6e 61 6d 65 20 3d 20 61 |.fxapApp|name = a|
|00004d90| 6c 6c 74 72 69 6d 28 6d | 2e 61 70 70 66 69 6c 65 |lltrim(m|.appfile|
|00004da0| 29 09 09 26 26 20 73 74 | 6f 72 65 20 6e 61 6d 65 |)..&& st|ore name|
|00004db0| 20 6f 66 20 2e 61 70 70 | 20 74 6f 20 6d 65 6d 76 | of .app| to memv|
|00004dc0| 61 72 0d 0a 09 09 09 09 | 09 09 09 09 09 09 26 26 |ar......|......&&|
|00004dd0| 20 70 61 73 73 65 64 20 | 69 6e 20 66 72 6f 6d 20 | passed |in from |
|00004de0| 43 61 74 61 6c 6f 67 20 | 4d 61 6e 61 67 65 72 0d |Catalog |Manager.|
|00004df0| 0a 0d 0a 44 4f 20 63 6c | 6f 73 65 5f 75 70 0d 0a |...DO cl|ose_up..|
|00004e00| 0d 0a 52 45 54 55 52 4e | 0d 0a 0d 0a 0d 0a 00 00 |..RETURN|........|
|00004e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e20| 00 01 00 00 22 c9 2a 21 | 2a 2a 2a 2a 2a 2a 2a 2a |....".*!|********|
|00004e30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004e40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004e50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004e70| 2a 2a 2a 2a 2a 0d 0a 2a | 21 0d 0a 2a 3a 20 20 20 |*****..*|!..*: |
|00004e80| 20 20 50 72 6f 67 72 61 | 6d 3a 20 41 50 50 53 43 | Progra|m: APPSC|
|00004e90| 58 20 2d 20 53 45 54 55 | 50 0d 0a 2a 21 0d 0a 2a |X - SETU|P..*!..*|
|00004ea0| 21 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |!*******|********|
|00004eb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0a |********|******..|
|00004ef0| 2a 20 46 6f 78 41 70 70 | 20 32 2e 35 20 2d 2d 20 |* FoxApp| 2.5 -- |
|00004f00| 46 6f 78 50 72 6f 20 32 | 2e 35 20 61 70 70 6c 69 |FoxPro 2|.5 appli|
|00004f10| 63 61 74 69 6f 6e 20 67 | 65 6e 65 72 61 74 6f 72 |cation g|enerator|
|00004f20| 0d 0a 2a 20 41 75 74 68 | 6f 72 3a 20 57 61 6c 74 |..* Auth|or: Walt|
|00004f30| 65 72 20 4a 2e 20 4b 65 | 6e 6e 61 6d 65 72 0d 0a |er J. Ke|nnamer..|
|00004f40| 2a 20 43 6f 70 79 72 69 | 67 68 74 20 31 39 39 33 |* Copyri|ght 1993|
|00004f50| 2c 20 4d 69 63 72 6f 73 | 6f 66 74 20 43 6f 72 70 |, Micros|oft Corp|
|00004f60| 6f 72 61 74 69 6f 6e 0d | 0a 2a 0d 0a 23 54 52 41 |oration.|.*..#TRA|
|00004f70| 4e 20 53 4e 49 50 50 45 | 54 20 4f 4e 4c 59 0d 0a |N SNIPPE|T ONLY..|
|00004f80| 23 53 45 43 54 49 4f 4e | 20 31 0d 0a 23 53 45 43 |#SECTION| 1..#SEC|
|00004f90| 54 49 4f 4e 20 32 0d 0a | 0d 0a 2a 20 43 6c 65 61 |TION 2..|..* Clea|
|00004fa0| 72 20 6f 75 74 20 61 6e | 79 20 6f 66 20 74 68 65 |r out an|y of the|
|00004fb0| 73 65 20 70 75 62 6c 69 | 63 20 76 61 72 69 61 62 |se publi|c variab|
|00004fc0| 6c 65 73 20 74 68 61 74 | 20 6d 61 79 20 61 6c 72 |les that| may alr|
|00004fd0| 65 61 64 79 20 65 78 69 | 73 74 0d 0a 2a 20 4e 6f |eady exi|st..* No|
|00004fe0| 74 65 3a 20 6d 2e 61 70 | 70 66 69 6c 65 20 77 61 |te: m.ap|pfile wa|
|00004ff0| 73 20 6f 72 69 67 69 6e | 61 6c 6c 20 69 6e 20 74 |s origin|all in t|
|00005000| 68 69 73 20 6c 69 73 74 | 2c 20 62 75 74 20 77 61 |his list|, but wa|
|00005010| 73 20 72 65 6d 6f 76 65 | 64 2e 20 49 74 27 73 20 |s remove|d. It's |
|00005020| 6e 6f 77 0d 0a 2a 20 69 | 6e 69 74 69 61 6c 69 7a |now..* i|nitializ|
|00005030| 65 64 20 69 6e 20 46 58 | 41 50 43 4f 44 45 2e 50 |ed in FX|APCODE.P|
|00005040| 52 47 2e 0d 0a 0d 0a 52 | 45 4c 45 41 53 45 20 6d |RG.....R|ELEASE m|
|00005050| 6e 75 6e 61 6d 65 2c 20 | 64 62 66 6e 61 6d 65 2c |nuname, |dbfname,|
|00005060| 20 73 63 78 6e 61 6d 65 | 2c 20 72 65 70 6e 61 6d | scxname|, repnam|
|00005070| 65 2c 20 74 6d 66 6e 61 | 6d 65 2c 20 3b 0d 0a 20 |e, tmfna|me, ;.. |
|00005080| 20 20 64 62 66 6c 69 73 | 74 2c 20 66 69 72 73 74 | dbflis|t, first|
|00005090| 74 69 6d 65 2c 3b 0d 0a | 20 20 20 6f 72 69 67 6e |time,;..| orign|
|000050a0| 61 6d 65 2c 20 61 70 70 | 5f 65 72 72 6f 72 2c 20 |ame, app|_error, |
|000050b0| 61 70 70 5f 65 73 63 61 | 70 65 0d 0a 50 55 42 4c |app_esca|pe..PUBL|
|000050c0| 49 43 20 20 6d 6e 75 6e | 61 6d 65 2c 20 64 62 66 |IC mnun|ame, dbf|
|000050d0| 6e 61 6d 65 2c 20 73 63 | 78 6e 61 6d 65 2c 20 72 |name, sc|xname, r|
|000050e0| 65 70 6e 61 6d 65 2c 20 | 74 6d 66 6e 61 6d 65 2c |epname, |tmfname,|
|000050f0| 20 3b 0d 0a 20 20 20 6f | 72 69 67 6e 61 6d 65 2c | ;.. o|rigname,|
|00005100| 20 61 70 70 5f 65 72 72 | 6f 72 2c 20 61 70 70 5f | app_err|or, app_|
|00005110| 65 73 63 61 70 65 0d 0a | 0d 0a 2a 20 53 74 6f 72 |escape..|..* Stor|
|00005120| 65 20 6f 70 65 6e 20 64 | 61 74 61 62 61 73 65 73 |e open d|atabases|
|00005130| 2c 20 65 74 63 2e 20 66 | 6f 72 20 72 65 73 74 6f |, etc. f|or resto|
|00005140| 72 61 74 69 6f 6e 20 61 | 74 20 70 72 6f 67 72 61 |ration a|t progra|
|00005150| 6d 20 74 65 72 6d 69 6e | 61 74 69 6f 6e 0d 0a 43 |m termin|ation..C|
|00005160| 52 45 41 54 45 20 56 49 | 45 57 20 66 6f 78 61 70 |REATE VI|EW foxap|
|00005170| 70 0d 0a 0d 0a 50 55 53 | 48 20 4b 45 59 0d 0a 0d |p....PUS|H KEY...|
|00005180| 0a 2a 20 53 65 74 20 73 | 63 72 65 65 6e 20 66 6f |.* Set s|creen fo|
|00005190| 6e 74 20 74 6f 20 73 6f | 6d 65 74 68 69 6e 67 20 |nt to so|mething |
|000051a0| 72 65 61 73 6f 6e 61 62 | 6c 65 0d 0a 49 46 20 21 |reasonab|le..IF !|
|000051b0| 20 5f 44 4f 53 0d 0a 20 | 20 6d 2e 73 63 72 6e 5f | _DOS.. | m.scrn_|
|000051c0| 66 6f 6e 74 20 20 20 3d | 20 57 46 4f 4e 54 28 31 |font =| WFONT(1|
|000051d0| 2c 22 22 29 0d 0a 20 20 | 6d 2e 73 63 72 6e 5f 66 |,"").. |m.scrn_f|
|000051e0| 73 69 7a 65 20 20 3d 20 | 57 46 4f 4e 54 28 32 2c |size = |WFONT(2,|
|000051f0| 22 22 29 0d 0a 20 20 6d | 2e 73 63 72 6e 5f 66 73 |"").. m|.scrn_fs|
|00005200| 74 79 6c 65 20 3d 20 57 | 46 4f 4e 54 28 33 2c 22 |tyle = W|FONT(3,"|
|00005210| 22 29 0d 0a 20 20 4d 4f | 44 49 46 59 20 57 49 4e |").. MO|DIFY WIN|
|00005220| 44 4f 57 20 53 43 52 45 | 45 4e 20 46 4f 4e 54 20 |DOW SCRE|EN FONT |
|00005230| 6d 2e 67 5f 64 66 6c 74 | 66 66 61 63 65 2c 6d 2e |m.g_dflt|fface,m.|
|00005240| 67 5f 64 66 6c 74 66 73 | 69 7a 65 20 53 54 59 4c |g_dfltfs|ize STYL|
|00005250| 45 20 6d 2e 67 5f 64 66 | 6c 74 66 73 74 79 6c 65 |E m.g_df|ltfstyle|
|00005260| 0d 0a 45 4e 44 49 46 0d | 0a 0d 0a 2a 20 53 74 61 |..ENDIF.|...* Sta|
|00005270| 72 74 20 77 69 74 68 20 | 61 20 63 6c 65 61 6e 20 |rt with |a clean |
|00005280| 73 6c 61 74 65 2d 2d 74 | 68 65 79 20 77 69 6c 6c |slate--t|hey will|
|00005290| 20 62 65 20 72 65 73 74 | 6f 72 65 64 20 61 74 20 | be rest|ored at |
|000052a0| 63 6c 65 61 6e 2d 75 70 | 2e 0d 0a 43 4c 4f 53 45 |clean-up|...CLOSE|
|000052b0| 20 44 41 54 41 42 41 53 | 45 53 0d 0a 0d 0a 2a 20 | DATABAS|ES....* |
|000052c0| 4e 6f 74 65 20 74 68 65 | 20 63 75 72 72 65 6e 74 |Note the| current|
|000052d0| 20 4f 4e 20 45 52 52 4f | 52 20 72 6f 75 74 69 6e | ON ERRO|R routin|
|000052e0| 65 20 73 6f 20 74 68 61 | 74 20 77 65 20 63 61 6e |e so tha|t we can|
|000052f0| 20 72 65 73 74 6f 72 65 | 20 69 74 20 6c 61 74 65 | restore| it late|
|00005300| 72 2e 0d 0a 6d 2e 61 70 | 70 5f 65 72 72 6f 72 20 |r...m.ap|p_error |
|00005310| 3d 20 4f 4e 28 27 45 52 | 52 4f 52 27 29 0d 0a 0d |= ON('ER|ROR')...|
|00005320| 0a 2a 20 54 68 69 73 20 | 4f 4e 20 45 52 52 4f 52 |.* This |ON ERROR|
|00005330| 20 72 6f 75 74 69 6e 65 | 20 69 73 20 69 6e 20 74 | routine| is in t|
|00005340| 68 65 20 63 6c 65 61 6e | 75 70 20 73 6e 69 70 70 |he clean|up snipp|
|00005350| 65 74 0d 0a 4f 4e 20 45 | 52 52 4f 52 20 44 4f 20 |et..ON E|RROR DO |
|00005360| 61 70 70 65 72 72 6f 72 | 20 57 49 54 48 20 50 52 |apperror| WITH PR|
|00005370| 4f 47 52 41 4d 28 29 2c | 4d 45 53 53 41 47 45 28 |OGRAM(),|MESSAGE(|
|00005380| 29 2c 4d 45 53 53 41 47 | 45 28 31 29 2c 4c 49 4e |),MESSAG|E(1),LIN|
|00005390| 45 4e 4f 28 29 2c 45 52 | 52 4f 52 28 29 0d 0a 0d |ENO(),ER|ROR()...|
|000053a0| 0a 2a 20 4e 6f 74 65 20 | 74 68 65 20 63 75 72 72 |.* Note |the curr|
|000053b0| 65 6e 74 20 4f 4e 20 45 | 53 43 41 50 45 20 72 6f |ent ON E|SCAPE ro|
|000053c0| 75 74 69 6e 65 20 73 6f | 20 74 68 61 74 20 77 65 |utine so| that we|
|000053d0| 20 63 61 6e 20 72 65 73 | 74 6f 72 65 20 69 74 20 | can res|tore it |
|000053e0| 6c 61 74 65 72 2e 0d 0a | 6d 2e 61 70 70 5f 65 73 |later...|m.app_es|
|000053f0| 63 61 70 65 20 3d 20 4f | 4e 28 27 45 53 43 41 50 |cape = O|N('ESCAP|
|00005400| 45 27 29 0d 0a 0d 0a 2a | 20 54 68 69 73 20 4f 4e |E')....*| This ON|
|00005410| 20 45 53 43 41 50 45 20 | 72 6f 75 74 69 6e 65 20 | ESCAPE |routine |
|00005420| 69 73 20 69 6e 20 74 68 | 65 20 63 6c 65 61 6e 75 |is in th|e cleanu|
|00005430| 70 20 73 6e 69 70 70 65 | 74 0d 0a 4f 4e 20 45 53 |p snippe|t..ON ES|
|00005440| 43 41 50 45 20 44 4f 20 | 61 70 70 65 73 63 61 70 |CAPE DO |appescap|
|00005450| 65 20 57 49 54 48 20 50 | 52 4f 47 52 41 4d 28 29 |e WITH P|ROGRAM()|
|00005460| 2c 4d 45 53 53 41 47 45 | 28 29 2c 4d 45 53 53 41 |,MESSAGE|(),MESSA|
|00005470| 47 45 28 31 29 2c 4c 49 | 4e 45 4e 4f 28 29 2c 45 |GE(1),LI|NENO(),E|
|00005480| 52 52 4f 52 28 29 0d 0a | 0d 0a 0d 0a 53 45 54 20 |RROR()..|....SET |
|00005490| 53 59 53 4d 45 4e 55 20 | 41 55 54 4f 4d 41 54 49 |SYSMENU |AUTOMATI|
|000054a0| 43 0d 0a 50 55 53 48 20 | 4d 45 4e 55 20 5f 6d 73 |C..PUSH |MENU _ms|
|000054b0| 79 73 6d 65 6e 75 0d 0a | 0d 0a 6d 2e 61 70 70 70 |ysmenu..|..m.appp|
|000054c0| 61 74 68 6c 65 6e 20 3d | 20 49 49 46 28 5f 4d 41 |athlen =| IIF(_MA|
|000054d0| 43 2c 31 33 30 2c 37 39 | 29 20 20 20 20 20 26 26 |C,130,79|) &&|
|000054e0| 20 6d 61 78 69 6d 75 6d | 20 66 69 6c 65 20 61 6e | maximum| file an|
|000054f0| 64 20 70 61 74 68 20 6c | 65 6e 67 74 68 20 66 6f |d path l|ength fo|
|00005500| 72 20 66 69 6c 65 20 6e | 61 6d 65 73 0d 0a 0d 0a |r file n|ames....|
|00005510| 6d 2e 64 62 66 6e 61 6d | 65 20 20 3d 20 53 50 41 |m.dbfnam|e = SPA|
|00005520| 43 45 28 6d 2e 61 70 70 | 70 61 74 68 6c 65 6e 29 |CE(m.app|pathlen)|
|00005530| 0d 0a 6d 2e 73 63 78 6e | 61 6d 65 20 20 3d 20 53 |..m.scxn|ame = S|
|00005540| 50 41 43 45 28 6d 2e 61 | 70 70 70 61 74 68 6c 65 |PACE(m.a|pppathle|
|00005550| 6e 29 0d 0a 6d 2e 72 65 | 70 6e 61 6d 65 20 20 3d |n)..m.re|pname =|
|00005560| 20 53 50 41 43 45 28 6d | 2e 61 70 70 70 61 74 68 | SPACE(m|.apppath|
|00005570| 6c 65 6e 29 0d 0a 6d 2e | 6d 6e 75 6e 61 6d 65 20 |len)..m.|mnuname |
|00005580| 20 3d 20 27 41 50 50 4d | 45 4e 55 2e 4d 4e 58 27 | = 'APPM|ENU.MNX'|
|00005590| 0d 0a 6d 2e 67 65 6e 65 | 72 61 74 65 20 3d 20 30 |..m.gene|rate = 0|
|000055a0| 0d 0a 6d 2e 63 61 6e 63 | 62 75 74 20 20 3d 20 30 |..m.canc|but = 0|
|000055b0| 0d 0a 6d 2e 61 64 64 64 | 62 66 20 20 20 3d 20 30 |..m.addd|bf = 0|
|000055c0| 0d 0a 6d 2e 61 64 64 73 | 63 78 20 20 20 3d 20 30 |..m.adds|cx = 0|
|000055d0| 0d 0a 6d 2e 6d 6f 64 73 | 63 78 20 20 20 3d 20 30 |..m.mods|cx = 0|
|000055e0| 0d 0a 6d 2e 6d 6f 64 64 | 62 66 20 20 20 3d 20 30 |..m.modd|bf = 0|
|000055f0| 0d 0a 0d 0a 6d 2e 64 62 | 66 6e 61 6d 65 20 20 3d |....m.db|fname =|
|00005600| 20 55 50 50 45 52 28 50 | 41 44 52 28 6d 2e 64 62 | UPPER(P|ADR(m.db|
|00005610| 66 6e 61 6d 65 2c 6d 2e | 61 70 70 70 61 74 68 6c |fname,m.|apppathl|
|00005620| 65 6e 29 29 0d 0a 6d 2e | 73 63 78 6e 61 6d 65 20 |en))..m.|scxname |
|00005630| 20 3d 20 55 50 50 45 52 | 28 50 41 44 52 28 6d 2e | = UPPER|(PADR(m.|
|00005640| 73 63 78 6e 61 6d 65 2c | 6d 2e 61 70 70 70 61 74 |scxname,|m.apppat|
|00005650| 68 6c 65 6e 29 29 0d 0a | 6d 2e 72 65 70 6e 61 6d |hlen))..|m.repnam|
|00005660| 65 20 20 3d 20 55 50 50 | 45 52 28 50 41 44 52 28 |e = UPP|ER(PADR(|
|00005670| 6d 2e 72 65 70 6e 61 6d | 65 2c 6d 2e 61 70 70 70 |m.repnam|e,m.appp|
|00005680| 61 74 68 6c 65 6e 29 29 | 0d 0a 6d 2e 6d 6e 75 6e |athlen))|..m.mnun|
|00005690| 61 6d 65 20 20 3d 20 55 | 50 50 45 52 28 50 41 44 |ame = U|PPER(PAD|
|000056a0| 52 28 6d 2e 6d 6e 75 6e | 61 6d 65 2c 6d 2e 61 70 |R(m.mnun|ame,m.ap|
|000056b0| 70 70 61 74 68 6c 65 6e | 29 29 0d 0a 0d 0a 2a 20 |ppathlen|))....* |
|000056c0| 48 69 64 65 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |Hide the| command|
|000056d0| 20 77 69 6e 64 6f 77 2d | 2d 6e 65 63 65 73 73 61 | window-|-necessa|
|000056e0| 72 79 20 69 66 20 77 65 | 27 72 65 20 72 75 6e 6e |ry if we|'re runn|
|000056f0| 69 6e 67 20 66 72 6f 6d | 20 74 68 65 20 73 79 73 |ing from| the sys|
|00005700| 74 65 6d 20 6d 65 6e 75 | 2e 0d 0a 49 46 20 57 56 |tem menu|...IF WV|
|00005710| 49 53 49 42 4c 45 28 22 | 43 4f 4d 4d 41 4e 44 22 |ISIBLE("|COMMAND"|
|00005720| 29 0d 0a 20 20 20 48 49 | 44 45 20 57 49 4e 44 4f |).. HI|DE WINDO|
|00005730| 57 20 43 4f 4d 4d 41 4e | 44 0d 0a 45 4e 44 49 46 |W COMMAN|D..ENDIF|
|00005740| 0d 0a 0d 0a 6d 2e 6e 75 | 6d 63 6f 6c 73 20 20 20 |....m.nu|mcols |
|00005750| 3d 20 20 31 33 20 20 20 | 26 26 20 6e 75 6d 62 65 |= 13 |&& numbe|
|00005760| 72 20 6f 66 20 63 6f 6c | 75 6d 6e 73 20 69 6e 20 |r of col|umns in |
|00005770| 44 42 46 4c 49 53 54 20 | 61 72 72 61 79 2c 20 62 |DBFLIST |array, b|
|00005780| 65 6c 6f 77 0d 0a 6d 2e | 6e 75 6d 61 72 65 61 73 |elow..m.|numareas|
|00005790| 20 20 3d 20 20 32 35 20 | 20 20 26 26 20 6e 75 6d | = 25 | && num|
|000057a0| 62 65 72 20 6f 66 20 64 | 61 74 61 62 61 73 65 20 |ber of d|atabase |
|000057b0| 61 72 65 61 73 20 73 75 | 70 70 6f 72 74 65 64 2e |areas su|pported.|
|000057c0| 0d 0a 0d 0a 2a 20 53 65 | 74 20 75 70 20 64 65 66 |....* Se|t up def|
|000057d0| 69 6e 69 74 69 6f 6e 73 | 20 66 6f 72 20 44 42 46 |initions| for DBF|
|000057e0| 4c 49 53 54 20 61 72 72 | 61 79 2c 20 64 65 63 6c |LIST arr|ay, decl|
|000057f0| 61 72 65 64 20 77 68 65 | 6e 20 22 52 65 6c 61 74 |ared whe|n "Relat|
|00005800| 65 64 22 20 69 73 20 70 | 75 73 68 65 64 2e 0d 0a |ed" is p|ushed...|
|00005810| 2a 20 44 42 46 4c 49 53 | 54 20 68 61 73 20 4f 6e |* DBFLIS|T has On|
|00005820| 65 20 72 6f 77 20 70 65 | 72 20 64 61 74 61 62 61 |e row pe|r databa|
|00005830| 73 65 20 69 6e 20 74 68 | 65 20 46 6f 78 41 70 70 |se in th|e FoxApp|
|00005840| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 0d 0a 2a 20 | applica|tion..* |
|00005850| 52 6f 77 20 31 20 63 6f | 6e 74 61 69 6e 73 20 64 |Row 1 co|ntains d|
|00005860| 61 74 61 20 6f 6e 20 74 | 68 65 20 6d 61 69 6e 20 |ata on t|he main |
|00005870| 64 61 74 61 62 61 73 65 | 0d 0a 2a 0d 0a 2a 20 43 |database|..*..* C|
|00005880| 6f 6c 75 6d 6e 20 20 20 | 20 20 20 20 20 20 4d 65 |olumn | Me|
|00005890| 61 6e 69 6e 67 0d 0a 2a | 20 20 20 31 20 20 20 20 |aning..*| 1 |
|000058a0| 20 20 20 20 20 20 20 20 | 53 74 65 6d 20 6e 61 6d | |Stem nam|
|000058b0| 65 20 66 6f 72 20 63 68 | 69 6c 64 20 64 61 74 61 |e for ch|ild data|
|000058c0| 62 61 73 65 0d 0a 2a 20 | 20 20 32 20 20 20 20 20 |base..* | 2 |
|000058d0| 20 20 20 20 20 20 20 53 | 45 54 20 52 45 4c 41 54 | S|ET RELAT|
|000058e0| 49 4f 4e 20 63 6f 6d 6d | 61 6e 64 0d 0a 2a 20 20 |ION comm|and..* |
|000058f0| 20 33 20 20 20 20 20 20 | 20 20 20 20 20 20 50 61 | 3 | Pa|
|00005900| 72 65 6e 74 20 66 69 65 | 6c 64 20 6e 61 6d 65 20 |rent fie|ld name |
|00005910| 66 6f 72 20 72 65 6c 61 | 74 69 6f 6e 0d 0a 2a 20 |for rela|tion..* |
|00005920| 20 20 34 20 20 20 20 20 | 20 20 20 20 20 20 20 43 | 4 | C|
|00005930| 68 69 6c 64 20 66 69 65 | 6c 64 20 6e 61 6d 65 20 |hild fie|ld name |
|00005940| 66 6f 72 20 72 65 6c 61 | 74 69 6f 6e 0d 0a 2a 20 |for rela|tion..* |
|00005950| 20 20 35 20 20 20 20 20 | 20 20 20 20 20 20 20 46 | 5 | F|
|00005960| 75 6c 6c 20 70 61 74 68 | 2f 66 69 6c 65 6e 61 6d |ull path|/filenam|
|00005970| 65 20 66 6f 72 20 74 68 | 69 73 20 63 68 69 6c 64 |e for th|is child|
|00005980| 20 64 61 74 61 62 61 73 | 65 0d 0a 2a 20 20 20 36 | databas|e..* 6|
|00005990| 20 20 20 20 20 20 20 20 | 20 20 20 20 4e 61 6d 65 | | Name|
|000059a0| 20 6f 66 20 70 61 72 65 | 6e 74 20 64 61 74 61 62 | of pare|nt datab|
|000059b0| 61 73 65 0d 0a 2a 20 63 | 6f 6c 75 6d 6e 20 6e 75 |ase..* c|olumn nu|
|000059c0| 6d 62 65 72 73 20 69 6e | 20 64 62 66 6c 69 73 74 |mbers in| dbflist|
|000059d0| 20 61 72 72 61 79 0d 0a | 6d 2e 63 73 74 65 6d 6e | array..|m.cstemn|
|000059e0| 75 6d 20 20 3d 20 20 31 | 20 20 20 26 26 20 63 6f |um = 1| && co|
|000059f0| 6c 75 6d 6e 20 6e 75 6d | 62 65 72 20 66 6f 72 20 |lumn num|ber for |
|00005a00| 63 68 69 6c 64 20 64 61 | 74 61 62 61 73 65 20 73 |child da|tabase s|
|00005a10| 74 65 6d 0d 0a 6d 2e 72 | 65 6c 73 74 72 6e 75 6d |tem..m.r|elstrnum|
|00005a20| 20 3d 20 20 32 20 20 20 | 26 26 20 63 6f 6c 75 6d | = 2 |&& colum|
|00005a30| 6e 20 6e 75 6d 62 65 72 | 20 66 6f 72 20 73 65 74 |n number| for set|
|00005a40| 20 72 65 6c 61 74 69 6f | 6e 20 73 74 72 69 6e 67 | relatio|n string|
|00005a50| 0d 0a 6d 2e 70 66 6c 64 | 6e 75 6d 20 20 20 3d 20 |..m.pfld|num = |
|00005a60| 20 33 20 20 20 26 26 20 | 63 6f 6c 75 6d 6e 20 6e | 3 && |column n|
|00005a70| 75 6d 62 65 72 20 66 6f | 72 20 70 61 72 65 6e 74 |umber fo|r parent|
|00005a80| 20 66 69 65 6c 64 20 69 | 6e 20 74 68 65 20 72 65 | field i|n the re|
|00005a90| 6c 61 74 69 6f 6e 0d 0a | 6d 2e 63 66 6c 64 6e 75 |lation..|m.cfldnu|
|00005aa0| 6d 20 20 20 3d 20 20 34 | 20 20 20 26 26 20 63 6f |m = 4| && co|
|00005ab0| 6c 75 6d 6e 20 6e 75 6d | 62 65 72 20 66 6f 72 20 |lumn num|ber for |
|00005ac0| 63 68 69 6c 64 20 66 69 | 65 6c 64 20 69 6e 20 74 |child fi|eld in t|
|00005ad0| 68 65 20 72 65 6c 61 74 | 69 6f 6e 0d 0a 6d 2e 63 |he relat|ion..m.c|
|00005ae0| 64 62 66 6e 75 6d 20 20 | 20 3d 20 20 35 20 20 20 |dbfnum | = 5 |
|00005af0| 26 26 20 63 6f 6c 75 6d | 6e 20 6e 75 6d 62 65 72 |&& colum|n number|
|00005b00| 20 66 6f 72 20 63 68 69 | 6c 64 20 64 61 74 61 62 | for chi|ld datab|
|00005b10| 61 73 65 0d 0a 6d 2e 70 | 64 62 66 6e 75 6d 20 20 |ase..m.p|dbfnum |
|00005b20| 20 3d 20 20 36 20 20 20 | 26 26 20 63 6f 6c 75 6d | = 6 |&& colum|
|00005b30| 6e 20 6e 75 6d 62 65 72 | 20 66 6f 72 20 70 61 72 |n number| for par|
|00005b40| 65 6e 74 20 64 61 74 61 | 62 61 73 65 0d 0a 6d 2e |ent data|base..m.|
|00005b50| 73 72 6f 77 6e 75 6d 20 | 20 20 3d 20 20 37 20 20 |srownum | = 7 |
|00005b60| 20 26 26 20 63 6f 6c 75 | 6d 6e 20 6e 75 6d 62 65 | && colu|mn numbe|
|00005b70| 72 20 66 6f 72 20 73 74 | 61 72 74 69 6e 67 20 72 |r for st|arting r|
|00005b80| 6f 77 20 70 6f 73 69 74 | 69 6f 6e 20 28 73 74 72 |ow posit|ion (str|
|00005b90| 29 0d 0a 6d 2e 73 63 6f | 6c 6e 75 6d 20 20 20 3d |)..m.sco|lnum =|
|00005ba0| 20 20 38 20 20 20 26 26 | 20 63 6f 6c 75 6d 6e 20 | 8 &&| column |
|00005bb0| 6e 75 6d 62 65 72 20 66 | 6f 72 20 73 74 61 72 74 |number f|or start|
|00005bc0| 69 6e 67 20 63 6f 6c 75 | 6d 6e 20 70 6f 73 69 74 |ing colu|mn posit|
|00005bd0| 69 6f 6e 20 28 73 74 72 | 29 0d 0a 6d 2e 65 72 6f |ion (str|)..m.ero|
|00005be0| 77 6e 75 6d 20 20 20 3d | 20 20 39 20 20 20 26 26 |wnum =| 9 &&|
|00005bf0| 20 63 6f 6c 75 6d 6e 20 | 6e 75 6d 62 65 72 20 66 | column |number f|
|00005c00| 6f 72 20 65 6e 64 69 6e | 67 20 72 6f 77 20 70 6f |or endin|g row po|
|00005c10| 73 69 74 69 6f 6e 20 28 | 73 74 72 29 0d 0a 6d 2e |sition (|str)..m.|
|00005c20| 65 63 6f 6c 6e 75 6d 20 | 20 20 3d 20 31 30 20 20 |ecolnum | = 10 |
|00005c30| 20 26 26 20 63 6f 6c 75 | 6d 6e 20 6e 75 6d 62 65 | && colu|mn numbe|
|00005c40| 72 20 66 6f 72 20 65 6e | 64 69 6e 67 20 63 6f 6c |r for en|ding col|
|00005c50| 75 6d 6e 20 70 6f 73 69 | 74 69 6f 6e 20 28 73 74 |umn posi|tion (st|
|00005c60| 72 29 0d 0a 6d 2e 61 72 | 72 61 6e 67 65 64 20 20 |r)..m.ar|ranged |
|00005c70| 3d 20 31 31 20 20 20 26 | 26 20 63 6f 6c 75 6d 6e |= 11 &|& column|
|00005c80| 20 6e 75 6d 62 65 72 20 | 66 6f 72 20 61 72 72 61 | number |for arra|
|00005c90| 6e 67 65 64 3f 20 66 6c | 61 67 0d 0a 6d 2e 74 68 |nged? fl|ag..m.th|
|00005ca0| 65 66 6f 6e 74 20 20 20 | 3d 20 31 32 20 20 20 26 |efont |= 12 &|
|00005cb0| 26 20 66 6f 6e 74 20 66 | 6f 72 20 74 68 69 73 20 |& font f|or this |
|00005cc0| 62 72 6f 77 73 65 20 77 | 69 6e 64 6f 77 0d 0a 6d |browse w|indow..m|
|00005cd0| 2e 63 61 73 63 61 64 65 | 6e 75 6d 3d 20 31 33 20 |.cascade|num= 13 |
|00005ce0| 20 20 26 26 20 70 65 72 | 66 6f 72 6d 20 63 61 73 | && per|form cas|
|00005cf0| 63 61 64 69 6e 67 20 64 | 65 6c 65 74 65 73 20 6f |cading d|eletes o|
|00005d00| 6e 20 74 68 69 73 20 64 | 61 74 61 62 61 73 65 3f |n this d|atabase?|
|00005d10| 0d 0a 0d 0a 6d 2e 63 74 | 72 6c 72 6f 77 20 20 20 |....m.ct|rlrow |
|00005d20| 3d 20 4d 41 58 28 52 4f | 55 4e 44 28 53 52 4f 57 |= MAX(RO|UND(SROW|
|00005d30| 53 28 29 2d 35 2e 35 2c | 30 29 2c 30 29 20 20 20 |S()-5.5,|0),0) |
|00005d40| 20 20 20 26 26 20 64 65 | 66 61 75 6c 74 20 72 6f | && de|fault ro|
|00005d50| 77 20 70 6f 73 69 74 69 | 6f 6e 20 66 6f 72 20 63 |w positi|on for c|
|00005d60| 6f 6e 74 72 6f 6c 20 70 | 61 6e 65 6c 0d 0a 6d 2e |ontrol p|anel..m.|
|00005d70| 63 74 72 6c 63 6f 6c 20 | 20 20 3d 20 4d 41 58 28 |ctrlcol | = MAX(|
|00005d80| 52 4f 55 4e 44 28 53 43 | 4f 4c 53 28 29 2f 32 2d |ROUND(SC|OLS()/2-|
|00005d90| 37 34 2f 32 2c 30 29 2c | 30 29 20 26 26 20 64 65 |74/2,0),|0) && de|
|00005da0| 66 61 75 6c 74 20 63 6f | 6c 75 6d 6e 20 70 6f 73 |fault co|lumn pos|
|00005db0| 69 74 69 6f 6e 20 66 6f | 72 20 63 6f 6e 74 72 6f |ition fo|r contro|
|00005dc0| 6c 20 70 61 6e 65 6c 0d | 0a 0d 0a 6d 2e 6e 65 78 |l panel.|...m.nex|
|00005dd0| 74 64 62 66 20 20 20 3d | 20 20 30 20 20 20 20 20 |tdbf =| 0 |
|00005de0| 20 20 20 26 26 20 6e 65 | 78 74 20 64 62 66 6c 69 | && ne|xt dbfli|
|00005df0| 73 74 20 70 6f 73 69 74 | 69 6f 6e 2c 20 30 20 61 |st posit|ion, 0 a|
|00005e00| 74 20 73 74 61 72 74 0d | 0a 0d 0a 2a 20 4d 61 6b |t start.|...* Mak|
|00005e10| 65 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 66 6f |e the cu|rrent fo|
|00005e20| 6e 74 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 66 |nt the d|efault f|
|00005e30| 6f 72 20 6e 65 77 20 77 | 69 6e 64 6f 77 73 2f 62 |or new w|indows/b|
|00005e40| 72 6f 77 73 65 73 0d 0a | 0d 0a 6d 2e 64 65 66 61 |rowses..|..m.defa|
|00005e50| 75 6c 74 66 6f 6e 74 20 | 3d 20 57 46 4f 4e 54 28 |ultfont |= WFONT(|
|00005e60| 31 2c 22 22 29 2b 22 2c | 22 2b 41 4c 4c 54 52 49 |1,"")+",|"+ALLTRI|
|00005e70| 4d 28 53 54 52 28 57 46 | 4f 4e 54 28 32 2c 22 22 |M(STR(WF|ONT(2,""|
|00005e80| 29 2c 33 29 29 2b 22 2c | 22 2b 57 46 4f 4e 54 28 |),3))+",|"+WFONT(|
|00005e90| 33 2c 22 22 29 0d 0a 0d | 0a 2a 20 53 65 74 20 74 |3,"")...|.* Set t|
|00005ea0| 68 65 20 64 65 66 61 75 | 6c 74 20 66 6f 72 20 63 |he defau|lt for c|
|00005eb0| 61 73 63 61 64 69 6e 67 | 20 64 65 6c 65 74 65 73 |ascading| deletes|
|00005ec0| 0d 0a 6d 2e 64 65 66 61 | 75 6c 74 63 61 73 63 20 |..m.defa|ultcasc |
|00005ed0| 3d 20 27 4e 27 0d 0a 0d | 0a 2a 20 53 65 74 20 64 |= 'N'...|.* Set d|
|00005ee0| 65 66 61 75 6c 74 20 6f | 70 74 69 6f 6e 73 20 66 |efault o|ptions f|
|00005ef0| 6f 72 20 72 65 73 6f 75 | 72 63 65 20 66 69 6c 65 |or resou|rce file|
|00005f00| 20 68 61 6e 64 6c 69 6e | 67 0d 0a 6d 2e 72 73 63 | handlin|g..m.rsc|
|00005f10| 5f 63 68 65 63 6b 20 3d | 20 2e 46 2e 20 20 20 20 |_check =| .F. |
|00005f20| 20 20 20 26 26 20 72 65 | 73 6f 75 72 63 65 20 66 | && re|source f|
|00005f30| 69 6c 65 20 63 68 65 63 | 6b 65 64 20 66 6f 72 20 |ile chec|ked for |
|00005f40| 74 68 69 73 20 64 61 74 | 61 62 61 73 65 20 79 65 |this dat|abase ye|
|00005f50| 74 3f 0d 0a 6d 2e 72 73 | 63 5f 73 74 6f 72 65 64 |t?..m.rs|c_stored|
|00005f60| 3d 20 2e 46 2e 20 20 20 | 20 20 20 20 26 26 20 68 |= .F. | && h|
|00005f70| 61 76 65 20 63 75 72 72 | 65 6e 74 20 63 68 6f 69 |ave curr|ent choi|
|00005f80| 63 65 73 20 62 65 65 6e | 20 73 61 76 65 64 20 79 |ces been| saved y|
|00005f90| 65 74 3f 0d 0a 0d 0a 2a | 20 54 68 65 73 65 20 6f |et?....*| These o|
|00005fa0| 70 74 69 6f 6e 73 20 63 | 61 6e 20 62 65 20 72 65 |ptions c|an be re|
|00005fb0| 73 65 74 20 6f 6e 20 74 | 68 65 20 61 64 76 61 6e |set on t|he advan|
|00005fc0| 63 65 64 20 6f 70 74 69 | 6f 6e 73 20 73 63 72 65 |ced opti|ons scre|
|00005fd0| 65 6e 2e 0d 0a 2a 20 54 | 68 65 69 72 20 64 65 66 |en...* T|heir def|
|00005fe0| 61 75 6c 74 20 76 61 6c | 75 65 73 20 61 72 65 20 |ault val|ues are |
|00005ff0| 73 65 74 20 62 61 73 65 | 64 20 6f 6e 20 74 68 65 |set base|d on the|
|00006000| 20 70 61 72 61 6d 65 74 | 65 72 73 20 70 61 73 73 | paramet|ers pass|
|00006010| 65 64 20 74 6f 0d 0a 2a | 20 46 6f 78 41 70 70 2c |ed to..*| FoxApp,|
|00006020| 20 6f 72 20 74 6f 20 74 | 68 65 20 64 65 66 61 75 | or to t|he defau|
|00006030| 6c 74 20 76 61 6c 75 65 | 20 6f 66 20 72 73 63 75 |lt value| of rscu|
|00006040| 73 65 64 2e 0d 0a 6d 2e | 72 65 74 72 69 65 76 65 |sed...m.|retrieve|
|00006050| 72 73 63 20 3d 20 72 73 | 63 75 73 65 64 20 26 26 |rsc = rs|cused &&|
|00006060| 20 72 65 74 72 69 65 76 | 65 20 72 65 6c 61 74 69 | retriev|e relati|
|00006070| 6f 6e 73 20 66 72 6f 6d | 20 72 65 73 6f 75 72 63 |ons from| resourc|
|00006080| 65 20 66 69 6c 65 3f 0d | 0a 6d 2e 73 74 6f 72 65 |e file?.|.m.store|
|00006090| 72 73 63 20 20 20 20 3d | 20 72 73 63 75 73 65 64 |rsc =| rscused|
|000060a0| 20 26 26 20 73 74 6f 72 | 65 20 72 65 6c 61 74 69 | && stor|e relati|
|000060b0| 6f 6e 73 20 74 6f 20 72 | 65 73 6f 75 72 63 65 20 |ons to r|esource |
|000060c0| 66 69 6c 65 3f 0d 0a 6d | 2e 72 73 63 74 79 70 65 |file?..m|.rsctype|
|000060d0| 20 20 20 20 20 3d 20 22 | 46 4f 58 41 50 50 32 2e | = "|FOXAPP2.|
|000060e0| 30 41 22 20 20 20 20 26 | 26 20 74 79 70 65 20 63 |0A" &|& type c|
|000060f0| 6f 64 65 20 66 6f 72 20 | 72 65 73 6f 75 72 63 65 |ode for |resource|
|00006100| 20 66 69 6c 65 20 65 6e | 74 72 69 65 73 0d 0a 0d | file en|tries...|
|00006110| 0a 2a 20 45 73 74 61 62 | 6c 69 73 68 20 77 68 65 |.* Estab|lish whe|
|00006120| 74 68 65 72 20 74 6f 20 | 70 75 74 20 46 6f 78 41 |ther to |put FoxA|
|00006130| 70 70 20 53 43 58 2f 53 | 50 52 2f 4d 4e 58 2f 4d |pp SCX/S|PR/MNX/M|
|00006140| 50 52 20 66 69 6c 65 73 | 20 69 6e 74 6f 20 74 68 |PR files| into th|
|00006150| 65 0d 0a 2a 20 75 73 65 | 72 27 73 20 70 72 6f 6a |e..* use|r's proj|
|00006160| 65 63 74 2c 20 77 68 69 | 63 68 20 6d 61 6b 65 73 |ect, whi|ch makes|
|00006170| 20 74 68 65 20 70 72 6f | 6a 65 63 74 20 6f 72 67 | the pro|ject org|
|00006180| 61 6e 69 7a 61 74 69 6f | 6e 20 65 61 73 79 20 74 |anizatio|n easy t|
|00006190| 6f 0d 0a 2a 20 75 6e 64 | 65 72 73 74 61 6e 64 20 |o..* und|erstand |
|000061a0| 61 6e 64 20 6d 6f 72 65 | 20 22 46 6f 78 50 72 6f |and more| "FoxPro|
|000061b0| 2d 6c 69 6b 65 2c 22 20 | 28 63 61 6c 6c 65 64 20 |-like," |(called |
|000061c0| 46 75 6c 6c 20 50 72 6f | 6a 65 63 74 73 29 20 6f |Full Pro|jects) o|
|000061d0| 72 20 50 52 47 0d 0a 2a | 20 66 69 6c 65 73 20 67 |r PRG..*| files g|
|000061e0| 65 6e 65 72 61 74 65 64 | 20 66 72 6f 6d 20 74 68 |enerated| from th|
|000061f0| 65 20 53 43 58 2f 4d 4e | 58 20 66 69 6c 65 73 20 |e SCX/MN|X files |
|00006200| 28 41 62 62 72 65 76 69 | 61 74 65 64 20 50 72 6f |(Abbrevi|ated Pro|
|00006210| 6a 65 63 74 73 29 2e 0d | 0a 2a 20 54 68 65 20 6c |jects)..|.* The l|
|00006220| 61 74 74 65 72 20 61 70 | 70 72 6f 61 63 68 20 69 |atter ap|proach i|
|00006230| 73 20 6d 6f 72 65 20 63 | 6f 6e 66 75 73 69 6e 67 |s more c|onfusing|
|00006240| 20 62 75 74 20 69 73 20 | 61 6c 73 6f 20 6d 75 63 | but is |also muc|
|00006250| 68 20 66 61 73 74 65 72 | 0d 0a 2a 20 73 69 6e 63 |h faster|..* sinc|
|00006260| 65 20 74 68 65 20 46 6f | 78 41 70 70 20 70 69 65 |e the Fo|xApp pie|
|00006270| 63 65 73 20 28 65 2e 67 | 2e 2c 20 47 45 54 44 45 |ces (e.g|., GETDE|
|00006280| 53 54 28 29 20 29 20 64 | 6f 20 6e 6f 74 20 68 61 |ST() ) d|o not ha|
|00006290| 76 65 20 74 6f 20 62 65 | 0d 0a 2a 20 72 65 62 75 |ve to be|..* rebu|
|000062a0| 69 6c 74 20 77 68 65 6e | 65 76 65 72 20 61 20 75 |ilt when|ever a u|
|000062b0| 73 65 72 20 70 72 6f 6a | 65 63 74 20 69 73 20 67 |ser proj|ect is g|
|000062c0| 65 6e 65 72 61 74 65 64 | 2e 0d 0a 44 4f 20 43 41 |enerated|...DO CA|
|000062d0| 53 45 0d 0a 43 41 53 45 | 20 6d 2e 66 6f 72 63 65 |SE..CASE| m.force|
|000062e0| 72 65 67 65 6e 20 3d 20 | 31 0d 0a 20 20 20 6d 2e |regen = |1.. m.|
|000062f0| 72 65 67 65 6e 20 3d 20 | 2e 54 2e 0d 0a 43 41 53 |regen = |.T...CAS|
|00006300| 45 20 66 6f 72 63 65 72 | 65 67 65 6e 20 3d 20 32 |E forcer|egen = 2|
|00006310| 0d 0a 20 20 20 6d 2e 72 | 65 67 65 6e 20 3d 20 2e |.. m.r|egen = .|
|00006320| 46 2e 0d 0a 4f 54 48 45 | 52 57 49 53 45 0d 0a 20 |F...OTHE|RWISE.. |
|00006330| 20 20 2a 20 41 73 73 75 | 6d 65 20 66 75 6c 6c 20 | * Assu|me full |
|00006340| 70 72 6f 6a 65 63 74 20 | 67 65 6e 65 72 61 74 69 |project |generati|
|00006350| 6f 6e 2c 20 62 75 74 20 | 63 68 65 63 6b 20 43 4f |on, but |check CO|
|00006360| 4e 46 49 47 2e 46 50 0d | 0a 20 20 20 6d 2e 72 65 |NFIG.FP.|. m.re|
|00006370| 67 65 6e 20 3d 20 2e 54 | 2e 0d 0a 20 20 20 49 46 |gen = .T|... IF|
|00006380| 20 46 49 4c 45 28 53 59 | 53 28 32 30 31 39 29 29 | FILE(SY|S(2019))|
|00006390| 20 20 20 20 20 20 20 20 | 20 26 26 20 66 69 6e 64 | | && find|
|000063a0| 20 43 4f 4e 46 49 47 2e | 46 50 2c 20 69 66 20 6f | CONFIG.|FP, if o|
|000063b0| 6e 65 20 65 78 69 73 74 | 73 0d 0a 20 20 20 20 20 |ne exist|s.. |
|000063c0| 20 6d 2e 66 70 20 3d 20 | 46 4f 50 45 4e 28 53 59 | m.fp = |FOPEN(SY|
|000063d0| 53 28 32 30 31 39 29 2c | 30 29 20 26 26 20 6f 70 |S(2019),|0) && op|
|000063e0| 65 6e 20 43 4f 4e 46 49 | 47 2e 46 50 20 72 65 61 |en CONFI|G.FP rea|
|000063f0| 64 2d 6f 6e 6c 79 0d 0a | 20 20 20 20 20 20 49 46 |d-only..| IF|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
