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