Programming Languages Suite

home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / WIZARDS / APPWIZ.FPT < prev next >
FoxPro Memo File | 1998-05-26 | 17.9 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was processed as: FoxPro Memo File (other/foxProMemo).
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	FoxPro Memo File `(other/foxProMemo)`	magic	Unsupported
`100%`	file	Adobe Photoshop Color swatch, version 0, 287 colors; 1st RGB space (0), w 0x40, x 0, y 0, z 0 ; 2nd RGB space (0), w 0, x 0, y 0, z 0	default (weak)
`99%`	file	FoxPro FPT, blocks size 64, next free block index 287, field type 1, field length 1880, 1st item "LOCAL lcMainClassLib"	default
`98%`	file	data	default
`57%`	TrID	Sybase iAnywhere memo files	default
`42%`	TrID	MacBinary 1	default (weak)
`100%`	siegfried	x-fmt/342 Microsoft FoxPro Memo	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 01 1f 00 00 00 40 | 00 00 00 00 00 00 00 00 |.......@|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 01 00 00 07 58 | 4c 4f 43 41 4c 20 6c 63 |.......X|LOCAL lc|
|00000210| 4d 61 69 6e 43 6c 61 73 | 73 4c 69 62 0d 0a 4c 4f |MainClas|sLib..LO|
|00000220| 43 41 4c 20 6c 63 4c 61 | 73 74 53 65 74 54 61 6c |CAL lcLa|stSetTal|
|00000230| 6b 2c 6c 63 4c 61 73 74 | 53 65 74 50 61 74 68 2c |k,lcLast|SetPath,|
|00000240| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|00000250| 62 2c 6c 63 4f 6e 53 68 | 75 74 64 6f 77 6e 0d 0a |b,lcOnSh|utdown..|
|00000260| 0d 0a 2a 2d 2d 20 53 61 | 76 65 20 61 6e 64 20 63 |..*-- Sa|ve and c|
|00000270| 6f 6e 66 69 67 75 72 65 | 20 65 6e 76 69 72 6f 6e |onfigure| environ|
|00000280| 6d 65 6e 74 2e 0d 0a 6c | 63 4c 61 73 74 53 65 74 |ment...l|cLastSet|
|00000290| 54 61 6c 6b 3d 53 45 54 | 28 22 54 41 4c 4b 22 29 |Talk=SET|("TALK")|
|000002a0| 0d 0a 53 45 54 20 54 41 | 4c 4b 20 4f 46 46 0d 0a |..SET TA|LK OFF..|
|000002b0| 6c 63 4c 61 73 74 53 65 | 74 50 61 74 68 3d 53 45 |lcLastSe|tPath=SE|
|000002c0| 54 28 22 50 41 54 48 22 | 29 0d 0a 2a 3c 43 44 3e |T("PATH"|)..*<CD>|
|000002d0| 2a 0d 0a 2a 3c 50 41 54 | 48 3e 2a 0d 0a 50 55 53 |*..*<PAT|H>*..PUS|
|000002e0| 48 20 4d 45 4e 55 20 5f | 6d 73 79 73 6d 65 6e 75 |H MENU _|msysmenu|
|000002f0| 0d 0a 6c 63 4c 61 73 74 | 53 65 74 43 6c 61 73 73 |..lcLast|SetClass|
|00000300| 4c 69 62 3d 53 45 54 28 | 22 43 4c 41 53 53 4c 49 |Lib=SET(|"CLASSLI|
|00000310| 42 22 29 0d 0a 6c 63 4d | 61 69 6e 43 6c 61 73 73 |B")..lcM|ainClass|
|00000320| 4c 69 62 3d 22 2a 3c 4d | 41 49 4e 2e 56 43 58 3e |Lib="*<M|AIN.VCX>|
|00000330| 2a 22 0d 0a 53 45 54 20 | 43 4c 41 53 53 4c 49 42 |*"..SET |CLASSLIB|
|00000340| 20 54 4f 20 28 6c 63 4d | 61 69 6e 43 6c 61 73 73 | TO (lcM|ainClass|
|00000350| 4c 69 62 29 20 41 44 44 | 49 54 49 56 45 0d 0a 6c |Lib) ADD|ITIVE..l|
|00000360| 63 4f 6e 53 68 75 74 64 | 6f 77 6e 3d 22 53 68 75 |cOnShutd|own="Shu|
|00000370| 74 44 6f 77 6e 28 29 22 | 0d 0a 4f 4e 20 53 48 55 |tDown()"|..ON SHU|
|00000380| 54 44 4f 57 4e 20 26 6c | 63 4f 6e 53 68 75 74 64 |TDOWN &l|cOnShutd|
|00000390| 6f 77 6e 0d 0a 4f 4e 20 | 45 52 52 4f 52 20 45 72 |own..ON |ERROR Er|
|000003a0| 72 6f 72 48 61 6e 64 6c | 65 72 28 45 52 52 4f 52 |rorHandl|er(ERROR|
|000003b0| 28 29 2c 50 52 4f 47 52 | 41 4d 28 29 2c 4c 49 4e |(),PROGR|AM(),LIN|
|000003c0| 45 4e 4f 28 29 29 0d 0a | 5f 73 68 65 6c 6c 3d 22 |ENO())..|_shell="|
|000003d0| 44 4f 20 43 6c 65 61 6e | 75 70 20 49 4e 20 2a 3c |DO Clean|up IN *<|
|000003e0| 4d 41 49 4e 2e 50 52 47 | 3e 2a 22 0d 0a 0d 0a 2a |MAIN.PRG|>*"....*|
|000003f0| 2d 2d 20 49 6e 73 74 61 | 6e 74 69 61 74 65 20 61 |-- Insta|ntiate a|
|00000400| 70 70 6c 69 63 61 74 69 | 6f 6e 20 6f 62 6a 65 63 |pplicati|on objec|
|00000410| 74 2e 0d 0a 52 45 4c 45 | 41 53 45 20 67 6f 41 70 |t...RELE|ASE goAp|
|00000420| 70 0d 0a 50 55 42 4c 49 | 43 20 67 6f 41 70 70 0d |p..PUBLI|C goApp.|
|00000430| 0a 67 6f 41 70 70 3d 43 | 52 45 41 54 45 4f 42 4a |.goApp=C|REATEOBJ|
|00000440| 45 43 54 28 22 63 41 70 | 70 6c 69 63 61 74 69 6f |ECT("cAp|plicatio|
|00000450| 6e 22 29 0d 0a 0d 0a 2a | 2d 2d 20 43 6f 6e 66 69 |n")....*|-- Confi|
|00000460| 67 75 72 65 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |gure app|lication|
|00000470| 20 6f 62 6a 65 63 74 2e | 0d 0a 2a 3c 49 6e 69 74 | object.|..*<Init|
|00000480| 61 6c 69 7a 65 3e 2a 0d | 0a 0d 0a 2a 2d 2d 20 53 |alize>*.|...*-- S|
|00000490| 68 6f 77 20 61 70 70 6c | 69 63 61 74 69 6f 6e 2e |how appl|ication.|
|000004a0| 0d 0a 67 6f 41 70 70 2e | 53 68 6f 77 0d 0a 2a 2d |..goApp.|Show..*-|
|000004b0| 2d 20 52 65 6c 65 61 73 | 65 20 61 70 70 6c 69 63 |- Releas|e applic|
|000004c0| 61 74 69 6f 6e 2e 0d 0a | 52 45 4c 45 41 53 45 20 |ation...|RELEASE |
|000004d0| 67 6f 41 70 70 0d 0a 0d | 0a 2a 2d 2d 20 52 65 73 |goApp...|.*-- Res|
|000004e0| 74 6f 72 65 20 64 65 66 | 61 75 6c 74 20 6d 65 6e |tore def|ault men|
|000004f0| 75 2e 0d 0a 50 4f 50 20 | 4d 45 4e 55 20 5f 6d 73 |u...POP |MENU _ms|
|00000500| 79 73 6d 65 6e 75 0d 0a | 0d 0a 2a 2d 2d 20 52 65 |ysmenu..|..*-- Re|
|00000510| 73 74 6f 72 65 20 65 6e | 76 69 72 6f 6e 6d 65 6e |store en|vironmen|
|00000520| 74 2e 0d 0a 4f 4e 20 45 | 52 52 4f 52 0d 0a 4f 4e |t...ON E|RROR..ON|
|00000530| 20 53 48 55 54 44 4f 57 | 4e 0d 0a 49 46 20 4e 4f | SHUTDOW|N..IF NO|
|00000540| 54 20 6c 63 4c 61 73 74 | 53 65 74 43 6c 61 73 73 |T lcLast|SetClass|
|00000550| 4c 69 62 3d 3d 53 45 54 | 28 22 63 6c 61 73 73 6c |Lib==SET|("classl|
|00000560| 69 62 22 29 0d 0a 09 52 | 45 4c 45 41 53 45 20 43 |ib")...R|ELEASE C|
|00000570| 4c 41 53 53 4c 49 42 20 | 28 6c 63 4d 61 69 6e 43 |LASSLIB |(lcMainC|
|00000580| 6c 61 73 73 4c 69 62 29 | 0d 0a 45 4e 44 49 46 0d |lassLib)|..ENDIF.|
|00000590| 0a 49 46 20 45 4d 50 54 | 59 28 6c 63 4c 61 73 74 |.IF EMPT|Y(lcLast|
|000005a0| 53 65 74 50 61 74 68 29 | 0d 0a 09 53 45 54 20 50 |SetPath)|...SET P|
|000005b0| 41 54 48 20 54 4f 0d 0a | 45 4c 53 45 0d 0a 09 53 |ATH TO..|ELSE...S|
|000005c0| 45 54 20 50 41 54 48 20 | 54 4f 20 26 6c 63 4c 61 |ET PATH |TO &lcLa|
|000005d0| 73 74 53 65 74 50 61 74 | 68 0d 0a 45 4e 44 49 46 |stSetPat|h..ENDIF|
|000005e0| 0d 0a 49 46 20 6c 63 4c | 61 73 74 53 65 74 54 61 |..IF lcL|astSetTa|
|000005f0| 6c 6b 3d 3d 22 4f 4e 22 | 0d 0a 09 53 45 54 20 54 |lk=="ON"|...SET T|
|00000600| 41 4c 4b 20 4f 4e 0d 0a | 45 4c 53 45 0d 0a 09 53 |ALK ON..|ELSE...S|
|00000610| 45 54 20 54 41 4c 4b 20 | 4f 46 46 0d 0a 45 4e 44 |ET TALK |OFF..END|
|00000620| 49 46 0d 0a 52 45 54 55 | 52 4e 0d 0a 0d 0a 0d 0a |IF..RETU|RN......|
|00000630| 0d 0a 46 55 4e 43 54 49 | 4f 4e 20 45 72 72 6f 72 |..FUNCTI|ON Error|
|00000640| 48 61 6e 64 6c 65 72 28 | 6e 45 72 72 6f 72 2c 63 |Handler(|nError,c|
|00000650| 4d 65 74 68 6f 64 2c 6e | 4c 69 6e 65 29 0d 0a 4c |Method,n|Line)..L|
|00000660| 4f 43 41 4c 20 6c 63 45 | 72 72 6f 72 4d 73 67 2c |OCAL lcE|rrorMsg,|
|00000670| 6c 63 43 6f 64 65 4c 69 | 6e 65 4d 73 67 0d 0a 0d |lcCodeLi|neMsg...|
|00000680| 0a 57 41 49 54 20 43 4c | 45 41 52 0d 0a 6c 63 45 |.WAIT CL|EAR..lcE|
|00000690| 72 72 6f 72 4d 73 67 3d | 4d 45 53 53 41 47 45 28 |rrorMsg=|MESSAGE(|
|000006a0| 29 2b 43 48 52 28 31 33 | 29 2b 43 48 52 28 31 33 |)+CHR(13|)+CHR(13|
|000006b0| 29 0d 0a 6c 63 45 72 72 | 6f 72 4d 73 67 3d 6c 63 |)..lcErr|orMsg=lc|
|000006c0| 45 72 72 6f 72 4d 73 67 | 2b 22 4d 65 74 68 6f 64 |ErrorMsg|+"Method|
|000006d0| 3a 20 20 20 20 22 2b 63 | 4d 65 74 68 6f 64 0d 0a |:    "+c|Method..|
|000006e0| 6c 63 43 6f 64 65 4c 69 | 6e 65 4d 73 67 3d 4d 45 |lcCodeLi|neMsg=ME|
|000006f0| 53 53 41 47 45 28 31 29 | 0d 0a 49 46 20 42 45 54 |SSAGE(1)|..IF BET|
|00000700| 57 45 45 4e 28 6e 4c 69 | 6e 65 2c 31 2c 31 30 30 |WEEN(nLi|ne,1,100|
|00000710| 30 30 29 20 41 4e 44 20 | 4e 4f 54 20 6c 63 43 6f |00) AND |NOT lcCo|
|00000720| 64 65 4c 69 6e 65 4d 73 | 67 3d 22 2e 2e 2e 22 0d |deLineMs|g="...".|
|00000730| 0a 09 6c 63 45 72 72 6f | 72 4d 73 67 3d 6c 63 45 |..lcErro|rMsg=lcE|
|00000740| 72 72 6f 72 4d 73 67 2b | 43 48 52 28 31 33 29 2b |rrorMsg+|CHR(13)+|
|00000750| 22 4c 69 6e 65 3a 20 20 | 20 20 20 20 20 20 20 22 |"Line:  |       "|
|00000760| 2b 41 4c 4c 54 52 49 4d | 28 53 54 52 28 6e 4c 69 |+ALLTRIM|(STR(nLi|
|00000770| 6e 65 29 29 0d 0a 09 49 | 46 20 4e 4f 54 20 45 4d |ne))...I|F NOT EM|
|00000780| 50 54 59 28 6c 63 43 6f | 64 65 4c 69 6e 65 4d 73 |PTY(lcCo|deLineMs|
|00000790| 67 29 0d 0a 09 09 6c 63 | 45 72 72 6f 72 4d 73 67 |g)....lc|ErrorMsg|
|000007a0| 3d 6c 63 45 72 72 6f 72 | 4d 73 67 2b 43 48 52 28 |=lcError|Msg+CHR(|
|000007b0| 31 33 29 2b 43 48 52 28 | 31 33 29 2b 6c 63 43 6f |13)+CHR(|13)+lcCo|
|000007c0| 64 65 4c 69 6e 65 4d 73 | 67 0d 0a 09 45 4e 44 49 |deLineMs|g...ENDI|
|000007d0| 46 0d 0a 45 4e 44 49 46 | 0d 0a 49 46 20 4d 45 53 |F..ENDIF|..IF MES|
|000007e0| 53 41 47 45 42 4f 58 28 | 6c 63 45 72 72 6f 72 4d |SAGEBOX(|lcErrorM|
|000007f0| 73 67 2c 31 37 2c 5f 73 | 63 72 65 65 6e 2e 43 61 |sg,17,_s|creen.Ca|
|00000800| 70 74 69 6f 6e 29 23 31 | 0d 0a 09 4f 4e 20 45 52 |ption)#1|...ON ER|
|00000810| 52 4f 52 0d 0a 09 52 45 | 54 55 52 4e 20 2e 46 2e |ROR...RE|TURN .F.|
|00000820| 0d 0a 45 4e 44 49 46 0d | 0a 45 4e 44 46 55 4e 43 |..ENDIF.|.ENDFUNC|
|00000830| 0d 0a 0d 0a 0d 0a 0d 0a | 46 55 4e 43 54 49 4f 4e |........|FUNCTION|
|00000840| 20 53 68 75 74 44 6f 77 | 6e 0d 0a 0d 0a 49 46 20 | ShutDow|n....IF |
|00000850| 54 59 50 45 28 22 67 6f | 41 70 70 22 29 3d 3d 22 |TYPE("go|App")=="|
|00000860| 4f 22 20 41 4e 44 20 4e | 4f 54 20 49 53 4e 55 4c |O" AND N|OT ISNUL|
|00000870| 4c 28 67 6f 41 70 70 29 | 0d 0a 09 52 45 54 55 52 |L(goApp)|...RETUR|
|00000880| 4e 20 67 6f 41 70 70 2e | 4f 6e 53 68 75 74 44 6f |N goApp.|OnShutDo|
|00000890| 77 6e 28 29 0d 0a 45 4e | 44 49 46 0d 0a 43 6c 65 |wn()..EN|DIF..Cle|
|000008a0| 61 6e 75 70 28 29 0d 0a | 51 55 49 54 0d 0a 45 4e |anup()..|QUIT..EN|
|000008b0| 44 46 55 4e 43 0d 0a 0d | 0a 0d 0a 46 55 4e 43 54 |DFUNC...|...FUNCT|
|000008c0| 49 4f 4e 20 43 6c 65 61 | 6e 75 70 0d 0a 0d 0a 49 |ION Clea|nup....I|
|000008d0| 46 20 43 4e 54 42 41 52 | 28 22 5f 6d 73 79 73 6d |F CNTBAR|("_msysm|
|000008e0| 65 6e 75 22 29 3d 37 0d | 0a 09 52 45 54 55 52 4e |enu")=7.|..RETURN|
|000008f0| 0d 0a 45 4e 44 49 46 0d | 0a 4f 4e 20 45 52 52 4f |..ENDIF.|.ON ERRO|
|00000900| 52 0d 0a 4f 4e 20 53 48 | 55 54 44 4f 57 4e 0d 0a |R..ON SH|UTDOWN..|
|00000910| 53 45 54 20 43 4c 41 53 | 53 4c 49 42 20 54 4f 0d |SET CLAS|SLIB TO.|
|00000920| 0a 53 45 54 20 50 41 54 | 48 20 54 4f 0d 0a 43 4c |.SET PAT|H TO..CL|
|00000930| 45 41 52 20 41 4c 4c 0d | 0a 43 4c 4f 53 45 20 41 |EAR ALL.|.CLOSE A|
|00000940| 4c 4c 0d 0a 50 4f 50 20 | 4d 45 4e 55 20 5f 6d 73 |LL..POP |MENU _ms|
|00000950| 79 73 6d 65 6e 75 0d 0a | 52 45 54 55 52 4e 0d 0a |ysmenu..|RETURN..|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 00 01 00 00 00 04 | 44 41 54 41 00 00 00 00 |........|DATA....|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009c0| 00 00 00 01 00 00 00 07 | 49 4e 43 4c 55 44 45 00 |........|INCLUDE.|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a00| 00 00 00 01 00 00 00 05 | 46 4f 52 4d 53 00 00 00 |........|FORMS...|
|00000a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 01 00 00 00 08 | 47 52 41 50 48 49 43 53 |........|GRAPHICS|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a80| 00 00 00 01 00 00 00 04 | 48 45 4c 50 00 00 00 00 |........|HELP....|
|00000a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 01 00 00 00 04 | 4c 49 42 53 00 00 00 00 |........|LIBS....|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b00| 00 00 00 01 00 00 00 05 | 4d 45 4e 55 53 00 00 00 |........|MENUS...|
|00000b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b40| 00 00 00 01 00 00 00 05 | 50 52 4f 47 53 00 00 00 |........|PROGS...|
|00000b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b80| 00 00 00 01 00 00 00 07 | 52 45 50 4f 52 54 53 00 |........|REPORTS.|
|00000b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bc0| 00 00 00 01 00 00 00 07 | 43 6f 6e 74 61 63 74 00 |........|Contact.|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 00 00 00 01 00 00 00 05 | 42 6f 6f 6b 73 00 00 00 |........|Books...|
|00000c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c40| 00 00 00 01 00 00 00 17 | 44 6f 6e 61 74 69 6f 6e |........|Donation|
|00000c50| 0d 0a 63 68 61 72 69 74 | 79 2e 64 62 66 0d 0a 00 |..charit|y.dbf...|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c80| 00 00 00 01 00 00 00 07 | 52 65 63 69 70 65 73 00 |........|Recipes.|
|00000c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cc0| 00 00 00 01 00 00 00 0c | 41 64 64 72 65 73 73 20 |........|Address |
|00000cd0| 42 6f 6f 6b 00 00 00 00 | 00 00 00 00 00 00 00 00 |Book....|........|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 00 01 00 00 00 0e | 41 73 73 65 74 20 54 72 |........|Asset Tr|
|00000d10| 61 63 6b 69 6e 67 00 00 | 00 00 00 00 00 00 00 00 |acking..|........|
|00000d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d40| 00 00 00 01 00 00 00 10 | 45 76 65 6e 74 20 4d 61 |........|Event Ma|
|00000d50| 6e 61 67 65 6d 65 6e 74 | 00 00 00 00 00 00 00 00 |nagement|........|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d80| 00 00 00 01 00 00 00 08 | 45 78 70 65 6e 73 65 73 |........|Expenses|
|00000d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dc0| 00 00 00 01 00 00 00 13 | 48 6f 75 73 65 68 6f 6c |........|Househol|
|00000dd0| 64 20 49 6e 76 65 6e 74 | 6f 72 79 00 00 00 00 00 |d Invent|ory.....|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 00 01 00 00 00 11 | 49 6e 76 65 6e 74 6f 72 |........|Inventor|
|00000e10| 79 20 43 6f 6e 74 72 6f | 6c 00 00 00 00 00 00 00 |y Contro|l.......|
|00000e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e40| 00 00 00 01 00 00 00 06 | 4c 65 64 67 65 72 00 00 |........|Ledger..|
|00000e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e80| 00 00 00 01 00 00 00 0a | 4d 65 6d 62 65 72 73 68 |........|Membersh|
|00000e90| 69 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ip......|........|
|00000ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 01 00 00 00 10 | 4d 75 73 69 63 20 43 6f |........|Music Co|
|00000ed0| 6c 6c 65 63 74 69 6f 6e | 00 00 00 00 00 00 00 00 |llection|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f00| 00 00 00 01 00 00 00 0b | 4f 72 64 65 72 20 45 6e |........|Order En|
|00000f10| 74 72 79 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |try.....|........|
|00000f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f40| 00 00 00 01 00 00 00 0f | 50 69 63 74 75 72 65 20 |........|Picture |
|00000f50| 4c 69 62 72 61 72 79 00 | 00 00 00 00 00 00 00 00 |Library.|........|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f80| 00 00 00 01 00 00 00 13 | 52 65 73 6f 75 72 63 65 |........|Resource|
|00000f90| 20 53 63 68 65 64 75 6c | 69 6e 67 00 00 00 00 00 | Schedul|ing.....|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 01 00 00 00 17 | 53 65 72 76 69 63 65 20 |........|Service |
|00000fd0| 43 61 6c 6c 20 4d 61 6e | 61 67 65 6d 65 6e 74 00 |Call Man|agement.|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 00 01 00 00 00 14 | 53 74 75 64 65 6e 74 73 |........|Students|
|00001010| 20 61 6e 64 20 43 6c 61 | 73 73 65 73 00 00 00 00 | and Cla|sses....|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001040| 00 00 00 01 00 00 00 10 | 56 69 64 65 6f 20 43 6f |........|Video Co|
|00001050| 6c 6c 65 63 74 69 6f 6e | 00 00 00 00 00 00 00 00 |llection|........|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001080| 00 00 00 01 00 00 00 09 | 57 69 6e 65 20 4c 69 73 |........|Wine Lis|
|00001090| 74 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |t.......|........|
|000010a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 01 00 00 00 07 | 57 6f 72 6b 6f 75 74 00 |........|Workout.|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001100| 00 00 00 01 00 00 00 10 | 54 69 6d 65 20 61 6e 64 |........|Time and|
|00001110| 20 42 69 6c 6c 69 6e 67 | 00 00 00 00 00 00 00 00 | Billing|........|
|00001120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001140| 00 00 00 01 00 00 07 76 | 4c 4f 43 41 4c 20 6c 63 |.......v|LOCAL lc|
|00001150| 4d 61 69 6e 43 6c 61 73 | 73 4c 69 62 0d 0a 4c 4f |MainClas|sLib..LO|
|00001160| 43 41 4c 20 6c 63 4c 61 | 73 74 53 65 74 54 61 6c |CAL lcLa|stSetTal|
|00001170| 6b 2c 6c 63 4c 61 73 74 | 53 65 74 50 61 74 68 2c |k,lcLast|SetPath,|
|00001180| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|00001190| 62 2c 6c 63 4f 6e 53 68 | 75 74 64 6f 77 6e 0d 0a |b,lcOnSh|utdown..|
|000011a0| 0d 0a 2a 2d 2d 20 53 61 | 76 65 20 61 6e 64 20 63 |..*-- Sa|ve and c|
|000011b0| 6f 6e 66 69 67 75 72 65 | 20 65 6e 76 69 72 6f 6e |onfigure| environ|
|000011c0| 6d 65 6e 74 2e 0d 0a 6c | 63 4c 61 73 74 53 65 74 |ment...l|cLastSet|
|000011d0| 54 61 6c 6b 3d 53 45 54 | 28 22 54 41 4c 4b 22 29 |Talk=SET|("TALK")|
|000011e0| 0d 0a 53 45 54 20 54 41 | 4c 4b 20 4f 46 46 0d 0a |..SET TA|LK OFF..|
|000011f0| 6c 63 4c 61 73 74 53 65 | 74 50 61 74 68 3d 53 45 |lcLastSe|tPath=SE|
|00001200| 54 28 22 50 41 54 48 22 | 29 0d 0a 2a 3c 43 44 3e |T("PATH"|)..*<CD>|
|00001210| 2a 0d 0a 2a 3c 50 41 54 | 48 3e 2a 0d 0a 50 55 53 |*..*<PAT|H>*..PUS|
|00001220| 48 20 4d 45 4e 55 20 5f | 6d 73 79 73 6d 65 6e 75 |H MENU _|msysmenu|
|00001230| 0d 0a 6c 63 4c 61 73 74 | 53 65 74 43 6c 61 73 73 |..lcLast|SetClass|
|00001240| 4c 69 62 3d 53 45 54 28 | 22 43 4c 41 53 53 4c 49 |Lib=SET(|"CLASSLI|
|00001250| 42 22 29 0d 0a 6c 63 4d | 61 69 6e 43 6c 61 73 73 |B")..lcM|ainClass|
|00001260| 4c 69 62 3d 22 2a 3c 4d | 41 49 4e 2e 56 43 58 3e |Lib="*<M|AIN.VCX>|
|00001270| 2a 22 0d 0a 53 45 54 20 | 43 4c 41 53 53 4c 49 42 |*"..SET |CLASSLIB|
|00001280| 20 54 4f 20 28 6c 63 4d | 61 69 6e 43 6c 61 73 73 | TO (lcM|ainClass|
|00001290| 4c 69 62 29 20 41 44 44 | 49 54 49 56 45 0d 0a 6c |Lib) ADD|ITIVE..l|
|000012a0| 63 4f 6e 53 68 75 74 64 | 6f 77 6e 3d 22 53 68 75 |cOnShutd|own="Shu|
|000012b0| 74 44 6f 77 6e 28 29 22 | 0d 0a 4f 4e 20 53 48 55 |tDown()"|..ON SHU|
|000012c0| 54 44 4f 57 4e 20 26 6c | 63 4f 6e 53 68 75 74 64 |TDOWN &l|cOnShutd|
|000012d0| 6f 77 6e 0d 0a 4f 4e 20 | 45 52 52 4f 52 20 45 72 |own..ON |ERROR Er|
|000012e0| 72 6f 72 48 61 6e 64 6c | 65 72 28 45 52 52 4f 52 |rorHandl|er(ERROR|
|000012f0| 28 29 2c 50 52 4f 47 52 | 41 4d 28 29 2c 4c 49 4e |(),PROGR|AM(),LIN|
|00001300| 45 4e 4f 28 29 29 0d 0a | 5f 73 68 65 6c 6c 3d 22 |ENO())..|_shell="|
|00001310| 44 4f 20 43 6c 65 61 6e | 75 70 20 49 4e 20 2a 3c |DO Clean|up IN *<|
|00001320| 4d 41 49 4e 2e 50 52 47 | 3e 2a 22 0d 0a 0d 0a 2a |MAIN.PRG|>*"....*|
|00001330| 2d 2d 20 49 6e 73 74 61 | 6e 74 69 61 74 65 20 61 |-- Insta|ntiate a|
|00001340| 70 70 6c 69 63 61 74 69 | 6f 6e 20 6f 62 6a 65 63 |pplicati|on objec|
|00001350| 74 2e 0d 0a 52 45 4c 45 | 41 53 45 20 67 6f 41 70 |t...RELE|ASE goAp|
|00001360| 70 0d 0a 50 55 42 4c 49 | 43 20 67 6f 41 70 70 0d |p..PUBLI|C goApp.|
|00001370| 0a 67 6f 41 70 70 3d 43 | 52 45 41 54 45 4f 42 4a |.goApp=C|REATEOBJ|
|00001380| 45 43 54 28 22 63 41 70 | 70 6c 69 63 61 74 69 6f |ECT("cAp|plicatio|
|00001390| 6e 22 29 0d 0a 0d 0a 2a | 2d 2d 20 43 6f 6e 66 69 |n")....*|-- Confi|
|000013a0| 67 75 72 65 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |gure app|lication|
|000013b0| 20 6f 62 6a 65 63 74 2e | 0d 0a 2a 3c 49 6e 69 74 | object.|..*<Init|
|000013c0| 61 6c 69 7a 65 3e 2a 0d | 0a 0d 0a 2a 2d 2d 20 53 |alize>*.|...*-- S|
|000013d0| 68 6f 77 20 61 70 70 6c | 69 63 61 74 69 6f 6e 2e |how appl|ication.|
|000013e0| 0d 0a 67 6f 41 70 70 2e | 53 68 6f 77 0d 0a 2a 2d |..goApp.|Show..*-|
|000013f0| 2d 20 52 65 6c 65 61 73 | 65 20 61 70 70 6c 69 63 |- Releas|e applic|
|00001400| 61 74 69 6f 6e 2e 0d 0a | 52 45 4c 45 41 53 45 20 |ation...|RELEASE |
|00001410| 67 6f 41 70 70 0d 0a 0d | 0a 2a 2d 2d 20 52 65 73 |goApp...|.*-- Res|
|00001420| 74 6f 72 65 20 64 65 66 | 61 75 6c 74 20 6d 65 6e |tore def|ault men|
|00001430| 75 2e 0d 0a 50 4f 50 20 | 4d 45 4e 55 20 5f 6d 73 |u...POP |MENU _ms|
|00001440| 79 73 6d 65 6e 75 0d 0a | 0d 0a 2a 2d 2d 20 52 65 |ysmenu..|..*-- Re|
|00001450| 73 74 6f 72 65 20 65 6e | 76 69 72 6f 6e 6d 65 6e |store en|vironmen|
|00001460| 74 2e 0d 0a 4f 4e 20 45 | 52 52 4f 52 0d 0a 4f 4e |t...ON E|RROR..ON|
|00001470| 20 53 48 55 54 44 4f 57 | 4e 0d 0a 49 46 20 4e 4f | SHUTDOW|N..IF NO|
|00001480| 54 20 6c 63 4c 61 73 74 | 53 65 74 43 6c 61 73 73 |T lcLast|SetClass|
|00001490| 4c 69 62 3d 3d 53 45 54 | 28 22 63 6c 61 73 73 6c |Lib==SET|("classl|
|000014a0| 69 62 22 29 0d 0a 09 52 | 45 4c 45 41 53 45 20 43 |ib")...R|ELEASE C|
|000014b0| 4c 41 53 53 4c 49 42 20 | 28 6c 63 4d 61 69 6e 43 |LASSLIB |(lcMainC|
|000014c0| 6c 61 73 73 4c 69 62 29 | 0d 0a 45 4e 44 49 46 0d |lassLib)|..ENDIF.|
|000014d0| 0a 49 46 20 45 4d 50 54 | 59 28 6c 63 4c 61 73 74 |.IF EMPT|Y(lcLast|
|000014e0| 53 65 74 50 61 74 68 29 | 0d 0a 09 53 45 54 20 50 |SetPath)|...SET P|
|000014f0| 41 54 48 20 54 4f 0d 0a | 45 4c 53 45 0d 0a 09 53 |ATH TO..|ELSE...S|
|00001500| 45 54 20 50 41 54 48 20 | 54 4f 20 26 6c 63 4c 61 |ET PATH |TO &lcLa|
|00001510| 73 74 53 65 74 50 61 74 | 68 0d 0a 45 4e 44 49 46 |stSetPat|h..ENDIF|
|00001520| 0d 0a 49 46 20 6c 63 4c | 61 73 74 53 65 74 54 61 |..IF lcL|astSetTa|
|00001530| 6c 6b 3d 3d 22 4f 4e 22 | 0d 0a 09 53 45 54 20 54 |lk=="ON"|...SET T|
|00001540| 41 4c 4b 20 4f 4e 0d 0a | 45 4c 53 45 0d 0a 09 53 |ALK ON..|ELSE...S|
|00001550| 45 54 20 54 41 4c 4b 20 | 4f 46 46 0d 0a 45 4e 44 |ET TALK |OFF..END|
|00001560| 49 46 0d 0a 52 45 54 55 | 52 4e 0d 0a 0d 0a 0d 0a |IF..RETU|RN......|
|00001570| 0d 0a 46 55 4e 43 54 49 | 4f 4e 20 45 72 72 6f 72 |..FUNCTI|ON Error|
|00001580| 48 61 6e 64 6c 65 72 28 | 6e 45 72 72 6f 72 2c 63 |Handler(|nError,c|
|00001590| 4d 65 74 68 6f 64 2c 6e | 4c 69 6e 65 29 0d 0a 4c |Method,n|Line)..L|
|000015a0| 4f 43 41 4c 20 6c 63 45 | 72 72 6f 72 4d 73 67 2c |OCAL lcE|rrorMsg,|
|000015b0| 6c 63 43 6f 64 65 4c 69 | 6e 65 4d 73 67 0d 0a 0d |lcCodeLi|neMsg...|
|000015c0| 0a 57 41 49 54 20 43 4c | 45 41 52 0d 0a 6c 63 45 |.WAIT CL|EAR..lcE|
|000015d0| 72 72 6f 72 4d 73 67 3d | 4d 45 53 53 41 47 45 28 |rrorMsg=|MESSAGE(|
|000015e0| 29 2b 43 48 52 28 31 33 | 29 2b 43 48 52 28 31 33 |)+CHR(13|)+CHR(13|
|000015f0| 29 0d 0a 6c 63 45 72 72 | 6f 72 4d 73 67 3d 6c 63 |)..lcErr|orMsg=lc|
|00001600| 45 72 72 6f 72 4d 73 67 | 2b 22 4d 65 74 68 6f 64 |ErrorMsg|+"Method|
|00001610| 3a 20 20 20 20 22 2b 63 | 4d 65 74 68 6f 64 0d 0a |:    "+c|Method..|
|00001620| 6c 63 43 6f 64 65 4c 69 | 6e 65 4d 73 67 3d 4d 45 |lcCodeLi|neMsg=ME|
|00001630| 53 53 41 47 45 28 31 29 | 0d 0a 49 46 20 42 45 54 |SSAGE(1)|..IF BET|
|00001640| 57 45 45 4e 28 6e 4c 69 | 6e 65 2c 31 2c 31 30 30 |WEEN(nLi|ne,1,100|
|00001650| 30 30 29 20 41 4e 44 20 | 4e 4f 54 20 6c 63 43 6f |00) AND |NOT lcCo|
|00001660| 64 65 4c 69 6e 65 4d 73 | 67 3d 22 2e 2e 2e 22 0d |deLineMs|g="...".|
|00001670| 0a 09 6c 63 45 72 72 6f | 72 4d 73 67 3d 6c 63 45 |..lcErro|rMsg=lcE|
|00001680| 72 72 6f 72 4d 73 67 2b | 43 48 52 28 31 33 29 2b |rrorMsg+|CHR(13)+|
|00001690| 22 4c 69 6e 65 3a 20 20 | 20 20 20 20 20 20 20 22 |"Line:  |       "|
|000016a0| 2b 41 4c 4c 54 52 49 4d | 28 53 54 52 28 6e 4c 69 |+ALLTRIM|(STR(nLi|
|000016b0| 6e 65 29 29 0d 0a 09 49 | 46 20 4e 4f 54 20 45 4d |ne))...I|F NOT EM|
|000016c0| 50 54 59 28 6c 63 43 6f | 64 65 4c 69 6e 65 4d 73 |PTY(lcCo|deLineMs|
|000016d0| 67 29 0d 0a 09 09 6c 63 | 45 72 72 6f 72 4d 73 67 |g)....lc|ErrorMsg|
|000016e0| 3d 6c 63 45 72 72 6f 72 | 4d 73 67 2b 43 48 52 28 |=lcError|Msg+CHR(|
|000016f0| 31 33 29 2b 43 48 52 28 | 31 33 29 2b 6c 63 43 6f |13)+CHR(|13)+lcCo|
|00001700| 64 65 4c 69 6e 65 4d 73 | 67 0d 0a 09 45 4e 44 49 |deLineMs|g...ENDI|
|00001710| 46 0d 0a 45 4e 44 49 46 | 0d 0a 49 46 20 4d 45 53 |F..ENDIF|..IF MES|
|00001720| 53 41 47 45 42 4f 58 28 | 6c 63 45 72 72 6f 72 4d |SAGEBOX(|lcErrorM|
|00001730| 73 67 2c 31 37 2c 5f 73 | 63 72 65 65 6e 2e 43 61 |sg,17,_s|creen.Ca|
|00001740| 70 74 69 6f 6e 29 23 31 | 0d 0a 09 4f 4e 20 45 52 |ption)#1|...ON ER|
|00001750| 52 4f 52 0d 0a 09 52 45 | 54 55 52 4e 20 2e 46 2e |ROR...RE|TURN .F.|
|00001760| 0d 0a 45 4e 44 49 46 0d | 0a 45 4e 44 46 55 4e 43 |..ENDIF.|.ENDFUNC|
|00001770| 0d 0a 0d 0a 0d 0a 0d 0a | 46 55 4e 43 54 49 4f 4e |........|FUNCTION|
|00001780| 20 53 68 75 74 44 6f 77 | 6e 0d 0a 0d 0a 49 46 20 | ShutDow|n....IF |
|00001790| 54 59 50 45 28 22 67 6f | 41 70 70 22 29 3d 3d 22 |TYPE("go|App")=="|
|000017a0| 4f 22 20 41 4e 44 20 4e | 4f 54 20 49 53 4e 55 4c |O" AND N|OT ISNUL|
|000017b0| 4c 28 67 6f 41 70 70 29 | 0d 0a 09 52 45 54 55 52 |L(goApp)|...RETUR|
|000017c0| 4e 20 67 6f 41 70 70 2e | 4f 6e 53 68 75 74 44 6f |N goApp.|OnShutDo|
|000017d0| 77 6e 28 29 0d 0a 45 4e | 44 49 46 0d 0a 43 6c 65 |wn()..EN|DIF..Cle|
|000017e0| 61 6e 75 70 28 29 0d 0a | 51 55 49 54 0d 0a 45 4e |anup()..|QUIT..EN|
|000017f0| 44 46 55 4e 43 0d 0a 0d | 0a 0d 0a 46 55 4e 43 54 |DFUNC...|...FUNCT|
|00001800| 49 4f 4e 20 43 6c 65 61 | 6e 75 70 0d 0a 0d 0a 49 |ION Clea|nup....I|
|00001810| 46 20 43 4e 54 42 41 52 | 28 22 5f 6d 73 79 73 6d |F CNTBAR|("_msysm|
|00001820| 65 6e 75 22 29 3d 37 0d | 0a 09 52 45 54 55 52 4e |enu")=7.|..RETURN|
|00001830| 0d 0a 45 4e 44 49 46 0d | 0a 4f 4e 20 45 52 52 4f |..ENDIF.|.ON ERRO|
|00001840| 52 0d 0a 4f 4e 20 53 48 | 55 54 44 4f 57 4e 0d 0a |R..ON SH|UTDOWN..|
|00001850| 53 45 54 20 43 4c 41 53 | 53 4c 49 42 20 54 4f 0d |SET CLAS|SLIB TO.|
|00001860| 0a 53 45 54 20 50 41 54 | 48 20 54 4f 0d 0a 43 4c |.SET PAT|H TO..CL|
|00001870| 45 41 52 20 41 4c 4c 0d | 0a 43 4c 4f 53 45 20 41 |EAR ALL.|.CLOSE A|
|00001880| 4c 4c 0d 0a 50 4f 50 20 | 4d 45 4e 55 20 5f 6d 73 |LL..POP |MENU _ms|
|00001890| 79 73 6d 65 6e 75 0d 0a | 52 45 54 55 52 4e 0d 0a |ysmenu..|RETURN..|
|000018a0| 2a 3c 44 75 6d 6d 79 20 | 70 72 6f 6a 65 63 74 20 |*<Dummy |project |
|000018b0| 72 65 66 65 72 65 6e 63 | 65 73 3e 2a 0d 0a 00 00 |referenc|es>*....|
|000018c0| 00 00 00 01 00 00 07 95 | 4c 4f 43 41 4c 20 6c 63 |........|LOCAL lc|
|000018d0| 4d 61 69 6e 43 6c 61 73 | 73 4c 69 62 0d 0a 4c 4f |MainClas|sLib..LO|
|000018e0| 43 41 4c 20 6c 63 4c 61 | 73 74 53 65 74 54 61 6c |CAL lcLa|stSetTal|
|000018f0| 6b 2c 6c 63 4c 61 73 74 | 53 65 74 50 61 74 68 2c |k,lcLast|SetPath,|
|00001900| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|00001910| 62 2c 6c 63 4f 6e 53 68 | 75 74 64 6f 77 6e 0d 0a |b,lcOnSh|utdown..|
|00001920| 0d 0a 2a 2d 2d 20 53 61 | 76 65 20 61 6e 64 20 63 |..*-- Sa|ve and c|
|00001930| 6f 6e 66 69 67 75 72 65 | 20 65 6e 76 69 72 6f 6e |onfigure| environ|
|00001940| 6d 65 6e 74 2e 0d 0a 6c | 63 4c 61 73 74 53 65 74 |ment...l|cLastSet|
|00001950| 54 61 6c 6b 3d 53 45 54 | 28 22 54 41 4c 4b 22 29 |Talk=SET|("TALK")|
|00001960| 0d 0a 53 45 54 20 54 41 | 4c 4b 20 4f 46 46 0d 0a |..SET TA|LK OFF..|
|00001970| 6c 63 4c 61 73 74 53 65 | 74 50 61 74 68 3d 53 45 |lcLastSe|tPath=SE|
|00001980| 54 28 22 50 41 54 48 22 | 29 0d 0a 49 46 20 44 49 |T("PATH"|)..IF DI|
|00001990| 52 45 43 54 4f 52 59 28 | 2a 3c 43 44 3e 2a 29 0d |RECTORY(|*<CD>*).|
|000019a0| 0a 09 2a 3c 43 44 3e 2a | 0d 0a 09 2a 3c 50 41 54 |..*<CD>*|...*<PAT|
|000019b0| 48 3e 2a 0d 0a 45 4e 44 | 49 46 0d 0a 50 55 53 48 |H>*..END|IF..PUSH|
|000019c0| 20 4d 45 4e 55 20 5f 6d | 73 79 73 6d 65 6e 75 0d | MENU _m|sysmenu.|
|000019d0| 0a 6c 63 4c 61 73 74 53 | 65 74 43 6c 61 73 73 4c |.lcLastS|etClassL|
|000019e0| 69 62 3d 53 45 54 28 22 | 43 4c 41 53 53 4c 49 42 |ib=SET("|CLASSLIB|
|000019f0| 22 29 0d 0a 6c 63 4d 61 | 69 6e 43 6c 61 73 73 4c |")..lcMa|inClassL|
|00001a00| 69 62 3d 22 2a 3c 4d 41 | 49 4e 2e 56 43 58 3e 2a |ib="*<MA|IN.VCX>*|
|00001a10| 22 0d 0a 53 45 54 20 43 | 4c 41 53 53 4c 49 42 20 |"..SET C|LASSLIB |
|00001a20| 54 4f 20 28 6c 63 4d 61 | 69 6e 43 6c 61 73 73 4c |TO (lcMa|inClassL|
|00001a30| 69 62 29 20 41 44 44 49 | 54 49 56 45 0d 0a 6c 63 |ib) ADDI|TIVE..lc|
|00001a40| 4f 6e 53 68 75 74 64 6f | 77 6e 3d 22 53 68 75 74 |OnShutdo|wn="Shut|
|00001a50| 44 6f 77 6e 28 29 22 0d | 0a 4f 4e 20 53 48 55 54 |Down()".|.ON SHUT|
|00001a60| 44 4f 57 4e 20 26 6c 63 | 4f 6e 53 68 75 74 64 6f |DOWN &lc|OnShutdo|
|00001a70| 77 6e 0d 0a 4f 4e 20 45 | 52 52 4f 52 20 45 72 72 |wn..ON E|RROR Err|
|00001a80| 6f 72 48 61 6e 64 6c 65 | 72 28 45 52 52 4f 52 28 |orHandle|r(ERROR(|
|00001a90| 29 2c 50 52 4f 47 52 41 | 4d 28 29 2c 4c 49 4e 45 |),PROGRA|M(),LINE|
|00001aa0| 4e 4f 28 29 29 0d 0a 5f | 73 68 65 6c 6c 3d 22 44 |NO()).._|shell="D|
|00001ab0| 4f 20 43 6c 65 61 6e 75 | 70 20 49 4e 20 2a 3c 4d |O Cleanu|p IN *<M|
|00001ac0| 41 49 4e 2e 50 52 47 3e | 2a 22 0d 0a 0d 0a 2a 2d |AIN.PRG>|*"....*-|
|00001ad0| 2d 20 49 6e 73 74 61 6e | 74 69 61 74 65 20 61 70 |- Instan|tiate ap|
|00001ae0| 70 6c 69 63 61 74 69 6f | 6e 20 6f 62 6a 65 63 74 |plicatio|n object|
|00001af0| 2e 0d 0a 52 45 4c 45 41 | 53 45 20 67 6f 41 70 70 |...RELEA|SE goApp|
|00001b00| 0d 0a 50 55 42 4c 49 43 | 20 67 6f 41 70 70 0d 0a |..PUBLIC| goApp..|
|00001b10| 67 6f 41 70 70 3d 43 52 | 45 41 54 45 4f 42 4a 45 |goApp=CR|EATEOBJE|
|00001b20| 43 54 28 22 63 41 70 70 | 6c 69 63 61 74 69 6f 6e |CT("cApp|lication|
|00001b30| 22 29 0d 0a 0d 0a 2a 2d | 2d 20 43 6f 6e 66 69 67 |")....*-|- Config|
|00001b40| 75 72 65 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |ure appl|ication |
|00001b50| 6f 62 6a 65 63 74 2e 0d | 0a 2a 3c 49 6e 69 74 61 |object..|.*<Inita|
|00001b60| 6c 69 7a 65 3e 2a 0d 0a | 0d 0a 2a 2d 2d 20 53 68 |lize>*..|..*-- Sh|
|00001b70| 6f 77 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 2e 0d |ow appli|cation..|
|00001b80| 0a 67 6f 41 70 70 2e 53 | 68 6f 77 0d 0a 2a 2d 2d |.goApp.S|how..*--|
|00001b90| 20 52 65 6c 65 61 73 65 | 20 61 70 70 6c 69 63 61 | Release| applica|
|00001ba0| 74 69 6f 6e 2e 0d 0a 52 | 45 4c 45 41 53 45 20 67 |tion...R|ELEASE g|
|00001bb0| 6f 41 70 70 0d 0a 0d 0a | 2a 2d 2d 20 52 65 73 74 |oApp....|*-- Rest|
|00001bc0| 6f 72 65 20 64 65 66 61 | 75 6c 74 20 6d 65 6e 75 |ore defa|ult menu|
|00001bd0| 2e 0d 0a 50 4f 50 20 4d | 45 4e 55 20 5f 6d 73 79 |...POP M|ENU _msy|
|00001be0| 73 6d 65 6e 75 0d 0a 0d | 0a 2a 2d 2d 20 52 65 73 |smenu...|.*-- Res|
|00001bf0| 74 6f 72 65 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |tore env|ironment|
|00001c00| 2e 0d 0a 4f 4e 20 45 52 | 52 4f 52 0d 0a 4f 4e 20 |...ON ER|ROR..ON |
|00001c10| 53 48 55 54 44 4f 57 4e | 0d 0a 49 46 20 4e 4f 54 |SHUTDOWN|..IF NOT|
|00001c20| 20 6c 63 4c 61 73 74 53 | 65 74 43 6c 61 73 73 4c | lcLastS|etClassL|
|00001c30| 69 62 3d 3d 53 45 54 28 | 22 63 6c 61 73 73 6c 69 |ib==SET(|"classli|
|00001c40| 62 22 29 0d 0a 09 52 45 | 4c 45 41 53 45 20 43 4c |b")...RE|LEASE CL|
|00001c50| 41 53 53 4c 49 42 20 28 | 6c 63 4d 61 69 6e 43 6c |ASSLIB (|lcMainCl|
|00001c60| 61 73 73 4c 69 62 29 0d | 0a 45 4e 44 49 46 0d 0a |assLib).|.ENDIF..|
|00001c70| 49 46 20 45 4d 50 54 59 | 28 6c 63 4c 61 73 74 53 |IF EMPTY|(lcLastS|
|00001c80| 65 74 50 61 74 68 29 0d | 0a 09 53 45 54 20 50 41 |etPath).|..SET PA|
|00001c90| 54 48 20 54 4f 0d 0a 45 | 4c 53 45 0d 0a 09 53 45 |TH TO..E|LSE...SE|
|00001ca0| 54 20 50 41 54 48 20 54 | 4f 20 26 6c 63 4c 61 73 |T PATH T|O &lcLas|
|00001cb0| 74 53 65 74 50 61 74 68 | 0d 0a 45 4e 44 49 46 0d |tSetPath|..ENDIF.|
|00001cc0| 0a 49 46 20 6c 63 4c 61 | 73 74 53 65 74 54 61 6c |.IF lcLa|stSetTal|
|00001cd0| 6b 3d 3d 22 4f 4e 22 0d | 0a 09 53 45 54 20 54 41 |k=="ON".|..SET TA|
|00001ce0| 4c 4b 20 4f 4e 0d 0a 45 | 4c 53 45 0d 0a 09 53 45 |LK ON..E|LSE...SE|
|00001cf0| 54 20 54 41 4c 4b 20 4f | 46 46 0d 0a 45 4e 44 49 |T TALK O|FF..ENDI|
|00001d00| 46 0d 0a 52 45 54 55 52 | 4e 0d 0a 0d 0a 0d 0a 0d |F..RETUR|N.......|
|00001d10| 0a 46 55 4e 43 54 49 4f | 4e 20 45 72 72 6f 72 48 |.FUNCTIO|N ErrorH|
|00001d20| 61 6e 64 6c 65 72 28 6e | 45 72 72 6f 72 2c 63 4d |andler(n|Error,cM|
|00001d30| 65 74 68 6f 64 2c 6e 4c | 69 6e 65 29 0d 0a 4c 4f |ethod,nL|ine)..LO|
|00001d40| 43 41 4c 20 6c 63 45 72 | 72 6f 72 4d 73 67 2c 6c |CAL lcEr|rorMsg,l|
|00001d50| 63 43 6f 64 65 4c 69 6e | 65 4d 73 67 0d 0a 0d 0a |cCodeLin|eMsg....|
|00001d60| 57 41 49 54 20 43 4c 45 | 41 52 0d 0a 6c 63 45 72 |WAIT CLE|AR..lcEr|
|00001d70| 72 6f 72 4d 73 67 3d 4d | 45 53 53 41 47 45 28 29 |rorMsg=M|ESSAGE()|
|00001d80| 2b 43 48 52 28 31 33 29 | 2b 43 48 52 28 31 33 29 |+CHR(13)|+CHR(13)|
|00001d90| 0d 0a 6c 63 45 72 72 6f | 72 4d 73 67 3d 6c 63 45 |..lcErro|rMsg=lcE|
|00001da0| 72 72 6f 72 4d 73 67 2b | 22 4d 65 74 68 6f 64 3a |rrorMsg+|"Method:|
|00001db0| 20 20 20 20 22 2b 63 4d | 65 74 68 6f 64 0d 0a 6c |    "+cM|ethod..l|
|00001dc0| 63 43 6f 64 65 4c 69 6e | 65 4d 73 67 3d 4d 45 53 |cCodeLin|eMsg=MES|
|00001dd0| 53 41 47 45 28 31 29 0d | 0a 49 46 20 42 45 54 57 |SAGE(1).|.IF BETW|
|00001de0| 45 45 4e 28 6e 4c 69 6e | 65 2c 31 2c 31 30 30 30 |EEN(nLin|e,1,1000|
|00001df0| 30 29 20 41 4e 44 20 4e | 4f 54 20 6c 63 43 6f 64 |0) AND N|OT lcCod|
|00001e00| 65 4c 69 6e 65 4d 73 67 | 3d 22 2e 2e 2e 22 0d 0a |eLineMsg|="..."..|
|00001e10| 09 6c 63 45 72 72 6f 72 | 4d 73 67 3d 6c 63 45 72 |.lcError|Msg=lcEr|
|00001e20| 72 6f 72 4d 73 67 2b 43 | 48 52 28 31 33 29 2b 22 |rorMsg+C|HR(13)+"|
|00001e30| 4c 69 6e 65 3a 20 20 20 | 20 20 20 20 20 20 22 2b |Line:   |      "+|
|00001e40| 41 4c 4c 54 52 49 4d 28 | 53 54 52 28 6e 4c 69 6e |ALLTRIM(|STR(nLin|
|00001e50| 65 29 29 0d 0a 09 49 46 | 20 4e 4f 54 20 45 4d 50 |e))...IF| NOT EMP|
|00001e60| 54 59 28 6c 63 43 6f 64 | 65 4c 69 6e 65 4d 73 67 |TY(lcCod|eLineMsg|
|00001e70| 29 0d 0a 09 09 6c 63 45 | 72 72 6f 72 4d 73 67 3d |)....lcE|rrorMsg=|
|00001e80| 6c 63 45 72 72 6f 72 4d | 73 67 2b 43 48 52 28 31 |lcErrorM|sg+CHR(1|
|00001e90| 33 29 2b 43 48 52 28 31 | 33 29 2b 6c 63 43 6f 64 |3)+CHR(1|3)+lcCod|
|00001ea0| 65 4c 69 6e 65 4d 73 67 | 0d 0a 09 45 4e 44 49 46 |eLineMsg|...ENDIF|
|00001eb0| 0d 0a 45 4e 44 49 46 0d | 0a 49 46 20 4d 45 53 53 |..ENDIF.|.IF MESS|
|00001ec0| 41 47 45 42 4f 58 28 6c | 63 45 72 72 6f 72 4d 73 |AGEBOX(l|cErrorMs|
|00001ed0| 67 2c 31 37 2c 5f 73 63 | 72 65 65 6e 2e 43 61 70 |g,17,_sc|reen.Cap|
|00001ee0| 74 69 6f 6e 29 23 31 0d | 0a 09 4f 4e 20 45 52 52 |tion)#1.|..ON ERR|
|00001ef0| 4f 52 0d 0a 09 52 45 54 | 55 52 4e 20 2e 46 2e 0d |OR...RET|URN .F..|
|00001f00| 0a 45 4e 44 49 46 0d 0a | 45 4e 44 46 55 4e 43 0d |.ENDIF..|ENDFUNC.|
|00001f10| 0a 0d 0a 0d 0a 0d 0a 46 | 55 4e 43 54 49 4f 4e 20 |.......F|UNCTION |
|00001f20| 53 68 75 74 44 6f 77 6e | 0d 0a 0d 0a 49 46 20 54 |ShutDown|....IF T|
|00001f30| 59 50 45 28 22 67 6f 41 | 70 70 22 29 3d 3d 22 4f |YPE("goA|pp")=="O|
|00001f40| 22 20 41 4e 44 20 4e 4f | 54 20 49 53 4e 55 4c 4c |" AND NO|T ISNULL|
|00001f50| 28 67 6f 41 70 70 29 0d | 0a 09 52 45 54 55 52 4e |(goApp).|..RETURN|
|00001f60| 20 67 6f 41 70 70 2e 4f | 6e 53 68 75 74 44 6f 77 | goApp.O|nShutDow|
|00001f70| 6e 28 29 0d 0a 45 4e 44 | 49 46 0d 0a 43 6c 65 61 |n()..END|IF..Clea|
|00001f80| 6e 75 70 28 29 0d 0a 51 | 55 49 54 0d 0a 45 4e 44 |nup()..Q|UIT..END|
|00001f90| 46 55 4e 43 0d 0a 0d 0a | 0d 0a 46 55 4e 43 54 49 |FUNC....|..FUNCTI|
|00001fa0| 4f 4e 20 43 6c 65 61 6e | 75 70 0d 0a 0d 0a 49 46 |ON Clean|up....IF|
|00001fb0| 20 43 4e 54 42 41 52 28 | 22 5f 6d 73 79 73 6d 65 | CNTBAR(|"_msysme|
|00001fc0| 6e 75 22 29 3d 37 0d 0a | 09 52 45 54 55 52 4e 0d |nu")=7..|.RETURN.|
|00001fd0| 0a 45 4e 44 49 46 0d 0a | 4f 4e 20 45 52 52 4f 52 |.ENDIF..|ON ERROR|
|00001fe0| 0d 0a 4f 4e 20 53 48 55 | 54 44 4f 57 4e 0d 0a 53 |..ON SHU|TDOWN..S|
|00001ff0| 45 54 20 43 4c 41 53 53 | 4c 49 42 20 54 4f 0d 0a |ET CLASS|LIB TO..|
|00002000| 53 45 54 20 50 41 54 48 | 20 54 4f 0d 0a 43 4c 45 |SET PATH| TO..CLE|
|00002010| 41 52 20 41 4c 4c 0d 0a | 43 4c 4f 53 45 20 41 4c |AR ALL..|CLOSE AL|
|00002020| 4c 0d 0a 50 4f 50 20 4d | 45 4e 55 20 5f 6d 73 79 |L..POP M|ENU _msy|
|00002030| 73 6d 65 6e 75 0d 0a 52 | 45 54 55 52 4e 0d 0a 2a |smenu..R|ETURN..*|
|00002040| 3c 44 75 6d 6d 79 20 70 | 72 6f 6a 65 63 74 20 72 |<Dummy p|roject r|
|00002050| 65 66 65 72 65 6e 63 65 | 73 3e 2a 0d 0a 00 00 00 |eference|s>*.....|
|00002060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002080| 00 00 00 01 00 00 07 a0 | 4c 4f 43 41 4c 20 6c 63 |........|LOCAL lc|
|00002090| 4d 61 69 6e 43 6c 61 73 | 73 4c 69 62 0d 0a 4c 4f |MainClas|sLib..LO|
|000020a0| 43 41 4c 20 6c 63 4c 61 | 73 74 53 65 74 54 61 6c |CAL lcLa|stSetTal|
|000020b0| 6b 2c 6c 63 4c 61 73 74 | 53 65 74 50 61 74 68 2c |k,lcLast|SetPath,|
|000020c0| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|000020d0| 62 2c 6c 63 4f 6e 53 68 | 75 74 64 6f 77 6e 0d 0a |b,lcOnSh|utdown..|
|000020e0| 0d 0a 2a 2d 2d 20 53 61 | 76 65 20 61 6e 64 20 63 |..*-- Sa|ve and c|
|000020f0| 6f 6e 66 69 67 75 72 65 | 20 65 6e 76 69 72 6f 6e |onfigure| environ|
|00002100| 6d 65 6e 74 2e 0d 0a 6c | 63 4c 61 73 74 53 65 74 |ment...l|cLastSet|
|00002110| 54 61 6c 6b 3d 53 45 54 | 28 22 54 41 4c 4b 22 29 |Talk=SET|("TALK")|
|00002120| 0d 0a 53 45 54 20 54 41 | 4c 4b 20 4f 46 46 0d 0a |..SET TA|LK OFF..|
|00002130| 6c 63 4c 61 73 74 53 65 | 74 50 61 74 68 3d 53 45 |lcLastSe|tPath=SE|
|00002140| 54 28 22 50 41 54 48 22 | 29 0d 0a 49 46 20 44 49 |T("PATH"|)..IF DI|
|00002150| 52 45 43 54 4f 52 59 28 | 2a 3c 43 44 50 61 74 68 |RECTORY(|*<CDPath|
|00002160| 3e 2a 29 0d 0a 09 2a 43 | 44 20 3c 43 44 50 61 74 |>*)...*C|D <CDPat|
|00002170| 68 3e 2a 0d 0a 09 2a 3c | 50 41 54 48 3e 2a 0d 0a |h>*...*<|PATH>*..|
|00002180| 45 4e 44 49 46 0d 0a 50 | 55 53 48 20 4d 45 4e 55 |ENDIF..P|USH MENU|
|00002190| 20 5f 6d 73 79 73 6d 65 | 6e 75 0d 0a 6c 63 4c 61 | _msysme|nu..lcLa|
|000021a0| 73 74 53 65 74 43 6c 61 | 73 73 4c 69 62 3d 53 45 |stSetCla|ssLib=SE|
|000021b0| 54 28 22 43 4c 41 53 53 | 4c 49 42 22 29 0d 0a 6c |T("CLASS|LIB")..l|
|000021c0| 63 4d 61 69 6e 43 6c 61 | 73 73 4c 69 62 3d 22 2a |cMainCla|ssLib="*|
|000021d0| 3c 4d 41 49 4e 2e 56 43 | 58 3e 2a 22 0d 0a 53 45 |<MAIN.VC|X>*"..SE|
|000021e0| 54 20 43 4c 41 53 53 4c | 49 42 20 54 4f 20 28 6c |T CLASSL|IB TO (l|
|000021f0| 63 4d 61 69 6e 43 6c 61 | 73 73 4c 69 62 29 20 41 |cMainCla|ssLib) A|
|00002200| 44 44 49 54 49 56 45 0d | 0a 6c 63 4f 6e 53 68 75 |DDITIVE.|.lcOnShu|
|00002210| 74 64 6f 77 6e 3d 22 53 | 68 75 74 44 6f 77 6e 28 |tdown="S|hutDown(|
|00002220| 29 22 0d 0a 4f 4e 20 53 | 48 55 54 44 4f 57 4e 20 |)"..ON S|HUTDOWN |
|00002230| 26 6c 63 4f 6e 53 68 75 | 74 64 6f 77 6e 0d 0a 4f |&lcOnShu|tdown..O|
|00002240| 4e 20 45 52 52 4f 52 20 | 45 72 72 6f 72 48 61 6e |N ERROR |ErrorHan|
|00002250| 64 6c 65 72 28 45 52 52 | 4f 52 28 29 2c 50 52 4f |dler(ERR|OR(),PRO|
|00002260| 47 52 41 4d 28 29 2c 4c | 49 4e 45 4e 4f 28 29 29 |GRAM(),L|INENO())|
|00002270| 0d 0a 5f 73 68 65 6c 6c | 3d 22 44 4f 20 43 6c 65 |.._shell|="DO Cle|
|00002280| 61 6e 75 70 20 49 4e 20 | 2a 3c 4d 41 49 4e 2e 50 |anup IN |*<MAIN.P|
|00002290| 52 47 3e 2a 22 0d 0a 0d | 0a 2a 2d 2d 20 49 6e 73 |RG>*"...|.*-- Ins|
|000022a0| 74 61 6e 74 69 61 74 65 | 20 61 70 70 6c 69 63 61 |tantiate| applica|
|000022b0| 74 69 6f 6e 20 6f 62 6a | 65 63 74 2e 0d 0a 52 45 |tion obj|ect...RE|
|000022c0| 4c 45 41 53 45 20 67 6f | 41 70 70 0d 0a 50 55 42 |LEASE go|App..PUB|
|000022d0| 4c 49 43 20 67 6f 41 70 | 70 0d 0a 67 6f 41 70 70 |LIC goAp|p..goApp|
|000022e0| 3d 43 52 45 41 54 45 4f | 42 4a 45 43 54 28 22 63 |=CREATEO|BJECT("c|
|000022f0| 41 70 70 6c 69 63 61 74 | 69 6f 6e 22 29 0d 0a 0d |Applicat|ion")...|
|00002300| 0a 2a 2d 2d 20 43 6f 6e | 66 69 67 75 72 65 20 61 |.*-- Con|figure a|
|00002310| 70 70 6c 69 63 61 74 69 | 6f 6e 20 6f 62 6a 65 63 |pplicati|on objec|
|00002320| 74 2e 0d 0a 2a 3c 49 6e | 69 74 61 6c 69 7a 65 3e |t...*<In|italize>|
|00002330| 2a 0d 0a 0d 0a 2a 2d 2d | 20 53 68 6f 77 20 61 70 |*....*--| Show ap|
|00002340| 70 6c 69 63 61 74 69 6f | 6e 2e 0d 0a 67 6f 41 70 |plicatio|n...goAp|
|00002350| 70 2e 53 68 6f 77 0d 0a | 2a 2d 2d 20 52 65 6c 65 |p.Show..|*-- Rele|
|00002360| 61 73 65 20 61 70 70 6c | 69 63 61 74 69 6f 6e 2e |ase appl|ication.|
|00002370| 0d 0a 52 45 4c 45 41 53 | 45 20 67 6f 41 70 70 0d |..RELEAS|E goApp.|
|00002380| 0a 0d 0a 2a 2d 2d 20 52 | 65 73 74 6f 72 65 20 64 |...*-- R|estore d|
|00002390| 65 66 61 75 6c 74 20 6d | 65 6e 75 2e 0d 0a 50 4f |efault m|enu...PO|
|000023a0| 50 20 4d 45 4e 55 20 5f | 6d 73 79 73 6d 65 6e 75 |P MENU _|msysmenu|
|000023b0| 0d 0a 0d 0a 2a 2d 2d 20 | 52 65 73 74 6f 72 65 20 |....*-- |Restore |
|000023c0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 2e 0d 0a 4f 4e |environm|ent...ON|
|000023d0| 20 45 52 52 4f 52 0d 0a | 4f 4e 20 53 48 55 54 44 | ERROR..|ON SHUTD|
|000023e0| 4f 57 4e 0d 0a 49 46 20 | 4e 4f 54 20 6c 63 4c 61 |OWN..IF |NOT lcLa|
|000023f0| 73 74 53 65 74 43 6c 61 | 73 73 4c 69 62 3d 3d 53 |stSetCla|ssLib==S|
|00002400| 45 54 28 22 63 6c 61 73 | 73 6c 69 62 22 29 0d 0a |ET("clas|slib")..|
|00002410| 09 52 45 4c 45 41 53 45 | 20 43 4c 41 53 53 4c 49 |.RELEASE| CLASSLI|
|00002420| 42 20 28 6c 63 4d 61 69 | 6e 43 6c 61 73 73 4c 69 |B (lcMai|nClassLi|
|00002430| 62 29 0d 0a 45 4e 44 49 | 46 0d 0a 49 46 20 45 4d |b)..ENDI|F..IF EM|
|00002440| 50 54 59 28 6c 63 4c 61 | 73 74 53 65 74 50 61 74 |PTY(lcLa|stSetPat|
|00002450| 68 29 0d 0a 09 53 45 54 | 20 50 41 54 48 20 54 4f |h)...SET| PATH TO|
|00002460| 0d 0a 45 4c 53 45 0d 0a | 09 53 45 54 20 50 41 54 |..ELSE..|.SET PAT|
|00002470| 48 20 54 4f 20 26 6c 63 | 4c 61 73 74 53 65 74 50 |H TO &lc|LastSetP|
|00002480| 61 74 68 0d 0a 45 4e 44 | 49 46 0d 0a 49 46 20 6c |ath..END|IF..IF l|
|00002490| 63 4c 61 73 74 53 65 74 | 54 61 6c 6b 3d 3d 22 4f |cLastSet|Talk=="O|
|000024a0| 4e 22 0d 0a 09 53 45 54 | 20 54 41 4c 4b 20 4f 4e |N"...SET| TALK ON|
|000024b0| 0d 0a 45 4c 53 45 0d 0a | 09 53 45 54 20 54 41 4c |..ELSE..|.SET TAL|
|000024c0| 4b 20 4f 46 46 0d 0a 45 | 4e 44 49 46 0d 0a 52 45 |K OFF..E|NDIF..RE|
|000024d0| 54 55 52 4e 0d 0a 0d 0a | 0d 0a 0d 0a 46 55 4e 43 |TURN....|....FUNC|
|000024e0| 54 49 4f 4e 20 45 72 72 | 6f 72 48 61 6e 64 6c 65 |TION Err|orHandle|
|000024f0| 72 28 6e 45 72 72 6f 72 | 2c 63 4d 65 74 68 6f 64 |r(nError|,cMethod|
|00002500| 2c 6e 4c 69 6e 65 29 0d | 0a 4c 4f 43 41 4c 20 6c |,nLine).|.LOCAL l|
|00002510| 63 45 72 72 6f 72 4d 73 | 67 2c 6c 63 43 6f 64 65 |cErrorMs|g,lcCode|
|00002520| 4c 69 6e 65 4d 73 67 0d | 0a 0d 0a 57 41 49 54 20 |LineMsg.|...WAIT |
|00002530| 43 4c 45 41 52 0d 0a 6c | 63 45 72 72 6f 72 4d 73 |CLEAR..l|cErrorMs|
|00002540| 67 3d 4d 45 53 53 41 47 | 45 28 29 2b 43 48 52 28 |g=MESSAG|E()+CHR(|
|00002550| 31 33 29 2b 43 48 52 28 | 31 33 29 0d 0a 6c 63 45 |13)+CHR(|13)..lcE|
|00002560| 72 72 6f 72 4d 73 67 3d | 6c 63 45 72 72 6f 72 4d |rrorMsg=|lcErrorM|
|00002570| 73 67 2b 22 4d 65 74 68 | 6f 64 3a 20 20 20 20 22 |sg+"Meth|od:    "|
|00002580| 2b 63 4d 65 74 68 6f 64 | 0d 0a 6c 63 43 6f 64 65 |+cMethod|..lcCode|
|00002590| 4c 69 6e 65 4d 73 67 3d | 4d 45 53 53 41 47 45 28 |LineMsg=|MESSAGE(|
|000025a0| 31 29 0d 0a 49 46 20 42 | 45 54 57 45 45 4e 28 6e |1)..IF B|ETWEEN(n|
|000025b0| 4c 69 6e 65 2c 31 2c 31 | 30 30 30 30 29 20 41 4e |Line,1,1|0000) AN|
|000025c0| 44 20 4e 4f 54 20 6c 63 | 43 6f 64 65 4c 69 6e 65 |D NOT lc|CodeLine|
|000025d0| 4d 73 67 3d 22 2e 2e 2e | 22 0d 0a 09 6c 63 45 72 |Msg="...|"...lcEr|
|000025e0| 72 6f 72 4d 73 67 3d 6c | 63 45 72 72 6f 72 4d 73 |rorMsg=l|cErrorMs|
|000025f0| 67 2b 43 48 52 28 31 33 | 29 2b 22 4c 69 6e 65 3a |g+CHR(13|)+"Line:|
|00002600| 20 20 20 20 20 20 20 20 | 20 22 2b 41 4c 4c 54 52 |        | "+ALLTR|
|00002610| 49 4d 28 53 54 52 28 6e | 4c 69 6e 65 29 29 0d 0a |IM(STR(n|Line))..|
|00002620| 09 49 46 20 4e 4f 54 20 | 45 4d 50 54 59 28 6c 63 |.IF NOT |EMPTY(lc|
|00002630| 43 6f 64 65 4c 69 6e 65 | 4d 73 67 29 0d 0a 09 09 |CodeLine|Msg)....|
|00002640| 6c 63 45 72 72 6f 72 4d | 73 67 3d 6c 63 45 72 72 |lcErrorM|sg=lcErr|
|00002650| 6f 72 4d 73 67 2b 43 48 | 52 28 31 33 29 2b 43 48 |orMsg+CH|R(13)+CH|
|00002660| 52 28 31 33 29 2b 6c 63 | 43 6f 64 65 4c 69 6e 65 |R(13)+lc|CodeLine|
|00002670| 4d 73 67 0d 0a 09 45 4e | 44 49 46 0d 0a 45 4e 44 |Msg...EN|DIF..END|
|00002680| 49 46 0d 0a 49 46 20 4d | 45 53 53 41 47 45 42 4f |IF..IF M|ESSAGEBO|
|00002690| 58 28 6c 63 45 72 72 6f | 72 4d 73 67 2c 31 37 2c |X(lcErro|rMsg,17,|
|000026a0| 5f 73 63 72 65 65 6e 2e | 43 61 70 74 69 6f 6e 29 |_screen.|Caption)|
|000026b0| 23 31 0d 0a 09 4f 4e 20 | 45 52 52 4f 52 0d 0a 09 |#1...ON |ERROR...|
|000026c0| 52 45 54 55 52 4e 20 2e | 46 2e 0d 0a 45 4e 44 49 |RETURN .|F...ENDI|
|000026d0| 46 0d 0a 45 4e 44 46 55 | 4e 43 0d 0a 0d 0a 0d 0a |F..ENDFU|NC......|
|000026e0| 0d 0a 46 55 4e 43 54 49 | 4f 4e 20 53 68 75 74 44 |..FUNCTI|ON ShutD|
|000026f0| 6f 77 6e 0d 0a 0d 0a 49 | 46 20 54 59 50 45 28 22 |own....I|F TYPE("|
|00002700| 67 6f 41 70 70 22 29 3d | 3d 22 4f 22 20 41 4e 44 |goApp")=|="O" AND|
|00002710| 20 4e 4f 54 20 49 53 4e | 55 4c 4c 28 67 6f 41 70 | NOT ISN|ULL(goAp|
|00002720| 70 29 0d 0a 09 52 45 54 | 55 52 4e 20 67 6f 41 70 |p)...RET|URN goAp|
|00002730| 70 2e 4f 6e 53 68 75 74 | 44 6f 77 6e 28 29 0d 0a |p.OnShut|Down()..|
|00002740| 45 4e 44 49 46 0d 0a 43 | 6c 65 61 6e 75 70 28 29 |ENDIF..C|leanup()|
|00002750| 0d 0a 51 55 49 54 0d 0a | 45 4e 44 46 55 4e 43 0d |..QUIT..|ENDFUNC.|
|00002760| 0a 0d 0a 0d 0a 46 55 4e | 43 54 49 4f 4e 20 43 6c |.....FUN|CTION Cl|
|00002770| 65 61 6e 75 70 0d 0a 0d | 0a 49 46 20 43 4e 54 42 |eanup...|.IF CNTB|
|00002780| 41 52 28 22 5f 6d 73 79 | 73 6d 65 6e 75 22 29 3d |AR("_msy|smenu")=|
|00002790| 37 0d 0a 09 52 45 54 55 | 52 4e 0d 0a 45 4e 44 49 |7...RETU|RN..ENDI|
|000027a0| 46 0d 0a 4f 4e 20 45 52 | 52 4f 52 0d 0a 4f 4e 20 |F..ON ER|ROR..ON |
|000027b0| 53 48 55 54 44 4f 57 4e | 0d 0a 53 45 54 20 43 4c |SHUTDOWN|..SET CL|
|000027c0| 41 53 53 4c 49 42 20 54 | 4f 0d 0a 53 45 54 20 50 |ASSLIB T|O..SET P|
|000027d0| 41 54 48 20 54 4f 0d 0a | 43 4c 45 41 52 20 41 4c |ATH TO..|CLEAR AL|
|000027e0| 4c 0d 0a 43 4c 4f 53 45 | 20 41 4c 4c 0d 0a 50 4f |L..CLOSE| ALL..PO|
|000027f0| 50 20 4d 45 4e 55 20 5f | 6d 73 79 73 6d 65 6e 75 |P MENU _|msysmenu|
|00002800| 0d 0a 52 45 54 55 52 4e | 0d 0a 2a 3c 44 75 6d 6d |..RETURN|..*<Dumm|
|00002810| 79 20 70 72 6f 6a 65 63 | 74 20 72 65 66 65 72 65 |y projec|t refere|
|00002820| 6e 63 65 73 3e 2a 0d 0a | 00 00 00 00 00 00 00 00 |nces>*..|........|
|00002830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002840| 00 00 00 01 00 00 07 a0 | 4c 4f 43 41 4c 20 6c 63 |........|LOCAL lc|
|00002850| 4d 61 69 6e 43 6c 61 73 | 73 4c 69 62 0d 0a 4c 4f |MainClas|sLib..LO|
|00002860| 43 41 4c 20 6c 63 4c 61 | 73 74 53 65 74 54 61 6c |CAL lcLa|stSetTal|
|00002870| 6b 2c 6c 63 4c 61 73 74 | 53 65 74 50 61 74 68 2c |k,lcLast|SetPath,|
|00002880| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|00002890| 62 2c 6c 63 4f 6e 53 68 | 75 74 64 6f 77 6e 0d 0a |b,lcOnSh|utdown..|
|000028a0| 0d 0a 2a 2d 2d 20 53 61 | 76 65 20 61 6e 64 20 63 |..*-- Sa|ve and c|
|000028b0| 6f 6e 66 69 67 75 72 65 | 20 65 6e 76 69 72 6f 6e |onfigure| environ|
|000028c0| 6d 65 6e 74 2e 0d 0a 6c | 63 4c 61 73 74 53 65 74 |ment...l|cLastSet|
|000028d0| 54 61 6c 6b 3d 53 45 54 | 28 22 54 41 4c 4b 22 29 |Talk=SET|("TALK")|
|000028e0| 0d 0a 53 45 54 20 54 41 | 4c 4b 20 4f 46 46 0d 0a |..SET TA|LK OFF..|
|000028f0| 6c 63 4c 61 73 74 53 65 | 74 50 61 74 68 3d 53 45 |lcLastSe|tPath=SE|
|00002900| 54 28 22 50 41 54 48 22 | 29 0d 0a 49 46 20 44 49 |T("PATH"|)..IF DI|
|00002910| 52 45 43 54 4f 52 59 28 | 2a 3c 43 44 50 61 74 68 |RECTORY(|*<CDPath|
|00002920| 3e 2a 29 0d 0a 09 43 44 | 20 2a 3c 43 44 50 61 74 |>*)...CD| *<CDPat|
|00002930| 68 3e 2a 0d 0a 09 2a 3c | 50 41 54 48 3e 2a 0d 0a |h>*...*<|PATH>*..|
|00002940| 45 4e 44 49 46 0d 0a 50 | 55 53 48 20 4d 45 4e 55 |ENDIF..P|USH MENU|
|00002950| 20 5f 6d 73 79 73 6d 65 | 6e 75 0d 0a 6c 63 4c 61 | _msysme|nu..lcLa|
|00002960| 73 74 53 65 74 43 6c 61 | 73 73 4c 69 62 3d 53 45 |stSetCla|ssLib=SE|
|00002970| 54 28 22 43 4c 41 53 53 | 4c 49 42 22 29 0d 0a 6c |T("CLASS|LIB")..l|
|00002980| 63 4d 61 69 6e 43 6c 61 | 73 73 4c 69 62 3d 22 2a |cMainCla|ssLib="*|
|00002990| 3c 4d 41 49 4e 2e 56 43 | 58 3e 2a 22 0d 0a 53 45 |<MAIN.VC|X>*"..SE|
|000029a0| 54 20 43 4c 41 53 53 4c | 49 42 20 54 4f 20 28 6c |T CLASSL|IB TO (l|
|000029b0| 63 4d 61 69 6e 43 6c 61 | 73 73 4c 69 62 29 20 41 |cMainCla|ssLib) A|
|000029c0| 44 44 49 54 49 56 45 0d | 0a 6c 63 4f 6e 53 68 75 |DDITIVE.|.lcOnShu|
|000029d0| 74 64 6f 77 6e 3d 22 53 | 68 75 74 44 6f 77 6e 28 |tdown="S|hutDown(|
|000029e0| 29 22 0d 0a 4f 4e 20 53 | 48 55 54 44 4f 57 4e 20 |)"..ON S|HUTDOWN |
|000029f0| 26 6c 63 4f 6e 53 68 75 | 74 64 6f 77 6e 0d 0a 4f |&lcOnShu|tdown..O|
|00002a00| 4e 20 45 52 52 4f 52 20 | 45 72 72 6f 72 48 61 6e |N ERROR |ErrorHan|
|00002a10| 64 6c 65 72 28 45 52 52 | 4f 52 28 29 2c 50 52 4f |dler(ERR|OR(),PRO|
|00002a20| 47 52 41 4d 28 29 2c 4c | 49 4e 45 4e 4f 28 29 29 |GRAM(),L|INENO())|
|00002a30| 0d 0a 5f 73 68 65 6c 6c | 3d 22 44 4f 20 43 6c 65 |.._shell|="DO Cle|
|00002a40| 61 6e 75 70 20 49 4e 20 | 2a 3c 4d 41 49 4e 2e 50 |anup IN |*<MAIN.P|
|00002a50| 52 47 3e 2a 22 0d 0a 0d | 0a 2a 2d 2d 20 49 6e 73 |RG>*"...|.*-- Ins|
|00002a60| 74 61 6e 74 69 61 74 65 | 20 61 70 70 6c 69 63 61 |tantiate| applica|
|00002a70| 74 69 6f 6e 20 6f 62 6a | 65 63 74 2e 0d 0a 52 45 |tion obj|ect...RE|
|00002a80| 4c 45 41 53 45 20 67 6f | 41 70 70 0d 0a 50 55 42 |LEASE go|App..PUB|
|00002a90| 4c 49 43 20 67 6f 41 70 | 70 0d 0a 67 6f 41 70 70 |LIC goAp|p..goApp|
|00002aa0| 3d 43 52 45 41 54 45 4f | 42 4a 45 43 54 28 22 63 |=CREATEO|BJECT("c|
|00002ab0| 41 70 70 6c 69 63 61 74 | 69 6f 6e 22 29 0d 0a 0d |Applicat|ion")...|
|00002ac0| 0a 2a 2d 2d 20 43 6f 6e | 66 69 67 75 72 65 20 61 |.*-- Con|figure a|
|00002ad0| 70 70 6c 69 63 61 74 69 | 6f 6e 20 6f 62 6a 65 63 |pplicati|on objec|
|00002ae0| 74 2e 0d 0a 2a 3c 49 6e | 69 74 61 6c 69 7a 65 3e |t...*<In|italize>|
|00002af0| 2a 0d 0a 0d 0a 2a 2d 2d | 20 53 68 6f 77 20 61 70 |*....*--| Show ap|
|00002b00| 70 6c 69 63 61 74 69 6f | 6e 2e 0d 0a 67 6f 41 70 |plicatio|n...goAp|
|00002b10| 70 2e 53 68 6f 77 0d 0a | 2a 2d 2d 20 52 65 6c 65 |p.Show..|*-- Rele|
|00002b20| 61 73 65 20 61 70 70 6c | 69 63 61 74 69 6f 6e 2e |ase appl|ication.|
|00002b30| 0d 0a 52 45 4c 45 41 53 | 45 20 67 6f 41 70 70 0d |..RELEAS|E goApp.|
|00002b40| 0a 0d 0a 2a 2d 2d 20 52 | 65 73 74 6f 72 65 20 64 |...*-- R|estore d|
|00002b50| 65 66 61 75 6c 74 20 6d | 65 6e 75 2e 0d 0a 50 4f |efault m|enu...PO|
|00002b60| 50 20 4d 45 4e 55 20 5f | 6d 73 79 73 6d 65 6e 75 |P MENU _|msysmenu|
|00002b70| 0d 0a 0d 0a 2a 2d 2d 20 | 52 65 73 74 6f 72 65 20 |....*-- |Restore |
|00002b80| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 2e 0d 0a 4f 4e |environm|ent...ON|
|00002b90| 20 45 52 52 4f 52 0d 0a | 4f 4e 20 53 48 55 54 44 | ERROR..|ON SHUTD|
|00002ba0| 4f 57 4e 0d 0a 49 46 20 | 4e 4f 54 20 6c 63 4c 61 |OWN..IF |NOT lcLa|
|00002bb0| 73 74 53 65 74 43 6c 61 | 73 73 4c 69 62 3d 3d 53 |stSetCla|ssLib==S|
|00002bc0| 45 54 28 22 63 6c 61 73 | 73 6c 69 62 22 29 0d 0a |ET("clas|slib")..|
|00002bd0| 09 52 45 4c 45 41 53 45 | 20 43 4c 41 53 53 4c 49 |.RELEASE| CLASSLI|
|00002be0| 42 20 28 6c 63 4d 61 69 | 6e 43 6c 61 73 73 4c 69 |B (lcMai|nClassLi|
|00002bf0| 62 29 0d 0a 45 4e 44 49 | 46 0d 0a 49 46 20 45 4d |b)..ENDI|F..IF EM|
|00002c00| 50 54 59 28 6c 63 4c 61 | 73 74 53 65 74 50 61 74 |PTY(lcLa|stSetPat|
|00002c10| 68 29 0d 0a 09 53 45 54 | 20 50 41 54 48 20 54 4f |h)...SET| PATH TO|
|00002c20| 0d 0a 45 4c 53 45 0d 0a | 09 53 45 54 20 50 41 54 |..ELSE..|.SET PAT|
|00002c30| 48 20 54 4f 20 26 6c 63 | 4c 61 73 74 53 65 74 50 |H TO &lc|LastSetP|
|00002c40| 61 74 68 0d 0a 45 4e 44 | 49 46 0d 0a 49 46 20 6c |ath..END|IF..IF l|
|00002c50| 63 4c 61 73 74 53 65 74 | 54 61 6c 6b 3d 3d 22 4f |cLastSet|Talk=="O|
|00002c60| 4e 22 0d 0a 09 53 45 54 | 20 54 41 4c 4b 20 4f 4e |N"...SET| TALK ON|
|00002c70| 0d 0a 45 4c 53 45 0d 0a | 09 53 45 54 20 54 41 4c |..ELSE..|.SET TAL|
|00002c80| 4b 20 4f 46 46 0d 0a 45 | 4e 44 49 46 0d 0a 52 45 |K OFF..E|NDIF..RE|
|00002c90| 54 55 52 4e 0d 0a 0d 0a | 0d 0a 0d 0a 46 55 4e 43 |TURN....|....FUNC|
|00002ca0| 54 49 4f 4e 20 45 72 72 | 6f 72 48 61 6e 64 6c 65 |TION Err|orHandle|
|00002cb0| 72 28 6e 45 72 72 6f 72 | 2c 63 4d 65 74 68 6f 64 |r(nError|,cMethod|
|00002cc0| 2c 6e 4c 69 6e 65 29 0d | 0a 4c 4f 43 41 4c 20 6c |,nLine).|.LOCAL l|
|00002cd0| 63 45 72 72 6f 72 4d 73 | 67 2c 6c 63 43 6f 64 65 |cErrorMs|g,lcCode|
|00002ce0| 4c 69 6e 65 4d 73 67 0d | 0a 0d 0a 57 41 49 54 20 |LineMsg.|...WAIT |
|00002cf0| 43 4c 45 41 52 0d 0a 6c | 63 45 72 72 6f 72 4d 73 |CLEAR..l|cErrorMs|
|00002d00| 67 3d 4d 45 53 53 41 47 | 45 28 29 2b 43 48 52 28 |g=MESSAG|E()+CHR(|
|00002d10| 31 33 29 2b 43 48 52 28 | 31 33 29 0d 0a 6c 63 45 |13)+CHR(|13)..lcE|
|00002d20| 72 72 6f 72 4d 73 67 3d | 6c 63 45 72 72 6f 72 4d |rrorMsg=|lcErrorM|
|00002d30| 73 67 2b 22 4d 65 74 68 | 6f 64 3a 20 20 20 20 22 |sg+"Meth|od:    "|
|00002d40| 2b 63 4d 65 74 68 6f 64 | 0d 0a 6c 63 43 6f 64 65 |+cMethod|..lcCode|
|00002d50| 4c 69 6e 65 4d 73 67 3d | 4d 45 53 53 41 47 45 28 |LineMsg=|MESSAGE(|
|00002d60| 31 29 0d 0a 49 46 20 42 | 45 54 57 45 45 4e 28 6e |1)..IF B|ETWEEN(n|
|00002d70| 4c 69 6e 65 2c 31 2c 31 | 30 30 30 30 29 20 41 4e |Line,1,1|0000) AN|
|00002d80| 44 20 4e 4f 54 20 6c 63 | 43 6f 64 65 4c 69 6e 65 |D NOT lc|CodeLine|
|00002d90| 4d 73 67 3d 22 2e 2e 2e | 22 0d 0a 09 6c 63 45 72 |Msg="...|"...lcEr|
|00002da0| 72 6f 72 4d 73 67 3d 6c | 63 45 72 72 6f 72 4d 73 |rorMsg=l|cErrorMs|
|00002db0| 67 2b 43 48 52 28 31 33 | 29 2b 22 4c 69 6e 65 3a |g+CHR(13|)+"Line:|
|00002dc0| 20 20 20 20 20 20 20 20 | 20 22 2b 41 4c 4c 54 52 |        | "+ALLTR|
|00002dd0| 49 4d 28 53 54 52 28 6e | 4c 69 6e 65 29 29 0d 0a |IM(STR(n|Line))..|
|00002de0| 09 49 46 20 4e 4f 54 20 | 45 4d 50 54 59 28 6c 63 |.IF NOT |EMPTY(lc|
|00002df0| 43 6f 64 65 4c 69 6e 65 | 4d 73 67 29 0d 0a 09 09 |CodeLine|Msg)....|
|00002e00| 6c 63 45 72 72 6f 72 4d | 73 67 3d 6c 63 45 72 72 |lcErrorM|sg=lcErr|
|00002e10| 6f 72 4d 73 67 2b 43 48 | 52 28 31 33 29 2b 43 48 |orMsg+CH|R(13)+CH|
|00002e20| 52 28 31 33 29 2b 6c 63 | 43 6f 64 65 4c 69 6e 65 |R(13)+lc|CodeLine|
|00002e30| 4d 73 67 0d 0a 09 45 4e | 44 49 46 0d 0a 45 4e 44 |Msg...EN|DIF..END|
|00002e40| 49 46 0d 0a 49 46 20 4d | 45 53 53 41 47 45 42 4f |IF..IF M|ESSAGEBO|
|00002e50| 58 28 6c 63 45 72 72 6f | 72 4d 73 67 2c 31 37 2c |X(lcErro|rMsg,17,|
|00002e60| 5f 73 63 72 65 65 6e 2e | 43 61 70 74 69 6f 6e 29 |_screen.|Caption)|
|00002e70| 23 31 0d 0a 09 4f 4e 20 | 45 52 52 4f 52 0d 0a 09 |#1...ON |ERROR...|
|00002e80| 52 45 54 55 52 4e 20 2e | 46 2e 0d 0a 45 4e 44 49 |RETURN .|F...ENDI|
|00002e90| 46 0d 0a 45 4e 44 46 55 | 4e 43 0d 0a 0d 0a 0d 0a |F..ENDFU|NC......|
|00002ea0| 0d 0a 46 55 4e 43 54 49 | 4f 4e 20 53 68 75 74 44 |..FUNCTI|ON ShutD|
|00002eb0| 6f 77 6e 0d 0a 0d 0a 49 | 46 20 54 59 50 45 28 22 |own....I|F TYPE("|
|00002ec0| 67 6f 41 70 70 22 29 3d | 3d 22 4f 22 20 41 4e 44 |goApp")=|="O" AND|
|00002ed0| 20 4e 4f 54 20 49 53 4e | 55 4c 4c 28 67 6f 41 70 | NOT ISN|ULL(goAp|
|00002ee0| 70 29 0d 0a 09 52 45 54 | 55 52 4e 20 67 6f 41 70 |p)...RET|URN goAp|
|00002ef0| 70 2e 4f 6e 53 68 75 74 | 44 6f 77 6e 28 29 0d 0a |p.OnShut|Down()..|
|00002f00| 45 4e 44 49 46 0d 0a 43 | 6c 65 61 6e 75 70 28 29 |ENDIF..C|leanup()|
|00002f10| 0d 0a 51 55 49 54 0d 0a | 45 4e 44 46 55 4e 43 0d |..QUIT..|ENDFUNC.|
|00002f20| 0a 0d 0a 0d 0a 46 55 4e | 43 54 49 4f 4e 20 43 6c |.....FUN|CTION Cl|
|00002f30| 65 61 6e 75 70 0d 0a 0d | 0a 49 46 20 43 4e 54 42 |eanup...|.IF CNTB|
|00002f40| 41 52 28 22 5f 6d 73 79 | 73 6d 65 6e 75 22 29 3d |AR("_msy|smenu")=|
|00002f50| 37 0d 0a 09 52 45 54 55 | 52 4e 0d 0a 45 4e 44 49 |7...RETU|RN..ENDI|
|00002f60| 46 0d 0a 4f 4e 20 45 52 | 52 4f 52 0d 0a 4f 4e 20 |F..ON ER|ROR..ON |
|00002f70| 53 48 55 54 44 4f 57 4e | 0d 0a 53 45 54 20 43 4c |SHUTDOWN|..SET CL|
|00002f80| 41 53 53 4c 49 42 20 54 | 4f 0d 0a 53 45 54 20 50 |ASSLIB T|O..SET P|
|00002f90| 41 54 48 20 54 4f 0d 0a | 43 4c 45 41 52 20 41 4c |ATH TO..|CLEAR AL|
|00002fa0| 4c 0d 0a 43 4c 4f 53 45 | 20 41 4c 4c 0d 0a 50 4f |L..CLOSE| ALL..PO|
|00002fb0| 50 20 4d 45 4e 55 20 5f | 6d 73 79 73 6d 65 6e 75 |P MENU _|msysmenu|
|00002fc0| 0d 0a 52 45 54 55 52 4e | 0d 0a 2a 3c 44 75 6d 6d |..RETURN|..*<Dumm|
|00002fd0| 79 20 70 72 6f 6a 65 63 | 74 20 72 65 66 65 72 65 |y projec|t refere|
|00002fe0| 6e 63 65 73 3e 2a 0d 0a | 00 00 00 00 00 00 00 00 |nces>*..|........|
|00002ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003000| 00 00 00 01 00 00 07 a4 | 4c 4f 43 41 4c 20 6c 63 |........|LOCAL lc|
|00003010| 4d 61 69 6e 43 6c 61 73 | 73 4c 69 62 0d 0a 4c 4f |MainClas|sLib..LO|
|00003020| 43 41 4c 20 6c 63 4c 61 | 73 74 53 65 74 54 61 6c |CAL lcLa|stSetTal|
|00003030| 6b 2c 6c 63 4c 61 73 74 | 53 65 74 50 61 74 68 2c |k,lcLast|SetPath,|
|00003040| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|00003050| 62 2c 6c 63 4f 6e 53 68 | 75 74 64 6f 77 6e 0d 0a |b,lcOnSh|utdown..|
|00003060| 0d 0a 2a 2d 2d 20 53 61 | 76 65 20 61 6e 64 20 63 |..*-- Sa|ve and c|
|00003070| 6f 6e 66 69 67 75 72 65 | 20 65 6e 76 69 72 6f 6e |onfigure| environ|
|00003080| 6d 65 6e 74 2e 0d 0a 6c | 63 4c 61 73 74 53 65 74 |ment...l|cLastSet|
|00003090| 54 61 6c 6b 3d 53 45 54 | 28 22 54 41 4c 4b 22 29 |Talk=SET|("TALK")|
|000030a0| 0d 0a 53 45 54 20 54 41 | 4c 4b 20 4f 46 46 0d 0a |..SET TA|LK OFF..|
|000030b0| 6c 63 4c 61 73 74 53 65 | 74 50 61 74 68 3d 53 45 |lcLastSe|tPath=SE|
|000030c0| 54 28 22 50 41 54 48 22 | 29 0d 0a 49 46 20 44 49 |T("PATH"|)..IF DI|
|000030d0| 52 45 43 54 4f 52 59 28 | 5b 2a 3c 43 44 50 61 74 |RECTORY(|[*<CDPat|
|000030e0| 68 3e 2a 5d 29 0d 0a 09 | 43 44 20 5b 2a 3c 43 44 |h>*])...|CD [*<CD|
|000030f0| 50 61 74 68 3e 2a 5d 0d | 0a 09 2a 3c 50 41 54 48 |Path>*].|..*<PATH|
|00003100| 3e 2a 0d 0a 45 4e 44 49 | 46 0d 0a 50 55 53 48 20 |>*..ENDI|F..PUSH |
|00003110| 4d 45 4e 55 20 5f 6d 73 | 79 73 6d 65 6e 75 0d 0a |MENU _ms|ysmenu..|
|00003120| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|00003130| 62 3d 53 45 54 28 22 43 | 4c 41 53 53 4c 49 42 22 |b=SET("C|LASSLIB"|
|00003140| 29 0d 0a 6c 63 4d 61 69 | 6e 43 6c 61 73 73 4c 69 |)..lcMai|nClassLi|
|00003150| 62 3d 22 2a 3c 4d 41 49 | 4e 2e 56 43 58 3e 2a 22 |b="*<MAI|N.VCX>*"|
|00003160| 0d 0a 53 45 54 20 43 4c | 41 53 53 4c 49 42 20 54 |..SET CL|ASSLIB T|
|00003170| 4f 20 28 6c 63 4d 61 69 | 6e 43 6c 61 73 73 4c 69 |O (lcMai|nClassLi|
|00003180| 62 29 20 41 44 44 49 54 | 49 56 45 0d 0a 6c 63 4f |b) ADDIT|IVE..lcO|
|00003190| 6e 53 68 75 74 64 6f 77 | 6e 3d 22 53 68 75 74 44 |nShutdow|n="ShutD|
|000031a0| 6f 77 6e 28 29 22 0d 0a | 4f 4e 20 53 48 55 54 44 |own()"..|ON SHUTD|
|000031b0| 4f 57 4e 20 26 6c 63 4f | 6e 53 68 75 74 64 6f 77 |OWN &lcO|nShutdow|
|000031c0| 6e 0d 0a 4f 4e 20 45 52 | 52 4f 52 20 45 72 72 6f |n..ON ER|ROR Erro|
|000031d0| 72 48 61 6e 64 6c 65 72 | 28 45 52 52 4f 52 28 29 |rHandler|(ERROR()|
|000031e0| 2c 50 52 4f 47 52 41 4d | 28 29 2c 4c 49 4e 45 4e |,PROGRAM|(),LINEN|
|000031f0| 4f 28 29 29 0d 0a 5f 73 | 68 65 6c 6c 3d 22 44 4f |O()).._s|hell="DO|
|00003200| 20 43 6c 65 61 6e 75 70 | 20 49 4e 20 2a 3c 4d 41 | Cleanup| IN *<MA|
|00003210| 49 4e 2e 50 52 47 3e 2a | 22 0d 0a 0d 0a 2a 2d 2d |IN.PRG>*|"....*--|
|00003220| 20 49 6e 73 74 61 6e 74 | 69 61 74 65 20 61 70 70 | Instant|iate app|
|00003230| 6c 69 63 61 74 69 6f 6e | 20 6f 62 6a 65 63 74 2e |lication| object.|
|00003240| 0d 0a 52 45 4c 45 41 53 | 45 20 67 6f 41 70 70 0d |..RELEAS|E goApp.|
|00003250| 0a 50 55 42 4c 49 43 20 | 67 6f 41 70 70 0d 0a 67 |.PUBLIC |goApp..g|
|00003260| 6f 41 70 70 3d 43 52 45 | 41 54 45 4f 42 4a 45 43 |oApp=CRE|ATEOBJEC|
|00003270| 54 28 22 63 41 70 70 6c | 69 63 61 74 69 6f 6e 22 |T("cAppl|ication"|
|00003280| 29 0d 0a 0d 0a 2a 2d 2d | 20 43 6f 6e 66 69 67 75 |)....*--| Configu|
|00003290| 72 65 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 6f |re appli|cation o|
|000032a0| 62 6a 65 63 74 2e 0d 0a | 2a 3c 49 6e 69 74 61 6c |bject...|*<Inital|
|000032b0| 69 7a 65 3e 2a 0d 0a 0d | 0a 2a 2d 2d 20 53 68 6f |ize>*...|.*-- Sho|
|000032c0| 77 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 2e 0d 0a |w applic|ation...|
|000032d0| 67 6f 41 70 70 2e 53 68 | 6f 77 0d 0a 2a 2d 2d 20 |goApp.Sh|ow..*-- |
|000032e0| 52 65 6c 65 61 73 65 20 | 61 70 70 6c 69 63 61 74 |Release |applicat|
|000032f0| 69 6f 6e 2e 0d 0a 52 45 | 4c 45 41 53 45 20 67 6f |ion...RE|LEASE go|
|00003300| 41 70 70 0d 0a 0d 0a 2a | 2d 2d 20 52 65 73 74 6f |App....*|-- Resto|
|00003310| 72 65 20 64 65 66 61 75 | 6c 74 20 6d 65 6e 75 2e |re defau|lt menu.|
|00003320| 0d 0a 50 4f 50 20 4d 45 | 4e 55 20 5f 6d 73 79 73 |..POP ME|NU _msys|
|00003330| 6d 65 6e 75 0d 0a 0d 0a | 2a 2d 2d 20 52 65 73 74 |menu....|*-- Rest|
|00003340| 6f 72 65 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 2e |ore envi|ronment.|
|00003350| 0d 0a 4f 4e 20 45 52 52 | 4f 52 0d 0a 4f 4e 20 53 |..ON ERR|OR..ON S|
|00003360| 48 55 54 44 4f 57 4e 0d | 0a 49 46 20 4e 4f 54 20 |HUTDOWN.|.IF NOT |
|00003370| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|00003380| 62 3d 3d 53 45 54 28 22 | 63 6c 61 73 73 6c 69 62 |b==SET("|classlib|
|00003390| 22 29 0d 0a 09 52 45 4c | 45 41 53 45 20 43 4c 41 |")...REL|EASE CLA|
|000033a0| 53 53 4c 49 42 20 28 6c | 63 4d 61 69 6e 43 6c 61 |SSLIB (l|cMainCla|
|000033b0| 73 73 4c 69 62 29 0d 0a | 45 4e 44 49 46 0d 0a 49 |ssLib)..|ENDIF..I|
|000033c0| 46 20 45 4d 50 54 59 28 | 6c 63 4c 61 73 74 53 65 |F EMPTY(|lcLastSe|
|000033d0| 74 50 61 74 68 29 0d 0a | 09 53 45 54 20 50 41 54 |tPath)..|.SET PAT|
|000033e0| 48 20 54 4f 0d 0a 45 4c | 53 45 0d 0a 09 53 45 54 |H TO..EL|SE...SET|
|000033f0| 20 50 41 54 48 20 54 4f | 20 26 6c 63 4c 61 73 74 | PATH TO| &lcLast|
|00003400| 53 65 74 50 61 74 68 0d | 0a 45 4e 44 49 46 0d 0a |SetPath.|.ENDIF..|
|00003410| 49 46 20 6c 63 4c 61 73 | 74 53 65 74 54 61 6c 6b |IF lcLas|tSetTalk|
|00003420| 3d 3d 22 4f 4e 22 0d 0a | 09 53 45 54 20 54 41 4c |=="ON"..|.SET TAL|
|00003430| 4b 20 4f 4e 0d 0a 45 4c | 53 45 0d 0a 09 53 45 54 |K ON..EL|SE...SET|
|00003440| 20 54 41 4c 4b 20 4f 46 | 46 0d 0a 45 4e 44 49 46 | TALK OF|F..ENDIF|
|00003450| 0d 0a 52 45 54 55 52 4e | 0d 0a 0d 0a 0d 0a 0d 0a |..RETURN|........|
|00003460| 46 55 4e 43 54 49 4f 4e | 20 45 72 72 6f 72 48 61 |FUNCTION| ErrorHa|
|00003470| 6e 64 6c 65 72 28 6e 45 | 72 72 6f 72 2c 63 4d 65 |ndler(nE|rror,cMe|
|00003480| 74 68 6f 64 2c 6e 4c 69 | 6e 65 29 0d 0a 4c 4f 43 |thod,nLi|ne)..LOC|
|00003490| 41 4c 20 6c 63 45 72 72 | 6f 72 4d 73 67 2c 6c 63 |AL lcErr|orMsg,lc|
|000034a0| 43 6f 64 65 4c 69 6e 65 | 4d 73 67 0d 0a 0d 0a 57 |CodeLine|Msg....W|
|000034b0| 41 49 54 20 43 4c 45 41 | 52 0d 0a 6c 63 45 72 72 |AIT CLEA|R..lcErr|
|000034c0| 6f 72 4d 73 67 3d 4d 45 | 53 53 41 47 45 28 29 2b |orMsg=ME|SSAGE()+|
|000034d0| 43 48 52 28 31 33 29 2b | 43 48 52 28 31 33 29 0d |CHR(13)+|CHR(13).|
|000034e0| 0a 6c 63 45 72 72 6f 72 | 4d 73 67 3d 6c 63 45 72 |.lcError|Msg=lcEr|
|000034f0| 72 6f 72 4d 73 67 2b 22 | 4d 65 74 68 6f 64 3a 20 |rorMsg+"|Method: |
|00003500| 20 20 20 22 2b 63 4d 65 | 74 68 6f 64 0d 0a 6c 63 |   "+cMe|thod..lc|
|00003510| 43 6f 64 65 4c 69 6e 65 | 4d 73 67 3d 4d 45 53 53 |CodeLine|Msg=MESS|
|00003520| 41 47 45 28 31 29 0d 0a | 49 46 20 42 45 54 57 45 |AGE(1)..|IF BETWE|
|00003530| 45 4e 28 6e 4c 69 6e 65 | 2c 31 2c 31 30 30 30 30 |EN(nLine|,1,10000|
|00003540| 29 20 41 4e 44 20 4e 4f | 54 20 6c 63 43 6f 64 65 |) AND NO|T lcCode|
|00003550| 4c 69 6e 65 4d 73 67 3d | 22 2e 2e 2e 22 0d 0a 09 |LineMsg=|"..."...|
|00003560| 6c 63 45 72 72 6f 72 4d | 73 67 3d 6c 63 45 72 72 |lcErrorM|sg=lcErr|
|00003570| 6f 72 4d 73 67 2b 43 48 | 52 28 31 33 29 2b 22 4c |orMsg+CH|R(13)+"L|
|00003580| 69 6e 65 3a 20 20 20 20 | 20 20 20 20 20 22 2b 41 |ine:    |     "+A|
|00003590| 4c 4c 54 52 49 4d 28 53 | 54 52 28 6e 4c 69 6e 65 |LLTRIM(S|TR(nLine|
|000035a0| 29 29 0d 0a 09 49 46 20 | 4e 4f 54 20 45 4d 50 54 |))...IF |NOT EMPT|
|000035b0| 59 28 6c 63 43 6f 64 65 | 4c 69 6e 65 4d 73 67 29 |Y(lcCode|LineMsg)|
|000035c0| 0d 0a 09 09 6c 63 45 72 | 72 6f 72 4d 73 67 3d 6c |....lcEr|rorMsg=l|
|000035d0| 63 45 72 72 6f 72 4d 73 | 67 2b 43 48 52 28 31 33 |cErrorMs|g+CHR(13|
|000035e0| 29 2b 43 48 52 28 31 33 | 29 2b 6c 63 43 6f 64 65 |)+CHR(13|)+lcCode|
|000035f0| 4c 69 6e 65 4d 73 67 0d | 0a 09 45 4e 44 49 46 0d |LineMsg.|..ENDIF.|
|00003600| 0a 45 4e 44 49 46 0d 0a | 49 46 20 4d 45 53 53 41 |.ENDIF..|IF MESSA|
|00003610| 47 45 42 4f 58 28 6c 63 | 45 72 72 6f 72 4d 73 67 |GEBOX(lc|ErrorMsg|
|00003620| 2c 31 37 2c 5f 73 63 72 | 65 65 6e 2e 43 61 70 74 |,17,_scr|een.Capt|
|00003630| 69 6f 6e 29 23 31 0d 0a | 09 4f 4e 20 45 52 52 4f |ion)#1..|.ON ERRO|
|00003640| 52 0d 0a 09 52 45 54 55 | 52 4e 20 2e 46 2e 0d 0a |R...RETU|RN .F...|
|00003650| 45 4e 44 49 46 0d 0a 45 | 4e 44 46 55 4e 43 0d 0a |ENDIF..E|NDFUNC..|
|00003660| 0d 0a 0d 0a 0d 0a 46 55 | 4e 43 54 49 4f 4e 20 53 |......FU|NCTION S|
|00003670| 68 75 74 44 6f 77 6e 0d | 0a 0d 0a 49 46 20 54 59 |hutDown.|...IF TY|
|00003680| 50 45 28 22 67 6f 41 70 | 70 22 29 3d 3d 22 4f 22 |PE("goAp|p")=="O"|
|00003690| 20 41 4e 44 20 4e 4f 54 | 20 49 53 4e 55 4c 4c 28 | AND NOT| ISNULL(|
|000036a0| 67 6f 41 70 70 29 0d 0a | 09 52 45 54 55 52 4e 20 |goApp)..|.RETURN |
|000036b0| 67 6f 41 70 70 2e 4f 6e | 53 68 75 74 44 6f 77 6e |goApp.On|ShutDown|
|000036c0| 28 29 0d 0a 45 4e 44 49 | 46 0d 0a 43 6c 65 61 6e |()..ENDI|F..Clean|
|000036d0| 75 70 28 29 0d 0a 51 55 | 49 54 0d 0a 45 4e 44 46 |up()..QU|IT..ENDF|
|000036e0| 55 4e 43 0d 0a 0d 0a 0d | 0a 46 55 4e 43 54 49 4f |UNC.....|.FUNCTIO|
|000036f0| 4e 20 43 6c 65 61 6e 75 | 70 0d 0a 0d 0a 49 46 20 |N Cleanu|p....IF |
|00003700| 43 4e 54 42 41 52 28 22 | 5f 6d 73 79 73 6d 65 6e |CNTBAR("|_msysmen|
|00003710| 75 22 29 3d 37 0d 0a 09 | 52 45 54 55 52 4e 0d 0a |u")=7...|RETURN..|
|00003720| 45 4e 44 49 46 0d 0a 4f | 4e 20 45 52 52 4f 52 0d |ENDIF..O|N ERROR.|
|00003730| 0a 4f 4e 20 53 48 55 54 | 44 4f 57 4e 0d 0a 53 45 |.ON SHUT|DOWN..SE|
|00003740| 54 20 43 4c 41 53 53 4c | 49 42 20 54 4f 0d 0a 53 |T CLASSL|IB TO..S|
|00003750| 45 54 20 50 41 54 48 20 | 54 4f 0d 0a 43 4c 45 41 |ET PATH |TO..CLEA|
|00003760| 52 20 41 4c 4c 0d 0a 43 | 4c 4f 53 45 20 41 4c 4c |R ALL..C|LOSE ALL|
|00003770| 0d 0a 50 4f 50 20 4d 45 | 4e 55 20 5f 6d 73 79 73 |..POP ME|NU _msys|
|00003780| 6d 65 6e 75 0d 0a 52 45 | 54 55 52 4e 0d 0a 2a 3c |menu..RE|TURN..*<|
|00003790| 44 75 6d 6d 79 20 70 72 | 6f 6a 65 63 74 20 72 65 |Dummy pr|oject re|
|000037a0| 66 65 72 65 6e 63 65 73 | 3e 2a 0d 0a 00 00 00 00 |ferences|>*......|
|000037b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037c0| 00 00 00 01 00 00 07 c7 | 4c 4f 43 41 4c 20 6c 63 |........|LOCAL lc|
|000037d0| 4d 61 69 6e 43 6c 61 73 | 73 4c 69 62 0d 0a 4c 4f |MainClas|sLib..LO|
|000037e0| 43 41 4c 20 6c 63 4c 61 | 73 74 53 65 74 54 61 6c |CAL lcLa|stSetTal|
|000037f0| 6b 2c 6c 63 4c 61 73 74 | 53 65 74 50 61 74 68 2c |k,lcLast|SetPath,|
|00003800| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|00003810| 62 2c 6c 63 4f 6e 53 68 | 75 74 64 6f 77 6e 0d 0a |b,lcOnSh|utdown..|
|00003820| 0d 0a 2a 2d 2d 20 53 61 | 76 65 20 61 6e 64 20 63 |..*-- Sa|ve and c|
|00003830| 6f 6e 66 69 67 75 72 65 | 20 65 6e 76 69 72 6f 6e |onfigure| environ|
|00003840| 6d 65 6e 74 2e 0d 0a 6c | 63 4c 61 73 74 53 65 74 |ment...l|cLastSet|
|00003850| 54 61 6c 6b 3d 53 45 54 | 28 22 54 41 4c 4b 22 29 |Talk=SET|("TALK")|
|00003860| 0d 0a 53 45 54 20 54 41 | 4c 4b 20 4f 46 46 0d 0a |..SET TA|LK OFF..|
|00003870| 6c 63 4c 61 73 74 53 65 | 74 50 61 74 68 3d 53 45 |lcLastSe|tPath=SE|
|00003880| 54 28 22 50 41 54 48 22 | 29 0d 0a 49 46 20 44 49 |T("PATH"|)..IF DI|
|00003890| 52 45 43 54 4f 52 59 28 | 5b 2a 3c 43 44 50 61 74 |RECTORY(|[*<CDPat|
|000038a0| 68 3e 2a 5d 29 0d 0a 09 | 43 44 20 5b 2a 3c 43 44 |h>*])...|CD [*<CD|
|000038b0| 50 61 74 68 3e 2a 5d 0d | 0a 09 2a 3c 50 41 54 48 |Path>*].|..*<PATH|
|000038c0| 3e 2a 0d 0a 45 4e 44 49 | 46 0d 0a 50 55 53 48 20 |>*..ENDI|F..PUSH |
|000038d0| 4d 45 4e 55 20 5f 6d 73 | 79 73 6d 65 6e 75 0d 0a |MENU _ms|ysmenu..|
|000038e0| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|000038f0| 62 3d 53 45 54 28 22 43 | 4c 41 53 53 4c 49 42 22 |b=SET("C|LASSLIB"|
|00003900| 29 0d 0a 6c 63 4d 61 69 | 6e 43 6c 61 73 73 4c 69 |)..lcMai|nClassLi|
|00003910| 62 3d 22 2a 3c 4d 41 49 | 4e 2e 56 43 58 3e 2a 22 |b="*<MAI|N.VCX>*"|
|00003920| 0d 0a 53 45 54 20 43 4c | 41 53 53 4c 49 42 20 54 |..SET CL|ASSLIB T|
|00003930| 4f 20 28 6c 63 4d 61 69 | 6e 43 6c 61 73 73 4c 69 |O (lcMai|nClassLi|
|00003940| 62 29 20 41 44 44 49 54 | 49 56 45 0d 0a 6c 63 4f |b) ADDIT|IVE..lcO|
|00003950| 6e 53 68 75 74 64 6f 77 | 6e 3d 22 53 68 75 74 44 |nShutdow|n="ShutD|
|00003960| 6f 77 6e 28 29 22 0d 0a | 4f 4e 20 53 48 55 54 44 |own()"..|ON SHUTD|
|00003970| 4f 57 4e 20 26 6c 63 4f | 6e 53 68 75 74 64 6f 77 |OWN &lcO|nShutdow|
|00003980| 6e 0d 0a 4f 4e 20 45 52 | 52 4f 52 20 45 72 72 6f |n..ON ER|ROR Erro|
|00003990| 72 48 61 6e 64 6c 65 72 | 28 45 52 52 4f 52 28 29 |rHandler|(ERROR()|
|000039a0| 2c 50 52 4f 47 52 41 4d | 28 29 2c 4c 49 4e 45 4e |,PROGRAM|(),LINEN|
|000039b0| 4f 28 29 29 0d 0a 49 46 | 20 46 49 4c 45 28 5b 2a |O())..IF| FILE([*|
|000039c0| 3c 4d 41 49 4e 2e 50 52 | 47 3e 2a 5d 29 0d 0a 09 |<MAIN.PR|G>*])...|
|000039d0| 5f 73 68 65 6c 6c 3d 22 | 44 4f 20 43 6c 65 61 6e |_shell="|DO Clean|
|000039e0| 75 70 20 49 4e 20 5b 2a | 3c 4d 41 49 4e 2e 50 52 |up IN [*|<MAIN.PR|
|000039f0| 47 3e 2a 5d 22 0d 0a 45 | 4e 44 49 46 0d 0a 0d 0a |G>*]"..E|NDIF....|
|00003a00| 2a 2d 2d 20 49 6e 73 74 | 61 6e 74 69 61 74 65 20 |*-- Inst|antiate |
|00003a10| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 6f 62 6a 65 |applicat|ion obje|
|00003a20| 63 74 2e 0d 0a 52 45 4c | 45 41 53 45 20 67 6f 41 |ct...REL|EASE goA|
|00003a30| 70 70 0d 0a 50 55 42 4c | 49 43 20 67 6f 41 70 70 |pp..PUBL|IC goApp|
|00003a40| 0d 0a 67 6f 41 70 70 3d | 43 52 45 41 54 45 4f 42 |..goApp=|CREATEOB|
|00003a50| 4a 45 43 54 28 22 63 41 | 70 70 6c 69 63 61 74 69 |JECT("cA|pplicati|
|00003a60| 6f 6e 22 29 0d 0a 0d 0a | 2a 2d 2d 20 43 6f 6e 66 |on")....|*-- Conf|
|00003a70| 69 67 75 72 65 20 61 70 | 70 6c 69 63 61 74 69 6f |igure ap|plicatio|
|00003a80| 6e 20 6f 62 6a 65 63 74 | 2e 0d 0a 2a 3c 49 6e 69 |n object|...*<Ini|
|00003a90| 74 61 6c 69 7a 65 3e 2a | 0d 0a 0d 0a 2a 2d 2d 20 |talize>*|....*-- |
|00003aa0| 53 68 6f 77 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |Show app|lication|
|00003ab0| 2e 0d 0a 67 6f 41 70 70 | 2e 53 68 6f 77 0d 0a 2a |...goApp|.Show..*|
|00003ac0| 2d 2d 20 52 65 6c 65 61 | 73 65 20 61 70 70 6c 69 |-- Relea|se appli|
|00003ad0| 63 61 74 69 6f 6e 2e 0d | 0a 52 45 4c 45 41 53 45 |cation..|.RELEASE|
|00003ae0| 20 67 6f 41 70 70 0d 0a | 0d 0a 2a 2d 2d 20 52 65 | goApp..|..*-- Re|
|00003af0| 73 74 6f 72 65 20 64 65 | 66 61 75 6c 74 20 6d 65 |store de|fault me|
|00003b00| 6e 75 2e 0d 0a 50 4f 50 | 20 4d 45 4e 55 20 5f 6d |nu...POP| MENU _m|
|00003b10| 73 79 73 6d 65 6e 75 0d | 0a 0d 0a 2a 2d 2d 20 52 |sysmenu.|...*-- R|
|00003b20| 65 73 74 6f 72 65 20 65 | 6e 76 69 72 6f 6e 6d 65 |estore e|nvironme|
|00003b30| 6e 74 2e 0d 0a 4f 4e 20 | 45 52 52 4f 52 0d 0a 4f |nt...ON |ERROR..O|
|00003b40| 4e 20 53 48 55 54 44 4f | 57 4e 0d 0a 49 46 20 4e |N SHUTDO|WN..IF N|
|00003b50| 4f 54 20 6c 63 4c 61 73 | 74 53 65 74 43 6c 61 73 |OT lcLas|tSetClas|
|00003b60| 73 4c 69 62 3d 3d 53 45 | 54 28 22 63 6c 61 73 73 |sLib==SE|T("class|
|00003b70| 6c 69 62 22 29 0d 0a 09 | 52 45 4c 45 41 53 45 20 |lib")...|RELEASE |
|00003b80| 43 4c 41 53 53 4c 49 42 | 20 28 6c 63 4d 61 69 6e |CLASSLIB| (lcMain|
|00003b90| 43 6c 61 73 73 4c 69 62 | 29 0d 0a 45 4e 44 49 46 |ClassLib|)..ENDIF|
|00003ba0| 0d 0a 49 46 20 45 4d 50 | 54 59 28 6c 63 4c 61 73 |..IF EMP|TY(lcLas|
|00003bb0| 74 53 65 74 50 61 74 68 | 29 0d 0a 09 53 45 54 20 |tSetPath|)...SET |
|00003bc0| 50 41 54 48 20 54 4f 0d | 0a 45 4c 53 45 0d 0a 09 |PATH TO.|.ELSE...|
|00003bd0| 53 45 54 20 50 41 54 48 | 20 54 4f 20 26 6c 63 4c |SET PATH| TO &lcL|
|00003be0| 61 73 74 53 65 74 50 61 | 74 68 0d 0a 45 4e 44 49 |astSetPa|th..ENDI|
|00003bf0| 46 0d 0a 49 46 20 6c 63 | 4c 61 73 74 53 65 74 54 |F..IF lc|LastSetT|
|00003c00| 61 6c 6b 3d 3d 22 4f 4e | 22 0d 0a 09 53 45 54 20 |alk=="ON|"...SET |
|00003c10| 54 41 4c 4b 20 4f 4e 0d | 0a 45 4c 53 45 0d 0a 09 |TALK ON.|.ELSE...|
|00003c20| 53 45 54 20 54 41 4c 4b | 20 4f 46 46 0d 0a 45 4e |SET TALK| OFF..EN|
|00003c30| 44 49 46 0d 0a 52 45 54 | 55 52 4e 0d 0a 0d 0a 0d |DIF..RET|URN.....|
|00003c40| 0a 0d 0a 46 55 4e 43 54 | 49 4f 4e 20 45 72 72 6f |...FUNCT|ION Erro|
|00003c50| 72 48 61 6e 64 6c 65 72 | 28 6e 45 72 72 6f 72 2c |rHandler|(nError,|
|00003c60| 63 4d 65 74 68 6f 64 2c | 6e 4c 69 6e 65 29 0d 0a |cMethod,|nLine)..|
|00003c70| 4c 4f 43 41 4c 20 6c 63 | 45 72 72 6f 72 4d 73 67 |LOCAL lc|ErrorMsg|
|00003c80| 2c 6c 63 43 6f 64 65 4c | 69 6e 65 4d 73 67 0d 0a |,lcCodeL|ineMsg..|
|00003c90| 0d 0a 57 41 49 54 20 43 | 4c 45 41 52 0d 0a 6c 63 |..WAIT C|LEAR..lc|
|00003ca0| 45 72 72 6f 72 4d 73 67 | 3d 4d 45 53 53 41 47 45 |ErrorMsg|=MESSAGE|
|00003cb0| 28 29 2b 43 48 52 28 31 | 33 29 2b 43 48 52 28 31 |()+CHR(1|3)+CHR(1|
|00003cc0| 33 29 0d 0a 6c 63 45 72 | 72 6f 72 4d 73 67 3d 6c |3)..lcEr|rorMsg=l|
|00003cd0| 63 45 72 72 6f 72 4d 73 | 67 2b 22 4d 65 74 68 6f |cErrorMs|g+"Metho|
|00003ce0| 64 3a 20 20 20 20 22 2b | 63 4d 65 74 68 6f 64 0d |d:    "+|cMethod.|
|00003cf0| 0a 6c 63 43 6f 64 65 4c | 69 6e 65 4d 73 67 3d 4d |.lcCodeL|ineMsg=M|
|00003d00| 45 53 53 41 47 45 28 31 | 29 0d 0a 49 46 20 42 45 |ESSAGE(1|)..IF BE|
|00003d10| 54 57 45 45 4e 28 6e 4c | 69 6e 65 2c 31 2c 31 30 |TWEEN(nL|ine,1,10|
|00003d20| 30 30 30 29 20 41 4e 44 | 20 4e 4f 54 20 6c 63 43 |000) AND| NOT lcC|
|00003d30| 6f 64 65 4c 69 6e 65 4d | 73 67 3d 22 2e 2e 2e 22 |odeLineM|sg="..."|
|00003d40| 0d 0a 09 6c 63 45 72 72 | 6f 72 4d 73 67 3d 6c 63 |...lcErr|orMsg=lc|
|00003d50| 45 72 72 6f 72 4d 73 67 | 2b 43 48 52 28 31 33 29 |ErrorMsg|+CHR(13)|
|00003d60| 2b 22 4c 69 6e 65 3a 20 | 20 20 20 20 20 20 20 20 |+"Line: |        |
|00003d70| 22 2b 41 4c 4c 54 52 49 | 4d 28 53 54 52 28 6e 4c |"+ALLTRI|M(STR(nL|
|00003d80| 69 6e 65 29 29 0d 0a 09 | 49 46 20 4e 4f 54 20 45 |ine))...|IF NOT E|
|00003d90| 4d 50 54 59 28 6c 63 43 | 6f 64 65 4c 69 6e 65 4d |MPTY(lcC|odeLineM|
|00003da0| 73 67 29 0d 0a 09 09 6c | 63 45 72 72 6f 72 4d 73 |sg)....l|cErrorMs|
|00003db0| 67 3d 6c 63 45 72 72 6f | 72 4d 73 67 2b 43 48 52 |g=lcErro|rMsg+CHR|
|00003dc0| 28 31 33 29 2b 43 48 52 | 28 31 33 29 2b 6c 63 43 |(13)+CHR|(13)+lcC|
|00003dd0| 6f 64 65 4c 69 6e 65 4d | 73 67 0d 0a 09 45 4e 44 |odeLineM|sg...END|
|00003de0| 49 46 0d 0a 45 4e 44 49 | 46 0d 0a 49 46 20 4d 45 |IF..ENDI|F..IF ME|
|00003df0| 53 53 41 47 45 42 4f 58 | 28 6c 63 45 72 72 6f 72 |SSAGEBOX|(lcError|
|00003e00| 4d 73 67 2c 31 37 2c 5f | 73 63 72 65 65 6e 2e 43 |Msg,17,_|screen.C|
|00003e10| 61 70 74 69 6f 6e 29 23 | 31 0d 0a 09 4f 4e 20 45 |aption)#|1...ON E|
|00003e20| 52 52 4f 52 0d 0a 09 52 | 45 54 55 52 4e 20 2e 46 |RROR...R|ETURN .F|
|00003e30| 2e 0d 0a 45 4e 44 49 46 | 0d 0a 45 4e 44 46 55 4e |...ENDIF|..ENDFUN|
|00003e40| 43 0d 0a 0d 0a 0d 0a 0d | 0a 46 55 4e 43 54 49 4f |C.......|.FUNCTIO|
|00003e50| 4e 20 53 68 75 74 44 6f | 77 6e 0d 0a 0d 0a 49 46 |N ShutDo|wn....IF|
|00003e60| 20 54 59 50 45 28 22 67 | 6f 41 70 70 22 29 3d 3d | TYPE("g|oApp")==|
|00003e70| 22 4f 22 20 41 4e 44 20 | 4e 4f 54 20 49 53 4e 55 |"O" AND |NOT ISNU|
|00003e80| 4c 4c 28 67 6f 41 70 70 | 29 0d 0a 09 52 45 54 55 |LL(goApp|)...RETU|
|00003e90| 52 4e 20 67 6f 41 70 70 | 2e 4f 6e 53 68 75 74 44 |RN goApp|.OnShutD|
|00003ea0| 6f 77 6e 28 29 0d 0a 45 | 4e 44 49 46 0d 0a 43 6c |own()..E|NDIF..Cl|
|00003eb0| 65 61 6e 75 70 28 29 0d | 0a 51 55 49 54 0d 0a 45 |eanup().|.QUIT..E|
|00003ec0| 4e 44 46 55 4e 43 0d 0a | 0d 0a 0d 0a 46 55 4e 43 |NDFUNC..|....FUNC|
|00003ed0| 54 49 4f 4e 20 43 6c 65 | 61 6e 75 70 0d 0a 0d 0a |TION Cle|anup....|
|00003ee0| 49 46 20 43 4e 54 42 41 | 52 28 22 5f 6d 73 79 73 |IF CNTBA|R("_msys|
|00003ef0| 6d 65 6e 75 22 29 3d 37 | 0d 0a 09 52 45 54 55 52 |menu")=7|...RETUR|
|00003f00| 4e 0d 0a 45 4e 44 49 46 | 0d 0a 4f 4e 20 45 52 52 |N..ENDIF|..ON ERR|
|00003f10| 4f 52 0d 0a 4f 4e 20 53 | 48 55 54 44 4f 57 4e 0d |OR..ON S|HUTDOWN.|
|00003f20| 0a 53 45 54 20 43 4c 41 | 53 53 4c 49 42 20 54 4f |.SET CLA|SSLIB TO|
|00003f30| 0d 0a 53 45 54 20 50 41 | 54 48 20 54 4f 0d 0a 43 |..SET PA|TH TO..C|
|00003f40| 4c 45 41 52 20 41 4c 4c | 0d 0a 43 4c 4f 53 45 20 |LEAR ALL|..CLOSE |
|00003f50| 41 4c 4c 0d 0a 50 4f 50 | 20 4d 45 4e 55 20 5f 6d |ALL..POP| MENU _m|
|00003f60| 73 79 73 6d 65 6e 75 0d | 0a 52 45 54 55 52 4e 0d |sysmenu.|.RETURN.|
|00003f70| 0a 2a 3c 44 75 6d 6d 79 | 20 70 72 6f 6a 65 63 74 |.*<Dummy| project|
|00003f80| 20 72 65 66 65 72 65 6e | 63 65 73 3e 2a 0d 0a 00 | referen|ces>*...|
|00003f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fc0| 00 00 00 01 00 00 07 c5 | 4c 4f 43 41 4c 20 6c 63 |........|LOCAL lc|
|00003fd0| 4d 61 69 6e 43 6c 61 73 | 73 4c 69 62 0d 0a 4c 4f |MainClas|sLib..LO|
|00003fe0| 43 41 4c 20 6c 63 4c 61 | 73 74 53 65 74 54 61 6c |CAL lcLa|stSetTal|
|00003ff0| 6b 2c 6c 63 4c 61 73 74 | 53 65 74 50 61 74 68 2c |k,lcLast|SetPath,|
|00004000| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|00004010| 62 2c 6c 63 4f 6e 53 68 | 75 74 64 6f 77 6e 0d 0a |b,lcOnSh|utdown..|
|00004020| 0d 0a 2a 2d 2d 20 53 61 | 76 65 20 61 6e 64 20 63 |..*-- Sa|ve and c|
|00004030| 6f 6e 66 69 67 75 72 65 | 20 65 6e 76 69 72 6f 6e |onfigure| environ|
|00004040| 6d 65 6e 74 2e 0d 0a 6c | 63 4c 61 73 74 53 65 74 |ment...l|cLastSet|
|00004050| 54 61 6c 6b 3d 53 45 54 | 28 22 54 41 4c 4b 22 29 |Talk=SET|("TALK")|
|00004060| 0d 0a 53 45 54 20 54 41 | 4c 4b 20 4f 46 46 0d 0a |..SET TA|LK OFF..|
|00004070| 6c 63 4c 61 73 74 53 65 | 74 50 61 74 68 3d 53 45 |lcLastSe|tPath=SE|
|00004080| 54 28 22 50 41 54 48 22 | 29 0d 0a 49 46 20 44 49 |T("PATH"|)..IF DI|
|00004090| 52 45 43 54 4f 52 59 28 | 5b 2a 3c 43 44 50 61 74 |RECTORY(|[*<CDPat|
|000040a0| 68 3e 2a 5d 29 0d 0a 09 | 43 44 20 5b 2a 3c 43 44 |h>*])...|CD [*<CD|
|000040b0| 50 61 74 68 3e 2a 5d 0d | 0a 09 2a 3c 50 41 54 48 |Path>*].|..*<PATH|
|000040c0| 3e 2a 0d 0a 45 4e 44 49 | 46 0d 0a 50 55 53 48 20 |>*..ENDI|F..PUSH |
|000040d0| 4d 45 4e 55 20 5f 6d 73 | 79 73 6d 65 6e 75 0d 0a |MENU _ms|ysmenu..|
|000040e0| 6c 63 4c 61 73 74 53 65 | 74 43 6c 61 73 73 4c 69 |lcLastSe|tClassLi|
|000040f0| 62 3d 53 45 54 28 22 43 | 4c 41 53 53 4c 49 42 22 |b=SET("C|LASSLIB"|
|00004100| 29 0d 0a 6c 63 4d 61 69 | 6e 43 6c 61 73 73 4c 69 |)..lcMai|nClassLi|
|00004110| 62 3d 22 2a 3c 4d 41 49 | 4e 2e 56 43 58 3e 2a 22 |b="*<MAI|N.VCX>*"|
|00004120| 0d 0a 53 45 54 20 43 4c | 41 53 53 4c 49 42 20 54 |..SET CL|ASSLIB T|
|00004130| 4f 20 28 6c 63 4d 61 69 | 6e 43 6c 61 73 73 4c 69 |O (lcMai|nClassLi|
|00004140| 62 29 20 41 44 44 49 54 | 49 56 45 0d 0a 6c 63 4f |b) ADDIT|IVE..lcO|
|00004150| 6e 53 68 75 74 64 6f 77 | 6e 3d 22 53 68 75 74 44 |nShutdow|n="ShutD|
|00004160| 6f 77 6e 28 29 22 0d 0a | 4f 4e 20 53 48 55 54 44 |own()"..|ON SHUTD|
|00004170| 4f 57 4e 20 26 6c 63 4f | 6e 53 68 75 74 64 6f 77 |OWN &lcO|nShutdow|
|00004180| 6e 0d 0a 4f 4e 20 45 52 | 52 4f 52 20 45 72 72 6f |n..ON ER|ROR Erro|
|00004190| 72 48 61 6e 64 6c 65 72 | 28 45 52 52 4f 52 28 29 |rHandler|(ERROR()|
|000041a0| 2c 50 52 4f 47 52 41 4d | 28 29 2c 4c 49 4e 45 4e |,PROGRAM|(),LINEN|
|000041b0| 4f 28 29 29 0d 0a 49 46 | 20 46 49 4c 45 28 5b 2a |O())..IF| FILE([*|
|000041c0| 3c 4d 41 49 4e 2e 50 52 | 47 3e 2a 5d 29 0d 0a 09 |<MAIN.PR|G>*])...|
|000041d0| 5f 73 68 65 6c 6c 3d 22 | 44 4f 20 43 6c 65 61 6e |_shell="|DO Clean|
|000041e0| 75 70 20 49 4e 20 2a 3c | 4d 41 49 4e 2e 50 52 47 |up IN *<|MAIN.PRG|
|000041f0| 3e 2a 22 0d 0a 45 4e 44 | 49 46 0d 0a 0d 0a 2a 2d |>*"..END|IF....*-|
|00004200| 2d 20 49 6e 73 74 61 6e | 74 69 61 74 65 20 61 70 |- Instan|tiate ap|
|00004210| 70 6c 69 63 61 74 69 6f | 6e 20 6f 62 6a 65 63 74 |plicatio|n object|
|00004220| 2e 0d 0a 52 45 4c 45 41 | 53 45 20 67 6f 41 70 70 |...RELEA|SE goApp|
|00004230| 0d 0a 50 55 42 4c 49 43 | 20 67 6f 41 70 70 0d 0a |..PUBLIC| goApp..|
|00004240| 67 6f 41 70 70 3d 43 52 | 45 41 54 45 4f 42 4a 45 |goApp=CR|EATEOBJE|
|00004250| 43 54 28 22 63 41 70 70 | 6c 69 63 61 74 69 6f 6e |CT("cApp|lication|
|00004260| 22 29 0d 0a 0d 0a 2a 2d | 2d 20 43 6f 6e 66 69 67 |")....*-|- Config|
|00004270| 75 72 65 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |ure appl|ication |
|00004280| 6f 62 6a 65 63 74 2e 0d | 0a 2a 3c 49 6e 69 74 61 |object..|.*<Inita|
|00004290| 6c 69 7a 65 3e 2a 0d 0a | 0d 0a 2a 2d 2d 20 53 68 |lize>*..|..*-- Sh|
|000042a0| 6f 77 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 2e 0d |ow appli|cation..|
|000042b0| 0a 67 6f 41 70 70 2e 53 | 68 6f 77 0d 0a 2a 2d 2d |.goApp.S|how..*--|
|000042c0| 20 52 65 6c 65 61 73 65 | 20 61 70 70 6c 69 63 61 | Release| applica|
|000042d0| 74 69 6f 6e 2e 0d 0a 52 | 45 4c 45 41 53 45 20 67 |tion...R|ELEASE g|
|000042e0| 6f 41 70 70 0d 0a 0d 0a | 2a 2d 2d 20 52 65 73 74 |oApp....|*-- Rest|
|000042f0| 6f 72 65 20 64 65 66 61 | 75 6c 74 20 6d 65 6e 75 |ore defa|ult menu|
|00004300| 2e 0d 0a 50 4f 50 20 4d | 45 4e 55 20 5f 6d 73 79 |...POP M|ENU _msy|
|00004310| 73 6d 65 6e 75 0d 0a 0d | 0a 2a 2d 2d 20 52 65 73 |smenu...|.*-- Res|
|00004320| 74 6f 72 65 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |tore env|ironment|
|00004330| 2e 0d 0a 4f 4e 20 45 52 | 52 4f 52 0d 0a 4f 4e 20 |...ON ER|ROR..ON |
|00004340| 53 48 55 54 44 4f 57 4e | 0d 0a 49 46 20 4e 4f 54 |SHUTDOWN|..IF NOT|
|00004350| 20 6c 63 4c 61 73 74 53 | 65 74 43 6c 61 73 73 4c | lcLastS|etClassL|
|00004360| 69 62 3d 3d 53 45 54 28 | 22 63 6c 61 73 73 6c 69 |ib==SET(|"classli|
|00004370| 62 22 29 0d 0a 09 52 45 | 4c 45 41 53 45 20 43 4c |b")...RE|LEASE CL|
|00004380| 41 53 53 4c 49 42 20 28 | 6c 63 4d 61 69 6e 43 6c |ASSLIB (|lcMainCl|
|00004390| 61 73 73 4c 69 62 29 0d | 0a 45 4e 44 49 46 0d 0a |assLib).|.ENDIF..|
|000043a0| 49 46 20 45 4d 50 54 59 | 28 6c 63 4c 61 73 74 53 |IF EMPTY|(lcLastS|
|000043b0| 65 74 50 61 74 68 29 0d | 0a 09 53 45 54 20 50 41 |etPath).|..SET PA|
|000043c0| 54 48 20 54 4f 0d 0a 45 | 4c 53 45 0d 0a 09 53 45 |TH TO..E|LSE...SE|
|000043d0| 54 20 50 41 54 48 20 54 | 4f 20 26 6c 63 4c 61 73 |T PATH T|O &lcLas|
|000043e0| 74 53 65 74 50 61 74 68 | 0d 0a 45 4e 44 49 46 0d |tSetPath|..ENDIF.|
|000043f0| 0a 49 46 20 6c 63 4c 61 | 73 74 53 65 74 54 61 6c |.IF lcLa|stSetTal|
|00004400| 6b 3d 3d 22 4f 4e 22 0d | 0a 09 53 45 54 20 54 41 |k=="ON".|..SET TA|
|00004410| 4c 4b 20 4f 4e 0d 0a 45 | 4c 53 45 0d 0a 09 53 45 |LK ON..E|LSE...SE|
|00004420| 54 20 54 41 4c 4b 20 4f | 46 46 0d 0a 45 4e 44 49 |T TALK O|FF..ENDI|
|00004430| 46 0d 0a 52 45 54 55 52 | 4e 0d 0a 0d 0a 0d 0a 0d |F..RETUR|N.......|
|00004440| 0a 46 55 4e 43 54 49 4f | 4e 20 45 72 72 6f 72 48 |.FUNCTIO|N ErrorH|
|00004450| 61 6e 64 6c 65 72 28 6e | 45 72 72 6f 72 2c 63 4d |andler(n|Error,cM|
|00004460| 65 74 68 6f 64 2c 6e 4c | 69 6e 65 29 0d 0a 4c 4f |ethod,nL|ine)..LO|
|00004470| 43 41 4c 20 6c 63 45 72 | 72 6f 72 4d 73 67 2c 6c |CAL lcEr|rorMsg,l|
|00004480| 63 43 6f 64 65 4c 69 6e | 65 4d 73 67 0d 0a 0d 0a |cCodeLin|eMsg....|
|00004490| 57 41 49 54 20 43 4c 45 | 41 52 0d 0a 6c 63 45 72 |WAIT CLE|AR..lcEr|
|000044a0| 72 6f 72 4d 73 67 3d 4d | 45 53 53 41 47 45 28 29 |rorMsg=M|ESSAGE()|
|000044b0| 2b 43 48 52 28 31 33 29 | 2b 43 48 52 28 31 33 29 |+CHR(13)|+CHR(13)|
|000044c0| 0d 0a 6c 63 45 72 72 6f | 72 4d 73 67 3d 6c 63 45 |..lcErro|rMsg=lcE|
|000044d0| 72 72 6f 72 4d 73 67 2b | 22 4d 65 74 68 6f 64 3a |rrorMsg+|"Method:|
|000044e0| 20 20 20 20 22 2b 63 4d | 65 74 68 6f 64 0d 0a 6c |    "+cM|ethod..l|
|000044f0| 63 43 6f 64 65 4c 69 6e | 65 4d 73 67 3d 4d 45 53 |cCodeLin|eMsg=MES|
|00004500| 53 41 47 45 28 31 29 0d | 0a 49 46 20 42 45 54 57 |SAGE(1).|.IF BETW|
|00004510| 45 45 4e 28 6e 4c 69 6e | 65 2c 31 2c 31 30 30 30 |EEN(nLin|e,1,1000|
|00004520| 30 29 20 41 4e 44 20 4e | 4f 54 20 6c 63 43 6f 64 |0) AND N|OT lcCod|
|00004530| 65 4c 69 6e 65 4d 73 67 | 3d 22 2e 2e 2e 22 0d 0a |eLineMsg|="..."..|
|00004540| 09 6c 63 45 72 72 6f 72 | 4d 73 67 3d 6c 63 45 72 |.lcError|Msg=lcEr|
|00004550| 72 6f 72 4d 73 67 2b 43 | 48 52 28 31 33 29 2b 22 |rorMsg+C|HR(13)+"|
|00004560| 4c 69 6e 65 3a 20 20 20 | 20 20 20 20 20 20 22 2b |Line:   |      "+|
|00004570| 41 4c 4c 54 52 49 4d 28 | 53 54 52 28 6e 4c 69 6e |ALLTRIM(|STR(nLin|
|00004580| 65 29 29 0d 0a 09 49 46 | 20 4e 4f 54 20 45 4d 50 |e))...IF| NOT EMP|
|00004590| 54 59 28 6c 63 43 6f 64 | 65 4c 69 6e 65 4d 73 67 |TY(lcCod|eLineMsg|
|000045a0| 29 0d 0a 09 09 6c 63 45 | 72 72 6f 72 4d 73 67 3d |)....lcE|rrorMsg=|
|000045b0| 6c 63 45 72 72 6f 72 4d | 73 67 2b 43 48 52 28 31 |lcErrorM|sg+CHR(1|
|000045c0| 33 29 2b 43 48 52 28 31 | 33 29 2b 6c 63 43 6f 64 |3)+CHR(1|3)+lcCod|
|000045d0| 65 4c 69 6e 65 4d 73 67 | 0d 0a 09 45 4e 44 49 46 |eLineMsg|...ENDIF|
|000045e0| 0d 0a 45 4e 44 49 46 0d | 0a 49 46 20 4d 45 53 53 |..ENDIF.|.IF MESS|
|000045f0| 41 47 45 42 4f 58 28 6c | 63 45 72 72 6f 72 4d 73 |AGEBOX(l|cErrorMs|
|00004600| 67 2c 31 37 2c 5f 73 63 | 72 65 65 6e 2e 43 61 70 |g,17,_sc|reen.Cap|
|00004610| 74 69 6f 6e 29 23 31 0d | 0a 09 4f 4e 20 45 52 52 |tion)#1.|..ON ERR|
|00004620| 4f 52 0d 0a 09 52 45 54 | 55 52 4e 20 2e 46 2e 0d |OR...RET|URN .F..|
|00004630| 0a 45 4e 44 49 46 0d 0a | 45 4e 44 46 55 4e 43 0d |.ENDIF..|ENDFUNC.|
|00004640| 0a 0d 0a 0d 0a 0d 0a 46 | 55 4e 43 54 49 4f 4e 20 |.......F|UNCTION |
|00004650| 53 68 75 74 44 6f 77 6e | 0d 0a 0d 0a 49 46 20 54 |ShutDown|....IF T|
|00004660| 59 50 45 28 22 67 6f 41 | 70 70 22 29 3d 3d 22 4f |YPE("goA|pp")=="O|
|00004670| 22 20 41 4e 44 20 4e 4f | 54 20 49 53 4e 55 4c 4c |" AND NO|T ISNULL|
|00004680| 28 67 6f 41 70 70 29 0d | 0a 09 52 45 54 55 52 4e |(goApp).|..RETURN|
|00004690| 20 67 6f 41 70 70 2e 4f | 6e 53 68 75 74 44 6f 77 | goApp.O|nShutDow|
|000046a0| 6e 28 29 0d 0a 45 4e 44 | 49 46 0d 0a 43 6c 65 61 |n()..END|IF..Clea|
|000046b0| 6e 75 70 28 29 0d 0a 51 | 55 49 54 0d 0a 45 4e 44 |nup()..Q|UIT..END|
|000046c0| 46 55 4e 43 0d 0a 0d 0a | 0d 0a 46 55 4e 43 54 49 |FUNC....|..FUNCTI|
|000046d0| 4f 4e 20 43 6c 65 61 6e | 75 70 0d 0a 0d 0a 49 46 |ON Clean|up....IF|
|000046e0| 20 43 4e 54 42 41 52 28 | 22 5f 6d 73 79 73 6d 65 | CNTBAR(|"_msysme|
|000046f0| 6e 75 22 29 3d 37 0d 0a | 09 52 45 54 55 52 4e 0d |nu")=7..|.RETURN.|
|00004700| 0a 45 4e 44 49 46 0d 0a | 4f 4e 20 45 52 52 4f 52 |.ENDIF..|ON ERROR|
|00004710| 0d 0a 4f 4e 20 53 48 55 | 54 44 4f 57 4e 0d 0a 53 |..ON SHU|TDOWN..S|
|00004720| 45 54 20 43 4c 41 53 53 | 4c 49 42 20 54 4f 0d 0a |ET CLASS|LIB TO..|
|00004730| 53 45 54 20 50 41 54 48 | 20 54 4f 0d 0a 43 4c 45 |SET PATH| TO..CLE|
|00004740| 41 52 20 41 4c 4c 0d 0a | 43 4c 4f 53 45 20 41 4c |AR ALL..|CLOSE AL|
|00004750| 4c 0d 0a 50 4f 50 20 4d | 45 4e 55 20 5f 6d 73 79 |L..POP M|ENU _msy|
|00004760| 73 6d 65 6e 75 0d 0a 52 | 45 54 55 52 4e 0d 0a 2a |smenu..R|ETURN..*|
|00004770| 3c 44 75 6d 6d 79 20 70 | 72 6f 6a 65 63 74 20 72 |<Dummy p|roject r|
|00004780| 65 66 65 72 65 6e 63 65 | 73 3e 2a 0d 0a 00 00 00 |eference|s>*.....|
|00004790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+