home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / jobhunt.zip / JOBMENU.PRG < prev    next >
Text File  |  1987-02-04  |  2KB  |  94 lines
  1. * Program..: JOBMENU.PRG
  2. * AUTHOR...: DENNIS W. CHRISTENSEN
  3. * DATE.....: 86/12/28
  4. * NOTICE...: COPYRIGHT 1986, ALL RIGHTS RESERVED
  5. * NOTES....:
  6. * reserved.: select, selectnum
  7. *
  8. SET TALK OFF
  9. SET BELL OFF
  10. SET COLON OFF
  11.  
  12. DO WHILE T
  13.  
  14. ERASE
  15. @  1,20 SAY "==============================================="
  16. @  2,20 SAY "||"
  17. @  2,25 SAY "     JOB HUNT TRACKING SYSTEM  "
  18. @  2,65 SAY "||"
  19. @  3,20 SAY "==============================================="
  20. @  4,20 SAY "||"
  21. @  4,65 SAY "||"
  22. @  5,20 SAY "||"
  23. @  5,65 SAY "||"
  24. @  6,20 SAY "||"
  25. @  6,65 SAY "||"
  26. @  7,20 SAY "||"
  27. @  7,65 SAY "||"
  28. @  8,20 SAY "||"
  29. @  8,65 SAY "||"
  30. @  9,20 SAY "||"
  31. @  9,65 SAY "||"
  32. @ 10,20 say "||"
  33. @ 10,65 SAY "||"
  34. @ 11,20 SAY "||"
  35. @ 11,65 SAY "||"
  36. @ 12,20 SAY "||"
  37. @ 12,65 SAY "||"
  38. @ 13,20 SAY "==============================================="
  39. @  4,27 SAY "   * MAIN JOB TRACKING MENU * "
  40. @  5,27 SAY " 0. EXIT         "
  41. @  6,27 SAY " 1. ADD EMPLOYER RECORD    "
  42. @  7,27 SAY " 2. EDIT/VIEW EMPLOYER RECORD    "
  43. @  8,27 SAY " 3. SCREEN COMPANIES IN DATABASE"
  44. @  9,27 SAY " 4. SCREEN BY CITY, STATE       "
  45. @ 10,27 SAY " 5. VIEW/PRINT MAILING LABELS   "
  46. @ 11,27 SAY " 6. SYSTEM INFORMATION    "
  47. @ 12,27 SAY " 7. DELETE RECORDS/PACK DATABASE  "
  48. STORE  8 TO selectnum
  49. DO WHILE selectnum < 0 .OR. selectnum >  7
  50.    STORE " " TO select
  51.    @ 13,33 SAY " select : : "
  52.    @ 13,42 GET select PICTURE "#"
  53.    READ
  54.    STORE VAL(select) TO selectnum
  55. ENDDO
  56.  
  57. DO CASE
  58.    CASE selectnum= 0
  59.       ERASE
  60.       RETURN
  61.  
  62.    CASE selectnum= 1
  63.       DO JOBADD.PRG
  64.  
  65.    CASE selectnum= 2
  66.       DO JOBEDIT.PRG
  67.  
  68.    CASE selectnum= 3
  69.       DO JOBVIEW.PRG
  70.  
  71.    CASE selectnum= 4
  72.       DO JOBSCREN.PRG
  73.  
  74.    CASE selectnum= 5
  75.      DO JOBLABEL.PRG
  76.  
  77.    CASE selectnum= 6
  78.      DO JOBINFO.PRG
  79.  
  80.     CASE selectnum= 7
  81.       DO JOBMAINT.PRG
  82.  
  83. ENDCASE
  84.  
  85. ENDDO T
  86. * EOF: JOBMENU.PRG
  87.  
  88.  
  89. ================="
  90. store 9 to selectnum
  91. do while selectnum < 0 .or. selectnum > 8
  92.    store " " to select
  93.    @ 18,0  clear
  94.    @ 17,33 say "select : : "