The text read off it
[page 94]
Commercial Translator Procedure Description — Sample Payroll, page 4 of 10 (page 94).
01 WITHOLDING.TAX.ROUTINE.
BEGIN SECTION.
02 IF 13 * MASTER EXEMPTIONS IS LESS THAN DETAIL GROSS THEN
03 SET DETAIL WHT = 0.18 * (DETAIL GROSS - 13 * MASTER
04 EXEMPTIONS) OTHERWISE SET DETAIL WHT = ZEROS.
05 ADD DETAIL WHT TO MASTER WHT.
06 END WITHOLDING.TAX.ROUTINE.
07 BOND.ROUTINE. BEGIN SECTION.
08 ADD MASTER BONDEDUCT TO MASTER BONDACCUM.
09 BOND.CALCULATION.
IF MASTER BONDENOM IS NOT GREATER THAN MASTER
10 BONDACCUM THEN SET MASTER BONDACCUM = MASTER BONDACCUM -
11 MASTER BONDENOM OTHERWISE GO TO BOND.END.
12 MOVE CORRESPONDING MASTER TO BONDORDER, ADD BONDORDER
13 BONDENOM TO DPT BONDPURCHASES, MOVE BONDORDER BONDENOM TO
14 PAYRECORD BONDENOM, FILE BONDORDER IN ERROR.FILE.
15 GO TO BOND.CALCULATION.
16 BOND.END. END BOND.ROUTINE.
17 SEARCH. BEGIN SECTION.
18 IF MASTER RATE GT TABLE.ITEM RATE (INDEX) THEN GO TO
19 SEARCH.END OTHERWISE ADD TABLE.ITEM INSPREM (INDEX) TO
20 DETAIL INSURANCE, ADD TABLE.ITEM RETPREM (INDEX) TO DETAIL
21 RETIREMENT, GO TO NET.
22 SEARCH.END. END SEARCH.