home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
optmen.zip
/
OPTSETUP.PRG
< prev
next >
Wrap
Text File
|
1987-02-22
|
614b
|
30 lines
*
*
* OptSetup - Setup Variables
*
* by Anthony T. DeHart - GENIE (ATDEHART)
***** Setup Color Variables
public reverse, normal, normhigh
reverse = '0/7'
normal = '7/0'
normhigh = '7+/0'
***** Setup Global Program Titles and Other Variables
public sDay, sTitle, sDate, sVer
sDay = cdow(date())
sTitle = "Option Menu Demo Program"
sDate = cmonth(date())+' '+alltrim(str(day(date())))+', '+alltrim(str(year(date())))
sVer = 'Version 1.00'
***** Global Array Initialization to store last menu selection for each menu level
for counter = 1 to 9
wOldSel[counter] = 1
next
return