The text read off it
[page 93]
Commercial Translator Procedure Description — Sample Payroll, page 3 of 10 (page 93).
01 ADD CORRESPONDING DETAIL TOTALS TO MASTER TOTALS, MOVE
02 CORRESPONDING DETAIL TO PAYRECORD, CHECK, MOVE PAYRECORD
03 NETPAY TO CHECK AMOUNT.
04 FILE CHECK.
05 IF PAYRECORD DEPARTMENT IS GREATER THAN CURRENT DEPARTMENT
06 THEN MOVE BLANKS TO PAYRECORD EMPLOYNO, PAYRECORD NAME,
07 MOVE CORRESPONDING DEPARTMENT.TOTAL TO PAYRECORD, FILE
08 PAYRECORD, MOVE ZEROS TO DPT HOURS, DPT GROSS, DPT WHT,
09 DPT FICA, DPT BONDEDUCT, DPT INSPREM, DPT RETPREM, DPT
10 NETPAY, DPT BONDPURCHASES.
11 MOVE CORRESPONDING DETAIL TO PAYRECORD, CURRENT, ADD
12 CORRESPONDING DETAIL TO DEPARTMENT.TOTAL, GRAND.TOTAL,
13 FILE PAYRECORD.
14 GO TO GET.MASTER.
15 FICA.ROUTINE. BEGIN SECTION.
16 IF MASTER FICA + 0.03 * DETAIL GROSS IS LESS THAN 144.00
17 THEN SET DETAIL FICA = 0.03 * DETAIL GROSS OTHERWISE SET
18 DETAIL FICA = 144.00 - MASTER FICA.
19 ADD DETAIL FICA TO MASTER FICA.
20 END FICA.ROUTINE.