,0080121001 RIPPLE READ 1040A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1040A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1040A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1040A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1040A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1040A 06 L0313961001B389S631 USE WHEN TESTS ARE RUN FROM TAPE 1040A 07 L0314041001BS88 ,, 1040A 08 L0314081001N000 ,, 1040A 09 L0314121001M360392 ,, 1040A 10 L0314191001/332 START TEST 1040A 11 L0314231001/ 1040A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1040A 13 L0314321001)721741 EXPAND TABLE FROM 701-760 TO 701-880 1040A 14 L0314391001L760820 ,, 1040A 15 L0314461001L760880 ,, 1040A 16 L0314531001)761821 ,, 1040A 17 L0314601001L690692 SET CARD COUNTER TO ONE 1040A 18 L0314671001/080 CLEAR READ AREA 1040A 19 L0314711001,001 SET WM IN 001 1040A 20 L03147510011 READ 1040A 21 L0314761001L080280 LOAD CARD INTO PRINT AREA 1040A 22 L0314831001L692299 LOAD CARD NUMBER INTO PRINT AREA 1040A 23 L0314901001L697700 START RIPPLING COUNTER AT 779 1040A 24 L0314971001A692700 ADD CARD COUNTER TO RIPPLING COUNTER 1040A 25 L0315041001M700495 MOVE RIPPLING COUNTER INTO NEXT INSTRUCT1040A 26 L0315111001CXXX080 COMPARE TABLE WITH CARD 1040A 27 L0315181001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 1040A 28 L0315231001B912C C ON TO CORRECT PRINT 1040A 29 L0315281001C692694 COMPARE CARD COUNTER WITH 60 1040A 30 L0315351001B525/ BR TO ADD 1 TO CARD COUNTER IF NOT 60 1040A 31 L0315401001B536 BRANCH TO SENSE D IF 60 1040A 32 L0315441001A690692 ADD 1 TO CARD COUNTER 1040A 33 L0315511001B456 BRANCH TO READ NEXT DETAIL CARD 1040A 34 L0315551001B441D D ON TO REPEAT TEST 1040A 35 L0315601001B348 BRANCH TO READ NEXT RECORD 1040A 36 L031708100101 CONSTANT TO INCREMENT CARD COUNTER 1040A 37 L0317101001XX CARD COUNTER 1040A 38 L031712100160 CONSTANT TO STOP CARD COUNTER 1040A 39 L0317141001779 CONSTANT TO START RIPPLING COUNTER 1040A 40 L0317171001XXX RIPPLING COUNTER 1040A 41 L0317201001AKT4 BLU5"CMV6 DNW7_ TABLE 1040A 42 L0317401001EOX8 FPY9+GQZ0 HR`#( ,, 1040A 43 L0317601001I-,@ &$%1?.*/2 )JS3! ,, 1040A 44 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 1040A 45 L0319261001B916E E ON TO ERROR STOP 1040A 46 L03193110012920 PRINT CARD 1040A 47 L0319351001.509 ERROR STOP 1040A 48 L0319391001/299 CLEAR PRINT AREA 1040A 49 L0319431001,201 SET WM IN PRINT AREA 1040A 50 L0319471001M700938 MOVE RIPPLING COUNTER INTO NEXT INSTRUCT1040A 51 L0319541001MXXX280 MOVE TABLE INTO PRINT AREA 1040A 52 L03196110012 PRINT TABLE 1040A 53 L0319621001/299 CLEAR PRINT AREA 1040A 54 L03196610012509 SPACE 1040A 55 L0319701001 WORD MARK 1040A 56 L031/291001ERROR CONSTANTS 1040A 57 L031/391001FIRST LINE CARD ,, 1040A 58 L031/591001 ,, 1040A 59 L031/791001SECOND LINE TABLE ,, 1040A 60 L031/991001 ,, 1040A 61 ,019027,031,038042B031T98"B400L046352BW04BS88 RIPPLE READ 1040A 62 AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_ KT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_E T4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EO 4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 LU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 F U5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FP 5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY "CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9 CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+ MV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+G V6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQ 6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 NW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 H W7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR 7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR` _EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`# EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#( OX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I X8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I- 8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-, FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ PY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ & Y9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$ 9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$% +GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1 GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1? QZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?. Z0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.* 0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/ HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 R`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 ) `#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )J #(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS (I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3 I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3! -,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!A ,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AK @ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 $%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 B %1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BL 1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU ?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5 .*/2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5" */2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"C /2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CM 2 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 )JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 JS3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 D S3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DN 3!AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW !AKT4 BLU5"CMV6 DNW7_EOX8 FPY9+GQZ0 HR`#(I-,@ &$%1?.*/2 )JS3!AKT4 BLU5"CMV6 DNW7