home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / microcrn / issue_43.arc / DBMENU.ARC / MAINMENU.PRG < prev    next >
Text File  |  1988-05-23  |  2KB  |  75 lines
  1. **************************************************************
  2. *** NAME: MAINMENU.PRG
  3. ***
  4. *** AUTHOR: BRETT FISHBURNE
  5. ***
  6. *** PURPOSE: MAINMENU FOR THE AIRPORT DATABASE
  7. ***
  8. **************************************************************
  9. *** ESTABLISH ENVIRONMENT
  10. SET ECHO OFF
  11. SET TALK OFF
  12. SET STATUS OFF
  13. SET SCOREBOARD OFF
  14.  
  15. *** INITIALIZE CONSTANTS
  16. MaxLetter = 'F'
  17.  
  18. *** SET UP INFINITE LOOP
  19. DO WHILE .T.
  20.   
  21.   *** DRAW MAIN SCREEN
  22.   CLEAR
  23.   @ 2,0 TO 2,79 DOUBLE
  24.   @ 0,0 TO 21,79 DOUBLE
  25.   @ 1,2 SAY "ATC Data Management System"
  26.   SET COLOR TO W+
  27.   @ 1,36 SAY "MAIN MENU"
  28.   SET COLOR TO
  29.   @ 1,55 SAY TIME()
  30.   @ 1,70 SAY DATE()
  31.  
  32.   *** DRAW LIST OF OPTIONS
  33.  
  34.   *** DRAW MEMBERS OPTIONS
  35.   @ 3,5 TO 12,35
  36.   @  5,16 SAY "MEMBERS"
  37.   @  6,16 SAY "-------"
  38.   @  7,9  SAY "A -- Add a New Member"
  39.   @  8,9  SAY "B -- Delete a Member"
  40.   @  9,9  SAY "C -- Edit a Member"
  41.   
  42.   *** DRAW INVENTORY OPTIONS
  43.   @ 3,44 TO 12,74
  44.   @  5,54 SAY "INVENTORY"
  45.   @  6,54 SAY "---------"
  46.   @  7,49 SAY "D -- Add an Item"
  47.   @  8,49 SAY "E -- Delete an Item"
  48.   @  9,49 SAY "F -- Edit an Item"
  49.   
  50.   *** DRAW REPORT OPTIONS
  51.   @ 13,5 TO 20,74
  52.   @ 14,34 SAY "REPORT OPTIONS"
  53.   @ 15,34 SAY "--------------"
  54.  
  55.   *** WRITE OUT MENU PROMPT
  56.   @ 22,13 SAY "Strike a LETTER key to evoke the corresponding ì
  57. operation"
  58.  
  59.   *** WAIT FOR USER RESPONSE
  60.   i = 0
  61.   DO WHILE i = 0
  62.     @ 1,55 SAY TIME()
  63.     i = INKEY()
  64.     
  65.     *** CALL USER OPTION
  66.     IF (UPPER(CHR(i)) >= 'A') .AND. (UPPER(CHR(i)) <= MaxLetter)
  67.       SubProg = "main"+ CHR(i)
  68.       DO &SubProg
  69.     ELSE
  70.       i = 0
  71.     ENDIF
  72.  
  73.   ENDDO
  74.  
  75. ENDDO