,0080121001                                     RIPPLE PUNCH            1030A 0A
,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1030A 02
,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1030A 03
L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413    CARD 1 OF 3 1030A 04
,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 1030A 05
,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 1030A 06
L0313961001B389S621             USE WHEN TESTS ARE RUN FROM TAPE        1030A 07
L0314041001BS88                   ,,                                    1030A 08
L0314081001N000                   ,,                                    1030A 09
L0314121001M360392                ,,                                    1030A 10
L0314191001/332                 START TEST                              1030A 11
L0314231001/                                                            1030A 12
L0314241001L604S22              MODIFY TITLE PRINT TO SKIP HEADINGS     1030A 13
L0314311001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   1030A 14
L0314391001)721741              EXPAND TABLE FROM 701-760 TO 701-880    1030A 15
L0314461001L760820                ,,                                    1030A 16
L0314531001L760880                ,,                                    1030A 17
L0314601001)761821                ,,                                    1030A 18
L0314671001/180                 CLEAR PUNCH AREA                        1030A 19
L0314711001,101                 SET WM IN PUNCH AREA                    1030A 20
L0314751001L607614              LOAD CARD COUNTER                       1030A 21
L0314821001M614473              MOVE CARD COUNTER INTO NEXT INSTRUCTION 1030A 22
L0314891001M780180              MOVE TABLE INTO PUNCH AREA              1030A 23
L0314961001V4951012             BR TO PUNCH AND BRANCH IF NO ZONE IN 1011030A 24
L03150410014                    PUNCH                                   1030A 25
L0315051001B485B                B ON TO SCOPE                           1030A 26
L0315101001B505                 BRANCH TO TEST FOR LAST CARD            1030A 27
L03151410014500                 PUNCH & BRANCH                          1030A 28
L0315181001.                    ERROR STOP IF NO BRANCH                 1030A 29
L0315191001B495B                B ON TO SCOPE                           1030A 30
L0315241001C611614              COMPARE CARD COUNTER WITH 839           1030A 31
L0315311001B526/                BRANCH TO ADD 1 IF NOT 839              1030A 32
L0315361001B456D                D ON TO REPEAT TEST                     1030A 33
L0315411001B348                 BRANCH TO READ NEXT RECORD              1030A 34
L0315451001A608614              ADD 1 TO CARD COUNTER                   1030A 35
L0315521001B463                 BRANCH TO PUNCH NEXT CARD               1030A 36
L0316191001B420                 BRANCH INSTRUCTION TO MODIFY TITLE PRINT1030A 37
L0316241001780                  CONSTANT TO START CARD COUNTER          1030A 38
L03162710011                    CONSTANT TO INCREMENT CARD COUNTER      1030A 39
L0316281001839                  CONSTANT TO STOP CARD COUNTER           1030A 40
L0316311001XXX                  CARD COUNTER                            1030A 41
L0317201001AKT4 BLU5"CMV6 DNW7_ TABLE TO BE RIPPLE PUNCHED              1030A 42
L0317401001EOX8 FPY9+GQZ0 HR'#(   ,,                                    1030A 43
L0317601001I-,@ &$%1?.*/2 )JS3!   ,,                                    1030A 44
,019027,031,038042B031T98"B400L046352BW04BS88   RIPPLE PUNCH            1030A 45
