The text read off it
[90.05 sample-program listing, PDF p.197]
Compilation of Sample Problem, printer listing page 6 (PDF p.197), the final page of the compilation listing.
DATE 10/18/61 TIME 2.45 ACCOUNT ID. CT PUBLICATIONS PAGE 6
217,00 71531 BOND.ROUTINE. BEGIN SECTION.
218,00 ADD M.BND.DED TO M.BND.ACC,INTERNAL.TOTALS BONDEDUCTION.
219,00 MOVE M.BND.DED TO PAYRECORD BONDEDUCTION.
220,00 IF MASTER BONDENOMINATION NOT GT M.BND.ACC THEN SET
M.BND.ACC = M.BND.ACC - MASTER BONDENOMINATION OTHERWISE
MOVE BLANKS TO PAYRECORD BONDENOMINATION, GO TO BOND.END.
221,00 MOVE CORRESPONDING MASTER TO BONDORDER, ADD BONDORDER
BONDENOMINATION TO INTERNAL.TOTALS BONDPURCHASES,MOVE
BONDORDER BONDENOMINATION TO PAYRECORD BONDENOMINATION.
222,00 FILE BONDORDER.
223,00 71534 BOND.END. END BOND.ROUTINE.
224,00 71535 SEARCH. BEGIN SECTION.
225,00 IF MASTER RATE GT TABLE.ITEM RATE (INDEX) THEN GO TO
SEARCH.END OTHERWISE MOVE INDEX TO POS,
MOVE INSPREM (POS) TO INS.PREM, WORKING INSURANCE,
MOVE RETPREM (POS) TO RET.PREM, WORKING RETIREMENT,
GO TO NET.
226,00 71540 SEARCH.END. END SEARCH.
227,00 71541 DEPARTMENT.END. BEGIN SECTION.
228,00 MOVE CORRESPONDING INTERNAL.TOTALS TO DEPARTMENT.TOTAL,
FILE DEPARTMENT.TOTAL,
ADD CORRESPONDING INTERNAL.TOTALS TO GRAND.TOTALS.
229,00 GN)083END DEPARTMENT.END.
CTD
CTE
NO ERRORS WERE DETECTED DURING COMPILATION