,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
