,0080121001 PRINT-PUNCH 1050A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1050A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1050A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1050A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1050A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1050A 06 L0314191001/332 START TEST 1050A 07 L0314231001/ 1050A 08 L0314241001L604S22 MODIFY TITLE PRINT TO SKIP HEADINGS 1050A 09 L0314311001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1050A 10 L0314391001)721741 EXPAND TABLE FROM 701-760 TO 701-820 1050A 11 L0314461001L760820 ,, 1050A 12 L0314531001)761761 ,, 1050A 13 L0314601001/180 CLEAR PUNCH 1050A 14 L0314641001,101201 SET WM IN PUNCH AND PRINT AREAS 1050A 15 L0314711001L607614 LOAD 780 INTO CARD COUNTER 1050A 16 L0314781001M614476 MOVE CARD COUNTER INTO LOCATION 474-476 1050A 17 L0314851001M614483 MOVE CARD COUNTER INTO LOCATION 481-483 1050A 18 L0314921001MXXX280 MOVE TABLE INTO PRINT AREA 1050A 19 L0314991001MXXX180 MOVE TABLE INTO PUNCH AREA 1050A 20 L0315061001V5051012 BR TO PRINT-PUNCH & BR IF NO ZONE IN 1011050A 21 L03151410016 PRINT-PUNCH 1050A 22 L0315151001B495B B ON TO SCOPE 1050A 23 L0315201001B515 BRANCH TO TEST FOR LAST CARD 1050A 24 L03152410016510 PRINT-PUNCH & BRANCH 1050A 25 L0315281001. ERROR STOP IF NO BRANCH 1050A 26 L0315291001B505B B ON TO SCOPE 1050A 27 L0315341001C611614 COMPARE CARD COUNTER WITH 799 1050A 28 L0315411001B536/ BRANCH TO ADD 1 IF NOT 799 1050A 29 L0315461001B452D D ON TO REPEAT TEST 1050A 30 L0315511001B348 BRANCH TO READ NEXT RECORD 1050A 31 L0315551001A608614 ADD 1 TO CARD COUNTER 1050A 32 L0315621001B459 BRANCH TO PRINT-PUNCH NEXT CARD 1050A 33 L0316191001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT1050A 34 L0316241001780 CONSTANT TO START CARD COUNTER 1050A 35 L03162710011 CONSTANT TO INCREMENT CARD COUNTER 1050A 36 L0316281001799 CONSTANT TO STOP CARD COUNTER 1050A 37 L0316311001XXX CARD COUNTER 1050A 38 L0317201001AKT4 BLU5"CMV6 DNW7_ TABLE TO BE PRINT-PUNCHED 1050A 39 L0317401001EOX8 FPY9+GQZ0 HR`#( ,, 1050A 40 L0317601001I-,@ &$%1?.*/2 )JS3! ,, 1050A 41 B400 PRINT-PUNCH 1050A 42