home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / microcrn / issue_43.arc / DBMENU.ARC / TEMP.MNU < prev    next >
Text File  |  1988-05-23  |  1KB  |  65 lines
  1.  
  2. ************************************************************
  3. *** NAME: MAIN MENU.PRG
  4. ***
  5. *** AUTHOR: AUTOMATIC MENU GENERATOR (AMG)
  6. ***
  7. *** PURPOSE: DRAW THE SCREEN FOR THE MAIN MENU
  8. ***
  9. ************************************************************
  10.  
  11. *** INITIALIZE CONSTANTS
  12. MAXLETTER = 'F'
  13.  
  14. *** SET UP AN INFINITE LOOP
  15. DO WHILE .T.
  16.  
  17. *** DRAW BOX
  18. CLEAR
  19. @ 2,0 TO 2,79 DOUBLE
  20. @ 0,0 TO 21,79 DOUBLE
  21.  
  22. *** FILL IN HEADER AND FOOTER
  23. @ 1,2 SAY "ATC Data Management System       "
  24. @ 1,36 SAY "MAIN MENU "
  25. @ 1,55 SAY TIME()
  26. @ 1,71 SAY DATE()
  27. @ 22,12 SAY "Strike a LETTER key to evoke the corresponding operation"
  28.  
  29. *** DRAW TILES
  30. @ 13, 5 TO 20,74
  31. @  3, 5 TO 12,35
  32. @  3,44 TO 12,74
  33.  
  34. *** PUT OPTIONS AND TITLES IN TILES
  35. @  4,16 SAY "MEMBERS"
  36. @  5,16 SAY REPLICATE("-", 7)
  37. @  6, 7 SAY "A -- Add a New Member"
  38. @  7, 7 SAY "B -- Delete a Member"
  39. @  8, 7 SAY "C -- Edit a Member"
  40. @  4,54 SAY "INVENTORY"
  41. @  5,54 SAY REPLICATE("-", 9)
  42. @  6,46 SAY "D -- Add an Item"
  43. @  7,46 SAY "E -- Delete an Item"
  44. @  8,46 SAY "F -- Edit an Item"
  45. @ 14,34 SAY "REPORT OPTIONS"
  46. @ 15,34 SAY REPLICATE("-",14)
  47.  
  48. *** WAIT FOR USER RESPONSE
  49. I = 0
  50. DO WHILE I = 0
  51.   @ 1,55 SAY TIME()
  52.   I = INKEY()
  53.  
  54.   *** CALL USER OPTION
  55.   IF (UPPER(CHR(I)) >= 'A') .AND. (UPPER(CHR(I)) <= MAXLETTER)
  56.     SUBPROG = 'MAIN' + CHR(I)
  57.     DO &SUBPROG
  58.   ELSE
  59.     I = 0
  60.   ENDIF
  61. ENDDO
  62.  
  63. ENDDO
  64.  
  65. RETURN