home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / NUDBMSX.ZIP / MAINMENU.PRG < prev    next >
Text File  |  1985-11-12  |  1KB  |  46 lines
  1. *****  Program: MAINMENU.PRG   *****
  2. * The Main Program, Display Main Menu
  3. set talk off
  4. set echo off
  5. store ' ' to choice
  6. do while .t.
  7.    clear
  8.    ?"                     *********************************"
  9.    ?"                     ***         MAIN MENU         ***"
  10.    ?"                     *********************************"
  11.    ?
  12.    ?
  13.    ?"                      Task Code         Task"
  14.    ?
  15.    ?"                         [A]     ACCOUNT Maintenance"
  16.    ?
  17.    ?"                         [B]     Prepare BILLING"
  18.    ?
  19.    ?"                         [C]     COST Maintenance"
  20.    ?
  21.    ?"                         [I]     INVENTORY Control"
  22.    ?
  23.    ?"                         [P]     PERSONNEL File Maintenance"
  24.    ?
  25.    ?"                         [Q]     QUIT"
  26.    ?
  27.    ?
  28.    Wait "                   Enter your choice (type in task code)" to choice
  29.    do case
  30.       case upper(choice) = "A"
  31.           do acctmenu
  32.       case upper(choice) = "B"
  33.           do billing
  34.       case upper(choice) = "C"
  35.           do costmenu
  36.       case upper(choice) = "I"
  37.           do invnmenu
  38.       case upper(choice) = "P"
  39.           do emplmenu
  40.       case upper(choice) = "Q"
  41.           return
  42.       otherwise
  43.           loop
  44.    endcase
  45. enddo
  46.