home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / NUDBMSX.ZIP / EMPLMENU.PRG < prev    next >
Text File  |  1987-01-28  |  1KB  |  43 lines
  1. *****  Program: EMPLMENU.PRG   *****
  2. * DISPLAY PERSONNEL FILE SUBMENU
  3. set talk off
  4. set echo off
  5. store ' ' to choice
  6. do while .t.
  7.    clear
  8.    ?"                     ================================="
  9.    ?"                     ===      PERSONNEL FILE       ==="
  10.    ?"                     ================================="
  11.    ?
  12.    ?
  13.    ?"                      Task Code         Task"
  14.    ?
  15.    ?"                         [A]     ADD a new employee record  "
  16.    ?
  17.    ?"                         [D]     DELETE an existing employee record"
  18.    ?
  19.    ?"                         [E]     EXAMINE/EDIT an employee record"
  20.    ?
  21.    ?"                         [S]     SORT employee records"
  22.    ?
  23.    ?"                         [Q]     QUIT, return to main menu"
  24.    ?
  25.    ?
  26.    Wait "                   Enter your choice (type in task code)" to choice
  27.    do case
  28.       case upper(choice) = "A"
  29.           do addempl
  30.       case upper(choice) = "D"
  31.           do delTEMPL
  32.       case upper(choice) = "E"
  33.           do editempl
  34.       case upper(choice) = "M"
  35.           do sortempl
  36.       case upper(choice) = "Q"
  37.           return
  38.       otherwise
  39.           loop
  40.    endcase
  41. enddo
  42. return
  43.