'**** HEADER ************************************************************
'EXINDX03.PF3 (release .02)
'Copyright (c) 1990-1991 Applied Resource Technologies, Inc.
'P.O. Box 64381, Dallas, Texas 75206 U.S.A. (214) 855-0449
'Description: customized setenv() for INDEXLIB demo
'**** FUNCTION DECLARATIONS *********************************************
'core
public   idxdemo_env()            '  sets/resets SmartWare II environment
                                  '  including below listed publics
'**** VARIABLE DECLARATIONS *********************************************
'library
public   lpath dpath cpath currlib
public   fgs bgs fgp bgp fgi bgi fge bge sch scw scc scr psa dsa
public   ptval ptstr rpi
'core
'**** ARRAY DECLARATIONS ************************************************
'library
'core
'**** CODE **************************************************************

MAIN
idxdemo_env()
END MAIN

function idxdemo_env()
lpath      = "\smartii\poptools\lib\"        'function library code path
cpath      = "\smartii\poptools\examples\"   'examples executable code path
dpath      = "\smartii\poptools\data\"       'examples data path
currlib    = NULL                       ' function library management
fgs        = fgstandard                 'Smartware II
bgs        = bgstandard                 '    standard
fgp        = fgpleasing                 '         color
bgp        = bgpleasing                 '              assignments
fgi        = fginvpleasing              '
bgi        = bginvpleasing              '
fge        = fgerror                    '
bge        = bgerror                    '
sch        = scrheight                  'used by screen display functions
scw        = scrwidth                   'used by screen display functions
scr        = int(sch/2)                 'center row
scc        = int(scw/2)                 'center column
psa        = NULL                       'prior screen area (under last msg box)
dsa        = NULL                       'display screen area (actual msg box)
ptval      = BLANK                      '"indirect return" numeric data
ptstr      = NULL                       '"indirect return" string data
rpi        = 0                          ' relperf() performance index
lock module public
end function ' idxdemo_env()