home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / OPTMEN.ARC / OPTSETUP.PRG < prev    next >
Encoding:
Text File  |  1987-02-22  |  614 b   |  30 lines
  1. *
  2. *
  3. * OptSetup - Setup Variables
  4. *
  5. * by Anthony T. DeHart - GENIE (ATDEHART)
  6.  
  7. ***** Setup Color Variables
  8.  
  9. public reverse, normal, normhigh
  10. reverse = '0/7'
  11. normal = '7/0'
  12. normhigh = '7+/0'
  13.  
  14. ***** Setup Global Program Titles and Other Variables
  15.  
  16. public sDay, sTitle, sDate, sVer
  17. sDay = cdow(date())
  18. sTitle = "Option Menu Demo Program"
  19. sDate = cmonth(date())+' '+alltrim(str(day(date())))+', '+alltrim(str(year(date())))
  20. sVer = 'Version 1.00'
  21.  
  22. ***** Global Array Initialization to store last menu selection for each menu level
  23.  
  24. for counter = 1 to 9
  25.    wOldSel[counter] = 1
  26. next
  27.  
  28. return
  29.  
  30.