home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug088.ark / MASTER14.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.0 KB  |  33 lines
  1.      rem This is Master14 the Payroll Entry and Calculation Menu
  2.  
  3. %INCLUDE ALL.BAS
  4.      RESTORE
  5. 1025 PRINT clear$:PRINT
  6. 1030 PRINT "*** FEDERAL AND STATE FORMS PRINTING MENU ***":PRINT
  7. 2000 PRINT "1 - PRINT 941 FORMS"
  8. 2010 PRINT
  9. 2020 PRINT "2 - PRINT STATE TAX RETURNS"
  10. 2030 PRINT
  11. 2040 PRINT "3 - PRINT FEDERAL AND STATE W2 FORMS"
  12. 2050 PRINT
  13. 2060 PRINT "4 - FINISHED"
  14. 3000 PRINT
  15. 3010 INPUT Z
  16. 3020 IF Z<1 OR Z>4 THEN 1025
  17. 4000 ON Z GOTO 9000,9050,9100,9150
  18. 9000    print clear$:print
  19.     print "Install appropriate Employee Information disk in Drive B:"
  20.     print:input "Type return to continue.";line temp$:initialize
  21.     chain "FED941PR"
  22. 9050     print "This program not implemented!"
  23.     CHAIN "MASTER5"
  24. 9100    print clear$:print
  25.     print "Install appropriate Employee Information disk in Drive B:"
  26.     print:input "Type return to continue.";line temp$:initialize
  27.     chain "W2PRINT"
  28. 9150    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 "MASTER5"
  32. 9800 GOTO 1025
  33.