,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