IF MASTER BONDEDUCT IS NOT EQUAL TO ZERO THEN DO 02017 BOND.ROUTINE. 02018 DO SEARCH FOR INDEX = 1(1)12. 02019 NET. SET PAYRECORD NETPAY = DETAIL GROSS - DETAIL FICA - DETAIL 02020 WHT -DETAIL RETIREMENT - DETAIL INSURANCE - DETAIL 02021 BONDEDUCT. References Further reading IBM's Early Computers, by Charles Bashe, Lyle Johnson, John Palmer, and Emerson Pugh, 1986, MIT Press, . External links Genealogy Programmers Solve Y2K in 1958 IBM Commercial Translator General Reference Manual (pdf, 8.2M) Page 87. Procedural programming languages Programming languages created in 1957