/ Liren Large Software Subsidy 5 / 05.iso / a / a106 / 2.ddi / APPSCX.SC_ / APPSCX.bin

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 0a 79 00 00 00 21 | 00 00 00 00 00 00 00 00 |...y...!|........|
|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 ff ff 11 00 00 00 00 | 00 03 00 00 01 00 04 00 |........|........|
|00000210| 00 00 00 01 00 00 00 06 | 61 70 70 67 65 6e 00 04 |........|appgen..|
|00000220| 00 00 03 00 12 99 04 00 | 1e ff 00 40 00 00 00 01 |........|...@....|
|00000230| 00 00 00 00 01 00 00 00 | 0d 4d 53 20 53 61 6e 73 |........|.MS Sans|
|00000240| 20 53 65 72 69 66 00 00 | 00 00 00 00 00 00 00 00 | Serif..|........|
|00000250| 00 00 00 00 00 01 00 00 | 00 20 22 20 46 6f 78 50 |........|. " FoxP|
|00000260| 72 6f 20 41 70 70 6c 69 | 63 61 74 69 6f 6e 20 47 |ro Appli|cation G|
|00000270| 65 6e 65 72 61 74 6f 72 | 20 22 00 00 00 00 00 00 |enerator| "......|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 01 | 00 00 00 17 3f 3f 20 43 |........|....?? C|
|000002a0| 48 52 28 37 29 0d 0a 52 | 45 54 55 52 4e 20 2e 46 |HR(7)..R|ETURN .F|
|000002b0| 2e 0d 0a 00 00 00 00 00 | 01 00 00 05 bc 23 4e 41 |........|.....#NA|
|000002c0| 4d 45 20 73 63 72 6e 75 | 70 64 0d 0a 44 4f 20 43 |ME scrnu|pd..DO C|
|000002d0| 41 53 45 0d 0a 43 41 53 | 45 20 45 4d 50 54 59 28 |ASE..CAS|E EMPTY(|
|000002e0| 6d 2e 64 62 66 6e 61 6d | 65 29 20 4f 52 20 73 6b |m.dbfnam|e) OR sk|
|000002f0| 69 70 64 62 66 62 75 74 | 0d 0a 20 20 20 53 48 4f |ipdbfbut|..   SHO|
|00000300| 57 20 47 45 54 20 67 65 | 6e 65 72 61 74 65 20 44 |W GET ge|nerate D|
|00000310| 49 53 41 42 4c 45 0d 0a | 20 20 20 53 48 4f 57 20 |ISABLE..|   SHOW |
|00000320| 47 45 54 20 6f 74 68 65 | 72 20 20 20 20 44 49 53 |GET othe|r    DIS|
|00000330| 41 42 4c 45 0d 0a 20 20 | 20 53 48 4f 57 20 47 45 |ABLE..  | SHOW GE|
|00000340| 54 20 61 64 64 64 62 66 | 20 20 20 44 49 53 41 42 |T adddbf|   DISAB|
|00000350| 4c 45 0d 0a 20 20 20 53 | 48 4f 57 20 47 45 54 20 |LE..   S|HOW GET |
|00000360| 6d 6f 64 64 62 66 20 20 | 20 44 49 53 41 42 4c 45 |moddbf  | DISABLE|
|00000370| 0d 0a 43 41 53 45 20 21 | 46 49 4c 45 28 6d 2e 64 |..CASE !|FILE(m.d|
|00000380| 62 66 6e 61 6d 65 29 0d | 0a 20 20 20 53 48 4f 57 |bfname).|.   SHOW|
|00000390| 20 47 45 54 20 67 65 6e | 65 72 61 74 65 20 44 49 | GET gen|erate DI|
|000003a0| 53 41 42 4c 45 0d 0a 20 | 20 20 53 48 4f 57 20 47 |SABLE.. |  SHOW G|
|000003b0| 45 54 20 6f 74 68 65 72 | 20 20 20 20 44 49 53 41 |ET other|    DISA|
|000003c0| 42 4c 45 0d 0a 20 20 20 | 53 48 4f 57 20 47 45 54 |BLE..   |SHOW GET|
|000003d0| 20 61 64 64 64 62 66 20 | 20 20 45 4e 41 42 4c 45 | adddbf |  ENABLE|
|000003e0| 0d 0a 20 20 20 53 48 4f | 57 20 47 45 54 20 6d 6f |..   SHO|W GET mo|
|000003f0| 64 64 62 66 20 20 20 44 | 49 53 41 42 4c 45 0d 0a |ddbf   D|ISABLE..|
|00000400| 4f 54 48 45 52 57 49 53 | 45 20 20 20 26 26 20 65 |OTHERWIS|E   && e|
|00000410| 76 65 72 79 74 68 69 6e | 67 20 69 73 20 6f 6b 0d |verythin|g is ok.|
|00000420| 0a 20 20 20 53 48 4f 57 | 20 47 45 54 20 67 65 6e |.   SHOW| GET gen|
|00000430| 65 72 61 74 65 20 45 4e | 41 42 4c 45 0d 0a 20 20 |erate EN|ABLE..  |
|00000440| 20 53 48 4f 57 20 47 45 | 54 20 6f 74 68 65 72 20 | SHOW GE|T other |
|00000450| 20 20 20 45 4e 41 42 4c | 45 0d 0a 20 20 20 53 48 |   ENABL|E..   SH|
|00000460| 4f 57 20 47 45 54 20 61 | 64 64 64 62 66 20 20 20 |OW GET a|dddbf   |
|00000470| 44 49 53 41 42 4c 45 0d | 0a 20 20 20 53 48 4f 57 |DISABLE.|.   SHOW|
|00000480| 20 47 45 54 20 6d 6f 64 | 64 62 66 20 20 20 45 4e | GET mod|dbf   EN|
|00000490| 41 42 4c 45 0d 0a 45 4e | 44 43 41 53 45 0d 0a 0d |ABLE..EN|DCASE...|
|000004a0| 0a 44 4f 20 43 41 53 45 | 0d 0a 43 41 53 45 20 45 |.DO CASE|..CASE E|
|000004b0| 4d 50 54 59 28 6d 2e 73 | 63 78 6e 61 6d 65 29 0d |MPTY(m.s|cxname).|
|000004c0| 0a 20 20 20 53 48 4f 57 | 20 47 45 54 20 61 64 64 |.   SHOW| GET add|
|000004d0| 73 63 78 20 20 20 44 49 | 53 41 42 4c 45 0d 0a 20 |scx   DI|SABLE.. |
|000004e0| 20 20 53 48 4f 57 20 47 | 45 54 20 6d 6f 64 73 63 |  SHOW G|ET modsc|
|000004f0| 78 20 20 20 44 49 53 41 | 42 4c 45 0d 0a 20 20 20 |x   DISA|BLE..   |
|00000500| 53 48 4f 57 20 47 45 54 | 20 61 72 72 61 6e 67 65 |SHOW GET| arrange|
|00000510| 20 20 44 49 53 41 42 4c | 45 0d 0a 43 41 53 45 20 |  DISABL|E..CASE |
|00000520| 21 46 49 4c 45 28 6d 2e | 73 63 78 6e 61 6d 65 29 |!FILE(m.|scxname)|
|00000530| 0d 0a 20 20 20 53 48 4f | 57 20 47 45 54 20 61 64 |..   SHO|W GET ad|
|00000540| 64 73 63 78 20 20 20 45 | 4e 41 42 4c 45 0d 0a 20 |dscx   E|NABLE.. |
|00000550| 20 20 53 48 4f 57 20 47 | 45 54 20 6d 6f 64 73 63 |  SHOW G|ET modsc|
|00000560| 78 20 20 20 44 49 53 41 | 42 4c 45 0d 0a 20 20 20 |x   DISA|BLE..   |
|00000570| 53 48 4f 57 20 47 45 54 | 20 61 72 72 61 6e 67 65 |SHOW GET| arrange|
|00000580| 20 20 44 49 53 41 42 4c | 45 0d 0a 4f 54 48 45 52 |  DISABL|E..OTHER|
|00000590| 57 49 53 45 20 20 20 26 | 26 20 65 76 65 72 79 74 |WISE   &|& everyt|
|000005a0| 68 69 6e 67 20 69 73 20 | 6f 6b 0d 0a 20 20 20 53 |hing is |ok..   S|
|000005b0| 48 4f 57 20 47 45 54 20 | 61 64 64 73 63 78 20 20 |HOW GET |addscx  |
|000005c0| 20 44 49 53 41 42 4c 45 | 0d 0a 20 20 20 53 48 4f | DISABLE|..   SHO|
|000005d0| 57 20 47 45 54 20 6d 6f | 64 73 63 78 20 20 20 45 |W GET mo|dscx   E|
|000005e0| 4e 41 42 4c 45 0d 0a 20 | 20 20 53 48 4f 57 20 47 |NABLE.. |  SHOW G|
|000005f0| 45 54 20 61 72 72 61 6e | 67 65 20 20 45 4e 41 42 |ET arran|ge  ENAB|
|00000600| 4c 45 0d 0a 45 4e 44 43 | 41 53 45 0d 0a 0d 0a 2a |LE..ENDC|ASE....*|
|00000610| 20 53 65 65 20 69 66 20 | 74 68 65 72 65 20 69 73 | See if |there is|
|00000620| 20 61 20 73 74 6f 72 65 | 64 20 72 65 73 6f 75 72 | a store|d resour|
|00000630| 63 65 20 66 6f 72 20 74 | 68 69 73 20 64 61 74 61 |ce for t|his data|
|00000640| 62 61 73 65 20 69 6e 20 | 74 68 65 20 63 75 72 72 |base in |the curr|
|00000650| 65 6e 74 0d 0a 2a 20 20 | 20 20 72 65 73 6f 75 72 |ent..*  |  resour|
|00000660| 63 65 20 66 69 6c 65 2e | 20 20 54 68 69 73 20 69 |ce file.|  This i|
|00000670| 73 20 69 6e 20 74 68 65 | 20 53 48 4f 57 20 73 6e |s in the| SHOW sn|
|00000680| 69 70 70 65 74 20 69 6e | 73 74 65 61 64 20 6f 66 |ippet in|stead of|
|00000690| 20 69 6e 20 74 68 65 0d | 0a 2a 20 20 20 20 56 41 | in the.|.*    VA|
|000006a0| 4c 49 44 20 66 6f 72 20 | 74 68 65 20 22 72 65 6c |LID for |the "rel|
|000006b0| 61 74 65 64 22 20 62 75 | 74 74 6f 6e 20 73 69 6e |ated" bu|tton sin|
|000006c0| 63 65 20 77 65 20 77 61 | 6e 74 20 74 6f 20 67 65 |ce we wa|nt to ge|
|000006d0| 74 20 74 68 69 73 20 69 | 6e 66 6f 72 6d 61 74 69 |t this i|nformati|
|000006e0| 6f 6e 0d 0a 2a 20 20 20 | 20 65 76 65 6e 20 69 66 |on..*   | even if|
|000006f0| 20 74 68 65 20 75 73 65 | 72 20 6e 65 76 65 72 20 | the use|r never |
|00000700| 70 72 65 73 73 65 73 20 | 22 72 65 6c 61 74 65 64 |presses |"related|
|00000710| 22 20 69 6e 20 74 68 69 | 73 20 73 65 73 73 69 6f |" in thi|s sessio|
|00000720| 6e 2e 0d 0a 49 46 20 21 | 45 4d 50 54 59 28 6d 2e |n...IF !|EMPTY(m.|
|00000730| 64 62 66 6e 61 6d 65 29 | 20 41 4e 44 20 21 6d 2e |dbfname)| AND !m.|
|00000740| 72 73 63 5f 63 68 65 63 | 6b 20 41 4e 44 20 6d 2e |rsc_chec|k AND m.|
|00000750| 72 65 74 72 69 65 76 65 | 72 73 63 0d 0a 20 20 20 |retrieve|rsc..   |
|00000760| 49 46 20 21 45 4d 50 54 | 59 28 41 4c 49 41 53 28 |IF !EMPT|Y(ALIAS(|
|00000770| 29 29 0d 0a 20 20 20 20 | 20 20 6d 2e 6e 65 78 74 |))..    |  m.next|
|00000780| 64 62 66 20 3d 20 67 65 | 74 64 62 66 6c 69 73 74 |dbf = ge|tdbflist|
|00000790| 28 41 4c 49 41 53 28 29 | 29 0d 0a 20 20 20 20 20 |(ALIAS()|)..     |
|000007a0| 20 2a 20 4f 6e 6c 79 20 | 63 68 65 63 6b 20 74 68 | * Only |check th|
|000007b0| 65 20 72 65 73 6f 75 72 | 63 65 20 66 69 6c 65 20 |e resour|ce file |
|000007c0| 6f 6e 63 65 0d 0a 20 20 | 20 20 20 20 6d 2e 72 73 |once..  |    m.rs|
|000007d0| 63 5f 63 68 65 63 6b 20 | 3d 20 2e 54 2e 0d 0a 20 |c_check |= .T... |
|000007e0| 20 20 45 4e 44 49 46 0d | 0a 45 4e 44 49 46 0d 0a |  ENDIF.|.ENDIF..|
|000007f0| 0d 0a 49 46 20 72 65 6c | 61 74 65 64 64 62 66 73 |..IF rel|ateddbfs|
|00000800| 28 29 20 41 4e 44 20 21 | 45 4d 50 54 59 28 6d 2e |() AND !|EMPTY(m.|
|00000810| 73 63 78 6e 61 6d 65 29 | 20 41 4e 44 20 46 49 4c |scxname)| AND FIL|
|00000820| 45 28 6d 2e 73 63 78 6e | 61 6d 65 29 0d 0a 20 20 |E(m.scxn|ame)..  |
|00000830| 20 53 48 4f 57 20 47 45 | 54 20 61 72 72 61 6e 67 | SHOW GE|T arrang|
|00000840| 65 20 20 45 4e 41 42 4c | 45 0d 0a 45 4c 53 45 0d |e  ENABL|E..ELSE.|
|00000850| 0a 20 20 20 53 48 4f 57 | 20 47 45 54 20 61 72 72 |.   SHOW| GET arr|
|00000860| 61 6e 67 65 20 20 44 49 | 53 41 42 4c 45 0d 0a 45 |ange  DI|SABLE..E|
|00000870| 4e 44 49 46 20 20 20 0d | 0a 02 00 00 15 00 00 08 |NDIF   .|........|
|00000880| 00 2a 00 00 00 01 00 00 | 25 a4 2a 20 46 6f 78 41 |.*......|%.* FoxA|
|00000890| 70 70 20 32 2e 35 20 2d | 2d 20 46 6f 78 50 72 6f |pp 2.5 -|- FoxPro|
|000008a0| 20 32 2e 35 20 61 70 70 | 6c 69 63 61 74 69 6f 6e | 2.5 app|lication|
|000008b0| 20 67 65 6e 65 72 61 74 | 6f 72 0d 0a 2a 20 41 75 | generat|or..* Au|
|000008c0| 74 68 6f 72 3a 20 57 61 | 6c 74 65 72 20 4a 2e 20 |thor: Wa|lter J. |
|000008d0| 4b 65 6e 6e 61 6d 65 72 | 0d 0a 2a 20 43 6f 70 79 |Kennamer|..* Copy|
|000008e0| 72 69 67 68 74 20 31 39 | 39 32 2c 20 4d 69 63 72 |right 19|92, Micr|
|000008f0| 6f 73 6f 66 74 20 43 6f | 72 70 6f 72 61 74 69 6f |osoft Co|rporatio|
|00000900| 6e 0d 0a 2a 0d 0a 23 53 | 45 43 54 49 4f 4e 20 31 |n..*..#S|ECTION 1|
|00000910| 0d 0a 50 41 52 41 4d 45 | 54 45 52 53 20 72 73 63 |..PARAME|TERS rsc|
|00000920| 75 73 65 64 2c 20 66 6f | 72 63 65 72 65 67 65 6e |used, fo|rceregen|
|00000930| 0d 0a 50 52 49 56 41 54 | 45 20 41 4c 4c 0d 0a 6d |..PRIVAT|E ALL..m|
|00000940| 2e 61 70 70 5f 70 6c 61 | 74 66 6f 72 6d 20 3d 20 |.app_pla|tform = |
|00000950| 22 57 49 4e 44 4f 57 53 | 22 0d 0a 0d 0a 2a 20 50 |"WINDOWS|"....* P|
|00000960| 61 72 61 6d 65 74 65 72 | 20 20 20 20 54 79 70 65 |arameter|    Type|
|00000970| 20 20 20 20 20 44 65 73 | 63 72 69 70 74 69 6f 6e |     Des|cription|
|00000980| 0d 0a 2a 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 20 |..* ----|------  |
|00000990| 20 2d 2d 2d 2d 2d 2d 20 | 20 20 2d 2d 2d 2d 2d 2d | ------ |  ------|
|000009a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 0a 2a 20 |--------|----..* |
|000009d0| 72 73 63 75 73 65 64 20 | 20 20 20 20 20 4c 20 20 |rscused |     L  |
|000009e0| 20 20 20 20 20 20 44 65 | 74 65 72 6d 69 6e 65 73 |      De|termines|
|000009f0| 20 77 68 65 74 68 65 72 | 20 74 68 65 20 72 65 73 | whether| the res|
|00000a00| 6f 75 72 63 65 20 66 69 | 6c 65 20 0d 0a 2a 20 20 |ource fi|le ..*  |
|00000a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a20| 20 20 20 20 20 20 20 20 | 69 73 20 63 68 65 63 6b |        |is check|
|00000a30| 65 64 20 66 6f 72 20 72 | 65 6c 61 74 69 6f 6e 73 |ed for r|elations|
|00000a40| 0d 0a 2a 20 66 6f 72 63 | 65 72 65 67 65 6e 20 20 |..* forc|eregen  |
|00000a50| 20 4c 20 6f 72 20 4e 20 | 20 20 44 65 74 65 72 6d | L or N |  Determ|
|00000a60| 69 6e 65 73 20 77 68 65 | 74 68 65 72 20 46 6f 78 |ines whe|ther Fox|
|00000a70| 41 70 70 20 67 65 6e 65 | 72 61 74 65 73 20 66 75 |App gene|rates fu|
|00000a80| 6c 6c 20 6f 72 20 0d 0a | 2a 20 20 20 20 20 20 20 |ll or ..|*       |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000aa0| 20 20 20 61 62 62 72 65 | 76 69 61 74 65 64 20 70 |   abbre|viated p|
|00000ab0| 72 6f 6a 65 63 74 20 66 | 69 6c 65 73 2e 20 20 49 |roject f|iles.  I|
|00000ac0| 74 20 63 61 6e 20 74 61 | 6b 65 20 74 68 65 73 65 |t can ta|ke these|
|00000ad0| 0d 0a 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..*     |        |
|00000ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 76 61 6c |        |     val|
|00000af0| 75 65 73 3a 0d 0a 2a 20 | 20 20 20 20 20 20 20 20 |ues:..* |        |
|00000b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b10| 20 31 20 28 6f 72 20 2e | 54 2e 29 20 20 20 41 6c | 1 (or .|T.)   Al|
|00000b20| 77 61 79 73 20 67 65 6e | 65 72 61 74 65 20 66 75 |ways gen|erate fu|
|00000b30| 6c 6c 20 70 72 6f 6a 65 | 63 74 0d 0a 2a 20 20 20 |ll proje|ct..*   |
|00000b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b50| 20 20 20 20 20 20 20 32 | 20 28 6f 72 20 2e 46 2e |       2| (or .F.|
|00000b60| 29 20 20 20 41 6c 77 61 | 79 73 20 67 65 6e 65 72 |)   Alwa|ys gener|
|00000b70| 61 74 65 20 61 62 62 72 | 65 76 69 61 74 65 64 20 |ate abbr|eviated |
|00000b80| 70 72 6f 6a 65 63 74 0d | 0a 2a 20 20 20 20 20 20 |project.|.*      |
|00000b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ba0| 20 20 20 20 33 20 20 20 | 20 20 20 20 20 20 20 20 |    3   |        |
|00000bb0| 20 43 68 65 63 6b 20 43 | 4f 4e 46 49 47 2e 46 50 | Check C|ONFIG.FP|
|00000bc0| 20 66 6f 72 20 69 6e 73 | 74 72 75 63 74 69 6f 6e | for ins|truction|
|00000bd0| 73 0d 0a 0d 0a 2a 20 52 | 65 63 6f 72 64 20 74 68 |s....* R|ecord th|
|00000be0| 65 20 73 74 61 74 75 73 | 20 6f 66 20 54 41 4c 4b |e status| of TALK|
|00000bf0| 20 61 6e 64 20 53 41 46 | 45 54 59 0d 0a 52 45 4c | and SAF|ETY..REL|
|00000c00| 45 41 53 45 20 61 70 70 | 5f 74 61 6c 6b 2c 20 61 |EASE app|_talk, a|
|00000c10| 70 70 5f 64 65 6c 65 2c | 20 61 70 70 5f 73 61 66 |pp_dele,| app_saf|
|00000c20| 65 0d 0a 50 55 42 4c 49 | 43 20 61 70 70 5f 74 61 |e..PUBLI|C app_ta|
|00000c30| 6c 6b 2c 20 61 70 70 5f | 64 65 6c 65 2c 20 61 70 |lk, app_|dele, ap|
|00000c40| 70 5f 73 61 66 65 0d 0a | 49 46 20 53 45 54 28 27 |p_safe..|IF SET('|
|00000c50| 54 41 4c 4b 27 29 20 3d | 20 27 4f 4e 27 0d 0a 20 |TALK') =| 'ON'.. |
|00000c60| 20 20 53 45 54 20 54 41 | 4c 4b 20 4f 46 46 0d 0a |  SET TA|LK OFF..|
|00000c70| 20 20 20 6d 2e 61 70 70 | 5f 74 61 6c 6b 20 3d 20 |   m.app|_talk = |
|00000c80| 27 4f 4e 27 0d 0a 45 4c | 53 45 0d 0a 20 20 20 6d |'ON'..EL|SE..   m|
|00000c90| 2e 61 70 70 5f 74 61 6c | 6b 20 3d 20 27 4f 46 46 |.app_tal|k = 'OFF|
|00000ca0| 27 0d 0a 45 4e 44 49 46 | 0d 0a 0d 0a 6d 2e 61 70 |'..ENDIF|....m.ap|
|00000cb0| 70 5f 73 61 66 65 20 3d | 20 53 45 54 28 22 53 41 |p_safe =| SET("SA|
|00000cc0| 46 45 54 59 22 29 0d 0a | 53 45 54 20 53 41 46 45 |FETY")..|SET SAFE|
|00000cd0| 54 59 20 4f 46 46 0d 0a | 6d 2e 61 70 70 5f 64 65 |TY OFF..|m.app_de|
|00000ce0| 6c 65 20 3d 20 53 45 54 | 28 22 44 45 4c 45 54 45 |le = SET|("DELETE|
|00000cf0| 44 22 29 0d 0a 53 45 54 | 20 44 45 4c 45 54 45 44 |D")..SET| DELETED|
|00000d00| 20 4f 4e 0d 0a 0d 0a 49 | 46 20 50 41 52 41 4d 45 | ON....I|F PARAME|
|00000d10| 54 45 52 53 28 29 20 3c | 20 32 0d 0a 20 20 20 6d |TERS() <| 2..   m|
|00000d20| 2e 66 6f 72 63 65 72 65 | 67 65 6e 20 20 3d 20 33 |.forcere|gen  = 3|
|00000d30| 20 20 20 20 20 26 26 20 | 66 6f 72 63 65 73 20 63 |     && |forces c|
|00000d40| 68 65 63 6b 20 6f 66 20 | 43 4f 4e 46 49 47 2e 46 |heck of |CONFIG.F|
|00000d50| 50 0d 0a 45 4e 44 49 46 | 0d 0a 49 46 20 50 41 52 |P..ENDIF|..IF PAR|
|00000d60| 41 4d 45 54 45 52 53 28 | 29 20 3c 20 31 0d 0a 20 |AMETERS(|) < 1.. |
|00000d70| 20 20 6d 2e 72 73 63 75 | 73 65 64 20 20 20 20 20 |  m.rscu|sed     |
|00000d80| 3d 20 2e 54 2e 20 20 20 | 26 26 20 73 74 6f 72 65 |= .T.   |&& store|
|00000d90| 2f 72 65 73 74 6f 72 65 | 20 72 65 6c 61 74 69 6f |/restore| relatio|
|00000da0| 6e 73 20 66 72 6f 6d 20 | 72 65 73 6f 75 72 63 65 |ns from |resource|
|00000db0| 20 66 69 6c 65 3f 0d 0a | 45 4e 44 49 46 0d 0a 0d | file?..|ENDIF...|
|00000dc0| 0a 2a 20 4d 61 70 20 74 | 68 65 20 27 66 6f 72 63 |.* Map t|he 'forc|
|00000dd0| 65 72 65 67 65 6e 27 20 | 76 61 72 69 61 62 6c 65 |eregen' |variable|
|00000de0| 20 69 6e 74 6f 20 6e 75 | 6d 65 72 69 63 20 66 6f | into nu|meric fo|
|00000df0| 72 6d 2e 0d 0a 49 46 20 | 54 59 50 45 28 27 66 6f |rm...IF |TYPE('fo|
|00000e00| 72 63 65 72 65 67 65 6e | 27 29 20 3d 20 22 4c 22 |rceregen|') = "L"|
|00000e10| 0d 0a 20 20 20 49 46 20 | 6d 2e 66 6f 72 63 65 72 |..   IF |m.forcer|
|00000e20| 65 67 65 6e 0d 0a 20 20 | 20 20 20 20 6d 2e 66 6f |egen..  |    m.fo|
|00000e30| 72 63 65 72 65 67 65 6e | 20 3d 20 31 0d 0a 20 20 |rceregen| = 1..  |
|00000e40| 20 45 4c 53 45 0d 0a 20 | 20 20 20 20 20 6d 2e 66 | ELSE.. |     m.f|
|00000e50| 6f 72 63 65 72 65 67 65 | 6e 20 3d 20 32 0d 0a 20 |orcerege|n = 2.. |
|00000e60| 20 20 45 4e 44 49 46 0d | 0a 45 4e 44 49 46 0d 0a |  ENDIF.|.ENDIF..|
|00000e70| 23 53 45 43 54 49 4f 4e | 20 32 0d 0a 0d 0a 2a 20 |#SECTION| 2....* |
|00000e80| 43 6c 65 61 72 20 6f 75 | 74 20 61 6e 79 20 6f 66 |Clear ou|t any of|
|00000e90| 20 74 68 65 73 65 20 70 | 75 62 6c 69 63 20 76 61 | these p|ublic va|
|00000ea0| 72 69 61 62 6c 65 73 20 | 74 68 61 74 20 6d 61 79 |riables |that may|
|00000eb0| 20 61 6c 72 65 61 64 79 | 20 65 78 69 73 74 0d 0a | already| exist..|
|00000ec0| 52 45 4c 45 41 53 45 20 | 61 70 70 66 69 6c 65 2c |RELEASE |appfile,|
|00000ed0| 20 6d 6e 75 6e 61 6d 65 | 2c 20 64 62 66 6e 61 6d | mnuname|, dbfnam|
|00000ee0| 65 2c 20 73 63 78 6e 61 | 6d 65 2c 20 72 65 70 6e |e, scxna|me, repn|
|00000ef0| 61 6d 65 2c 20 74 6d 66 | 6e 61 6d 65 2c 20 3b 0d |ame, tmf|name, ;.|
|00000f00| 0a 20 20 20 73 6b 69 70 | 64 62 66 62 75 74 2c 20 |.   skip|dbfbut, |
|00000f10| 64 62 66 6c 69 73 74 2c | 20 66 69 72 73 74 74 69 |dbflist,| firstti|
|00000f20| 6d 65 2c 3b 0d 0a 20 20 | 20 6f 72 69 67 6e 61 6d |me,;..  | orignam|
|00000f30| 65 2c 20 61 70 70 5f 65 | 72 72 6f 72 2c 20 61 70 |e, app_e|rror, ap|
|00000f40| 70 5f 65 73 63 61 70 65 | 0d 0a 50 55 42 4c 49 43 |p_escape|..PUBLIC|
|00000f50| 20 20 61 70 70 66 69 6c | 65 2c 20 6d 6e 75 6e 61 |  appfil|e, mnuna|
|00000f60| 6d 65 2c 20 64 62 66 6e | 61 6d 65 2c 20 73 63 78 |me, dbfn|ame, scx|
|00000f70| 6e 61 6d 65 2c 20 72 65 | 70 6e 61 6d 65 2c 20 74 |name, re|pname, t|
|00000f80| 6d 66 6e 61 6d 65 2c 20 | 3b 0d 0a 20 20 20 73 6b |mfname, |;..   sk|
|00000f90| 69 70 64 62 66 62 75 74 | 2c 20 6f 72 69 67 6e 61 |ipdbfbut|, origna|
|00000fa0| 6d 65 2c 20 61 70 70 5f | 65 72 72 6f 72 2c 20 61 |me, app_|error, a|
|00000fb0| 70 70 5f 65 73 63 61 70 | 65 0d 0a 0d 0a 2a 20 53 |pp_escap|e....* S|
|00000fc0| 74 6f 72 65 20 6f 70 65 | 6e 20 64 61 74 61 62 61 |tore ope|n databa|
|00000fd0| 73 65 73 2c 20 65 74 63 | 2e 20 66 6f 72 20 72 65 |ses, etc|. for re|
|00000fe0| 73 74 6f 72 61 74 69 6f | 6e 20 61 74 20 70 72 6f |storatio|n at pro|
|00000ff0| 67 72 61 6d 20 74 65 72 | 6d 69 6e 61 74 69 6f 6e |gram ter|mination|
|00001000| 0d 0a 43 52 45 41 54 45 | 20 56 49 45 57 20 66 6f |..CREATE| VIEW fo|
|00001010| 78 61 70 70 0d 0a 0d 0a | 2a 20 53 65 74 20 73 63 |xapp....|* Set sc|
|00001020| 72 65 65 6e 20 66 6f 6e | 74 20 74 6f 20 73 6f 6d |reen fon|t to som|
|00001030| 65 74 68 69 6e 67 20 72 | 65 61 73 6f 6e 61 62 6c |ething r|easonabl|
|00001040| 65 0d 0a 6d 2e 73 63 72 | 6e 5f 66 6f 6e 74 20 20 |e..m.scr|n_font  |
|00001050| 20 3d 20 57 46 4f 4e 54 | 28 31 2c 22 22 29 0d 0a | = WFONT|(1,"")..|
|00001060| 6d 2e 73 63 72 6e 5f 66 | 73 69 7a 65 20 20 3d 20 |m.scrn_f|size  = |
|00001070| 57 46 4f 4e 54 28 32 2c | 22 22 29 0d 0a 6d 2e 73 |WFONT(2,|"")..m.s|
|00001080| 63 72 6e 5f 66 73 74 79 | 6c 65 20 3d 20 57 46 4f |crn_fsty|le = WFO|
|00001090| 4e 54 28 33 2c 22 22 29 | 0d 0a 4d 4f 44 49 46 59 |NT(3,"")|..MODIFY|
|000010a0| 20 57 49 4e 44 4f 57 20 | 53 43 52 45 45 4e 20 46 | WINDOW |SCREEN F|
|000010b0| 4f 4e 54 20 22 4d 53 20 | 53 61 6e 73 20 53 65 72 |ONT "MS |Sans Ser|
|000010c0| 69 66 22 2c 38 20 53 54 | 59 4c 45 20 22 42 22 0d |if",8 ST|YLE "B".|
|000010d0| 0a 0d 0a 2a 20 53 74 61 | 72 74 20 77 69 74 68 20 |...* Sta|rt with |
|000010e0| 61 20 63 6c 65 61 6e 20 | 73 6c 61 74 65 2d 2d 74 |a clean |slate--t|
|000010f0| 68 65 79 20 77 69 6c 6c | 20 62 65 20 72 65 73 74 |hey will| be rest|
|00001100| 6f 72 65 64 20 61 74 20 | 63 6c 65 61 6e 2d 75 70 |ored at |clean-up|
|00001110| 2e 0d 0a 43 4c 4f 53 45 | 20 44 41 54 41 42 41 53 |...CLOSE| DATABAS|
|00001120| 45 53 0d 0a 0d 0a 2a 20 | 4e 6f 74 65 20 74 68 65 |ES....* |Note the|
|00001130| 20 63 75 72 72 65 6e 74 | 20 4f 4e 20 45 52 52 4f | current| ON ERRO|
|00001140| 52 20 72 6f 75 74 69 6e | 65 20 73 6f 20 74 68 61 |R routin|e so tha|
|00001150| 74 20 77 65 20 63 61 6e | 20 72 65 73 74 6f 72 65 |t we can| restore|
|00001160| 20 69 74 20 6c 61 74 65 | 72 2e 0d 0a 6d 2e 61 70 | it late|r...m.ap|
|00001170| 70 5f 65 72 72 6f 72 20 | 3d 20 4f 4e 28 27 45 52 |p_error |= ON('ER|
|00001180| 52 4f 52 27 29 0d 0a 0d | 0a 2a 20 54 68 69 73 20 |ROR')...|.* This |
|00001190| 4f 4e 20 45 52 52 4f 52 | 20 72 6f 75 74 69 6e 65 |ON ERROR| routine|
|000011a0| 20 69 73 20 69 6e 20 74 | 68 65 20 63 6c 65 61 6e | is in t|he clean|
|000011b0| 75 70 20 73 6e 69 70 70 | 65 74 0d 0a 4f 4e 20 45 |up snipp|et..ON E|
|000011c0| 52 52 4f 52 20 44 4f 20 | 61 70 70 65 72 72 6f 72 |RROR DO |apperror|
|000011d0| 20 57 49 54 48 20 50 52 | 4f 47 52 41 4d 28 29 2c | WITH PR|OGRAM(),|
|000011e0| 4d 45 53 53 41 47 45 28 | 29 2c 4d 45 53 53 41 47 |MESSAGE(|),MESSAG|
|000011f0| 45 28 31 29 2c 4c 49 4e | 45 4e 4f 28 29 2c 45 52 |E(1),LIN|ENO(),ER|
|00001200| 52 4f 52 28 29 0d 0a 0d | 0a 2a 20 4e 6f 74 65 20 |ROR()...|.* Note |
|00001210| 74 68 65 20 63 75 72 72 | 65 6e 74 20 4f 4e 20 45 |the curr|ent ON E|
|00001220| 53 43 41 50 45 20 72 6f | 75 74 69 6e 65 20 73 6f |SCAPE ro|utine so|
|00001230| 20 74 68 61 74 20 77 65 | 20 63 61 6e 20 72 65 73 | that we| can res|
|00001240| 74 6f 72 65 20 69 74 20 | 6c 61 74 65 72 2e 0d 0a |tore it |later...|
|00001250| 6d 2e 61 70 70 5f 65 73 | 63 61 70 65 20 3d 20 4f |m.app_es|cape = O|
|00001260| 4e 28 27 45 53 43 41 50 | 45 27 29 0d 0a 0d 0a 2a |N('ESCAP|E')....*|
|00001270| 20 54 68 69 73 20 4f 4e | 20 45 53 43 41 50 45 20 | This ON| ESCAPE |
|00001280| 72 6f 75 74 69 6e 65 20 | 69 73 20 69 6e 20 74 68 |routine |is in th|
|00001290| 65 20 63 6c 65 61 6e 75 | 70 20 73 6e 69 70 70 65 |e cleanu|p snippe|
|000012a0| 74 0d 0a 4f 4e 20 45 53 | 43 41 50 45 20 44 4f 20 |t..ON ES|CAPE DO |
|000012b0| 61 70 70 65 73 63 61 70 | 65 20 57 49 54 48 20 50 |appescap|e WITH P|
|000012c0| 52 4f 47 52 41 4d 28 29 | 2c 4d 45 53 53 41 47 45 |ROGRAM()|,MESSAGE|
|000012d0| 28 29 2c 4d 45 53 53 41 | 47 45 28 31 29 2c 4c 49 |(),MESSA|GE(1),LI|
|000012e0| 4e 45 4e 4f 28 29 2c 45 | 52 52 4f 52 28 29 0d 0a |NENO(),E|RROR()..|
|000012f0| 0d 0a 0d 0a 53 45 54 20 | 53 59 53 4d 45 4e 55 20 |....SET |SYSMENU |
|00001300| 41 55 54 4f 4d 41 54 49 | 43 0d 0a 50 55 53 48 20 |AUTOMATI|C..PUSH |
|00001310| 4d 45 4e 55 20 5f 6d 73 | 79 73 6d 65 6e 75 0d 0a |MENU _ms|ysmenu..|
|00001320| 0d 0a 6d 2e 61 70 70 70 | 61 74 68 6c 65 6e 20 3d |..m.appp|athlen =|
|00001330| 20 37 39 20 20 20 20 20 | 26 26 20 6d 61 78 69 6d | 79     |&& maxim|
|00001340| 75 6d 20 66 69 6c 65 20 | 61 6e 64 20 70 61 74 68 |um file |and path|
|00001350| 20 6c 65 6e 67 74 68 20 | 66 6f 72 20 66 69 6c 65 | length |for file|
|00001360| 20 6e 61 6d 65 73 0d 0a | 0d 0a 6d 2e 64 62 66 6e | names..|..m.dbfn|
|00001370| 61 6d 65 20 20 3d 20 53 | 50 41 43 45 28 6d 2e 61 |ame  = S|PACE(m.a|
|00001380| 70 70 70 61 74 68 6c 65 | 6e 29 0d 0a 6d 2e 73 63 |pppathle|n)..m.sc|
|00001390| 78 6e 61 6d 65 20 20 3d | 20 53 50 41 43 45 28 6d |xname  =| SPACE(m|
|000013a0| 2e 61 70 70 70 61 74 68 | 6c 65 6e 29 0d 0a 6d 2e |.apppath|len)..m.|
|000013b0| 72 65 70 6e 61 6d 65 20 | 20 3d 20 53 50 41 43 45 |repname | = SPACE|
|000013c0| 28 6d 2e 61 70 70 70 61 | 74 68 6c 65 6e 29 0d 0a |(m.apppa|thlen)..|
|000013d0| 6d 2e 6d 6e 75 6e 61 6d | 65 20 20 3d 20 27 41 50 |m.mnunam|e  = 'AP|
|000013e0| 50 4d 45 4e 55 2e 4d 4e | 58 27 0d 0a 6d 2e 67 65 |PMENU.MN|X'..m.ge|
|000013f0| 6e 65 72 61 74 65 20 3d | 20 30 0d 0a 6d 2e 63 61 |nerate =| 0..m.ca|
|00001400| 6e 63 62 75 74 20 20 3d | 20 30 0d 0a 6d 2e 61 64 |ncbut  =| 0..m.ad|
|00001410| 64 64 62 66 20 20 20 3d | 20 30 0d 0a 6d 2e 61 64 |ddbf   =| 0..m.ad|
|00001420| 64 73 63 78 20 20 20 3d | 20 30 0d 0a 6d 2e 6d 6f |dscx   =| 0..m.mo|
|00001430| 64 73 63 78 20 20 20 3d | 20 30 0d 0a 6d 2e 6d 6f |dscx   =| 0..m.mo|
|00001440| 64 64 62 66 20 20 20 3d | 20 30 0d 0a 0d 0a 6d 2e |ddbf   =| 0....m.|
|00001450| 64 62 66 6e 61 6d 65 20 | 20 3d 20 55 50 50 45 52 |dbfname | = UPPER|
|00001460| 28 50 41 44 52 28 6d 2e | 64 62 66 6e 61 6d 65 2c |(PADR(m.|dbfname,|
|00001470| 6d 2e 61 70 70 70 61 74 | 68 6c 65 6e 29 29 0d 0a |m.apppat|hlen))..|
|00001480| 6d 2e 73 63 78 6e 61 6d | 65 20 20 3d 20 55 50 50 |m.scxnam|e  = UPP|
|00001490| 45 52 28 50 41 44 52 28 | 6d 2e 73 63 78 6e 61 6d |ER(PADR(|m.scxnam|
|000014a0| 65 2c 6d 2e 61 70 70 70 | 61 74 68 6c 65 6e 29 29 |e,m.appp|athlen))|
|000014b0| 0d 0a 6d 2e 72 65 70 6e | 61 6d 65 20 20 3d 20 55 |..m.repn|ame  = U|
|000014c0| 50 50 45 52 28 50 41 44 | 52 28 6d 2e 72 65 70 6e |PPER(PAD|R(m.repn|
|000014d0| 61 6d 65 2c 6d 2e 61 70 | 70 70 61 74 68 6c 65 6e |ame,m.ap|ppathlen|
|000014e0| 29 29 0d 0a 6d 2e 6d 6e | 75 6e 61 6d 65 20 20 3d |))..m.mn|uname  =|
|000014f0| 20 55 50 50 45 52 28 50 | 41 44 52 28 6d 2e 6d 6e | UPPER(P|ADR(m.mn|
|00001500| 75 6e 61 6d 65 2c 6d 2e | 61 70 70 70 61 74 68 6c |uname,m.|apppathl|
|00001510| 65 6e 29 29 0d 0a 0d 0a | 2a 20 48 69 64 65 20 74 |en))....|* Hide t|
|00001520| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 77 69 6e 64 6f |he comma|nd windo|
|00001530| 77 2d 2d 6e 65 63 65 73 | 73 61 72 79 20 69 66 20 |w--neces|sary if |
|00001540| 77 65 27 72 65 20 72 75 | 6e 6e 69 6e 67 20 66 72 |we're ru|nning fr|
|00001550| 6f 6d 20 74 68 65 20 73 | 79 73 74 65 6d 20 6d 65 |om the s|ystem me|
|00001560| 6e 75 2e 0d 0a 49 46 20 | 57 56 49 53 49 42 4c 45 |nu...IF |WVISIBLE|
|00001570| 28 22 43 4f 4d 4d 41 4e | 44 22 29 0d 0a 20 20 20 |("COMMAN|D")..   |
|00001580| 48 49 44 45 20 57 49 4e | 44 4f 57 20 43 4f 4d 4d |HIDE WIN|DOW COMM|
|00001590| 41 4e 44 0d 0a 45 4e 44 | 49 46 0d 0a 0d 0a 6d 2e |AND..END|IF....m.|
|000015a0| 6e 75 6d 63 6f 6c 73 20 | 20 20 3d 20 20 31 33 20 |numcols |  =  13 |
|000015b0| 20 20 26 26 20 6e 75 6d | 62 65 72 20 6f 66 20 63 |  && num|ber of c|
|000015c0| 6f 6c 75 6d 6e 73 20 69 | 6e 20 44 42 46 4c 49 53 |olumns i|n DBFLIS|
|000015d0| 54 20 61 72 72 61 79 2c | 20 62 65 6c 6f 77 0d 0a |T array,| below..|
|000015e0| 6d 2e 6e 75 6d 61 72 65 | 61 73 20 20 3d 20 20 32 |m.numare|as  =  2|
|000015f0| 35 20 20 20 26 26 20 6e | 75 6d 62 65 72 20 6f 66 |5   && n|umber of|
|00001600| 20 64 61 74 61 62 61 73 | 65 20 61 72 65 61 73 20 | databas|e areas |
|00001610| 73 75 70 70 6f 72 74 65 | 64 2e 20 20 0d 0a 0d 0a |supporte|d.  ....|
|00001620| 2a 20 53 65 74 20 75 70 | 20 64 65 66 69 6e 69 74 |* Set up| definit|
|00001630| 69 6f 6e 73 20 66 6f 72 | 20 44 42 46 4c 49 53 54 |ions for| DBFLIST|
|00001640| 20 61 72 72 61 79 2c 20 | 64 65 63 6c 61 72 65 64 | array, |declared|
|00001650| 20 77 68 65 6e 20 22 52 | 65 6c 61 74 65 64 22 20 | when "R|elated" |
|00001660| 69 73 20 70 75 73 68 65 | 64 2e 0d 0a 2a 20 44 42 |is pushe|d...* DB|
|00001670| 46 4c 49 53 54 20 68 61 | 73 20 4f 6e 65 20 72 6f |FLIST ha|s One ro|
|00001680| 77 20 70 65 72 20 64 61 | 74 61 62 61 73 65 20 69 |w per da|tabase i|
|00001690| 6e 20 74 68 65 20 46 6f | 78 41 70 70 20 61 70 70 |n the Fo|xApp app|
|000016a0| 6c 69 63 61 74 69 6f 6e | 0d 0a 2a 20 52 6f 77 20 |lication|..* Row |
|000016b0| 31 20 63 6f 6e 74 61 69 | 6e 73 20 64 61 74 61 20 |1 contai|ns data |
|000016c0| 6f 6e 20 74 68 65 20 6d | 61 69 6e 20 64 61 74 61 |on the m|ain data|
|000016d0| 62 61 73 65 0d 0a 2a 0d | 0a 2a 20 43 6f 6c 75 6d |base..*.|.* Colum|
|000016e0| 6e 20 20 20 20 20 20 20 | 20 20 4d 65 61 6e 69 6e |n       |  Meanin|
|000016f0| 67 0d 0a 2a 20 20 20 31 | 20 20 20 20 20 20 20 20 |g..*   1|        |
|00001700| 20 20 20 20 53 74 65 6d | 20 6e 61 6d 65 20 66 6f |    Stem| name fo|
|00001710| 72 20 63 68 69 6c 64 20 | 64 61 74 61 62 61 73 65 |r child |database|
|00001720| 0d 0a 2a 20 20 20 32 20 | 20 20 20 20 20 20 20 20 |..*   2 |        |
|00001730| 20 20 20 53 45 54 20 52 | 45 4c 41 54 49 4f 4e 20 |   SET R|ELATION |
|00001740| 63 6f 6d 6d 61 6e 64 0d | 0a 2a 20 20 20 33 20 20 |command.|.*   3  |
|00001750| 20 20 20 20 20 20 20 20 | 20 20 50 61 72 65 6e 74 |        |  Parent|
|00001760| 20 66 69 65 6c 64 20 6e | 61 6d 65 20 66 6f 72 20 | field n|ame for |
|00001770| 72 65 6c 61 74 69 6f 6e | 0d 0a 2a 20 20 20 34 20 |relation|..*   4 |
|00001780| 20 20 20 20 20 20 20 20 | 20 20 20 43 68 69 6c 64 |        |   Child|
|00001790| 20 66 69 65 6c 64 20 6e | 61 6d 65 20 66 6f 72 20 | field n|ame for |
|000017a0| 72 65 6c 61 74 69 6f 6e | 0d 0a 2a 20 20 20 35 20 |relation|..*   5 |
|000017b0| 20 20 20 20 20 20 20 20 | 20 20 20 46 75 6c 6c 20 |        |   Full |
|000017c0| 70 61 74 68 2f 66 69 6c | 65 6e 61 6d 65 20 66 6f |path/fil|ename fo|
|000017d0| 72 20 74 68 69 73 20 63 | 68 69 6c 64 20 64 61 74 |r this c|hild dat|
|000017e0| 61 62 61 73 65 0d 0a 2a | 20 20 20 36 20 20 20 20 |abase..*|   6    |
|000017f0| 20 20 20 20 20 20 20 20 | 4e 61 6d 65 20 6f 66 20 |        |Name of |
|00001800| 70 61 72 65 6e 74 20 64 | 61 74 61 62 61 73 65 0d |parent d|atabase.|
|00001810| 0a 2a 20 63 6f 6c 75 6d | 6e 20 6e 75 6d 62 65 72 |.* colum|n number|
|00001820| 73 20 69 6e 20 64 62 66 | 6c 69 73 74 20 61 72 72 |s in dbf|list arr|
|00001830| 61 79 0d 0a 6d 2e 63 73 | 74 65 6d 6e 75 6d 20 20 |ay..m.cs|temnum  |
|00001840| 3d 20 20 31 20 20 20 26 | 26 20 63 6f 6c 75 6d 6e |=  1   &|& column|
|00001850| 20 6e 75 6d 62 65 72 20 | 66 6f 72 20 63 68 69 6c | number |for chil|
|00001860| 64 20 64 61 74 61 62 61 | 73 65 20 73 74 65 6d 0d |d databa|se stem.|
|00001870| 0a 6d 2e 72 65 6c 73 74 | 72 6e 75 6d 20 3d 20 20 |.m.relst|rnum =  |
|00001880| 32 20 20 20 26 26 20 63 | 6f 6c 75 6d 6e 20 6e 75 |2   && c|olumn nu|
|00001890| 6d 62 65 72 20 66 6f 72 | 20 73 65 74 20 72 65 6c |mber for| set rel|
|000018a0| 61 74 69 6f 6e 20 73 74 | 72 69 6e 67 0d 0a 6d 2e |ation st|ring..m.|
|000018b0| 70 66 6c 64 6e 75 6d 20 | 20 20 3d 20 20 33 20 20 |pfldnum |  =  3  |
|000018c0| 20 26 26 20 63 6f 6c 75 | 6d 6e 20 6e 75 6d 62 65 | && colu|mn numbe|
|000018d0| 72 20 66 6f 72 20 70 61 | 72 65 6e 74 20 66 69 65 |r for pa|rent fie|
|000018e0| 6c 64 20 69 6e 20 74 68 | 65 20 72 65 6c 61 74 69 |ld in th|e relati|
|000018f0| 6f 6e 0d 0a 6d 2e 63 66 | 6c 64 6e 75 6d 20 20 20 |on..m.cf|ldnum   |
|00001900| 3d 20 20 34 20 20 20 26 | 26 20 63 6f 6c 75 6d 6e |=  4   &|& column|
|00001910| 20 6e 75 6d 62 65 72 20 | 66 6f 72 20 63 68 69 6c | number |for chil|
|00001920| 64 20 66 69 65 6c 64 20 | 69 6e 20 74 68 65 20 72 |d field |in the r|
|00001930| 65 6c 61 74 69 6f 6e 0d | 0a 6d 2e 63 64 62 66 6e |elation.|.m.cdbfn|
|00001940| 75 6d 20 20 20 3d 20 20 | 35 20 20 20 26 26 20 63 |um   =  |5   && c|
|00001950| 6f 6c 75 6d 6e 20 6e 75 | 6d 62 65 72 20 66 6f 72 |olumn nu|mber for|
|00001960| 20 63 68 69 6c 64 20 64 | 61 74 61 62 61 73 65 0d | child d|atabase.|
|00001970| 0a 6d 2e 70 64 62 66 6e | 75 6d 20 20 20 3d 20 20 |.m.pdbfn|um   =  |
|00001980| 36 20 20 20 26 26 20 63 | 6f 6c 75 6d 6e 20 6e 75 |6   && c|olumn nu|
|00001990| 6d 62 65 72 20 66 6f 72 | 20 70 61 72 65 6e 74 20 |mber for| parent |
|000019a0| 64 61 74 61 62 61 73 65 | 0d 0a 6d 2e 73 72 6f 77 |database|..m.srow|
|000019b0| 6e 75 6d 20 20 20 3d 20 | 20 37 20 20 20 26 26 20 |num   = | 7   && |
|000019c0| 63 6f 6c 75 6d 6e 20 6e | 75 6d 62 65 72 20 66 6f |column n|umber fo|
|000019d0| 72 20 73 74 61 72 74 69 | 6e 67 20 72 6f 77 20 70 |r starti|ng row p|
|000019e0| 6f 73 69 74 69 6f 6e 20 | 28 73 74 72 29 0d 0a 6d |osition |(str)..m|
|000019f0| 2e 73 63 6f 6c 6e 75 6d | 20 20 20 3d 20 20 38 20 |.scolnum|   =  8 |
|00001a00| 20 20 26 26 20 63 6f 6c | 75 6d 6e 20 6e 75 6d 62 |  && col|umn numb|
|00001a10| 65 72 20 66 6f 72 20 73 | 74 61 72 74 69 6e 67 20 |er for s|tarting |
|00001a20| 63 6f 6c 75 6d 6e 20 70 | 6f 73 69 74 69 6f 6e 20 |column p|osition |
|00001a30| 28 73 74 72 29 0d 0a 6d | 2e 65 72 6f 77 6e 75 6d |(str)..m|.erownum|
|00001a40| 20 20 20 3d 20 20 39 20 | 20 20 26 26 20 63 6f 6c |   =  9 |  && col|
|00001a50| 75 6d 6e 20 6e 75 6d 62 | 65 72 20 66 6f 72 20 65 |umn numb|er for e|
|00001a60| 6e 64 69 6e 67 20 72 6f | 77 20 70 6f 73 69 74 69 |nding ro|w positi|
|00001a70| 6f 6e 20 28 73 74 72 29 | 0d 0a 6d 2e 65 63 6f 6c |on (str)|..m.ecol|
|00001a80| 6e 75 6d 20 20 20 3d 20 | 31 30 20 20 20 26 26 20 |num   = |10   && |
|00001a90| 63 6f 6c 75 6d 6e 20 6e | 75 6d 62 65 72 20 66 6f |column n|umber fo|
|00001aa0| 72 20 65 6e 64 69 6e 67 | 20 63 6f 6c 75 6d 6e 20 |r ending| column |
|00001ab0| 70 6f 73 69 74 69 6f 6e | 20 28 73 74 72 29 0d 0a |position| (str)..|
|00001ac0| 6d 2e 61 72 72 61 6e 67 | 65 64 20 20 3d 20 31 31 |m.arrang|ed  = 11|
|00001ad0| 20 20 20 26 26 20 63 6f | 6c 75 6d 6e 20 6e 75 6d |   && co|lumn num|
|00001ae0| 62 65 72 20 66 6f 72 20 | 61 72 72 61 6e 67 65 64 |ber for |arranged|
|00001af0| 3f 20 66 6c 61 67 0d 0a | 6d 2e 74 68 65 66 6f 6e |? flag..|m.thefon|
|00001b00| 74 20 20 20 3d 20 31 32 | 20 20 20 26 26 20 66 6f |t   = 12|   && fo|
|00001b10| 6e 74 20 66 6f 72 20 74 | 68 69 73 20 62 72 6f 77 |nt for t|his brow|
|00001b20| 73 65 20 77 69 6e 64 6f | 77 0d 0a 6d 2e 63 61 73 |se windo|w..m.cas|
|00001b30| 63 61 64 65 6e 75 6d 3d | 20 31 33 20 20 20 26 26 |cadenum=| 13   &&|
|00001b40| 20 70 65 72 66 6f 72 6d | 20 63 61 73 63 61 64 69 | perform| cascadi|
|00001b50| 6e 67 20 64 65 6c 65 74 | 65 73 20 6f 6e 20 74 68 |ng delet|es on th|
|00001b60| 69 73 20 64 61 74 61 62 | 61 73 65 3f 0d 0a 0d 0a |is datab|ase?....|
|00001b70| 6d 2e 63 74 72 6c 72 6f | 77 20 20 20 3d 20 4d 41 |m.ctrlro|w   = MA|
|00001b80| 58 28 52 4f 55 4e 44 28 | 53 52 4f 57 53 28 29 2d |X(ROUND(|SROWS()-|
|00001b90| 35 2e 35 2c 30 29 2c 30 | 29 20 20 20 20 20 20 26 |5.5,0),0|)      &|
|00001ba0| 26 20 64 65 66 61 75 6c | 74 20 72 6f 77 20 70 6f |& defaul|t row po|
|00001bb0| 73 69 74 69 6f 6e 20 66 | 6f 72 20 63 6f 6e 74 72 |sition f|or contr|
|00001bc0| 6f 6c 20 70 61 6e 65 6c | 0d 0a 6d 2e 63 74 72 6c |ol panel|..m.ctrl|
|00001bd0| 63 6f 6c 20 20 20 3d 20 | 4d 41 58 28 52 4f 55 4e |col   = |MAX(ROUN|
|00001be0| 44 28 53 43 4f 4c 53 28 | 29 2f 32 2d 37 34 2f 32 |D(SCOLS(|)/2-74/2|
|00001bf0| 2c 30 29 2c 30 29 20 26 | 26 20 64 65 66 61 75 6c |,0),0) &|& defaul|
|00001c00| 74 20 63 6f 6c 75 6d 6e | 20 70 6f 73 69 74 69 6f |t column| positio|
|00001c10| 6e 20 66 6f 72 20 63 6f | 6e 74 72 6f 6c 20 70 61 |n for co|ntrol pa|
|00001c20| 6e 65 6c 0d 0a 0d 0a 6d | 2e 6e 65 78 74 64 62 66 |nel....m|.nextdbf|
|00001c30| 20 20 20 3d 20 20 30 20 | 20 20 20 20 20 20 20 26 |   =  0 |       &|
|00001c40| 26 20 6e 65 78 74 20 64 | 62 66 6c 69 73 74 20 70 |& next d|bflist p|
|00001c50| 6f 73 69 74 69 6f 6e 2c | 20 30 20 61 74 20 73 74 |osition,| 0 at st|
|00001c60| 61 72 74 0d 0a 0d 0a 2a | 20 4d 61 6b 65 20 74 68 |art....*| Make th|
|00001c70| 65 20 63 75 72 72 65 6e | 74 20 66 6f 6e 74 20 74 |e curren|t font t|
|00001c80| 68 65 20 64 65 66 61 75 | 6c 74 20 66 6f 72 20 6e |he defau|lt for n|
|00001c90| 65 77 20 77 69 6e 64 6f | 77 73 2f 62 72 6f 77 73 |ew windo|ws/brows|
|00001ca0| 65 73 0d 0a 6d 2e 64 65 | 66 61 75 6c 74 66 6f 6e |es..m.de|faultfon|
|00001cb0| 74 20 3d 20 57 46 4f 4e | 54 28 31 2c 22 22 29 2b |t = WFON|T(1,"")+|
|00001cc0| 22 2c 22 2b 41 4c 4c 54 | 52 49 4d 28 53 54 52 28 |","+ALLT|RIM(STR(|
|00001cd0| 57 46 4f 4e 54 28 32 2c | 22 22 29 2c 33 29 29 2b |WFONT(2,|""),3))+|
|00001ce0| 22 2c 22 2b 57 46 4f 4e | 54 28 33 2c 22 22 29 0d |","+WFON|T(3,"").|
|00001cf0| 0a 0d 0a 2a 20 53 65 74 | 20 74 68 65 20 64 65 66 |...* Set| the def|
|00001d00| 61 75 6c 74 20 66 6f 72 | 20 63 61 73 63 61 64 69 |ault for| cascadi|
|00001d10| 6e 67 20 64 65 6c 65 74 | 65 73 0d 0a 6d 2e 64 65 |ng delet|es..m.de|
|00001d20| 66 61 75 6c 74 63 61 73 | 63 20 3d 20 27 4e 27 0d |faultcas|c = 'N'.|
|00001d30| 0a 0d 0a 2a 20 53 65 74 | 20 64 65 66 61 75 6c 74 |...* Set| default|
|00001d40| 20 6f 70 74 69 6f 6e 73 | 20 66 6f 72 20 72 65 73 | options| for res|
|00001d50| 6f 75 72 63 65 20 66 69 | 6c 65 20 68 61 6e 64 6c |ource fi|le handl|
|00001d60| 69 6e 67 0d 0a 6d 2e 72 | 73 63 5f 63 68 65 63 6b |ing..m.r|sc_check|
|00001d70| 20 3d 20 2e 46 2e 20 20 | 20 20 20 20 20 26 26 20 | = .F.  |     && |
|00001d80| 72 65 73 6f 75 72 63 65 | 20 66 69 6c 65 20 63 68 |resource| file ch|
|00001d90| 65 63 6b 65 64 20 66 6f | 72 20 74 68 69 73 20 64 |ecked fo|r this d|
|00001da0| 61 74 61 62 61 73 65 20 | 79 65 74 3f 0d 0a 6d 2e |atabase |yet?..m.|
|00001db0| 72 73 63 5f 73 74 6f 72 | 65 64 3d 20 2e 46 2e 20 |rsc_stor|ed= .F. |
|00001dc0| 20 20 20 20 20 20 26 26 | 20 68 61 76 65 20 63 75 |      &&| have cu|
|00001dd0| 72 72 65 6e 74 20 63 68 | 6f 69 63 65 73 20 62 65 |rrent ch|oices be|
|00001de0| 65 6e 20 73 61 76 65 64 | 20 79 65 74 3f 0d 0a 0d |en saved| yet?...|
|00001df0| 0a 2a 20 54 68 65 73 65 | 20 6f 70 74 69 6f 6e 73 |.* These| options|
|00001e00| 20 63 61 6e 20 62 65 20 | 72 65 73 65 74 20 6f 6e | can be |reset on|
|00001e10| 20 74 68 65 20 61 64 76 | 61 6e 63 65 64 20 6f 70 | the adv|anced op|
|00001e20| 74 69 6f 6e 73 20 73 63 | 72 65 65 6e 2e 0d 0a 2a |tions sc|reen...*|
|00001e30| 20 54 68 65 69 72 20 64 | 65 66 61 75 6c 74 20 76 | Their d|efault v|
|00001e40| 61 6c 75 65 73 20 61 72 | 65 20 73 65 74 20 62 61 |alues ar|e set ba|
|00001e50| 73 65 64 20 6f 6e 20 74 | 68 65 20 70 61 72 61 6d |sed on t|he param|
|00001e60| 65 74 65 72 73 20 70 61 | 73 73 65 64 20 74 6f 0d |eters pa|ssed to.|
|00001e70| 0a 2a 20 46 6f 78 41 70 | 70 2c 20 6f 72 20 74 6f |.* FoxAp|p, or to|
|00001e80| 20 74 68 65 20 64 65 66 | 61 75 6c 74 20 76 61 6c | the def|ault val|
|00001e90| 75 65 20 6f 66 20 72 73 | 63 75 73 65 64 2e 0d 0a |ue of rs|cused...|
|00001ea0| 6d 2e 72 65 74 72 69 65 | 76 65 72 73 63 20 3d 20 |m.retrie|versc = |
|00001eb0| 72 73 63 75 73 65 64 20 | 26 26 20 72 65 74 72 69 |rscused |&& retri|
|00001ec0| 65 76 65 20 72 65 6c 61 | 74 69 6f 6e 73 20 66 72 |eve rela|tions fr|
|00001ed0| 6f 6d 20 72 65 73 6f 75 | 72 63 65 20 66 69 6c 65 |om resou|rce file|
|00001ee0| 3f 0d 0a 6d 2e 73 74 6f | 72 65 72 73 63 20 20 20 |?..m.sto|rersc   |
|00001ef0| 20 3d 20 72 73 63 75 73 | 65 64 20 26 26 20 73 74 | = rscus|ed && st|
|00001f00| 6f 72 65 20 72 65 6c 61 | 74 69 6f 6e 73 20 74 6f |ore rela|tions to|
|00001f10| 20 72 65 73 6f 75 72 63 | 65 20 66 69 6c 65 3f 0d | resourc|e file?.|
|00001f20| 0a 6d 2e 72 73 63 74 79 | 70 65 20 20 20 20 20 3d |.m.rscty|pe     =|
|00001f30| 20 22 46 4f 58 41 50 50 | 32 2e 30 41 22 20 20 20 | "FOXAPP|2.0A"   |
|00001f40| 20 26 26 20 74 79 70 65 | 20 63 6f 64 65 20 66 6f | && type| code fo|
|00001f50| 72 20 72 65 73 6f 75 72 | 63 65 20 66 69 6c 65 20 |r resour|ce file |
|00001f60| 65 6e 74 72 69 65 73 0d | 0a 0d 0a 2a 20 45 73 74 |entries.|...* Est|
|00001f70| 61 62 6c 69 73 68 20 77 | 68 65 74 68 65 72 20 74 |ablish w|hether t|
|00001f80| 6f 20 70 75 74 20 46 6f | 78 41 70 70 20 53 43 58 |o put Fo|xApp SCX|
|00001f90| 2f 53 50 52 2f 4d 4e 58 | 2f 4d 50 52 20 66 69 6c |/SPR/MNX|/MPR fil|
|00001fa0| 65 73 20 69 6e 74 6f 20 | 74 68 65 20 0d 0a 2a 20 |es into |the ..* |
|00001fb0| 75 73 65 72 27 73 20 70 | 72 6f 6a 65 63 74 2c 20 |user's p|roject, |
|00001fc0| 77 68 69 63 68 20 6d 61 | 6b 65 73 20 74 68 65 20 |which ma|kes the |
|00001fd0| 70 72 6f 6a 65 63 74 20 | 6f 72 67 61 6e 69 7a 61 |project |organiza|
|00001fe0| 74 69 6f 6e 20 65 61 73 | 79 20 74 6f 20 0d 0a 2a |tion eas|y to ..*|
|00001ff0| 20 75 6e 64 65 72 73 74 | 61 6e 64 20 61 6e 64 20 | underst|and and |
|00002000| 6d 6f 72 65 20 22 46 6f | 78 50 72 6f 2d 6c 69 6b |more "Fo|xPro-lik|
|00002010| 65 2c 22 20 28 63 61 6c | 6c 65 64 20 46 75 6c 6c |e," (cal|led Full|
|00002020| 20 50 72 6f 6a 65 63 74 | 73 29 20 6f 72 20 50 52 | Project|s) or PR|
|00002030| 47 20 0d 0a 2a 20 66 69 | 6c 65 73 20 67 65 6e 65 |G ..* fi|les gene|
|00002040| 72 61 74 65 64 20 66 72 | 6f 6d 20 74 68 65 20 53 |rated fr|om the S|
|00002050| 43 58 2f 4d 4e 58 20 66 | 69 6c 65 73 20 28 41 62 |CX/MNX f|iles (Ab|
|00002060| 62 72 65 76 69 61 74 65 | 64 20 50 72 6f 6a 65 63 |breviate|d Projec|
|00002070| 74 73 29 2e 20 20 0d 0a | 2a 20 54 68 65 20 6c 61 |ts).  ..|* The la|
|00002080| 74 74 65 72 20 61 70 70 | 72 6f 61 63 68 20 69 73 |tter app|roach is|
|00002090| 20 6d 6f 72 65 20 63 6f | 6e 66 75 73 69 6e 67 20 | more co|nfusing |
|000020a0| 62 75 74 20 69 73 20 61 | 6c 73 6f 20 6d 75 63 68 |but is a|lso much|
|000020b0| 20 66 61 73 74 65 72 20 | 0d 0a 2a 20 73 69 6e 63 | faster |..* sinc|
|000020c0| 65 20 74 68 65 20 46 6f | 78 41 70 70 20 70 69 65 |e the Fo|xApp pie|
|000020d0| 63 65 73 20 28 65 2e 67 | 2e 2c 20 47 45 54 44 45 |ces (e.g|., GETDE|
|000020e0| 53 54 28 29 20 29 20 64 | 6f 20 6e 6f 74 20 68 61 |ST() ) d|o not ha|
|000020f0| 76 65 20 74 6f 20 62 65 | 20 0d 0a 2a 20 72 65 62 |ve to be| ..* reb|
|00002100| 75 69 6c 74 20 77 68 65 | 6e 65 76 65 72 20 61 20 |uilt whe|never a |
|00002110| 75 73 65 72 20 70 72 6f | 6a 65 63 74 20 69 73 20 |user pro|ject is |
|00002120| 67 65 6e 65 72 61 74 65 | 64 2e 0d 0a 44 4f 20 43 |generate|d...DO C|
|00002130| 41 53 45 0d 0a 43 41 53 | 45 20 6d 2e 66 6f 72 63 |ASE..CAS|E m.forc|
|00002140| 65 72 65 67 65 6e 20 3d | 20 31 0d 0a 20 20 20 6d |eregen =| 1..   m|
|00002150| 2e 72 65 67 65 6e 20 3d | 20 2e 54 2e 0d 0a 43 41 |.regen =| .T...CA|
|00002160| 53 45 20 66 6f 72 63 65 | 72 65 67 65 6e 20 3d 20 |SE force|regen = |
|00002170| 32 0d 0a 20 20 20 6d 2e | 72 65 67 65 6e 20 3d 20 |2..   m.|regen = |
|00002180| 2e 46 2e 0d 0a 4f 54 48 | 45 52 57 49 53 45 0d 0a |.F...OTH|ERWISE..|
|00002190| 20 20 20 2a 20 41 73 73 | 75 6d 65 20 66 75 6c 6c |   * Ass|ume full|
|000021a0| 20 70 72 6f 6a 65 63 74 | 20 67 65 6e 65 72 61 74 | project| generat|
|000021b0| 69 6f 6e 2c 20 62 75 74 | 20 63 68 65 63 6b 20 43 |ion, but| check C|
|000021c0| 4f 4e 46 49 47 2e 46 50 | 0d 0a 20 20 20 6d 2e 72 |ONFIG.FP|..   m.r|
|000021d0| 65 67 65 6e 20 3d 20 2e | 54 2e 0d 0a 20 20 20 49 |egen = .|T...   I|
|000021e0| 46 20 46 49 4c 45 28 53 | 59 53 28 32 30 31 39 29 |F FILE(S|YS(2019)|
|000021f0| 29 20 20 20 20 20 20 20 | 20 20 26 26 20 66 69 6e |)       |  && fin|
|00002200| 64 20 43 4f 4e 46 49 47 | 2e 46 50 2c 20 69 66 20 |d CONFIG|.FP, if |
|00002210| 6f 6e 65 20 65 78 69 73 | 74 73 0d 0a 20 20 20 20 |one exis|ts..    |
|00002220| 20 20 6d 2e 66 70 20 3d | 20 46 4f 50 45 4e 28 53 |  m.fp =| FOPEN(S|
|00002230| 59 53 28 32 30 31 39 29 | 2c 30 29 20 26 26 20 6f |YS(2019)|,0) && o|
|00002240| 70 65 6e 20 43 4f 4e 46 | 49 47 2e 46 50 20 72 65 |pen CONF|IG.FP re|
|00002250| 61 64 2d 6f 6e 6c 79 0d | 0a 20 20 20 20 20 20 49 |ad-only.|.      I|
|00002260| 46 20 6d 2e 66 70 20 3e | 20 30 0d 0a 20 20 20 20 |F m.fp >| 0..    |
|00002270| 20 20 20 20 20 44 4f 20 | 57 48 49 4c 45 20 21 46 |     DO |WHILE !F|
|00002280| 45 4f 46 28 66 70 29 0d | 0a 20 20 20 20 20 20 20 |EOF(fp).|.       |
|00002290| 20 20 20 20 20 6d 2e 62 | 75 66 66 65 72 20 3d 20 |     m.b|uffer = |
|000022a0| 41 4c 4c 54 52 49 4d 28 | 55 50 50 45 52 28 46 47 |ALLTRIM(|UPPER(FG|
|000022b0| 45 54 53 28 6d 2e 66 70 | 29 29 29 0d 0a 20 20 20 |ETS(m.fp|)))..   |
|000022c0| 20 20 20 20 20 20 20 20 | 20 49 46 20 4c 45 46 54 |        | IF LEFT|
|000022d0| 28 62 75 66 66 65 72 2c | 36 29 20 3d 3d 20 27 46 |(buffer,|6) == 'F|
|000022e0| 4f 58 41 50 50 27 0d 0a | 20 20 20 20 20 20 20 20 |OXAPP'..|        |
|000022f0| 20 20 20 20 20 20 20 6d | 2e 62 75 66 66 65 72 20 |       m|.buffer |
|00002300| 3d 20 41 4c 4c 54 52 49 | 4d 28 53 55 42 53 54 52 |= ALLTRI|M(SUBSTR|
|00002310| 28 6d 2e 62 75 66 66 65 | 72 2c 41 54 28 27 3d 27 |(m.buffe|r,AT('='|
|00002320| 2c 6d 2e 62 75 66 66 65 | 72 29 2b 31 29 29 0d 0a |,m.buffe|r)+1))..|
|00002330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d |        |       m|
|00002340| 2e 72 65 67 65 6e 20 3d | 20 28 27 47 45 4e 45 52 |.regen =| ('GENER|
|00002350| 41 54 45 27 20 24 20 6d | 2e 62 75 66 66 65 72 29 |ATE' $ m|.buffer)|
|00002360| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4e |..      |      EN|
|00002370| 44 49 46 0d 0a 20 20 20 | 20 20 20 20 20 20 45 4e |DIF..   |      EN|
|00002380| 44 44 4f 0d 0a 20 20 20 | 20 20 20 20 20 20 3d 46 |DDO..   |      =F|
|00002390| 43 4c 4f 53 45 28 6d 2e | 66 70 29 0d 0a 20 20 20 |CLOSE(m.|fp)..   |
|000023a0| 20 20 20 45 4c 53 45 0d | 0a 20 20 20 20 20 20 20 |   ELSE.|.       |
|000023b0| 20 20 57 41 49 54 20 57 | 49 4e 44 4f 57 20 22 45 |  WAIT W|INDOW "E|
|000023c0| 72 72 6f 72 20 6f 70 65 | 6e 69 6e 67 20 43 4f 4e |rror ope|ning CON|
|000023d0| 46 49 47 2e 46 50 2e 22 | 20 4e 4f 57 41 49 54 0d |FIG.FP."| NOWAIT.|
|000023e0| 0a 20 20 20 20 20 20 45 | 4e 44 49 46 0d 0a 20 20 |.      E|NDIF..  |
|000023f0| 20 45 4e 44 49 46 0d 0a | 45 4e 44 43 41 53 45 0d | ENDIF..|ENDCASE.|
|00002400| 0a 0d 0a 2a 20 44 65 66 | 61 75 6c 74 73 20 74 6f |...* Def|aults to|
|00002410| 20 5c 46 4f 58 41 50 50 | 20 75 6e 64 65 72 6e 65 | \FOXAPP| underne|
|00002420| 61 74 68 20 46 6f 78 50 | 72 6f 20 73 74 61 72 74 |ath FoxP|ro start|
|00002430| 75 70 20 64 69 72 65 63 | 74 6f 72 79 0d 0a 6d 2e |up direc|tory..m.|
|00002440| 66 6f 78 61 70 70 64 69 | 72 20 3d 20 61 64 64 62 |foxappdi|r = addb|
|00002450| 73 28 53 59 53 28 32 30 | 30 34 29 29 2b 27 46 4f |s(SYS(20|04))+'FO|
|00002460| 58 41 50 50 27 0d 0a 0d | 0a 2a 20 46 69 72 73 74 |XAPP'...|.* First|
|00002470| 20 6d 61 6b 65 20 73 75 | 72 65 20 74 68 61 74 20 | make su|re that |
|00002480| 74 68 65 20 46 6f 78 41 | 70 70 20 73 6f 75 72 63 |the FoxA|pp sourc|
|00002490| 65 20 66 69 6c 65 73 20 | 68 61 76 65 20 62 65 65 |e files |have bee|
|000024a0| 6e 20 69 6e 73 74 61 6c | 6c 65 64 2e 0d 0a 2a 20 |n instal|led...* |
|000024b0| 49 66 20 74 68 65 79 20 | 68 61 76 65 6e 27 74 2c |If they |haven't,|
|000024c0| 20 49 20 63 61 6e 27 74 | 20 62 75 69 6c 64 20 61 | I can't| build a|
|000024d0| 20 70 72 6f 6a 65 63 74 | 2e 0d 0a 6d 2e 66 6f 78 | project|...m.fox|
|000024e0| 61 70 70 64 69 72 20 3d | 20 66 69 6e 64 73 72 63 |appdir =| findsrc|
|000024f0| 28 6d 2e 66 6f 78 61 70 | 70 64 69 72 29 0d 0a 0d |(m.foxap|pdir)...|
|00002500| 0a 2a 20 49 74 20 69 73 | 20 69 6d 70 6f 72 74 61 |.* It is| importa|
|00002510| 6e 74 20 66 6f 72 20 74 | 68 65 20 41 50 50 4d 45 |nt for t|he APPME|
|00002520| 4e 55 2e 4d 50 52 20 61 | 6e 64 20 41 50 50 4d 45 |NU.MPR a|nd APPME|
|00002530| 4e 55 2e 50 52 47 20 66 | 69 6c 65 73 20 74 6f 20 |NU.PRG f|iles to |
|00002540| 62 65 20 69 64 65 6e 74 | 69 63 61 6c 2e 0d 0a 2a |be ident|ical...*|
|00002550| 20 41 50 50 4d 45 4e 55 | 20 72 65 6c 69 65 73 20 | APPMENU| relies |
|00002560| 6f 6e 20 4c 4f 43 46 49 | 4c 45 20 74 6f 20 66 69 |on LOCFI|LE to fi|
|00002570| 6e 64 20 69 74 73 65 6c | 66 20 73 6f 20 74 68 61 |nd itsel|f so tha|
|00002580| 74 20 72 6f 75 74 69 6e | 65 73 20 69 6e 20 69 74 |t routin|es in it|
|00002590| 20 0d 0a 2a 20 63 61 6e | 20 62 65 20 65 78 65 63 | ..* can| be exec|
|000025a0| 75 74 65 64 2c 20 65 76 | 65 6e 20 77 68 65 6e 20 |uted, ev|en when |
|000025b0| 69 74 20 69 73 20 6e 6f | 20 6c 6f 6e 67 65 72 20 |it is no| longer |
|000025c0| 69 6e 20 74 68 65 20 63 | 61 6c 6c 69 6e 67 20 63 |in the c|alling c|
|000025d0| 68 61 69 6e 2e 0d 0a 2a | 20 54 68 65 20 4c 4f 43 |hain...*| The LOC|
|000025e0| 46 49 4c 45 20 73 74 61 | 74 65 6d 65 6e 74 73 20 |FILE sta|tements |
|000025f0| 65 6d 69 74 74 65 64 20 | 62 79 20 47 45 4e 4d 45 |emitted |by GENME|
|00002600| 4e 55 20 6c 6f 6f 6b 20 | 66 69 72 73 74 20 66 6f |NU look |first fo|
|00002610| 72 20 41 50 50 4d 45 4e | 55 2e 4d 50 52 0d 0a 2a |r APPMEN|U.MPR..*|
|00002620| 20 69 66 20 69 74 20 66 | 69 6e 64 73 20 69 74 2c | if it f|inds it,|
|00002630| 20 69 74 20 74 72 69 65 | 73 20 74 6f 20 65 78 65 | it trie|s to exe|
|00002640| 63 75 74 65 20 74 68 65 | 20 70 72 6f 63 65 64 75 |cute the| procedu|
|00002650| 72 65 20 6f 75 74 20 6f | 66 20 41 50 50 4d 45 4e |re out o|f APPMEN|
|00002660| 55 2e 4d 50 52 0d 0a 2a | 20 61 6e 64 20 72 65 70 |U.MPR..*| and rep|
|00002670| 6f 72 74 73 20 61 6e 20 | 65 72 72 6f 72 20 69 66 |orts an |error if|
|00002680| 20 74 68 65 20 70 72 6f | 63 65 64 75 72 65 20 63 | the pro|cedure c|
|00002690| 61 6e 6e 6f 74 20 62 65 | 20 66 6f 75 6e 64 2e 20 |annot be| found. |
|000026a0| 20 53 69 6e 63 65 20 74 | 68 65 20 0d 0a 2a 20 70 | Since t|he ..* p|
|000026b0| 72 6f 63 65 64 75 72 65 | 20 6e 61 6d 65 73 20 61 |rocedure| names a|
|000026c0| 72 65 20 67 65 6e 65 72 | 61 74 65 64 20 62 79 20 |re gener|ated by |
|000026d0| 47 45 4e 4d 45 4e 55 20 | 6f 66 66 20 74 68 65 20 |GENMENU |off the |
|000026e0| 74 69 6d 65 72 2c 20 69 | 66 20 41 50 50 4d 45 4e |timer, i|f APPMEN|
|000026f0| 55 2e 4d 50 52 0d 0a 2a | 20 61 6e 64 20 41 50 50 |U.MPR..*| and APP|
|00002700| 4d 45 4e 55 2e 50 52 47 | 20 77 65 72 65 20 67 65 |MENU.PRG| were ge|
|00002710| 6e 65 72 61 74 65 64 20 | 61 74 20 64 69 66 66 65 |nerated |at diffe|
|00002720| 72 65 6e 74 20 74 69 6d | 65 73 2c 20 74 68 65 20 |rent tim|es, the |
|00002730| 70 72 6f 63 65 64 75 72 | 65 73 20 77 69 6c 6c 0d |procedur|es will.|
|00002740| 0a 2a 20 68 61 76 65 20 | 64 69 66 66 65 72 65 6e |.* have |differen|
|00002750| 74 20 6e 61 6d 65 73 2e | 20 20 54 68 75 73 2c 20 |t names.|  Thus, |
|00002760| 74 68 65 20 66 69 6c 65 | 73 20 6d 75 73 74 20 62 |the file|s must b|
|00002770| 65 20 65 78 61 63 74 20 | 63 6f 70 69 65 73 20 6f |e exact |copies o|
|00002780| 66 20 65 61 63 68 0d 0a | 2a 20 6f 74 68 65 72 2e |f each..|* other.|
|00002790| 20 20 54 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |  The fo|llowing |
|000027a0| 63 6f 64 65 20 61 73 73 | 75 72 65 73 20 74 68 69 |code ass|ures thi|
|000027b0| 73 20 74 6f 20 62 65 20 | 74 68 65 20 63 61 73 65 |s to be |the case|
|000027c0| 2e 0d 0a 49 46 20 6d 2e | 72 65 67 65 6e 0d 0a 20 |...IF m.|regen.. |
|000027d0| 20 20 44 4f 20 43 41 53 | 45 0d 0a 20 20 20 43 41 |  DO CAS|E..   CA|
|000027e0| 53 45 20 46 49 4c 45 28 | 27 4d 45 4e 55 53 5c 41 |SE FILE(|'MENUS\A|
|000027f0| 50 50 4d 45 4e 55 2e 50 | 52 47 27 29 20 41 4e 44 |PPMENU.P|RG') AND|
|00002800| 20 46 49 4c 45 28 27 4d | 45 4e 55 53 5c 41 50 50 | FILE('M|ENUS\APP|
|00002810| 4d 45 4e 55 2e 4d 50 52 | 27 29 0d 0a 20 20 20 20 |MENU.MPR|')..    |
|00002820| 20 20 6d 70 72 5f 6e 61 | 6d 65 20 3d 20 46 55 4c |  mpr_na|me = FUL|
|00002830| 4c 50 41 54 48 28 27 4d | 45 4e 55 53 5c 41 50 50 |LPATH('M|ENUS\APP|
|00002840| 4d 45 4e 55 2e 4d 50 52 | 27 29 0d 0a 20 20 20 20 |MENU.MPR|')..    |
|00002850| 20 20 43 4f 50 59 20 46 | 49 4c 45 20 4d 45 4e 55 |  COPY F|ILE MENU|
|00002860| 53 5c 61 70 70 6d 65 6e | 75 2e 70 72 67 20 54 4f |S\appmen|u.prg TO|
|00002870| 20 26 6d 70 72 5f 6e 61 | 6d 65 0d 0a 20 20 20 43 | &mpr_na|me..   C|
|00002880| 41 53 45 20 46 49 4c 45 | 28 27 61 70 70 6d 65 6e |ASE FILE|('appmen|
|00002890| 75 2e 70 72 67 27 29 20 | 41 4e 44 20 46 49 4c 45 |u.prg') |AND FILE|
|000028a0| 28 27 61 70 70 6d 65 6e | 75 2e 6d 70 72 27 29 0d |('appmen|u.mpr').|
|000028b0| 0a 20 20 20 20 20 20 6d | 2e 6d 70 72 5f 6e 61 6d |.      m|.mpr_nam|
|000028c0| 65 20 3d 20 46 55 4c 4c | 50 41 54 48 28 27 61 70 |e = FULL|PATH('ap|
|000028d0| 70 6d 65 6e 75 2e 6d 70 | 72 27 29 0d 0a 20 20 20 |pmenu.mp|r')..   |
|000028e0| 20 20 20 43 4f 50 59 20 | 46 49 4c 45 20 61 70 70 |   COPY |FILE app|
|000028f0| 6d 65 6e 75 2e 70 72 67 | 20 54 4f 20 26 6d 70 72 |menu.prg| TO &mpr|
|00002900| 5f 6e 61 6d 65 0d 0a 20 | 20 20 43 41 53 45 20 46 |_name.. |  CASE F|
|00002910| 49 4c 45 28 27 46 4f 58 | 41 50 50 5c 4d 45 4e 55 |ILE('FOX|APP\MENU|
|00002920| 53 5c 41 50 50 4d 45 4e | 55 2e 50 52 47 27 29 20 |S\APPMEN|U.PRG') |
|00002930| 41 4e 44 20 46 49 4c 45 | 28 27 46 4f 58 41 50 50 |AND FILE|('FOXAPP|
|00002940| 5c 4d 45 4e 55 53 5c 41 | 50 50 4d 45 4e 55 2e 4d |\MENUS\A|PPMENU.M|
|00002950| 50 52 27 29 0d 0a 20 20 | 20 20 20 20 6d 2e 6d 70 |PR')..  |    m.mp|
|00002960| 72 5f 6e 61 6d 65 20 3d | 20 46 55 4c 4c 50 41 54 |r_name =| FULLPAT|
|00002970| 48 28 27 46 4f 58 41 50 | 50 5c 4d 45 4e 55 53 5c |H('FOXAP|P\MENUS\|
|00002980| 41 50 50 4d 45 4e 55 2e | 4d 50 52 27 29 0d 0a 20 |APPMENU.|MPR').. |
|00002990| 20 20 20 20 20 43 4f 50 | 59 20 46 49 4c 45 20 66 |     COP|Y FILE f|
|000029a0| 6f 78 61 70 70 5c 4d 45 | 4e 55 53 5c 61 70 70 6d |oxapp\ME|NUS\appm|
|000029b0| 65 6e 75 2e 70 72 67 20 | 54 4f 20 26 6d 70 72 5f |enu.prg |TO &mpr_|
|000029c0| 6e 61 6d 65 0d 0a 20 20 | 20 45 4e 44 43 41 53 45 |name..  | ENDCASE|
|000029d0| 0d 0a 45 4c 53 45 0d 0a | 20 20 20 49 46 20 46 49 |..ELSE..|   IF FI|
|000029e0| 4c 45 28 27 4d 45 4e 55 | 53 5c 41 50 50 4d 45 4e |LE('MENU|S\APPMEN|
|000029f0| 55 2e 50 52 47 27 29 20 | 41 4e 44 20 46 49 4c 45 |U.PRG') |AND FILE|
|00002a00| 28 27 4d 45 4e 55 53 5c | 41 50 50 4d 45 4e 55 2e |('MENUS\|APPMENU.|
|00002a10| 4d 50 52 27 29 0d 0a 20 | 20 20 20 20 20 6d 2e 6d |MPR').. |     m.m|
|00002a20| 70 72 5f 6e 61 6d 65 20 | 3d 20 46 55 4c 4c 50 41 |pr_name |= FULLPA|
|00002a30| 54 48 28 27 4d 45 4e 55 | 53 5c 41 50 50 4d 45 4e |TH('MENU|S\APPMEN|
|00002a40| 55 2e 4d 50 52 27 29 0d | 0a 20 20 20 20 20 20 44 |U.MPR').|.      D|
|00002a50| 45 4c 45 54 45 20 46 49 | 4c 45 20 26 6d 70 72 5f |ELETE FI|LE &mpr_|
|00002a60| 6e 61 6d 65 0d 0a 20 20 | 20 45 4e 44 49 46 0d 0a |name..  | ENDIF..|
|00002a70| 20 20 20 49 46 20 46 49 | 4c 45 28 27 61 70 70 6d |   IF FI|LE('appm|
|00002a80| 65 6e 75 2e 70 72 67 27 | 29 20 41 4e 44 20 46 49 |enu.prg'|) AND FI|
|00002a90| 4c 45 28 27 61 70 70 6d | 65 6e 75 2e 6d 70 72 27 |LE('appm|enu.mpr'|
|00002aa0| 29 0d 0a 20 20 20 20 20 | 20 6d 2e 6d 70 72 5f 6e |)..     | m.mpr_n|
|00002ab0| 61 6d 65 20 3d 20 46 55 | 4c 4c 50 41 54 48 28 27 |ame = FU|LLPATH('|
|00002ac0| 61 70 70 6d 65 6e 75 2e | 6d 70 72 27 29 0d 0a 20 |appmenu.|mpr').. |
|00002ad0| 20 20 20 20 20 44 45 4c | 45 54 45 20 46 49 4c 45 |     DEL|ETE FILE|
|00002ae0| 20 26 6d 70 72 5f 6e 61 | 6d 65 0d 0a 20 20 20 45 | &mpr_na|me..   E|
|00002af0| 4e 44 49 46 0d 0a 20 20 | 20 49 46 20 46 49 4c 45 |NDIF..  | IF FILE|
|00002b00| 28 27 46 4f 58 41 50 50 | 5c 4d 45 4e 55 53 5c 41 |('FOXAPP|\MENUS\A|
|00002b10| 50 50 4d 45 4e 55 2e 50 | 52 47 27 29 20 41 4e 44 |PPMENU.P|RG') AND|
|00002b20| 20 46 49 4c 45 28 27 46 | 4f 58 41 50 50 5c 4d 45 | FILE('F|OXAPP\ME|
|00002b30| 4e 55 53 5c 41 50 50 4d | 45 4e 55 2e 4d 50 52 27 |NUS\APPM|ENU.MPR'|
|00002b40| 29 0d 0a 20 20 20 20 20 | 20 6d 2e 6d 70 72 5f 6e |)..     | m.mpr_n|
|00002b50| 61 6d 65 20 3d 20 46 55 | 4c 4c 50 41 54 48 28 27 |ame = FU|LLPATH('|
|00002b60| 46 4f 58 41 50 50 5c 4d | 45 4e 55 53 5c 41 50 50 |FOXAPP\M|ENUS\APP|
|00002b70| 4d 45 4e 55 2e 4d 50 52 | 27 29 0d 0a 20 20 20 20 |MENU.MPR|')..    |
|00002b80| 20 20 44 45 4c 45 54 45 | 20 46 49 4c 45 20 26 6d |  DELETE| FILE &m|
|00002b90| 70 72 5f 6e 61 6d 65 0d | 0a 20 20 20 45 4e 44 49 |pr_name.|.   ENDI|
|00002ba0| 46 0d 0a 20 20 20 2a 20 | 47 65 74 20 74 68 65 20 |F..   * |Get the |
|00002bb0| 4d 50 58 20 66 69 6c 65 | 73 20 74 6f 6f 0d 0a 20 |MPX file|s too.. |
|00002bc0| 20 20 49 46 20 46 49 4c | 45 28 27 4d 45 4e 55 53 |  IF FIL|E('MENUS|
|00002bd0| 5c 41 50 50 4d 45 4e 55 | 2e 50 52 47 27 29 20 41 |\APPMENU|.PRG') A|
|00002be0| 4e 44 20 46 49 4c 45 28 | 27 4d 45 4e 55 53 5c 41 |ND FILE(|'MENUS\A|
|00002bf0| 50 50 4d 45 4e 55 2e 4d | 50 58 27 29 0d 0a 20 20 |PPMENU.M|PX')..  |
|00002c00| 20 20 20 20 6d 2e 6d 70 | 78 5f 6e 61 6d 65 20 3d |    m.mp|x_name =|
|00002c10| 20 46 55 4c 4c 50 41 54 | 48 28 27 4d 45 4e 55 53 | FULLPAT|H('MENUS|
|00002c20| 5c 41 50 50 4d 45 4e 55 | 2e 4d 50 58 27 29 0d 0a |\APPMENU|.MPX')..|
|00002c30| 20 20 20 20 20 20 44 45 | 4c 45 54 45 20 46 49 4c |      DE|LETE FIL|
|00002c40| 45 20 26 6d 70 78 5f 6e | 61 6d 65 0d 0a 20 20 20 |E &mpx_n|ame..   |
|00002c50| 45 4e 44 49 46 0d 0a 20 | 20 20 49 46 20 46 49 4c |ENDIF.. |  IF FIL|
|00002c60| 45 28 27 61 70 70 6d 65 | 6e 75 2e 70 72 67 27 29 |E('appme|nu.prg')|
|00002c70| 20 41 4e 44 20 46 49 4c | 45 28 27 61 70 70 6d 65 | AND FIL|E('appme|
|00002c80| 6e 75 2e 4d 50 58 27 29 | 0d 0a 20 20 20 20 20 20 |nu.MPX')|..      |
|00002c90| 6d 2e 6d 70 78 5f 6e 61 | 6d 65 20 3d 20 46 55 4c |m.mpx_na|me = FUL|
|00002ca0| 4c 50 41 54 48 28 27 61 | 70 70 6d 65 6e 75 2e 4d |LPATH('a|ppmenu.M|
|00002cb0| 50 58 27 29 0d 0a 20 20 | 20 20 20 20 44 45 4c 45 |PX')..  |    DELE|
|00002cc0| 54 45 20 46 49 4c 45 20 | 26 6d 70 78 5f 6e 61 6d |TE FILE |&mpx_nam|
|00002cd0| 65 0d 0a 20 20 20 45 4e | 44 49 46 0d 0a 20 20 20 |e..   EN|DIF..   |
|00002ce0| 49 46 20 46 49 4c 45 28 | 27 46 4f 58 41 50 50 5c |IF FILE(|'FOXAPP\|
|00002cf0| 4d 45 4e 55 53 5c 41 50 | 50 4d 45 4e 55 2e 50 52 |MENUS\AP|PMENU.PR|
|00002d00| 47 27 29 20 41 4e 44 20 | 46 49 4c 45 28 27 46 4f |G') AND |FILE('FO|
|00002d10| 58 41 50 50 5c 4d 45 4e | 55 53 5c 41 50 50 4d 45 |XAPP\MEN|US\APPME|
|00002d20| 4e 55 2e 4d 50 58 27 29 | 0d 0a 20 20 20 20 20 20 |NU.MPX')|..      |
|00002d30| 6d 2e 6d 70 78 5f 6e 61 | 6d 65 20 3d 20 46 55 4c |m.mpx_na|me = FUL|
|00002d40| 4c 50 41 54 48 28 27 46 | 4f 58 41 50 50 5c 4d 45 |LPATH('F|OXAPP\ME|
|00002d50| 4e 55 53 5c 41 50 50 4d | 45 4e 55 2e 4d 50 58 27 |NUS\APPM|ENU.MPX'|
|00002d60| 29 0d 0a 20 20 20 20 20 | 20 44 45 4c 45 54 45 20 |)..     | DELETE |
|00002d70| 46 49 4c 45 20 26 6d 70 | 78 5f 6e 61 6d 65 0d 0a |FILE &mp|x_name..|
|00002d80| 20 20 20 45 4e 44 49 46 | 0d 0a 45 4e 44 49 46 0d |   ENDIF|..ENDIF.|
|00002d90| 0a 0d 0a 2a 20 44 69 73 | 61 62 6c 65 20 74 68 65 |...* Dis|able the|
|00002da0| 20 57 69 6e 64 6f 77 20 | 70 61 64 20 77 68 69 6c | Window |pad whil|
|00002db0| 65 20 77 65 27 72 65 20 | 69 6e 20 74 68 65 20 67 |e we're |in the g|
|00002dc0| 65 6e 65 72 61 74 69 6f | 6e 20 64 69 61 6c 6f 67 |eneratio|n dialog|
|00002dd0| 2e 0d 0a 53 45 54 20 53 | 4b 49 50 20 4f 46 20 50 |...SET S|KIP OF P|
|00002de0| 41 44 20 5f 6d 73 6d 5f | 77 69 6e 64 6f 20 4f 46 |AD _msm_|windo OF|
|00002df0| 20 5f 6d 73 79 73 6d 65 | 6e 75 20 2e 54 2e 0d 0a | _msysme|nu .T...|
|00002e00| 6d 2e 71 75 69 74 74 69 | 6e 67 20 3d 20 2e 46 2e |m.quitti|ng = .F.|
|00002e10| 20 20 20 26 26 20 73 65 | 74 20 62 79 20 63 61 6e |   && se|t by can|
|00002e20| 63 65 6c 20 62 75 74 74 | 6f 6e 0d 0a 0d 0a 32 13 |cel butt|on....2.|
|00002e30| 10 2a 49 05 00 4c 00 00 | 00 13 00 00 00 00 00 0a |.*I..L..|........|
|00002e40| 00 62 14 80 32 d8 15 00 | 00 00 01 00 00 a5 42 2a |.b..2...|......B*|
|00002e50| 20 43 6c 65 61 6e 75 70 | 20 63 6f 64 65 20 74 6f | Cleanup| code to|
|00002e60| 20 63 6f 6e 73 74 72 75 | 63 74 20 43 44 58 20 66 | constru|ct CDX f|
|00002e70| 69 6c 65 20 61 6e 64 20 | 73 74 61 72 74 20 74 68 |ile and |start th|
|00002e80| 65 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 0d 0a 0d |e applic|ation...|
|00002e90| 0a 2a 20 49 66 20 63 61 | 6e 63 65 6c 20 62 75 74 |.* If ca|ncel but|
|00002ea0| 74 6f 6e 20 70 72 65 73 | 73 65 64 2c 20 71 75 69 |ton pres|sed, qui|
|00002eb0| 74 20 6e 6f 77 0d 0a 49 | 46 20 6d 2e 71 75 69 74 |t now..I|F m.quit|
|00002ec0| 74 69 6e 67 0d 0a 20 20 | 20 44 4f 20 63 6c 6f 73 |ting..  | DO clos|
|00002ed0| 65 5f 75 70 0d 0a 45 4e | 44 49 46 0d 0a 0d 0a 2a |e_up..EN|DIF....*|
|00002ee0| 20 54 68 69 73 20 53 45 | 54 20 54 41 4c 4b 20 4f | This SE|T TALK O|
|00002ef0| 46 46 20 69 73 20 6e 65 | 63 65 73 73 61 72 79 20 |FF is ne|cessary |
|00002f00| 62 65 63 61 75 73 65 20 | 74 68 65 20 73 63 72 65 |because |the scre|
|00002f10| 65 6e 20 67 65 6e 65 72 | 61 74 6f 72 20 72 65 73 |en gener|ator res|
|00002f20| 74 6f 72 65 73 0d 0a 2a | 20 74 68 65 20 6f 72 69 |tores..*| the ori|
|00002f30| 67 69 6e 61 6c 20 54 41 | 4c 4b 20 73 65 74 74 69 |ginal TA|LK setti|
|00002f40| 6e 67 20 62 65 66 6f 72 | 65 20 65 78 65 63 75 74 |ng befor|e execut|
|00002f50| 69 6e 67 20 74 68 65 20 | 63 6c 65 61 6e 75 70 20 |ing the |cleanup |
|00002f60| 73 6e 69 70 70 65 74 2e | 0d 0a 53 45 54 20 54 41 |snippet.|..SET TA|
|00002f70| 4c 4b 20 4f 46 46 0d 0a | 6d 2e 73 63 78 6e 61 6d |LK OFF..|m.scxnam|
|00002f80| 65 20 3d 20 41 4c 4c 54 | 52 49 4d 28 55 50 50 45 |e = ALLT|RIM(UPPE|
|00002f90| 52 28 6d 2e 73 63 78 6e | 61 6d 65 29 29 0d 0a 6d |R(m.scxn|ame))..m|
|00002fa0| 2e 64 62 66 6e 61 6d 65 | 20 3d 20 41 4c 4c 54 52 |.dbfname| = ALLTR|
|00002fb0| 49 4d 28 55 50 50 45 52 | 28 6d 2e 64 62 66 6e 61 |IM(UPPER|(m.dbfna|
|00002fc0| 6d 65 29 29 0d 0a 49 46 | 20 21 46 49 4c 45 28 6d |me))..IF| !FILE(m|
|00002fd0| 2e 73 63 78 6e 61 6d 65 | 29 0d 0a 20 20 20 57 41 |.scxname|)..   WA|
|00002fe0| 49 54 20 57 49 4e 44 4f | 57 20 22 54 68 65 20 73 |IT WINDO|W "The s|
|00002ff0| 63 72 65 65 6e 20 66 69 | 6c 65 20 69 73 20 6d 69 |creen fi|le is mi|
|00003000| 73 73 69 6e 67 2e 22 0d | 0a 20 20 20 44 4f 20 63 |ssing.".|.   DO c|
|00003010| 6c 6f 73 65 5f 75 70 0d | 0a 45 4e 44 49 46 0d 0a |lose_up.|.ENDIF..|
|00003020| 49 46 20 21 46 49 4c 45 | 28 6d 2e 64 62 66 6e 61 |IF !FILE|(m.dbfna|
|00003030| 6d 65 29 0d 0a 20 20 20 | 57 41 49 54 20 57 49 4e |me)..   |WAIT WIN|
|00003040| 44 4f 57 20 22 54 68 65 | 20 64 61 74 61 62 61 73 |DOW "The| databas|
|00003050| 65 20 66 69 6c 65 20 69 | 73 20 6d 69 73 73 69 6e |e file i|s missin|
|00003060| 67 2e 22 0d 0a 20 20 20 | 44 4f 20 63 6c 6f 73 65 |g."..   |DO close|
|00003070| 5f 75 70 0d 0a 45 4e 44 | 49 46 0d 0a 0d 0a 2a 20 |_up..END|IF....* |
|00003080| 49 6e 76 65 72 74 20 74 | 68 65 20 64 61 74 61 62 |Invert t|he datab|
|00003090| 61 73 65 20 69 66 20 74 | 68 65 72 65 20 69 73 6e |ase if t|here isn|
|000030a0| 27 74 20 61 20 43 44 58 | 20 66 69 6c 65 20 70 72 |'t a CDX| file pr|
|000030b0| 65 73 65 6e 74 20 61 6c | 72 65 61 64 79 0d 0a 6d |esent al|ready..m|
|000030c0| 2e 69 6e 76 73 74 65 6d | 20 3d 20 6a 75 73 74 73 |.invstem| = justs|
|000030d0| 74 65 6d 28 6d 2e 64 62 | 66 6e 61 6d 65 29 0d 0a |tem(m.db|fname)..|
|000030e0| 6d 2e 63 64 78 6e 61 6d | 65 20 3d 20 66 6f 72 63 |m.cdxnam|e = forc|
|000030f0| 65 65 78 74 28 6d 2e 64 | 62 66 6e 61 6d 65 2c 27 |eext(m.d|bfname,'|
|00003100| 43 44 58 27 29 0d 0a 49 | 46 20 46 49 4c 45 28 6d |CDX')..I|F FILE(m|
|00003110| 2e 63 64 78 6e 61 6d 65 | 29 0d 0a 20 20 20 49 46 |.cdxname|)..   IF|
|00003120| 20 55 53 45 44 28 6d 2e | 69 6e 76 73 74 65 6d 29 | USED(m.|invstem)|
|00003130| 0d 0a 20 20 20 20 20 20 | 53 45 4c 45 43 54 20 28 |..      |SELECT (|
|00003140| 6d 2e 69 6e 76 73 74 65 | 6d 29 0d 0a 20 20 20 45 |m.invste|m)..   E|
|00003150| 4c 53 45 0d 0a 20 20 20 | 20 20 20 53 45 4c 45 43 |LSE..   |   SELEC|
|00003160| 54 20 30 0d 0a 20 20 20 | 20 20 20 55 53 45 20 28 |T 0..   |   USE (|
|00003170| 4c 4f 43 46 49 4c 45 28 | 6d 2e 64 62 66 6e 61 6d |LOCFILE(|m.dbfnam|
|00003180| 65 2c 27 44 42 46 27 2c | 27 4c 6f 63 61 74 65 20 |e,'DBF',|'Locate |
|00003190| 27 2b 6d 2e 64 62 66 6e | 61 6d 65 2b 27 20 70 6c |'+m.dbfn|ame+' pl|
|000031a0| 65 61 73 65 27 29 29 0d | 0a 20 20 20 45 4e 44 49 |ease')).|.   ENDI|
|000031b0| 46 0d 0a 0d 0a 20 20 20 | 2a 20 45 6e 73 75 72 65 |F....   |* Ensure|
|000031c0| 20 74 68 61 74 20 74 68 | 65 20 64 61 74 61 62 61 | that th|e databa|
|000031d0| 73 65 20 69 73 6e 27 74 | 20 65 6d 70 74 79 0d 0a |se isn't| empty..|
|000031e0| 20 20 20 49 46 20 52 45 | 43 43 4f 55 4e 54 28 29 |   IF RE|CCOUNT()|
|000031f0| 20 3d 20 30 0d 0a 20 20 | 20 20 20 20 41 50 50 45 | = 0..  |    APPE|
|00003200| 4e 44 20 42 4c 41 4e 4b | 0d 0a 20 20 20 45 4e 44 |ND BLANK|..   END|
|00003210| 49 46 0d 0a 45 4c 53 45 | 0d 0a 20 20 20 44 4f 20 |IF..ELSE|..   DO |
|00003220| 69 6e 76 65 72 74 20 57 | 49 54 48 20 6d 2e 64 62 |invert W|ITH m.db|
|00003230| 66 6e 61 6d 65 0d 0a 45 | 4e 44 49 46 0d 0a 0d 0a |fname..E|NDIF....|
|00003240| 2a 20 44 69 73 70 6c 61 | 79 20 61 20 6d 65 73 73 |* Displa|y a mess|
|00003250| 61 67 65 20 74 65 6c 6c | 69 6e 67 20 74 68 65 20 |age tell|ing the |
|00003260| 75 73 65 72 20 68 6f 77 | 20 74 6f 20 72 75 6e 20 |user how| to run |
|00003270| 74 68 65 20 0d 0a 2a 20 | 67 65 6e 65 72 61 74 65 |the ..* |generate|
|00003280| 64 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 69 6e |d applic|ation in|
|00003290| 20 74 68 65 20 66 75 74 | 75 72 65 2e 0d 0a 43 4c | the fut|ure...CL|
|000032a0| 45 41 52 20 57 49 4e 44 | 4f 57 0d 0a 47 4f 54 4f |EAR WIND|OW..GOTO|
|000032b0| 20 54 4f 50 0d 0a 43 4c | 45 41 52 0d 0a 0d 0a 6d | TOP..CL|EAR....m|
|000032c0| 2e 66 6e 74 5f 66 61 63 | 65 20 20 3d 20 22 4d 53 |.fnt_fac|e  = "MS|
|000032d0| 20 53 61 6e 73 20 53 65 | 72 69 66 22 0d 0a 6d 2e | Sans Se|rif"..m.|
|000032e0| 66 6e 74 5f 73 69 7a 65 | 20 20 3d 20 38 0d 0a 6d |fnt_size|  = 8..m|
|000032f0| 2e 66 6e 74 5f 73 74 79 | 6c 65 20 3d 20 22 42 22 |.fnt_sty|le = "B"|
|00003300| 0d 0a 0d 0a 2a 20 46 69 | 67 75 72 65 20 6f 75 74 |....* Fi|gure out|
|00003310| 20 68 6f 77 20 62 69 67 | 20 74 68 65 20 70 61 6e | how big| the pan|
|00003320| 65 6c 20 6e 65 65 64 73 | 20 74 6f 20 62 65 20 69 |el needs| to be i|
|00003330| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 73 63 |n the cu|rrent sc|
|00003340| 72 65 65 6e 20 66 6f 6e | 74 0d 0a 6d 2e 74 72 31 |reen fon|t..m.tr1|
|00003350| 20 3d 20 34 20 20 20 20 | 2a 20 46 4f 4e 54 4d 45 | = 4    |* FONTME|
|00003360| 54 52 49 43 28 31 2c 6d | 2e 66 6e 74 5f 66 61 63 |TRIC(1,m|.fnt_fac|
|00003370| 65 2c 20 6d 2e 66 6e 74 | 5f 73 69 7a 65 2c 20 6d |e, m.fnt|_size, m|
|00003380| 2e 66 6e 74 5f 73 74 79 | 6c 65 29 20 3b 0d 0a 20 |.fnt_sty|le) ;.. |
|00003390| 20 20 20 20 20 20 20 20 | 20 20 20 20 2f 20 46 4f |        |    / FO|
|000033a0| 4e 54 4d 45 54 52 49 43 | 28 31 2c 57 46 4f 4e 54 |NTMETRIC|(1,WFONT|
|000033b0| 28 31 2c 22 22 29 2c 57 | 46 4f 4e 54 28 32 2c 22 |(1,""),W|FONT(2,"|
|000033c0| 22 29 2c 57 46 4f 4e 54 | 28 33 2c 22 22 29 29 0d |"),WFONT|(3,"")).|
|000033d0| 0a 6d 2e 74 72 32 20 3d | 20 31 38 20 20 20 2a 20 |.m.tr2 =| 18   * |
|000033e0| 46 4f 4e 54 4d 45 54 52 | 49 43 28 31 2c 6d 2e 66 |FONTMETR|IC(1,m.f|
|000033f0| 6e 74 5f 66 61 63 65 2c | 20 6d 2e 66 6e 74 5f 73 |nt_face,| m.fnt_s|
|00003400| 69 7a 65 2c 20 6d 2e 66 | 6e 74 5f 73 74 79 6c 65 |ize, m.f|nt_style|
|00003410| 29 20 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |) ;..   |        |
|00003420| 20 20 2f 20 46 4f 4e 54 | 4d 45 54 52 49 43 28 31 |  / FONT|METRIC(1|
|00003430| 2c 57 46 4f 4e 54 28 31 | 2c 22 22 29 2c 57 46 4f |,WFONT(1|,""),WFO|
|00003440| 4e 54 28 32 2c 22 22 29 | 2c 57 46 4f 4e 54 28 33 |NT(2,"")|,WFONT(3|
|00003450| 2c 22 22 29 29 0d 0a 6d | 2e 74 63 31 20 3d 20 36 |,""))..m|.tc1 = 6|
|00003460| 20 20 20 20 2a 20 46 4f | 4e 54 4d 45 54 52 49 43 |    * FO|NTMETRIC|
|00003470| 28 31 2c 6d 2e 66 6e 74 | 5f 66 61 63 65 2c 20 6d |(1,m.fnt|_face, m|
|00003480| 2e 66 6e 74 5f 73 69 7a | 65 2c 20 6d 2e 66 6e 74 |.fnt_siz|e, m.fnt|
|00003490| 5f 73 74 79 6c 65 29 20 | 3b 0d 0a 20 20 20 20 20 |_style) |;..     |
|000034a0| 20 20 20 20 20 20 20 20 | 2f 20 46 4f 4e 54 4d 45 |        |/ FONTME|
|000034b0| 54 52 49 43 28 31 2c 57 | 46 4f 4e 54 28 31 2c 22 |TRIC(1,W|FONT(1,"|
|000034c0| 22 29 2c 57 46 4f 4e 54 | 28 32 2c 22 22 29 2c 57 |"),WFONT|(2,""),W|
|000034d0| 46 4f 4e 54 28 33 2c 22 | 22 29 29 0d 0a 6d 2e 74 |FONT(3,"|"))..m.t|
|000034e0| 63 32 20 3d 20 36 36 20 | 20 20 2a 20 46 4f 4e 54 |c2 = 66 |  * FONT|
|000034f0| 4d 45 54 52 49 43 28 31 | 2c 6d 2e 66 6e 74 5f 66 |METRIC(1|,m.fnt_f|
|00003500| 61 63 65 2c 20 6d 2e 66 | 6e 74 5f 73 69 7a 65 2c |ace, m.f|nt_size,|
|00003510| 20 6d 2e 66 6e 74 5f 73 | 74 79 6c 65 29 20 3b 0d | m.fnt_s|tyle) ;.|
|00003520| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2f 20 |.       |      / |
|00003530| 46 4f 4e 54 4d 45 54 52 | 49 43 28 31 2c 57 46 4f |FONTMETR|IC(1,WFO|
|00003540| 4e 54 28 31 2c 22 22 29 | 2c 57 46 4f 4e 54 28 32 |NT(1,"")|,WFONT(2|
|00003550| 2c 22 22 29 2c 57 46 4f | 4e 54 28 33 2c 22 22 29 |,""),WFO|NT(3,"")|
|00003560| 29 0d 0a 0d 0a 44 4f 20 | 70 75 74 70 61 6e 65 6c |)....DO |putpanel|
|00003570| 20 57 49 54 48 20 22 61 | 70 70 64 6f 63 22 2c 2e | WITH "a|ppdoc",.|
|00003580| 54 2e 2c 6d 2e 74 72 31 | 2c 6d 2e 74 63 31 2c 6d |T.,m.tr1|,m.tc1,m|
|00003590| 2e 74 72 32 2c 6d 2e 74 | 63 32 2c 2e 35 2c 2e 37 |.tr2,m.t|c2,.5,.7|
|000035a0| 0d 0a 0d 0a 53 45 54 20 | 43 55 52 53 4f 52 20 4f |....SET |CURSOR O|
|000035b0| 46 46 0d 0a 6d 2e 69 6e | 5f 77 72 61 70 20 3d 20 |FF..m.in|_wrap = |
|000035c0| 5f 57 52 41 50 0d 0a 6d | 2e 69 6e 5f 6c 6d 61 72 |_WRAP..m|.in_lmar|
|000035d0| 67 69 6e 20 3d 20 5f 4c | 4d 41 52 47 49 4e 0d 0a |gin = _L|MARGIN..|
|000035e0| 6d 2e 69 6e 5f 72 6d 61 | 72 67 69 6e 20 3d 20 5f |m.in_rma|rgin = _|
|000035f0| 52 4d 41 52 47 49 4e 0d | 0a 0d 0a 0d 0a 40 20 20 |RMARGIN.|.....@  |
|00003600| 33 2c 31 20 53 41 59 20 | 27 20 20 20 46 6f 78 41 |3,1 SAY |'   FoxA|
|00003610| 70 70 20 68 61 73 20 63 | 72 65 61 74 65 64 20 61 |pp has c|reated a|
|00003620| 6e 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 6e 61 |n applic|ation na|
|00003630| 6d 65 64 20 27 2b 6a 75 | 73 74 66 6e 61 6d 65 28 |med '+ju|stfname(|
|00003640| 6d 2e 61 70 70 66 69 6c | 65 29 20 3b 0d 0a 20 20 |m.appfil|e) ;..  |
|00003650| 20 46 4f 4e 54 20 6d 2e | 66 6e 74 5f 66 61 63 65 | FONT m.|fnt_face|
|00003660| 2c 6d 2e 66 6e 74 5f 73 | 69 7a 65 20 53 54 59 4c |,m.fnt_s|ize STYL|
|00003670| 45 20 6d 2e 66 6e 74 5f | 73 74 79 6c 65 0d 0a 40 |E m.fnt_|style..@|
|00003680| 20 20 34 2c 31 20 53 41 | 59 20 27 20 20 20 69 6e |  4,1 SA|Y '   in|
|00003690| 20 74 68 65 20 27 2b 6a | 75 73 74 70 61 74 68 28 | the '+j|ustpath(|
|000036a0| 6d 2e 61 70 70 66 69 6c | 65 29 2b 27 20 64 69 72 |m.appfil|e)+' dir|
|000036b0| 65 63 74 6f 72 79 2e 27 | 20 3b 0d 0a 20 20 20 46 |ectory.'| ;..   F|
|000036c0| 4f 4e 54 20 6d 2e 66 6e | 74 5f 66 61 63 65 2c 6d |ONT m.fn|t_face,m|
|000036d0| 2e 66 6e 74 5f 73 69 7a | 65 20 53 54 59 4c 45 20 |.fnt_siz|e STYLE |
|000036e0| 6d 2e 66 6e 74 5f 73 74 | 79 6c 65 0d 0a 0d 0a 40 |m.fnt_st|yle....@|
|000036f0| 20 20 36 2c 31 20 53 41 | 59 20 27 20 20 20 59 6f |  6,1 SA|Y '   Yo|
|00003700| 75 20 63 61 6e 20 72 75 | 6e 20 79 6f 75 72 20 61 |u can ru|n your a|
|00003710| 70 70 6c 69 63 61 74 69 | 6f 6e 20 6e 6f 77 20 62 |pplicati|on now b|
|00003720| 79 20 70 72 65 73 73 69 | 6e 67 20 61 6e 79 20 6b |y pressi|ng any k|
|00003730| 65 79 2e 27 20 3b 0d 0a | 20 20 20 46 4f 4e 54 20 |ey.' ;..|   FONT |
|00003740| 6d 2e 66 6e 74 5f 66 61 | 63 65 2c 6d 2e 66 6e 74 |m.fnt_fa|ce,m.fnt|
|00003750| 5f 73 69 7a 65 20 53 54 | 59 4c 45 20 6d 2e 66 6e |_size ST|YLE m.fn|
|00003760| 74 5f 73 74 79 6c 65 0d | 0a 40 20 20 37 2c 31 20 |t_style.|.@  7,1 |
|00003770| 53 41 59 20 27 20 20 20 | 54 6f 20 72 75 6e 20 69 |SAY '   |To run i|
|00003780| 74 20 69 6e 20 74 68 65 | 20 66 75 74 75 72 65 2c |t in the| future,|
|00003790| 20 73 69 6d 70 6c 79 20 | 73 65 6c 65 63 74 20 22 | simply |select "|
|000037a0| 41 70 70 6c 69 63 61 74 | 69 6f 6e 22 27 20 3b 0d |Applicat|ion"' ;.|
|000037b0| 0a 20 20 20 46 4f 4e 54 | 20 6d 2e 66 6e 74 5f 66 |.   FONT| m.fnt_f|
|000037c0| 61 63 65 2c 6d 2e 66 6e | 74 5f 73 69 7a 65 20 53 |ace,m.fn|t_size S|
|000037d0| 54 59 4c 45 20 6d 2e 66 | 6e 74 5f 73 74 79 6c 65 |TYLE m.f|nt_style|
|000037e0| 0d 0a 40 20 20 38 2c 31 | 20 53 41 59 20 27 20 20 |..@  8,1| SAY '  |
|000037f0| 20 66 72 6f 6d 20 74 68 | 65 20 52 55 4e 20 6d 65 | from th|e RUN me|
|00003800| 6e 75 2c 20 6f 72 20 65 | 6e 74 65 72 20 46 6f 78 |nu, or e|nter Fox|
|00003810| 50 72 6f 20 61 6e 64 20 | 74 79 70 65 3a 27 20 3b |Pro and |type:' ;|
|00003820| 0d 0a 20 20 20 46 4f 4e | 54 20 6d 2e 66 6e 74 5f |..   FON|T m.fnt_|
|00003830| 66 61 63 65 2c 6d 2e 66 | 6e 74 5f 73 69 7a 65 20 |face,m.f|nt_size |
|00003840| 53 54 59 4c 45 20 6d 2e | 66 6e 74 5f 73 74 79 6c |STYLE m.|fnt_styl|
|00003850| 65 0d 0a 40 20 20 39 2c | 31 20 53 41 59 20 27 20 |e..@  9,|1 SAY ' |
|00003860| 20 20 20 20 20 53 45 54 | 20 44 45 46 41 55 4c 54 |     SET| DEFAULT|
|00003870| 20 54 4f 20 27 2b 6a 75 | 73 74 70 61 74 68 28 6d | TO '+ju|stpath(m|
|00003880| 2e 61 70 70 66 69 6c 65 | 29 20 3b 0d 0a 20 20 20 |.appfile|) ;..   |
|00003890| 46 4f 4e 54 20 6d 2e 66 | 6e 74 5f 66 61 63 65 2c |FONT m.f|nt_face,|
|000038a0| 6d 2e 66 6e 74 5f 73 69 | 7a 65 20 53 54 59 4c 45 |m.fnt_si|ze STYLE|
|000038b0| 20 6d 2e 66 6e 74 5f 73 | 74 79 6c 65 0d 0a 40 20 | m.fnt_s|tyle..@ |
|000038c0| 31 30 2c 31 20 53 41 59 | 20 27 20 20 20 20 20 20 |10,1 SAY| '      |
|000038d0| 44 4f 20 27 2b 6a 75 73 | 74 66 6e 61 6d 65 28 6d |DO '+jus|tfname(m|
|000038e0| 2e 61 70 70 66 69 6c 65 | 29 20 3b 0d 0a 20 20 20 |.appfile|) ;..   |
|000038f0| 46 4f 4e 54 20 6d 2e 66 | 6e 74 5f 66 61 63 65 2c |FONT m.f|nt_face,|
|00003900| 6d 2e 66 6e 74 5f 73 69 | 7a 65 20 53 54 59 4c 45 |m.fnt_si|ze STYLE|
|00003910| 20 6d 2e 66 6e 74 5f 73 | 74 79 6c 65 0d 0a 0d 0a | m.fnt_s|tyle....|
|00003920| 57 41 49 54 20 57 49 4e | 44 4f 57 20 22 50 72 65 |WAIT WIN|DOW "Pre|
|00003930| 73 73 20 61 6e 79 20 6b | 65 79 20 74 6f 20 73 74 |ss any k|ey to st|
|00003940| 61 72 74 20 79 6f 75 72 | 20 61 70 70 6c 69 63 61 |art your| applica|
|00003950| 74 69 6f 6e 2e 22 0d 0a | 0d 0a 2a 20 52 65 73 74 |tion."..|..* Rest|
|00003960| 6f 72 65 20 6d 61 72 67 | 69 6e 20 61 6e 64 20 77 |ore marg|in and w|
|00003970| 72 61 70 20 73 65 74 74 | 69 6e 67 73 20 74 0d 0a |rap sett|ings t..|
|00003980| 5f 57 52 41 50 20 3d 20 | 6d 2e 69 6e 5f 77 72 61 |_WRAP = |m.in_wra|
|00003990| 70 0d 0a 5f 52 4d 41 52 | 47 49 4e 20 3d 20 6d 2e |p.._RMAR|GIN = m.|
|000039a0| 69 6e 5f 72 6d 61 72 67 | 69 6e 0d 0a 5f 4c 4d 41 |in_rmarg|in.._LMA|
|000039b0| 52 47 49 4e 20 3d 20 6d | 2e 69 6e 5f 6c 6d 61 72 |RGIN = m|.in_lmar|
|000039c0| 67 69 6e 0d 0a 0d 0a 52 | 45 4c 45 41 53 45 20 57 |gin....R|ELEASE W|
|000039d0| 49 4e 44 4f 57 20 61 70 | 70 64 6f 63 0d 0a 53 45 |INDOW ap|pdoc..SE|
|000039e0| 54 20 43 55 52 53 4f 52 | 20 4f 4e 0d 0a 0d 0a 2a |T CURSOR| ON....*|
|000039f0| 20 52 65 6c 65 61 73 65 | 20 50 55 42 4c 49 43 20 | Release| PUBLIC |
|00003a00| 76 61 72 69 61 62 6c 65 | 73 20 74 68 61 74 20 61 |variable|s that a|
|00003a10| 72 65 20 6e 6f 20 6c 6f | 6e 67 65 72 20 6e 65 65 |re no lo|nger nee|
|00003a20| 64 65 64 0d 0a 52 45 4c | 45 41 53 45 20 73 63 78 |ded..REL|EASE scx|
|00003a30| 6e 61 6d 65 2c 20 64 62 | 66 6e 61 6d 65 2c 20 69 |name, db|fname, i|
|00003a40| 6e 76 6e 61 6d 65 2c 20 | 63 64 78 6e 61 6d 65 2c |nvname, |cdxname,|
|00003a50| 20 72 65 70 6e 61 6d 65 | 2c 20 74 6d 66 6e 61 6d | repname|, tmfnam|
|00003a60| 65 0d 0a 52 45 4c 45 41 | 53 45 20 62 61 69 6c 6f |e..RELEA|SE bailo|
|00003a70| 75 74 2c 20 73 6b 69 70 | 64 62 66 62 75 74 2c 20 |ut, skip|dbfbut, |
|00003a80| 6f 72 69 67 6e 61 6d 65 | 2c 20 64 62 66 6c 69 73 |origname|, dbflis|
|00003a90| 74 2c 20 6d 6e 75 6e 61 | 6d 65 0d 0a 0d 0a 43 4c |t, mnuna|me....CL|
|00003aa0| 4f 53 45 20 44 41 54 41 | 42 41 53 45 53 0d 0a 0d |OSE DATA|BASES...|
|00003ab0| 0a 43 4c 45 41 52 20 50 | 52 4f 47 52 41 4d 0d 0a |.CLEAR P|ROGRAM..|
|00003ac0| 0d 0a 50 4f 50 20 4d 45 | 4e 55 20 5f 6d 73 79 73 |..POP ME|NU _msys|
|00003ad0| 6d 65 6e 75 0d 0a 0d 0a | 2a 20 41 70 70 73 68 65 |menu....|* Appshe|
|00003ae0| 6c 6c 20 73 74 61 72 74 | 73 20 74 68 65 20 6d 2e |ll start|s the m.|
|00003af0| 61 70 70 66 69 6c 65 20 | 61 70 70 6c 69 63 61 74 |appfile |applicat|
|00003b00| 69 6f 6e 2e 20 20 55 70 | 6f 6e 20 72 65 74 75 72 |ion.  Up|on retur|
|00003b10| 6e 20 66 72 6f 6d 20 6d | 2e 61 70 70 66 69 6c 65 |n from m|.appfile|
|00003b20| 2c 0d 0a 2a 20 69 74 20 | 70 72 6f 6d 70 74 73 20 |,..* it |prompts |
|00003b30| 66 6f 72 20 61 6e 6f 74 | 68 65 72 20 61 70 70 6c |for anot|her appl|
|00003b40| 69 63 61 74 69 6f 6e 20 | 74 6f 20 72 75 6e 2e 0d |ication |to run..|
|00003b50| 0a 44 4f 20 61 70 70 73 | 68 65 6c 6c 20 57 49 54 |.DO apps|hell WIT|
|00003b60| 48 20 6d 2e 61 70 70 66 | 69 6c 65 0d 0a 0d 0a 44 |H m.appf|ile....D|
|00003b70| 4f 20 63 6c 6f 73 65 5f | 75 70 0d 0a 52 45 54 55 |O close_|up..RETU|
|00003b80| 52 4e 0d 0a 0d 0a 2a 21 | 2a 2a 2a 2a 2a 2a 2a 2a |RN....*!|********|
|00003b90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003ba0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 0a 2a 21 0d 0a 2a |********|*..*!..*|
|00003bd0| 21 20 20 20 20 20 20 50 | 72 6f 63 65 64 75 72 65 |!      P|rocedure|
|00003be0| 3a 20 43 4c 4f 53 45 5f | 55 50 0d 0a 2a 21 0d 0a |: CLOSE_|UP..*!..|
|00003bf0| 2a 21 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*!******|********|
|00003c00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c30| 2a 2a 2a 0d 0a 50 52 4f | 43 45 44 55 52 45 20 63 |***..PRO|CEDURE c|
|00003c40| 6c 6f 73 65 5f 75 70 0d | 0a 2a 20 44 6f 20 63 6c |lose_up.|.* Do cl|
|00003c50| 6f 73 69 6e 67 20 68 6f | 75 73 65 6b 65 65 70 69 |osing ho|usekeepi|
|00003c60| 6e 67 20 66 6f 72 20 46 | 6f 78 41 70 70 2e 0d 0a |ng for F|oxApp...|
|00003c70| 0d 0a 52 45 4c 45 41 53 | 45 20 73 63 78 6e 61 6d |..RELEAS|E scxnam|
|00003c80| 65 2c 20 64 62 66 6e 61 | 6d 65 2c 20 69 6e 76 6e |e, dbfna|me, invn|
|00003c90| 61 6d 65 2c 20 63 64 78 | 6e 61 6d 65 2c 20 72 65 |ame, cdx|name, re|
|00003ca0| 70 6e 61 6d 65 2c 20 74 | 6d 66 6e 61 6d 65 2c 20 |pname, t|mfname, |
|00003cb0| 3b 0d 0a 20 20 20 62 61 | 69 6c 6f 75 74 2c 20 73 |;..   ba|ilout, s|
|00003cc0| 6b 69 70 64 62 66 62 75 | 74 2c 20 6f 72 69 67 6e |kipdbfbu|t, orign|
|00003cd0| 61 6d 65 2c 20 64 62 66 | 6c 69 73 74 2c 20 6d 6e |ame, dbf|list, mn|
|00003ce0| 75 6e 61 6d 65 2c 20 61 | 70 70 66 69 6c 65 0d 0a |uname, a|ppfile..|
|00003cf0| 52 45 4c 45 41 53 45 20 | 6f 72 69 67 64 62 66 6c |RELEASE |origdbfl|
|00003d00| 69 73 74 0d 0a 0d 0a 43 | 4c 4f 53 45 20 44 41 54 |ist....C|LOSE DAT|
|00003d10| 41 42 41 53 45 53 0d 0a | 0d 0a 43 4c 45 41 52 20 |ABASES..|..CLEAR |
|00003d20| 57 49 4e 44 4f 57 0d 0a | 0d 0a 2a 20 52 65 73 74 |WINDOW..|..* Rest|
|00003d30| 6f 72 65 20 74 68 65 20 | 50 55 53 48 2d 65 64 20 |ore the |PUSH-ed |
|00003d40| 73 79 73 74 65 6d 20 6d | 65 6e 75 20 0d 0a 50 4f |system m|enu ..PO|
|00003d50| 50 20 4d 45 4e 55 20 5f | 6d 73 79 73 6d 65 6e 75 |P MENU _|msysmenu|
|00003d60| 0d 0a 0d 0a 43 4c 45 41 | 52 20 50 52 4f 47 52 41 |....CLEA|R PROGRA|
|00003d70| 4d 0d 0a 6d 2e 73 63 72 | 6e 5f 66 6f 6e 74 20 20 |M..m.scr|n_font  |
|00003d80| 20 3d 20 57 46 4f 4e 54 | 28 31 2c 22 22 29 0d 0a | = WFONT|(1,"")..|
|00003d90| 6d 2e 73 63 72 6e 5f 66 | 73 69 7a 65 20 20 3d 20 |m.scrn_f|size  = |
|00003da0| 57 46 4f 4e 54 28 32 2c | 22 22 29 0d 0a 6d 2e 73 |WFONT(2,|"")..m.s|
|00003db0| 63 72 6e 5f 66 73 74 79 | 6c 65 20 3d 20 57 46 4f |crn_fsty|le = WFO|
|00003dc0| 4e 54 28 33 2c 22 22 29 | 0d 0a 4d 4f 44 49 46 59 |NT(3,"")|..MODIFY|
|00003dd0| 20 57 49 4e 44 4f 57 20 | 53 43 52 45 45 4e 20 46 | WINDOW |SCREEN F|
|00003de0| 4f 4e 54 20 6d 2e 73 63 | 72 6e 5f 66 6f 6e 74 2c |ONT m.sc|rn_font,|
|00003df0| 6d 2e 73 63 72 6e 5f 66 | 73 69 7a 65 20 53 54 59 |m.scrn_f|size STY|
|00003e00| 4c 45 20 6d 2e 73 63 72 | 6e 5f 66 73 74 79 6c 65 |LE m.scr|n_fstyle|
|00003e10| 0d 0a 0d 0a 2a 20 52 65 | 73 74 6f 72 65 20 6f 72 |....* Re|store or|
|00003e20| 69 67 69 6e 61 6c 20 4f | 4e 20 45 52 52 4f 52 20 |iginal O|N ERROR |
|00003e30| 26 20 4f 4e 20 45 53 43 | 41 50 45 20 72 6f 75 74 |& ON ESC|APE rout|
|00003e40| 69 6e 65 73 0d 0a 4f 4e | 20 45 52 52 4f 52 20 20 |ines..ON| ERROR  |
|00003e50| 26 61 70 70 5f 65 72 72 | 6f 72 0d 0a 4f 4e 20 45 |&app_err|or..ON E|
|00003e60| 53 43 41 50 45 20 26 61 | 70 70 5f 65 73 63 61 70 |SCAPE &a|pp_escap|
|00003e70| 65 0d 0a 52 45 4c 45 41 | 53 45 20 61 70 70 5f 65 |e..RELEA|SE app_e|
|00003e80| 72 72 6f 72 2c 20 61 70 | 70 5f 65 73 63 61 70 65 |rror, ap|p_escape|
|00003e90| 0d 0a 0d 0a 2a 20 47 65 | 74 20 72 69 64 20 6f 66 |....* Ge|t rid of|
|00003ea0| 20 61 6e 79 20 76 75 65 | 20 66 69 6c 65 73 20 74 | any vue| files t|
|00003eb0| 68 61 74 20 6d 69 67 68 | 74 20 62 65 20 68 61 6e |hat migh|t be han|
|00003ec0| 67 69 6e 67 20 61 72 6f | 75 6e 64 0d 0a 49 46 20 |ging aro|und..IF |
|00003ed0| 46 49 4c 45 28 27 71 70 | 72 76 69 65 77 2e 76 75 |FILE('qp|rview.vu|
|00003ee0| 65 27 29 0d 0a 20 20 20 | 44 45 4c 45 54 45 20 46 |e')..   |DELETE F|
|00003ef0| 49 4c 45 20 71 70 72 76 | 69 65 77 2e 76 75 65 0d |ILE qprv|iew.vue.|
|00003f00| 0a 45 4e 44 49 46 0d 0a | 49 46 20 46 49 4c 45 28 |.ENDIF..|IF FILE(|
|00003f10| 27 61 70 70 76 69 65 77 | 2e 76 75 65 27 29 0d 0a |'appview|.vue')..|
|00003f20| 20 20 20 44 45 4c 45 54 | 45 20 46 49 4c 45 20 61 |   DELET|E FILE a|
|00003f30| 70 70 76 69 65 77 2e 76 | 75 65 0d 0a 45 4e 44 49 |ppview.v|ue..ENDI|
|00003f40| 46 0d 0a 49 46 20 46 49 | 4c 45 28 27 64 62 66 73 |F..IF FI|LE('dbfs|
|00003f50| 65 6c 65 63 2e 76 75 65 | 27 29 0d 0a 20 20 20 44 |elec.vue|')..   D|
|00003f60| 45 4c 45 54 45 20 46 49 | 4c 45 20 64 62 66 73 65 |ELETE FI|LE dbfse|
|00003f70| 6c 65 63 2e 76 75 65 0d | 0a 45 4e 44 49 46 0d 0a |lec.vue.|.ENDIF..|
|00003f80| 49 46 20 46 49 4c 45 28 | 27 66 6f 78 61 70 70 2e |IF FILE(|'foxapp.|
|00003f90| 76 75 65 27 29 0d 0a 20 | 20 20 53 45 54 20 56 49 |vue').. |  SET VI|
|00003fa0| 45 57 20 54 4f 20 66 6f | 78 61 70 70 0d 0a 20 20 |EW TO fo|xapp..  |
|00003fb0| 20 44 45 4c 45 54 45 20 | 46 49 4c 45 20 66 6f 78 | DELETE |FILE fox|
|00003fc0| 61 70 70 2e 76 75 65 0d | 0a 45 4e 44 49 46 0d 0a |app.vue.|.ENDIF..|
|00003fd0| 0d 0a 49 46 20 6d 2e 61 | 70 70 5f 74 61 6c 6b 20 |..IF m.a|pp_talk |
|00003fe0| 3d 20 22 4f 4e 22 0d 0a | 20 20 20 53 45 54 20 54 |= "ON"..|   SET T|
|00003ff0| 41 4c 4b 20 4f 4e 0d 0a | 45 4e 44 49 46 0d 0a 49 |ALK ON..|ENDIF..I|
|00004000| 46 20 6d 2e 61 70 70 5f | 64 65 6c 65 20 3d 20 22 |F m.app_|dele = "|
|00004010| 4f 46 46 22 0d 0a 20 20 | 20 53 45 54 20 44 45 4c |OFF"..  | SET DEL|
|00004020| 45 54 45 44 20 4f 46 46 | 0d 0a 45 4e 44 49 46 0d |ETED OFF|..ENDIF.|
|00004030| 0a 49 46 20 6d 2e 61 70 | 70 5f 73 61 66 65 20 3d |.IF m.ap|p_safe =|
|00004040| 20 22 4f 4e 22 0d 0a 20 | 20 20 53 45 54 20 53 41 | "ON".. |  SET SA|
|00004050| 46 45 54 59 20 4f 4e 0d | 0a 45 4e 44 49 46 0d 0a |FETY ON.|.ENDIF..|
|00004060| 0d 0a 52 45 4c 45 41 53 | 45 20 61 70 70 5f 74 61 |..RELEAS|E app_ta|
|00004070| 6c 6b 2c 20 61 70 70 5f | 73 61 66 65 2c 20 61 70 |lk, app_|safe, ap|
|00004080| 70 5f 64 65 6c 65 2c 20 | 64 62 66 6c 69 73 74 0d |p_dele, |dbflist.|
|00004090| 0a 0d 0a 43 41 4e 43 45 | 4c 0d 0a 0d 0a 2a 21 2a |...CANCE|L....*!*|
|000040a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000040b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000040c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000040d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000040e0| 0d 0a 2a 21 0d 0a 2a 21 | 20 20 20 20 20 20 50 72 |..*!..*!|      Pr|
|000040f0| 6f 63 65 64 75 72 65 3a | 20 43 4f 50 59 50 49 45 |ocedure:| COPYPIE|
|00004100| 43 45 0d 0a 2a 21 0d 0a | 2a 21 2a 2a 2a 2a 2a 2a |CE..*!..|*!******|
|00004110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 0a 50 52 4f |********|***..PRO|
|00004150| 43 45 44 55 52 45 20 63 | 6f 70 79 70 69 65 63 65 |CEDURE c|opypiece|
|00004160| 0d 0a 2a 20 43 6f 70 79 | 20 46 6f 78 41 70 70 20 |..* Copy| FoxApp |
|00004170| 70 69 65 63 65 73 20 74 | 6f 20 70 72 6f 6a 65 63 |pieces t|o projec|
|00004180| 74 20 64 69 72 65 63 74 | 6f 72 79 0d 0a 0d 0a 66 |t direct|ory....f|
|00004190| 78 70 61 74 68 20 3d 20 | 61 64 64 62 73 28 66 6f |xpath = |addbs(fo|
|000041a0| 78 61 70 70 64 69 72 29 | 20 20 20 20 20 20 20 20 |xappdir)|        |
|000041b0| 20 26 26 20 70 72 6f 62 | 61 62 6c 79 20 43 3a 5c | && prob|ably C:\|
|000041c0| 66 6f 78 70 72 6f 32 5c | 66 6f 78 61 70 70 5c 0d |foxpro2\|foxapp\.|
|000041d0| 0a 70 72 6f 6a 64 69 72 | 20 3d 20 61 64 64 62 73 |.projdir| = addbs|
|000041e0| 28 6a 75 73 74 70 61 74 | 68 28 6d 2e 61 70 70 66 |(justpat|h(m.appf|
|000041f0| 69 6c 65 29 29 0d 0a 0d | 0a 3d 70 75 74 6f 75 74 |ile))...|.=putout|
|00004200| 28 27 70 72 67 73 5c 61 | 70 70 70 72 6f 63 2e 70 |('prgs\a|ppproc.p|
|00004210| 72 67 27 2c 6d 2e 66 78 | 70 61 74 68 2c 6d 2e 70 |rg',m.fx|path,m.p|
|00004220| 72 6f 6a 64 69 72 29 0d | 0a 3d 70 75 74 6f 75 74 |rojdir).|.=putout|
|00004230| 28 27 6d 65 6e 75 73 5c | 61 70 70 6d 65 6e 75 2e |('menus\|appmenu.|
|00004240| 6d 6e 78 27 2c 6d 2e 66 | 78 70 61 74 68 2c 6d 2e |mnx',m.f|xpath,m.|
|00004250| 70 72 6f 6a 64 69 72 29 | 0d 0a 3d 70 75 74 6f 75 |projdir)|..=putou|
|00004260| 74 28 27 6d 65 6e 75 73 | 5c 61 70 70 6d 65 6e 75 |t('menus|\appmenu|
|00004270| 2e 6d 6e 74 27 2c 6d 2e | 66 78 70 61 74 68 2c 6d |.mnt',m.|fxpath,m|
|00004280| 2e 70 72 6f 6a 64 69 72 | 29 0d 0a 3d 70 75 74 6f |.projdir|)..=puto|
|00004290| 75 74 28 27 73 63 72 65 | 65 6e 73 5c 67 65 74 64 |ut('scre|ens\getd|
|000042a0| 65 73 74 2e 73 63 78 27 | 2c 6d 2e 66 78 70 61 74 |est.scx'|,m.fxpat|
|000042b0| 68 2c 6d 2e 70 72 6f 6a | 64 69 72 29 0d 0a 3d 70 |h,m.proj|dir)..=p|
|000042c0| 75 74 6f 75 74 28 27 73 | 63 72 65 65 6e 73 5c 67 |utout('s|creens\g|
|000042d0| 65 74 64 65 73 74 2e 73 | 63 74 27 2c 6d 2e 66 78 |etdest.s|ct',m.fx|
|000042e0| 70 61 74 68 2c 6d 2e 70 | 72 6f 6a 64 69 72 29 0d |path,m.p|rojdir).|
|000042f0| 0a 3d 70 75 74 6f 75 74 | 28 27 73 63 72 65 65 6e |.=putout|('screen|
|00004300| 73 5c 67 65 74 6f 72 64 | 65 72 2e 73 63 78 27 2c |s\getord|er.scx',|
|00004310| 6d 2e 66 78 70 61 74 68 | 2c 6d 2e 70 72 6f 6a 64 |m.fxpath|,m.projd|
|00004320| 69 72 29 0d 0a 3d 70 75 | 74 6f 75 74 28 27 73 63 |ir)..=pu|tout('sc|
|00004330| 72 65 65 6e 73 5c 67 65 | 74 6f 72 64 65 72 2e 73 |reens\ge|torder.s|
|00004340| 63 74 27 2c 6d 2e 66 78 | 70 61 74 68 2c 6d 2e 70 |ct',m.fx|path,m.p|
|00004350| 72 6f 6a 64 69 72 29 0d | 0a 3d 70 75 74 6f 75 74 |rojdir).|.=putout|
|00004360| 28 27 73 63 72 65 65 6e | 73 5c 61 70 70 61 62 6f |('screen|s\appabo|
|00004370| 75 74 2e 73 63 78 27 2c | 6d 2e 66 78 70 61 74 68 |ut.scx',|m.fxpath|
|00004380| 2c 6d 2e 70 72 6f 6a 64 | 69 72 29 0d 0a 3d 70 75 |,m.projd|ir)..=pu|
|00004390| 74 6f 75 74 28 27 73 63 | 72 65 65 6e 73 5c 61 70 |tout('sc|reens\ap|
|000043a0| 70 61 62 6f 75 74 2e 73 | 63 74 27 2c 6d 2e 66 78 |pabout.s|ct',m.fx|
|000043b0| 70 61 74 68 2c 6d 2e 70 | 72 6f 6a 64 69 72 29 0d |path,m.p|rojdir).|
|000043c0| 0a 3d 70 75 74 6f 75 74 | 28 27 73 63 72 65 65 6e |.=putout|('screen|
|000043d0| 73 5c 61 70 70 73 72 63 | 68 2e 73 63 78 27 2c 6d |s\appsrc|h.scx',m|
|000043e0| 2e 66 78 70 61 74 68 2c | 6d 2e 70 72 6f 6a 64 69 |.fxpath,|m.projdi|
|000043f0| 72 29 0d 0a 3d 70 75 74 | 6f 75 74 28 27 73 63 72 |r)..=put|out('scr|
|00004400| 65 65 6e 73 5c 61 70 70 | 73 72 63 68 2e 73 63 74 |eens\app|srch.sct|
|00004410| 27 2c 6d 2e 66 78 70 61 | 74 68 2c 6d 2e 70 72 6f |',m.fxpa|th,m.pro|
|00004420| 6a 64 69 72 29 0d 0a 3d | 70 75 74 6f 75 74 28 27 |jdir)..=|putout('|
|00004430| 73 63 72 65 65 6e 73 5c | 70 72 74 73 65 74 75 70 |screens\|prtsetup|
|00004440| 2e 73 63 78 27 2c 6d 2e | 66 78 70 61 74 68 2c 6d |.scx',m.|fxpath,m|
|00004450| 2e 70 72 6f 6a 64 69 72 | 29 0d 0a 3d 70 75 74 6f |.projdir|)..=puto|
|00004460| 75 74 28 27 73 63 72 65 | 65 6e 73 5c 70 72 74 73 |ut('scre|ens\prts|
|00004470| 65 74 75 70 2e 73 63 74 | 27 2c 6d 2e 66 78 70 61 |etup.sct|',m.fxpa|
|00004480| 74 68 2c 6d 2e 70 72 6f | 6a 64 69 72 29 0d 0a 3d |th,m.pro|jdir)..=|
|00004490| 70 75 74 6f 75 74 28 27 | 73 63 72 65 65 6e 73 5c |putout('|screens\|
|000044a0| 70 72 74 6f 70 74 73 2e | 73 63 78 27 2c 6d 2e 66 |prtopts.|scx',m.f|
|000044b0| 78 70 61 74 68 2c 6d 2e | 70 72 6f 6a 64 69 72 29 |xpath,m.|projdir)|
|000044c0| 0d 0a 3d 70 75 74 6f 75 | 74 28 27 73 63 72 65 65 |..=putou|t('scree|
|000044d0| 6e 73 5c 70 72 74 6f 70 | 74 73 2e 73 63 74 27 2c |ns\prtop|ts.sct',|
|000044e0| 6d 2e 66 78 70 61 74 68 | 2c 6d 2e 70 72 6f 6a 64 |m.fxpath|,m.projd|
|000044f0| 69 72 29 0d 0a 3d 70 75 | 74 6f 75 74 28 27 73 63 |ir)..=pu|tout('sc|
|00004500| 72 65 65 6e 73 5c 61 70 | 70 63 74 72 6c 2e 73 63 |reens\ap|pctrl.sc|
|00004510| 78 27 2c 6d 2e 66 78 70 | 61 74 68 2c 6d 2e 70 72 |x',m.fxp|ath,m.pr|
|00004520| 6f 6a 64 69 72 29 0d 0a | 3d 70 75 74 6f 75 74 28 |ojdir)..|=putout(|
|00004530| 27 73 63 72 65 65 6e 73 | 5c 61 70 70 63 74 72 6c |'screens|\appctrl|
|00004540| 2e 73 63 74 27 2c 6d 2e | 66 78 70 61 74 68 2c 6d |.sct',m.|fxpath,m|
|00004550| 2e 70 72 6f 6a 64 69 72 | 29 0d 0a 0d 0a 2a 21 2a |.projdir|)....*!*|
|00004560| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004570| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000045a0| 0d 0a 2a 21 0d 0a 2a 21 | 20 20 20 20 20 20 50 72 |..*!..*!|      Pr|
|000045b0| 6f 63 65 64 75 72 65 3a | 20 50 55 54 4f 55 54 0d |ocedure:| PUTOUT.|
|000045c0| 0a 2a 21 0d 0a 2a 21 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*!..*!*|********|
|000045d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000045e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000045f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004600| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0a 46 55 4e 43 54 49 |********|..FUNCTI|
|00004610| 4f 4e 20 70 75 74 6f 75 | 74 0d 0a 2a 20 43 6f 70 |ON putou|t..* Cop|
|00004620| 69 65 73 20 61 20 66 69 | 6c 65 20 77 69 74 68 20 |ies a fi|le with |
|00004630| 6e 61 6d 65 20 22 50 61 | 74 68 6e 61 6d 65 22 20 |name "Pa|thname" |
|00004640| 66 72 6f 6d 20 74 68 65 | 20 70 61 74 68 20 73 70 |from the| path sp|
|00004650| 65 63 69 66 69 65 64 20 | 69 6e 20 22 73 6f 75 72 |ecified |in "sour|
|00004660| 63 65 22 0d 0a 2a 20 74 | 68 65 20 74 68 65 20 22 |ce"..* t|he the "|
|00004670| 74 61 72 67 65 74 22 20 | 70 61 74 68 2e 0d 0a 0d |target" |path....|
|00004680| 0a 50 41 52 41 4d 45 54 | 45 52 53 20 70 61 74 68 |.PARAMET|ERS path|
|00004690| 6e 61 6d 65 2c 20 73 6f | 75 72 63 65 2c 20 74 61 |name, so|urce, ta|
|000046a0| 72 67 65 74 0d 0a 50 52 | 49 56 41 54 45 20 70 61 |rget..PR|IVATE pa|
|000046b0| 74 68 6e 61 6d 65 2c 20 | 73 6f 75 72 63 65 2c 20 |thname, |source, |
|000046c0| 74 61 72 67 65 74 2c 20 | 66 69 6c 6e 61 6d 65 2c |target, |filname,|
|000046d0| 20 66 69 6c 65 31 2c 20 | 66 69 6c 65 32 0d 0a 6d | file1, |file2..m|
|000046e0| 2e 66 69 6c 6e 61 6d 65 | 20 3d 20 6a 75 73 74 66 |.filname| = justf|
|000046f0| 6e 61 6d 65 28 6d 2e 70 | 61 74 68 6e 61 6d 65 29 |name(m.p|athname)|
|00004700| 0d 0a 6d 2e 74 61 72 67 | 65 74 20 3d 20 61 64 64 |..m.targ|et = add|
|00004710| 62 73 28 6d 2e 74 61 72 | 67 65 74 29 0d 0a 6d 2e |bs(m.tar|get)..m.|
|00004720| 73 6f 75 72 63 65 20 3d | 20 61 64 64 62 73 28 6d |source =| addbs(m|
|00004730| 2e 73 6f 75 72 63 65 29 | 0d 0a 6d 2e 66 69 6c 65 |.source)|..m.file|
|00004740| 31 20 3d 20 6d 2e 73 6f | 75 72 63 65 20 2b 20 6d |1 = m.so|urce + m|
|00004750| 2e 70 61 74 68 6e 61 6d | 65 0d 0a 6d 2e 66 69 6c |.pathnam|e..m.fil|
|00004760| 65 32 20 3d 20 6d 2e 74 | 61 72 67 65 74 20 2b 20 |e2 = m.t|arget + |
|00004770| 6d 2e 66 69 6c 6e 61 6d | 65 0d 0a 49 46 20 46 49 |m.filnam|e..IF FI|
|00004780| 4c 45 28 6d 2e 66 69 6c | 65 31 29 0d 0a 20 20 20 |LE(m.fil|e1)..   |
|00004790| 43 4f 50 59 20 46 49 4c | 45 20 26 66 69 6c 65 31 |COPY FIL|E &file1|
|000047a0| 20 54 4f 20 26 66 69 6c | 65 32 0d 0a 45 4e 44 49 | TO &fil|e2..ENDI|
|000047b0| 46 0d 0a 0d 0a 0d 0a 2a | 21 2a 2a 2a 2a 2a 2a 2a |F......*|!*******|
|000047c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000047d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000047e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000047f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a 2a 21 0d 0a |********|**..*!..|
|00004800| 2a 21 20 20 20 20 20 20 | 46 75 6e 63 74 69 6f 6e |*!      |Function|
|00004810| 3a 20 46 49 4e 44 53 52 | 43 0d 0a 2a 21 0d 0a 2a |: FINDSR|C..*!..*|
|00004820| 21 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |!*******|********|
|00004830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004840| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004850| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004860| 2a 2a 0d 0a 46 55 4e 43 | 54 49 4f 4e 20 66 69 6e |**..FUNC|TION fin|
|00004870| 64 73 72 63 0d 0a 70 61 | 72 61 6d 65 74 65 72 20 |dsrc..pa|rameter |
|00004880| 61 70 70 64 69 72 0d 0a | 2a 20 4d 61 6b 65 20 73 |appdir..|* Make s|
|00004890| 75 72 65 20 74 68 61 74 | 20 74 68 65 20 46 6f 78 |ure that| the Fox|
|000048a0| 41 70 70 20 73 6f 75 72 | 63 65 20 66 69 6c 65 73 |App sour|ce files|
|000048b0| 20 68 61 76 65 20 62 65 | 65 6e 20 69 6e 73 74 61 | have be|en insta|
|000048c0| 6c 6c 65 64 2e 0d 0a 2a | 20 49 66 20 74 68 65 79 |lled...*| If they|
|000048d0| 20 68 61 76 65 6e 27 74 | 2c 20 49 20 63 61 6e 27 | haven't|, I can'|
|000048e0| 74 20 62 75 69 6c 64 20 | 61 20 70 72 6f 6a 65 63 |t build |a projec|
|000048f0| 74 2e 0d 0a 6d 2e 74 61 | 72 67 66 69 6c 65 20 3d |t...m.ta|rgfile =|
|00004900| 20 61 64 64 62 73 28 53 | 59 53 28 32 30 30 34 29 | addbs(S|YS(2004)|
|00004910| 29 2b 27 46 4f 58 41 50 | 50 5c 46 4f 58 41 50 50 |)+'FOXAP|P\FOXAPP|
|00004920| 2e 53 52 43 27 0d 0a 49 | 46 20 21 46 49 4c 45 28 |.SRC'..I|F !FILE(|
|00004930| 6d 2e 74 61 72 67 66 69 | 6c 65 29 0d 0a 20 20 20 |m.targfi|le)..   |
|00004940| 6d 2e 74 61 72 67 66 69 | 6c 65 20 3d 20 61 64 64 |m.targfi|le = add|
|00004950| 62 73 28 53 59 53 28 32 | 30 30 34 29 29 2b 27 46 |bs(SYS(2|004))+'F|
|00004960| 4f 58 41 50 50 57 5c 46 | 4f 58 41 50 50 2e 53 52 |OXAPPW\F|OXAPP.SR|
|00004970| 43 27 0d 0a 20 20 20 49 | 46 20 21 46 49 4c 45 28 |C'..   I|F !FILE(|
|00004980| 6d 2e 74 61 72 67 66 69 | 6c 65 29 0d 0a 20 20 20 |m.targfi|le)..   |
|00004990| 20 20 20 2a 20 53 65 65 | 20 69 66 20 77 65 20 61 |   * See| if we a|
|000049a0| 72 65 20 69 6e 20 74 68 | 65 20 46 4f 58 41 50 50 |re in th|e FOXAPP|
|000049b0| 20 64 69 72 65 63 74 6f | 72 79 20 69 74 73 65 6c | directo|ry itsel|
|000049c0| 66 20 74 68 65 6e 0d 0a | 20 20 20 20 20 20 6d 2e |f then..|      m.|
|000049d0| 74 61 72 67 66 69 6c 65 | 20 3d 20 61 64 64 62 73 |targfile| = addbs|
|000049e0| 28 53 59 53 28 32 30 30 | 34 29 29 2b 27 47 4f 4f |(SYS(200|4))+'GOO|
|000049f0| 44 49 45 53 5c 46 4f 58 | 41 50 50 5c 46 4f 58 41 |DIES\FOX|APP\FOXA|
|00004a00| 50 50 2e 53 52 43 27 0d | 0a 20 20 20 20 20 20 49 |PP.SRC'.|.      I|
|00004a10| 46 20 21 46 49 4c 45 28 | 6d 2e 74 61 72 67 66 69 |F !FILE(|m.targfi|
|00004a20| 6c 65 29 0d 0a 20 20 20 | 20 20 20 20 20 20 2a 20 |le)..   |      * |
|00004a30| 53 65 65 20 69 66 20 77 | 65 20 61 72 65 20 69 6e |See if w|e are in|
|00004a40| 20 74 68 65 20 46 4f 58 | 41 50 50 20 64 69 72 65 | the FOX|APP dire|
|00004a50| 63 74 6f 72 79 20 69 74 | 73 65 6c 66 20 74 68 65 |ctory it|self the|
|00004a60| 6e 0d 0a 20 20 20 20 20 | 20 20 20 20 6d 2e 74 61 |n..     |    m.ta|
|00004a70| 72 67 66 69 6c 65 20 3d | 20 61 64 64 62 73 28 43 |rgfile =| addbs(C|
|00004a80| 55 52 44 49 52 28 29 29 | 2b 27 46 4f 58 41 50 50 |URDIR())|+'FOXAPP|
|00004a90| 2e 53 52 43 27 0d 0a 20 | 20 20 20 20 20 20 20 20 |.SRC'.. |        |
|00004aa0| 49 46 20 21 46 49 4c 45 | 28 6d 2e 74 61 72 67 66 |IF !FILE|(m.targf|
|00004ab0| 69 6c 65 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ile)..  |        |
|00004ac0| 20 20 57 41 49 54 20 57 | 49 4e 44 4f 57 20 22 46 |  WAIT W|INDOW "F|
|00004ad0| 6f 78 41 70 70 20 73 6f | 75 72 63 65 20 66 69 6c |oxApp so|urce fil|
|00004ae0| 65 73 20 6d 75 73 74 20 | 62 65 20 61 76 61 69 6c |es must |be avail|
|00004af0| 61 62 6c 65 20 74 6f 20 | 62 75 69 6c 64 20 70 72 |able to |build pr|
|00004b00| 6f 6a 65 63 74 73 2e 22 | 20 4e 4f 57 41 49 54 0d |ojects."| NOWAIT.|
|00004b10| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 6d 2e 74 |.       |     m.t|
|00004b20| 61 72 67 66 69 6c 65 20 | 3d 20 47 45 54 46 49 4c |argfile |= GETFIL|
|00004b30| 45 28 27 53 52 43 27 2c | 27 50 6c 65 61 73 65 20 |E('SRC',|'Please |
|00004b40| 6c 6f 63 61 74 65 20 74 | 68 65 20 46 4f 58 41 50 |locate t|he FOXAP|
|00004b50| 50 2e 53 52 43 20 66 69 | 6c 65 3a 27 29 0d 0a 20 |P.SRC fi|le:').. |
|00004b60| 20 20 20 20 20 20 20 20 | 20 20 20 49 46 20 45 4d |        |   IF EM|
|00004b70| 50 54 59 28 6d 2e 74 61 | 72 67 66 69 6c 65 29 0d |PTY(m.ta|rgfile).|
|00004b80| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00004b90| 44 4f 20 61 6c 65 72 74 | 20 57 49 54 48 20 22 46 |DO alert| WITH "F|
|00004ba0| 6f 78 41 70 70 20 63 61 | 6e 6e 6f 74 20 62 75 69 |oxApp ca|nnot bui|
|00004bb0| 6c 64 20 61 20 66 75 6c | 6c 20 70 72 6f 6a 65 63 |ld a ful|l projec|
|00004bc0| 74 20 77 69 74 68 6f 75 | 74 20 69 74 73 20 73 6f |t withou|t its so|
|00004bd0| 75 72 63 65 20 66 69 6c | 65 73 2e 22 0d 0a 20 20 |urce fil|es."..  |
|00004be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 44 4f 20 |        |     DO |
|00004bf0| 63 6c 6f 73 65 5f 75 70 | 0d 0a 20 20 20 20 20 20 |close_up|..      |
|00004c00| 20 20 20 20 20 20 20 20 | 20 52 45 54 55 52 4e 20 |        | RETURN |
|00004c10| 27 27 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |''..    |        |
|00004c20| 45 4c 53 45 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ELSE..  |        |
|00004c30| 20 20 20 20 20 6d 2e 6e | 65 77 70 61 74 68 20 3d |     m.n|ewpath =|
|00004c40| 20 53 45 54 28 27 50 41 | 54 48 27 29 2b 27 3b 27 | SET('PA|TH')+';'|
|00004c50| 2b 6a 75 73 74 70 61 74 | 68 28 6d 2e 74 61 72 67 |+justpat|h(m.targ|
|00004c60| 66 69 6c 65 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |file).. |        |
|00004c70| 20 20 20 20 20 20 53 45 | 54 20 50 41 54 48 20 54 |      SE|T PATH T|
|00004c80| 4f 20 28 6d 2e 6e 65 77 | 70 61 74 68 29 0d 0a 20 |O (m.new|path).. |
|00004c90| 20 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 49 46 |        |   ENDIF|
|00004ca0| 0d 0a 20 20 20 20 20 20 | 20 20 20 45 4e 44 49 46 |..      |   ENDIF|
|00004cb0| 0d 0a 20 20 20 20 20 20 | 45 4e 44 49 46 0d 0a 20 |..      |ENDIF.. |
|00004cc0| 20 20 45 4e 44 49 46 0d | 0a 45 4e 44 49 46 0d 0a |  ENDIF.|.ENDIF..|
|00004cd0| 52 45 54 55 52 4e 20 6a | 75 73 74 70 61 74 68 28 |RETURN j|ustpath(|
|00004ce0| 6d 2e 74 61 72 67 66 69 | 6c 65 29 0d 0a 20 0d 0a |m.targfi|le).. ..|
|00004cf0| 2a 21 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*!******|********|
|00004d00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d30| 2a 2a 2a 0d 0a 2a 21 0d | 0a 2a 21 20 20 20 20 20 |***..*!.|.*!     |
|00004d40| 20 50 72 6f 63 65 64 75 | 72 65 3a 20 56 45 52 53 | Procedu|re: VERS|
|00004d50| 49 4f 4e 44 41 54 45 0d | 0a 2a 21 0d 0a 2a 21 2a |IONDATE.|.*!..*!*|
|00004d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004da0| 0d 0a 46 55 4e 43 54 49 | 4f 4e 20 76 65 72 73 69 |..FUNCTI|ON versi|
|00004db0| 6f 6e 64 61 74 65 0d 0a | 2a 20 52 65 74 75 72 6e |ondate..|* Return|
|00004dc0| 73 20 74 68 65 20 46 6f | 78 50 72 6f 20 62 75 69 |s the Fo|xPro bui|
|00004dd0| 6c 64 20 64 61 74 65 20 | 61 73 20 61 20 64 61 74 |ld date |as a dat|
|00004de0| 65 20 76 61 6c 75 65 0d | 0a 0d 0a 2a 20 56 45 52 |e value.|...* VER|
|00004df0| 53 49 4f 4e 28 31 29 20 | 72 65 74 75 72 6e 73 20 |SION(1) |returns |
|00004e00| 61 20 73 74 72 69 6e 67 | 20 6c 69 6b 65 20 74 68 |a string| like th|
|00004e10| 69 73 3a 0d 0a 2a 20 20 | 20 20 20 46 6f 78 50 72 |is:..*  |   FoxPr|
|00004e20| 6f 2f 4c 41 4e 20 32 2e | 30 20 28 58 29 20 5b 4e |o/LAN 2.|0 (X) [N|
|00004e30| 6f 76 20 31 35 20 31 39 | 39 31 20 31 36 3a 31 36 |ov 15 19|91 16:16|
|00004e40| 3a 30 36 5d 20 53 65 72 | 69 61 6c 20 23 20 44 45 |:06] Ser|ial # DE|
|00004e50| 56 30 30 31 32 39 36 20 | 0d 0a 2a 20 57 65 20 77 |V001296 |..* We w|
|00004e60| 61 6e 74 20 74 6f 20 72 | 65 74 75 72 6e 20 31 31 |ant to r|eturn 11|
|00004e70| 2f 31 35 2f 39 31 20 61 | 73 20 61 20 64 61 74 65 |/15/91 a|s a date|
|00004e80| 20 76 61 6c 75 65 0d 0a | 0d 0a 6d 2e 76 31 20 3d | value..|..m.v1 =|
|00004e90| 20 56 45 52 53 49 4f 4e | 28 31 29 0d 0a 0d 0a 2a | VERSION|(1)....*|
|00004ea0| 20 65 78 74 72 61 63 74 | 20 74 68 65 20 70 6f 72 | extract| the por|
|00004eb0| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 56 45 52 53 |tion of |the VERS|
|00004ec0| 49 4f 4e 28 31 29 20 73 | 74 72 69 6e 67 20 62 65 |ION(1) s|tring be|
|00004ed0| 74 77 65 65 6e 20 74 68 | 65 20 62 72 61 63 6b 65 |tween th|e bracke|
|00004ee0| 74 73 0d 0a 6d 2e 76 64 | 61 74 65 73 74 72 20 3d |ts..m.vd|atestr =|
|00004ef0| 20 53 55 42 53 54 52 28 | 6d 2e 76 31 2c 41 54 28 | SUBSTR(|m.v1,AT(|
|00004f00| 27 5b 27 2c 6d 2e 76 31 | 29 2b 31 2c 52 41 54 28 |'[',m.v1|)+1,RAT(|
|00004f10| 27 5d 27 2c 6d 2e 76 31 | 29 2d 41 54 28 27 5b 27 |']',m.v1|)-AT('['|
|00004f20| 2c 6d 2e 76 31 29 29 0d | 0a 0d 0a 2a 20 65 78 74 |,m.v1)).|...* ext|
|00004f30| 72 61 63 74 20 6a 75 73 | 74 20 74 68 65 20 64 61 |ract jus|t the da|
|00004f40| 74 65 20 70 6f 72 74 69 | 6f 6e 20 6f 66 20 74 68 |te porti|on of th|
|00004f50| 65 20 64 61 74 65 2f 74 | 69 6d 65 20 73 74 72 69 |e date/t|ime stri|
|00004f60| 6e 67 0d 0a 6d 2e 76 64 | 61 74 65 73 74 72 20 3d |ng..m.vd|atestr =|
|00004f70| 20 41 4c 4c 54 52 49 4d | 28 53 55 42 53 54 52 28 | ALLTRIM|(SUBSTR(|
|00004f80| 6d 2e 76 64 61 74 65 73 | 74 72 2c 31 2c 41 54 28 |m.vdates|tr,1,AT(|
|00004f90| 27 20 27 2c 6d 2e 76 64 | 61 74 65 73 74 72 2c 33 |' ',m.vd|atestr,3|
|00004fa0| 29 2d 31 29 29 0d 0a 0d | 0a 2a 20 50 75 6c 6c 20 |)-1))...|.* Pull |
|00004fb0| 6f 75 74 20 74 68 65 20 | 6d 6f 6e 74 68 20 61 62 |out the |month ab|
|00004fc0| 62 72 65 76 69 61 74 69 | 6f 6e 20 61 6e 64 20 66 |breviati|on and f|
|00004fd0| 69 67 75 72 65 20 6f 75 | 74 20 77 68 69 63 68 20 |igure ou|t which |
|00004fe0| 6d 6f 6e 74 68 20 6e 75 | 6d 62 65 72 20 69 74 20 |month nu|mber it |
|00004ff0| 69 73 0d 0a 6d 2e 76 6d | 6f 6e 74 68 73 74 72 20 |is..m.vm|onthstr |
|00005000| 3d 20 55 50 50 45 52 28 | 53 55 42 53 54 52 28 6d |= UPPER(|SUBSTR(m|
|00005010| 2e 76 64 61 74 65 73 74 | 72 2c 31 2c 33 29 29 0d |.vdatest|r,1,3)).|
|00005020| 0a 44 4f 20 43 41 53 45 | 0d 0a 43 41 53 45 20 49 |.DO CASE|..CASE I|
|00005030| 4e 4c 49 53 54 28 6d 2e | 76 6d 6f 6e 74 68 73 74 |NLIST(m.|vmonthst|
|00005040| 72 2c 27 4a 41 4e 55 41 | 52 59 27 2c 27 4a 41 4e |r,'JANUA|RY','JAN|
|00005050| 27 29 0d 0a 20 20 20 6d | 2e 76 6d 6f 6e 74 68 20 |')..   m|.vmonth |
|00005060| 3d 20 31 0d 0a 43 41 53 | 45 20 49 4e 4c 49 53 54 |= 1..CAS|E INLIST|
|00005070| 28 6d 2e 76 6d 6f 6e 74 | 68 73 74 72 2c 27 46 45 |(m.vmont|hstr,'FE|
|00005080| 42 52 55 41 52 59 27 2c | 27 46 45 42 27 29 0d 0a |BRUARY',|'FEB')..|
|00005090| 20 20 20 6d 2e 76 6d 6f | 6e 74 68 20 3d 20 32 0d |   m.vmo|nth = 2.|
|000050a0| 0a 43 41 53 45 20 49 4e | 4c 49 53 54 28 6d 2e 76 |.CASE IN|LIST(m.v|
|000050b0| 6d 6f 6e 74 68 73 74 72 | 2c 27 4d 41 52 43 48 27 |monthstr|,'MARCH'|
|000050c0| 2c 27 4d 41 52 27 29 0d | 0a 20 20 20 6d 2e 76 6d |,'MAR').|.   m.vm|
|000050d0| 6f 6e 74 68 20 3d 20 33 | 0d 0a 43 41 53 45 20 49 |onth = 3|..CASE I|
|000050e0| 4e 4c 49 53 54 28 6d 2e | 76 6d 6f 6e 74 68 73 74 |NLIST(m.|vmonthst|
|000050f0| 72 2c 27 41 50 52 49 4c | 27 2c 27 41 50 52 27 29 |r,'APRIL|','APR')|
|00005100| 0d 0a 20 20 20 6d 2e 76 | 6d 6f 6e 74 68 20 3d 20 |..   m.v|month = |
|00005110| 34 0d 0a 43 41 53 45 20 | 49 4e 4c 49 53 54 28 6d |4..CASE |INLIST(m|
|00005120| 2e 76 6d 6f 6e 74 68 73 | 74 72 2c 27 4d 41 59 27 |.vmonths|tr,'MAY'|
|00005130| 29 0d 0a 20 20 20 6d 2e | 76 6d 6f 6e 74 68 20 3d |)..   m.|vmonth =|
|00005140| 20 35 0d 0a 43 41 53 45 | 20 49 4e 4c 49 53 54 28 | 5..CASE| INLIST(|
|00005150| 6d 2e 76 6d 6f 6e 74 68 | 73 74 72 2c 27 4a 55 4e |m.vmonth|str,'JUN|
|00005160| 45 27 2c 27 4a 55 4e 27 | 29 0d 0a 20 20 20 6d 2e |E','JUN'|)..   m.|
|00005170| 76 6d 6f 6e 74 68 20 3d | 20 36 0d 0a 43 41 53 45 |vmonth =| 6..CASE|
|00005180| 20 49 4e 4c 49 53 54 28 | 6d 2e 76 6d 6f 6e 74 68 | INLIST(|m.vmonth|
|00005190| 73 74 72 2c 27 4a 55 4c | 59 27 2c 27 4a 55 4c 27 |str,'JUL|Y','JUL'|
|000051a0| 29 0d 0a 20 20 20 6d 2e | 76 6d 6f 6e 74 68 20 3d |)..   m.|vmonth =|
|000051b0| 20 37 0d 0a 43 41 53 45 | 20 49 4e 4c 49 53 54 28 | 7..CASE| INLIST(|
|000051c0| 6d 2e 76 6d 6f 6e 74 68 | 73 74 72 2c 27 41 55 47 |m.vmonth|str,'AUG|
|000051d0| 55 53 54 27 2c 27 41 55 | 47 27 29 0d 0a 20 20 20 |UST','AU|G')..   |
|000051e0| 6d 2e 76 6d 6f 6e 74 68 | 20 3d 20 38 0d 0a 43 41 |m.vmonth| = 8..CA|
|000051f0| 53 45 20 49 4e 4c 49 53 | 54 28 6d 2e 76 6d 6f 6e |SE INLIS|T(m.vmon|
|00005200| 74 68 73 74 72 2c 27 53 | 45 50 54 45 4d 42 45 52 |thstr,'S|EPTEMBER|
|00005210| 27 2c 27 53 45 50 27 2c | 27 53 45 50 54 27 29 0d |','SEP',|'SEPT').|
|00005220| 0a 20 20 20 6d 2e 76 6d | 6f 6e 74 68 20 3d 20 39 |.   m.vm|onth = 9|
|00005230| 0d 0a 43 41 53 45 20 49 | 4e 4c 49 53 54 28 6d 2e |..CASE I|NLIST(m.|
|00005240| 76 6d 6f 6e 74 68 73 74 | 72 2c 27 4f 43 54 4f 42 |vmonthst|r,'OCTOB|
|00005250| 45 52 27 2c 27 4f 43 54 | 27 29 0d 0a 20 20 20 6d |ER','OCT|')..   m|
|00005260| 2e 76 6d 6f 6e 74 68 20 | 3d 20 31 30 0d 0a 43 41 |.vmonth |= 10..CA|
|00005270| 53 45 20 49 4e 4c 49 53 | 54 28 6d 2e 76 6d 6f 6e |SE INLIS|T(m.vmon|
|00005280| 74 68 73 74 72 2c 27 4e | 4f 56 45 4d 42 45 52 27 |thstr,'N|OVEMBER'|
|00005290| 2c 27 4e 4f 56 27 29 0d | 0a 20 20 20 6d 2e 76 6d |,'NOV').|.   m.vm|
|000052a0| 6f 6e 74 68 20 3d 20 31 | 31 0d 0a 43 41 53 45 20 |onth = 1|1..CASE |
|000052b0| 49 4e 4c 49 53 54 28 6d | 2e 76 6d 6f 6e 74 68 73 |INLIST(m|.vmonths|
|000052c0| 74 72 2c 27 44 45 43 45 | 4d 42 45 52 27 2c 27 44 |tr,'DECE|MBER','D|
|000052d0| 45 43 27 29 0d 0a 20 20 | 20 6d 2e 76 6d 6f 6e 74 |EC')..  | m.vmont|
|000052e0| 68 20 3d 20 31 32 0d 0a | 45 4e 44 43 41 53 45 0d |h = 12..|ENDCASE.|
|000052f0| 0a 0d 0a 2a 20 52 65 63 | 6f 6e 73 74 72 75 63 74 |...* Rec|onstruct|
|00005300| 20 74 68 65 20 73 74 72 | 69 6e 67 20 62 79 20 75 | the str|ing by u|
|00005310| 73 69 6e 67 20 74 68 65 | 20 6d 6f 6e 74 68 20 6e |sing the| month n|
|00005320| 75 6d 62 65 72 20 0d 0a | 6d 2e 76 64 61 74 65 73 |umber ..|m.vdates|
|00005330| 74 72 20 3d 20 53 54 52 | 28 6d 2e 76 6d 6f 6e 74 |tr = STR|(m.vmont|
|00005340| 68 2c 32 29 2b 27 2f 27 | 2b 4c 54 52 49 4d 28 53 |h,2)+'/'|+LTRIM(S|
|00005350| 55 42 53 54 52 28 6d 2e | 76 64 61 74 65 73 74 72 |UBSTR(m.|vdatestr|
|00005360| 2c 41 54 28 27 20 27 2c | 6d 2e 76 64 61 74 65 73 |,AT(' ',|m.vdates|
|00005370| 74 72 29 29 29 0d 0a 0d | 0a 2a 20 52 65 70 6c 61 |tr)))...|.* Repla|
|00005380| 63 65 20 73 70 61 63 65 | 73 20 77 69 74 68 20 73 |ce space|s with s|
|00005390| 6c 61 73 68 65 73 0d 0a | 6d 2e 76 64 61 74 65 73 |lashes..|m.vdates|
|000053a0| 74 72 20 3d 20 43 48 52 | 54 52 41 4e 28 6d 2e 76 |tr = CHR|TRAN(m.v|
|000053b0| 64 61 74 65 73 74 72 2c | 27 20 27 2c 27 2f 27 29 |datestr,|' ','/')|
|000053c0| 0d 0a 52 45 54 55 52 4e | 20 43 54 4f 44 28 6d 2e |..RETURN| CTOD(m.|
|000053d0| 76 64 61 74 65 73 74 72 | 29 0d 0a 2a 21 2a 2a 2a |vdatestr|)..*!***|
|000053e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000053f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005410| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0a |********|******..|
|00005420| 2a 21 0d 0a 2a 21 20 20 | 20 20 20 20 50 72 6f 63 |*!..*!  |    Proc|
|00005430| 65 64 75 72 65 3a 20 54 | 52 49 4d 5a 45 52 4f 0d |edure: T|RIMZERO.|
|00005440| 0a 2a 21 0d 0a 2a 21 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*!..*!*|********|
|00005450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005480| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0a 46 55 4e 43 54 49 |********|..FUNCTI|
|00005490| 4f 4e 20 74 72 69 6d 7a | 65 72 6f 0d 0a 2a 20 54 |ON trimz|ero..* T|
|000054a0| 72 69 6d 73 20 41 53 43 | 49 49 20 30 20 63 68 61 |rims ASC|II 0 cha|
|000054b0| 72 61 63 74 65 72 73 20 | 66 72 6f 6d 20 73 74 72 |racters |from str|
|000054c0| 67 0d 0a 50 41 52 41 4d | 45 54 45 52 20 6d 2e 73 |g..PARAM|ETER m.s|
|000054d0| 74 72 67 0d 0a 52 45 54 | 55 52 4e 20 43 48 52 54 |trg..RET|URN CHRT|
|000054e0| 52 41 4e 28 6d 2e 73 74 | 72 67 2c 43 48 52 28 30 |RAN(m.st|rg,CHR(0|
|000054f0| 29 2c 22 22 29 0d 0a 0d | 0a 2a 21 2a 2a 2a 2a 2a |),"")...|.*!*****|
|00005500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0a 2a 21 |********|****..*!|
|00005540| 0d 0a 2a 21 20 20 20 20 | 20 20 50 72 6f 63 65 64 |..*!    |  Proced|
|00005550| 75 72 65 3a 20 46 4f 52 | 43 45 45 58 54 0d 0a 2a |ure: FOR|CEEXT..*|
|00005560| 21 0d 0a 2a 21 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |!..*!***|********|
|00005570| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000055a0| 2a 2a 2a 2a 2a 2a 0d 0a | 46 55 4e 43 54 49 4f 4e |******..|FUNCTION|
|000055b0| 20 66 6f 72 63 65 65 78 | 74 0d 0a 2a 20 46 6f 72 | forceex|t..* For|
|000055c0| 63 65 20 74 68 65 20 65 | 78 74 65 6e 73 69 6f 6e |ce the e|xtension|
|000055d0| 20 6f 66 20 22 66 69 6c | 6e 61 6d 65 22 20 74 6f | of "fil|name" to|
|000055e0| 20 62 65 20 77 68 61 74 | 65 76 65 72 20 65 78 74 | be what|ever ext|
|000055f0| 20 69 73 2e 0d 0a 50 41 | 52 41 4d 45 54 45 52 53 | is...PA|RAMETERS|
|00005600| 20 66 69 6c 6e 61 6d 65 | 2c 65 78 74 0d 0a 50 52 | filname|,ext..PR|
|00005610| 49 56 41 54 45 20 41 4c | 4c 0d 0a 49 46 20 53 55 |IVATE AL|L..IF SU|
|00005620| 42 53 54 52 28 6d 2e 65 | 78 74 2c 31 2c 31 29 20 |BSTR(m.e|xt,1,1) |
|00005630| 3d 20 22 2e 22 0d 0a 20 | 20 20 6d 2e 65 78 74 20 |= ".".. |  m.ext |
|00005640| 3d 20 53 55 42 53 54 52 | 28 6d 2e 65 78 74 2c 32 |= SUBSTR|(m.ext,2|
|00005650| 2c 33 29 0d 0a 45 4e 44 | 49 46 0d 0a 0d 0a 6d 2e |,3)..END|IF....m.|
|00005660| 70 6e 61 6d 65 20 3d 20 | 6a 75 73 74 70 61 74 68 |pname = |justpath|
|00005670| 28 6d 2e 66 69 6c 6e 61 | 6d 65 29 0d 0a 6d 2e 66 |(m.filna|me)..m.f|
|00005680| 69 6c 6e 61 6d 65 20 3d | 20 6a 75 73 74 66 6e 61 |ilname =| justfna|
|00005690| 6d 65 28 55 50 50 45 52 | 28 41 4c 4c 54 52 49 4d |me(UPPER|(ALLTRIM|
|000056a0| 28 6d 2e 66 69 6c 6e 61 | 6d 65 29 29 29 0d 0a 49 |(m.filna|me)))..I|
|000056b0| 46 20 41 54 28 27 2e 27 | 2c 6d 2e 66 69 6c 6e 61 |F AT('.'|,m.filna|
|000056c0| 6d 65 29 20 3e 20 30 0d | 0a 20 20 20 6d 2e 66 69 |me) > 0.|.   m.fi|
|000056d0| 6c 6e 61 6d 65 20 3d 20 | 53 55 42 53 54 52 28 6d |lname = |SUBSTR(m|
|000056e0| 2e 66 69 6c 6e 61 6d 65 | 2c 31 2c 41 54 28 27 2e |.filname|,1,AT('.|
|000056f0| 27 2c 6d 2e 66 69 6c 6e | 61 6d 65 29 2d 31 29 20 |',m.filn|ame)-1) |
|00005700| 2b 20 27 2e 27 20 2b 20 | 6d 2e 65 78 74 0d 0a 45 |+ '.' + |m.ext..E|
|00005710| 4c 53 45 0d 0a 20 20 20 | 6d 2e 66 69 6c 6e 61 6d |LSE..   |m.filnam|
|00005720| 65 20 3d 20 6d 2e 66 69 | 6c 6e 61 6d 65 20 2b 20 |e = m.fi|lname + |
|00005730| 27 2e 27 20 2b 20 6d 2e | 65 78 74 0d 0a 45 4e 44 |'.' + m.|ext..END|
|00005740| 49 46 0d 0a 52 45 54 55 | 52 4e 20 61 64 64 62 73 |IF..RETU|RN addbs|
|00005750| 28 6d 2e 70 6e 61 6d 65 | 29 20 2b 20 6d 2e 66 69 |(m.pname|) + m.fi|
|00005760| 6c 6e 61 6d 65 0d 0a 2a | 21 2a 2a 2a 2a 2a 2a 2a |lname..*|!*******|
|00005770| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005780| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000057a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a 2a 21 0d 0a |********|**..*!..|
|000057b0| 2a 21 20 20 20 20 20 20 | 50 72 6f 63 65 64 75 72 |*!      |Procedur|
|000057c0| 65 3a 20 44 45 46 41 55 | 4c 54 45 58 54 0d 0a 2a |e: DEFAU|LTEXT..*|
|000057d0| 21 0d 0a 2a 21 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |!..*!***|********|
|000057e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000057f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005810| 2a 2a 2a 2a 2a 2a 0d 0a | 46 55 4e 43 54 49 4f 4e |******..|FUNCTION|
|00005820| 20 64 65 66 61 75 6c 74 | 65 78 74 0d 0a 2a 20 46 | default|ext..* F|
|00005830| 6f 72 63 65 20 74 68 65 | 20 65 78 74 65 6e 73 69 |orce the| extensi|
|00005840| 6f 6e 20 6f 66 20 22 66 | 69 6c 6e 61 6d 65 22 20 |on of "f|ilname" |
|00005850| 74 6f 20 62 65 20 77 68 | 61 74 65 76 65 72 20 65 |to be wh|atever e|
|00005860| 78 74 20 69 73 2c 20 75 | 6e 6c 65 73 73 20 69 74 |xt is, u|nless it|
|00005870| 0d 0a 2a 20 61 6c 72 65 | 61 64 79 20 68 61 73 20 |..* alre|ady has |
|00005880| 61 6e 20 65 78 74 65 6e | 73 69 6f 6e 2e 0d 0a 50 |an exten|sion...P|
|00005890| 41 52 41 4d 45 54 45 52 | 53 20 66 69 6c 6e 61 6d |ARAMETER|S filnam|
|000058a0| 65 2c 65 78 74 0d 0a 50 | 52 49 56 41 54 45 20 41 |e,ext..P|RIVATE A|
|000058b0| 4c 4c 0d 0a 49 46 20 45 | 4d 50 54 59 28 6a 75 73 |LL..IF E|MPTY(jus|
|000058c0| 74 65 78 74 28 6d 2e 66 | 69 6c 6e 61 6d 65 29 29 |text(m.f|ilname))|
|000058d0| 0d 0a 20 20 20 52 45 54 | 55 52 4e 20 66 6f 72 63 |..   RET|URN forc|
|000058e0| 65 65 78 74 28 6d 2e 66 | 69 6c 6e 61 6d 65 2c 6d |eext(m.f|ilname,m|
|000058f0| 2e 65 78 74 29 0d 0a 45 | 4c 53 45 0d 0a 20 20 20 |.ext)..E|LSE..   |
|00005900| 52 45 54 55 52 4e 20 6d | 2e 66 69 6c 6e 61 6d 65 |RETURN m|.filname|
|00005910| 0d 0a 45 4e 44 49 46 20 | 20 20 0d 0a 2a 21 2a 2a |..ENDIF |  ..*!**|
|00005920| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005950| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00005960| 0a 2a 21 0d 0a 2a 21 20 | 20 20 20 20 20 50 72 6f |.*!..*! |     Pro|
|00005970| 63 65 64 75 72 65 3a 20 | 4a 55 53 54 46 4e 41 4d |cedure: |JUSTFNAM|
|00005980| 45 0d 0a 2a 21 0d 0a 2a | 21 2a 2a 2a 2a 2a 2a 2a |E..*!..*|!*******|
|00005990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000059a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000059b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000059c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a 46 55 4e 43 |********|**..FUNC|
|000059d0| 54 49 4f 4e 20 6a 75 73 | 74 66 6e 61 6d 65 0d 0a |TION jus|tfname..|
|000059e0| 2a 20 52 65 74 75 72 6e | 20 6a 75 73 74 20 74 68 |* Return| just th|
|000059f0| 65 20 66 69 6c 65 6e 61 | 6d 65 20 28 69 2e 65 2e |e filena|me (i.e.|
|00005a00| 2c 20 6e 6f 20 70 61 74 | 68 29 20 66 72 6f 6d 20 |, no pat|h) from |
|00005a10| 22 66 69 6c 6e 61 6d 65 | 22 0d 0a 50 41 52 41 4d |"filname|"..PARAM|
|00005a20| 45 54 45 52 53 20 66 69 | 6c 6e 61 6d 65 0d 0a 50 |ETERS fi|lname..P|
|00005a30| 52 49 56 41 54 45 20 41 | 4c 4c 0d 0a 49 46 20 52 |RIVATE A|LL..IF R|
|00005a40| 41 54 28 27 5c 27 2c 6d | 2e 66 69 6c 6e 61 6d 65 |AT('\',m|.filname|
|00005a50| 29 20 3e 20 30 0d 0a 20 | 20 20 6d 2e 66 69 6c 6e |) > 0.. |  m.filn|
|00005a60| 61 6d 65 20 3d 20 53 55 | 42 53 54 52 28 6d 2e 66 |ame = SU|BSTR(m.f|
|00005a70| 69 6c 6e 61 6d 65 2c 52 | 41 54 28 27 5c 27 2c 6d |ilname,R|AT('\',m|
|00005a80| 2e 66 69 6c 6e 61 6d 65 | 29 2b 31 2c 32 35 35 29 |.filname|)+1,255)|
|00005a90| 0d 0a 45 4e 44 49 46 0d | 0a 49 46 20 41 54 28 27 |..ENDIF.|.IF AT('|
|00005aa0| 3a 27 2c 6d 2e 66 69 6c | 6e 61 6d 65 29 20 3e 20 |:',m.fil|name) > |
|00005ab0| 30 0d 0a 20 20 20 6d 2e | 66 69 6c 6e 61 6d 65 20 |0..   m.|filname |
|00005ac0| 3d 20 53 55 42 53 54 52 | 28 6d 2e 66 69 6c 6e 61 |= SUBSTR|(m.filna|
|00005ad0| 6d 65 2c 41 54 28 27 3a | 27 2c 6d 2e 66 69 6c 6e |me,AT(':|',m.filn|
|00005ae0| 61 6d 65 29 2b 31 2c 32 | 35 35 29 0d 0a 45 4e 44 |ame)+1,2|55)..END|
|00005af0| 49 46 0d 0a 52 45 54 55 | 52 4e 20 41 4c 4c 54 52 |IF..RETU|RN ALLTR|
|00005b00| 49 4d 28 55 50 50 45 52 | 28 6d 2e 66 69 6c 6e 61 |IM(UPPER|(m.filna|
|00005b10| 6d 65 29 29 0d 0a 0d 0a | 2a 21 2a 2a 2a 2a 2a 2a |me))....|*!******|
|00005b20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005b30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 0a 2a 21 0d |********|***..*!.|
|00005b60| 0a 2a 21 20 20 20 20 20 | 20 50 72 6f 63 65 64 75 |.*!     | Procedu|
|00005b70| 72 65 3a 20 4a 55 53 54 | 53 54 45 4d 0d 0a 2a 21 |re: JUST|STEM..*!|
|00005b80| 0d 0a 2a 21 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..*!****|********|
|00005b90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005ba0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005bc0| 2a 2a 2a 2a 2a 0d 0a 46 | 55 4e 43 54 49 4f 4e 20 |*****..F|UNCTION |
|00005bd0| 6a 75 73 74 73 74 65 6d | 0d 0a 2a 20 52 65 74 75 |juststem|..* Retu|
|00005be0| 72 6e 20 6a 75 73 74 20 | 74 68 65 20 73 74 65 6d |rn just |the stem|
|00005bf0| 20 6e 61 6d 65 20 66 72 | 6f 6d 20 22 66 69 6c 6e | name fr|om "filn|
|00005c00| 61 6d 65 22 0d 0a 50 41 | 52 41 4d 45 54 45 52 53 |ame"..PA|RAMETERS|
|00005c10| 20 6d 2e 66 69 6c 6e 61 | 6d 65 0d 0a 50 52 49 56 | m.filna|me..PRIV|
|00005c20| 41 54 45 20 41 4c 4c 0d | 0a 49 46 20 52 41 54 28 |ATE ALL.|.IF RAT(|
|00005c30| 27 5c 27 2c 6d 2e 66 69 | 6c 6e 61 6d 65 29 20 3e |'\',m.fi|lname) >|
|00005c40| 20 30 0d 0a 20 20 20 6d | 2e 66 69 6c 6e 61 6d 65 | 0..   m|.filname|
|00005c50| 20 3d 20 53 55 42 53 54 | 52 28 6d 2e 66 69 6c 6e | = SUBST|R(m.filn|
|00005c60| 61 6d 65 2c 52 41 54 28 | 27 5c 27 2c 6d 2e 66 69 |ame,RAT(|'\',m.fi|
|00005c70| 6c 6e 61 6d 65 29 2b 31 | 2c 32 35 35 29 0d 0a 45 |lname)+1|,255)..E|
|00005c80| 4e 44 49 46 0d 0a 49 46 | 20 41 54 28 27 3a 27 2c |NDIF..IF| AT(':',|
|00005c90| 6d 2e 66 69 6c 6e 61 6d | 65 29 20 3e 20 30 0d 0a |m.filnam|e) > 0..|
|00005ca0| 20 20 20 6d 2e 66 69 6c | 6e 61 6d 65 20 3d 20 53 |   m.fil|name = S|
|00005cb0| 55 42 53 54 52 28 6d 2e | 66 69 6c 6e 61 6d 65 2c |UBSTR(m.|filname,|
|00005cc0| 41 54 28 27 3a 27 2c 6d | 2e 66 69 6c 6e 61 6d 65 |AT(':',m|.filname|
|00005cd0| 29 2b 31 2c 32 35 35 29 | 0d 0a 45 4e 44 49 46 0d |)+1,255)|..ENDIF.|
|00005ce0| 0a 49 46 20 41 54 28 27 | 2e 27 2c 6d 2e 66 69 6c |.IF AT('|.',m.fil|
|00005cf0| 6e 61 6d 65 29 20 3e 20 | 30 0d 0a 20 20 20 6d 2e |name) > |0..   m.|
|00005d00| 66 69 6c 6e 61 6d 65 20 | 3d 20 53 55 42 53 54 52 |filname |= SUBSTR|
|00005d10| 28 6d 2e 66 69 6c 6e 61 | 6d 65 2c 31 2c 41 54 28 |(m.filna|me,1,AT(|
|00005d20| 27 2e 27 2c 6d 2e 66 69 | 6c 6e 61 6d 65 29 2d 31 |'.',m.fi|lname)-1|
|00005d30| 29 0d 0a 45 4e 44 49 46 | 0d 0a 52 45 54 55 52 4e |)..ENDIF|..RETURN|
|00005d40| 20 41 4c 4c 54 52 49 4d | 28 55 50 50 45 52 28 6d | ALLTRIM|(UPPER(m|
|00005d50| 2e 66 69 6c 6e 61 6d 65 | 29 29 0d 0a 0d 0a 2a 21 |.filname|))....*!|
|00005d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005d70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005da0| 2a 0d 0a 2a 21 0d 0a 2a | 21 20 20 20 20 20 20 50 |*..*!..*|!      P|
|00005db0| 72 6f 63 65 64 75 72 65 | 3a 20 4a 55 53 54 45 58 |rocedure|: JUSTEX|
|00005dc0| 54 0d 0a 2a 21 0d 0a 2a | 21 2a 2a 2a 2a 2a 2a 2a |T..*!..*|!*******|
|00005dd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005de0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005df0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005e00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a 46 55 4e 43 |********|**..FUNC|
|00005e10| 54 49 4f 4e 20 6a 75 73 | 74 65 78 74 0d 0a 2a 20 |TION jus|text..* |
|00005e20| 52 65 74 75 72 6e 20 6a | 75 73 74 20 74 68 65 20 |Return j|ust the |
|00005e30| 65 78 74 65 6e 73 69 6f | 6e 20 66 72 6f 6d 20 22 |extensio|n from "|
|00005e40| 66 69 6c 6e 61 6d 65 22 | 0d 0a 50 41 52 41 4d 45 |filname"|..PARAME|
|00005e50| 54 45 52 53 20 6d 2e 66 | 69 6c 6e 61 6d 65 0d 0a |TERS m.f|ilname..|
|00005e60| 50 52 49 56 41 54 45 20 | 41 4c 4c 0d 0a 66 69 6c |PRIVATE |ALL..fil|
|00005e70| 6e 61 6d 65 20 3d 20 4a | 75 73 74 46 6e 61 6d 65 |name = J|ustFname|
|00005e80| 28 6d 2e 66 69 6c 6e 61 | 6d 65 29 20 20 20 26 26 |(m.filna|me)   &&|
|00005e90| 20 70 72 65 76 65 6e 74 | 73 20 70 72 6f 62 6c 65 | prevent|s proble|
|00005ea0| 6d 73 20 77 69 74 68 20 | 2e 2e 5c 20 70 61 74 68 |ms with |..\ path|
|00005eb0| 73 0d 0a 6d 2e 65 78 74 | 20 3d 20 22 22 0d 0a 49 |s..m.ext| = ""..I|
|00005ec0| 46 20 41 54 28 27 2e 27 | 2c 6d 2e 66 69 6c 6e 61 |F AT('.'|,m.filna|
|00005ed0| 6d 65 29 20 3e 20 30 0d | 0a 20 20 20 6d 2e 65 78 |me) > 0.|.   m.ex|
|00005ee0| 74 20 3d 20 53 55 42 53 | 54 52 28 6d 2e 66 69 6c |t = SUBS|TR(m.fil|
|00005ef0| 6e 61 6d 65 2c 41 54 28 | 27 2e 27 2c 6d 2e 66 69 |name,AT(|'.',m.fi|
|00005f00| 6c 6e 61 6d 65 29 2b 31 | 2c 33 29 0d 0a 45 4e 44 |lname)+1|,3)..END|
|00005f10| 49 46 0d 0a 52 45 54 55 | 52 4e 20 55 50 50 45 52 |IF..RETU|RN UPPER|
|00005f20| 28 6d 2e 65 78 74 29 0d | 0a 0d 0a 0d 0a 2a 21 2a |(m.ext).|.....*!*|
|00005f30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005f40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005f50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005f60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005f70| 0d 0a 2a 21 0d 0a 2a 21 | 20 20 20 20 20 20 50 72 |..*!..*!|      Pr|
|00005f80| 6f 63 65 64 75 72 65 3a | 20 4a 55 53 54 50 41 54 |ocedure:| JUSTPAT|
|00005f90| 48 0d 0a 2a 21 0d 0a 2a | 21 2a 2a 2a 2a 2a 2a 2a |H..*!..*|!*******|
|00005fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005fc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005fd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a 46 55 4e 43 |********|**..FUNC|
|00005fe0| 54 49 4f 4e 20 6a 75 73 | 74 70 61 74 68 0d 0a 2a |TION jus|tpath..*|
|00005ff0| 20 52 65 74 75 72 6e 20 | 6a 75 73 74 20 74 68 65 | Return |just the|
|00006000| 20 70 61 74 68 20 6e 61 | 6d 65 20 66 72 6f 6d 20 | path na|me from |
|00006010| 22 66 69 6c 6e 61 6d 65 | 22 0d 0a 50 41 52 41 4d |"filname|"..PARAM|
|00006020| 45 54 45 52 53 20 6d 2e | 66 69 6c 6e 61 6d 65 0d |ETERS m.|filname.|
|00006030| 0a 50 52 49 56 41 54 45 | 20 41 4c 4c 0d 0a 6d 2e |.PRIVATE| ALL..m.|
|00006040| 66 69 6c 6e 61 6d 65 20 | 3d 20 41 4c 4c 54 52 49 |filname |= ALLTRI|
|00006050| 4d 28 55 50 50 45 52 28 | 6d 2e 66 69 6c 6e 61 6d |M(UPPER(|m.filnam|
|00006060| 65 29 29 0d 0a 49 46 20 | 27 5c 27 20 24 20 6d 2e |e))..IF |'\' $ m.|
|00006070| 66 69 6c 6e 61 6d 65 0d | 0a 20 20 20 6d 2e 66 69 |filname.|.   m.fi|
|00006080| 6c 6e 61 6d 65 20 3d 20 | 53 55 42 53 54 52 28 6d |lname = |SUBSTR(m|
|00006090| 2e 66 69 6c 6e 61 6d 65 | 2c 31 2c 52 41 54 28 27 |.filname|,1,RAT('|
|000060a0| 5c 27 2c 6d 2e 66 69 6c | 6e 61 6d 65 29 29 0d 0a |\',m.fil|name))..|
|000060b0| 20 20 20 49 46 20 52 49 | 47 48 54 28 6d 2e 66 69 |   IF RI|GHT(m.fi|
|000060c0| 6c 6e 61 6d 65 2c 31 29 | 20 3d 20 27 5c 27 20 41 |lname,1)| = '\' A|
|000060d0| 4e 44 20 4c 45 4e 28 6d | 2e 66 69 6c 6e 61 6d 65 |ND LEN(m|.filname|
|000060e0| 29 20 3e 20 31 20 3b 0d | 0a 20 20 20 20 20 20 20 |) > 1 ;.|.       |
|000060f0| 20 20 41 4e 44 20 53 55 | 42 53 54 52 28 6d 2e 66 |  AND SU|BSTR(m.f|
|00006100| 69 6c 6e 61 6d 65 2c 4c | 45 4e 28 6d 2e 66 69 6c |ilname,L|EN(m.fil|
|00006110| 6e 61 6d 65 29 2d 31 2c | 31 29 20 3c 3e 20 27 3a |name)-1,|1) <> ':|
|00006120| 27 0d 0a 20 20 20 20 20 | 20 6d 2e 66 69 6c 6e 61 |'..     | m.filna|
|00006130| 6d 65 20 3d 20 53 55 42 | 53 54 52 28 6d 2e 66 69 |me = SUB|STR(m.fi|
|00006140| 6c 6e 61 6d 65 2c 31 2c | 4c 45 4e 28 6d 2e 66 69 |lname,1,|LEN(m.fi|
|00006150| 6c 6e 61 6d 65 29 2d 31 | 29 0d 0a 20 20 20 45 4e |lname)-1|)..   EN|
|00006160| 44 49 46 0d 0a 20 20 20 | 52 45 54 55 52 4e 20 6d |DIF..   |RETURN m|
|00006170| 2e 66 69 6c 6e 61 6d 65 | 0d 0a 45 4c 53 45 0d 0a |.filname|..ELSE..|
|00006180| 20 20 20 52 45 54 55 52 | 4e 20 27 27 0d 0a 45 4e |   RETUR|N ''..EN|
|00006190| 44 49 46 0d 0a 0d 0a 2a | 21 2a 2a 2a 2a 2a 2a 2a |DIF....*|!*******|
|000061a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000061b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000061c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000061d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a 2a 21 0d 0a |********|**..*!..|
|000061e0| 2a 21 20 20 20 20 20 20 | 50 72 6f 63 65 64 75 72 |*!      |Procedur|
|000061f0| 65 3a 20 41 44 44 42 53 | 0d 0a 2a 21 0d 0a 2a 21 |e: ADDBS|..*!..*!|
|00006200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006240| 2a 0d 0a 46 55 4e 43 54 | 49 4f 4e 20 61 64 64 62 |*..FUNCT|ION addb|
|00006250| 73 0d 0a 2a 20 41 64 64 | 20 61 20 62 61 63 6b 73 |s..* Add| a backs|
|00006260| 6c 61 73 68 20 74 6f 20 | 61 20 70 61 74 68 20 6e |lash to |a path n|
|00006270| 61 6d 65 20 69 66 20 74 | 68 65 72 65 20 69 73 6e |ame if t|here isn|
|00006280| 27 74 20 61 6c 72 65 61 | 64 79 20 6f 6e 65 20 74 |'t alrea|dy one t|
|00006290| 68 65 72 65 0d 0a 50 41 | 52 41 4d 45 54 45 52 20 |here..PA|RAMETER |
|000062a0| 6d 2e 70 61 74 68 6e 61 | 6d 65 0d 0a 50 52 49 56 |m.pathna|me..PRIV|
|000062b0| 41 54 45 20 41 4c 4c 0d | 0a 6d 2e 70 61 74 68 6e |ATE ALL.|.m.pathn|
|000062c0| 61 6d 65 20 3d 20 41 4c | 4c 54 52 49 4d 28 55 50 |ame = AL|LTRIM(UP|
|000062d0| 50 45 52 28 6d 2e 70 61 | 74 68 6e 61 6d 65 29 29 |PER(m.pa|thname))|
|000062e0| 0d 0a 49 46 20 21 28 52 | 49 47 48 54 28 6d 2e 70 |..IF !(R|IGHT(m.p|
|000062f0| 61 74 68 6e 61 6d 65 2c | 31 29 20 24 20 27 5c 3a |athname,|1) $ '\:|
|00006300| 27 29 20 41 4e 44 20 21 | 45 4d 50 54 59 28 6d 2e |') AND !|EMPTY(m.|
|00006310| 70 61 74 68 6e 61 6d 65 | 29 0d 0a 20 20 20 6d 2e |pathname|)..   m.|
|00006320| 70 61 74 68 6e 61 6d 65 | 20 3d 20 6d 2e 70 61 74 |pathname| = m.pat|
|00006330| 68 6e 61 6d 65 20 2b 20 | 27 5c 27 0d 0a 45 4e 44 |hname + |'\'..END|
|00006340| 49 46 0d 0a 52 45 54 55 | 52 4e 20 6d 2e 70 61 74 |IF..RETU|RN m.pat|
|00006350| 68 6e 61 6d 65 0d 0a 0d | 0a 2a 21 2a 2a 2a 2a 2a |hname...|.*!*****|
|00006360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0a 2a 21 |********|****..*!|
|000063a0| 0d 0a 2a 21 20 20 20 20 | 20 20 46 75 6e 63 74 69 |..*!    |  Functi|
|000063b0| 6f 6e 3a 20 54 45 52 4d | 0d 0a 2a 21 0d 0a 2a 21 |on: TERM|..*!..*!|
|000063c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000063d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000063e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000063f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
+--------+-------------------------+-------------------------+--------+--------+