home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug087.ark / MASTER15.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-10-20  |  809 b   |  27 lines
  1.      rem This is Master15 the Check Tabs and Cutoffs Menu
  2.  
  3. %INCLUDE ALL.BAS
  4.      RESTORE
  5. 1025 PRINT clear$:PRINT
  6. 1030 PRINT "*** PAYROLL CHECK TABS AND CUTOFFS MENU ***":PRINT
  7. 2000 PRINT "1 - ENTER CHECK PRINTING TABS"
  8. 2010 PRINT
  9. 2020 PRINT "2 - ENTER PAYROLL CUTOFF FIGURES"
  10. 2030 PRINT
  11. 2040 PRINT "3 - FINISHED"
  12. 3000 PRINT
  13. 3010 INPUT Z
  14. 3020 IF Z<1 OR Z>3 THEN 1025
  15. 4000 ON Z GOTO 9000,9050,9100
  16. 9000    print clear$:print
  17.     print "Install appropriate Employee Information disk in Drive B:"
  18.     print:input "Type return to continue.";line temp$:initialize
  19.     chain "EPTABS"
  20. 9050    print clear$:print
  21.     print "Install appropriate Employee Information disk in Drive B:"
  22.     print:input "Type return to continue.";line temp$:initialize
  23.     chain "EPCUTS"
  24. 9100     initialize
  25.     CHAIN "MASTER7"
  26. 9800 GOTO 1025
  27.