home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / prg_hlp.zip / MENU.PRG < prev    next >
Text File  |  1987-04-05  |  2KB  |  63 lines

  1. ************************************************************************
  2. *                                                                      *
  3. *                         MENU.PRG                                                 *
  4. *                                                                      *
  5. ************************************************************************
  6. do while .T.
  7.    clear
  8.    do start
  9.    close databases
  10.     clear
  11.    do while .T.
  12.       help_code = "00"
  13.         A = "MENU"
  14.         set deleted on
  15.        DO banner WITH "MAIN MENU"
  16.       heading1 = "1. MENU ONE   "
  17.       heading2 = "2. MENU TWO   "
  18.       heading3 = "3. MENU THREE "
  19.       heading4 = "4. MENU FOUR  "
  20.       heading5 = "5. MENU FIVE  "
  21.       heading6 = "6. MENU SIX   "
  22.       heading7 = "7. MENU SEVEN "
  23.       heading8 = "8. MENU EIGHT "
  24.       heading9 = "9. MENU NINE  "
  25.       heading10 = "0. QUIT...   "
  26.       num_items = 10
  27.       X = 6
  28.       Y = 28
  29.       W = LEN(HEADING1)
  30.          DO F1 WITH "HELP"
  31.          @ 22,1 SAY bar
  32.             @ 0,0 to 24,79 double
  33.          @ 23,2 SAY "Use UP and DOWN arrows to highlight choice...Press ENTER to select"
  34.          DO lightbar WITH num_items,X,Y,W,heading1,heading2,heading3,heading4,heading5,heading6,heading7,heading8,heading9,heading10
  35.          choice = STR(selection,1)
  36.       DO CASE
  37.       CASE choice = "1"
  38.             DO MENU1
  39.         CASE choice = "2"
  40.             DO MENU2
  41.       CASE choice = "3"
  42.             DO INACTIVE
  43.       CASE choice = "4"
  44.             DO INACTIVE
  45.       CASE choice = "5"
  46.             DO INACTIVE
  47.       CASE choice = "6"
  48.             DO INACTIVE
  49.       CASE choice = "7"
  50.             DO INACTIVE
  51.       CASE choice = "8"
  52.             DO INACTIVE
  53.         CASE choice = "9"
  54.             DO INACTIVE
  55.       CASE choice = "0"
  56.          CLEAR
  57.          CANC
  58.       ENDCASE
  59.       CLOSE DATABASES
  60.    ENDDO
  61. ENDDO
  62. **************************  END DENTAL.PRG  *******************
  63.