home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug088.ark / MASTER5.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.3 KB  |  66 lines
  1.      rem This is Master5 the Employee Payroll Menu
  2.  
  3. %INCLUDE ALL.BAS
  4.      RESTORE
  5. 1025 PRINT clear$:PRINT
  6. 1030 PRINT "*** EMPLOYEE PAYROLL SYSTEM MENU ***":PRINT
  7. 2000 PRINT "1 - UPDATE EMPLOYEE RECORDS"
  8. 2010 PRINT
  9. 2020 PRINT "2 - ENTER EMPLOYEE TIME CARDS"
  10. 2030 PRINT
  11. 2040 PRINT "3 - CALCULATE EMPLOYEE PAYROLL"
  12. 2050 PRINT
  13. 2060 PRINT "4 - PRINT PAYROLL SUMMARY"
  14. 2070 PRINT
  15. 2080 PRINT "5 - PRINT EMPLOYEE CHECKS"
  16. 2090 PRINT
  17. 2100 PRINT "6 - POST PAYROLL OPERATIONS"
  18. 2110 PRINT
  19. 2120 PRINT "7 - RECORD FEDERAL DEPOSITS (501)"
  20. 2130 PRINT
  21. 2140 PRINT "8 - PRINT FEDERAL AND STATE TAX FORMS (941/W2, ETC)"
  22. 2150 PRINT
  23. 2160 PRINT "9 - FINISHED"
  24. 3000 PRINT
  25. 3010 INPUT Z
  26. 3020 IF Z<1 OR Z>9 THEN 1025
  27. 4000 ON Z GOTO 9000,9050,9100,9150,9200,9250,9300,9350,9400
  28. 9000    print clear$:print
  29.     print "Install appropriate Employee Information disk in Drive B:"
  30.     print:input "Type return to continue.";line temp$:initialize
  31.     chain "EPENTRY"
  32. 9050    print clear$:print
  33.     print "Install appropriate Employee Information disk in Drive B:"
  34.     print:input "Type return to continue.";line temp$:initialize
  35.     chain "TMENTRY"
  36. 9100    print clear$:print
  37.     print "Install appropriate Employee Information disk in Drive B:"
  38.     print:input "Type return to continue.";line temp$:initialize
  39.     chain "EPJOTRAN"
  40. 9150    print clear$:print
  41.     print "Install appropriate Employee Information disk in Drive B:"
  42.     print:input "Type return to continue.";line temp$:initialize
  43.     chain "EPSUMARY"
  44. 9200    print clear$:print
  45.     print "Install appropriate Employee Information disk in Drive B:"
  46.     print:input "Type return to continue.";line temp$:initialize
  47.     chain "EPCHECKS"
  48. 9250    print clear$:print
  49.     print "Install appropriate Employee Information disk in Drive B:"
  50.     print:input "Type return to continue.";line temp$:initialize
  51.     chain "EPJOPOST"
  52. 9300    print clear$:print
  53.     print "Install appropriate Employee Information disk in Drive B:"
  54.     print:input "Type return to continue.";line temp$:initialize
  55.     chain "EPDPOSIT"
  56. 9350    print clear$:print
  57.     print "Install appropriate Employee Information disk in Drive B:"
  58.     print:input "Type return to continue.";line temp$:initialize
  59.     chain "MASTER14"
  60. 9400 print clear$:print:print "Replace disk #5 in drive A."
  61.      print "Type return to continue."
  62.      input line temp$
  63.      initialize
  64.      chain "bizmii"
  65. 9800 GOTO 1025
  66.