The text read off it
[page 102]
SERIAL NAME TEXT
03001 ADD CORRESPONDING DETAIL TOTALS TO MASTER TOTALS, MOVE
03002 CORRESPONDING DETAIL TO PAYRECORD, CHECK, MOVE PAYRECORD
03003 NETPAY TO CHECK AMOUNT.
03004 FILE CHECK.
03005 IF PAYRECORD DEPARTMENT IS GREATER THAN CURRENT DEPARTMENT
03006 THEN MOVE BLANKS TO PAYRECORD EMPLOYNO, PAYRECORD NAME,
03007 MOVE CORRESPONDING DEPARTMENT.TOTAL TO PAYRECORD, FILE
03008 PAYRECORD, MOVE ZEROS TO DPT HOURS, DPT GROSS, DPT WHT,
03009 DPT FICA, DPT BONDEDUCT, DPT INSPREM, DPT RETPREM, DPT
03010 NETPAY, DPT BONDPURCHASES.
03011 MOVE CORRESPONDING DETAIL TO PAYRECORD, CURRENT, ADD
03012 CORRESPONDING DETAIL TO DEPARTMENT.TOTAL, GRAND.TOTAL,
03013 FILE PAYRECORD.
03014 GO TO GET.MASTER.
03015 FICA.ROUTINE. BEGIN SECTION.
03016 IF MASTER FICA + 0.03 * DETAIL GROSS IS LESS THAN 144.00
03017 THEN SET DETAIL FICA = 0.03 * DETAIL GROSS OTHERWISE SET
03018 DETAIL FICA = 144.00 - MASTER FICA.
03019 ADD DETAIL FICA TO MASTER FICA.
03020 END FICA.ROUTINE.
04001 WITHOLDING.TAX.ROUTINE. BEGIN SECTION.
04002 IF 13 * MASTER EXEMPTIONS IS LESS THAN DETAIL GROSS THEN
04003 SET DETAIL WHT = 0.18 * (DETAIL GROSS - 13 * MASTER
04004 EXEMPTIONS) OTHERWISE SET DETAIL WHT = ZEROS.
04005 ADD DETAIL WHT TO MASTER WHT.
04006 END WITHOLDING.TAX.ROUTINE.
04007 BOND.ROUTINE. BEGIN SECTION.
04008 ADD MASTER BONDEDUCT TO MASTER BONDACCUM.
04009 BOND.CALCULATION. IF MASTER BONDENOM IS NOT GREATER THAN MASTER
04010 BONDACCUM THEN SET MASTER BONDACCUM = MASTER BONDACCUM -
04011 MASTER BONDENOM OTHERWISE GO TO BOND.END.
04012 MOVE CORRESPONDING MASTER TO BONDORDER, ADD BONDORDER
04013 BONDENOM TO DPT BONDPURCHASES, MOVE BONDORDER BONDENOM TO
04014 PAYRECORD BONDENOM, FILE BONDORDER IN ERROR.FILE.
04015 GO TO BOND.CALCULATION.
04016 BOND.END. END BOND.ROUTINE.
04017 SEARCH. BEGIN SECTION.
04018 IF MASTER RATE GT TABLE.ITEM RATE (INDEX) THEN GO TO
04019 SEARCH.END OTHERWISE ADD TABLE.ITEM INSPREM (INDEX) TO
04020 DETAIL INSURANCE, ADD TABLE.ITEM RETPREM (INDEX) TO DETAIL
04021 RETIREMENT, GO TO NET.
04022 SEARCH.END. END SEARCH.