,0080121001 RIPPLE PRINT 1020A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1020A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1020A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1020A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1020A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1020A 06 L0313961001B389S611 USE WHEN TESTS ARE RUN FROM TAPE 1020A 07 L0314041001BS88 ,, 1020A 08 L0314081001N000 ,, 1020A 09 L0314121001M360392 ,, 1020A 10 L0314191001/332 START TEST 1020A 11 L0314231001/ 1020A 12 L0314241001L604S22 MODIFY TITLE PRINT TO SKIP HEADINGS 1020A 13 L0314311001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1020A 14 L0314391001)721741 EXPAND TABLE FROM 701-760 TO 701-940 1020A 15 L0314461001L760820 ,, 1020A 16 L0314531001)761 ,, 1020A 17 L0314571001L820940 ,, 1020A 18 L0314641001)821 ,, 1020A 19 L0314681001,201 SET WM IN PRINT AREA 1020A 20 L0314721001L607614 LOAD LINE COUNTER 1020A 21 L0314791001M614470 MOVE LINE CTR INTO NEXT INSTRUC 1020A 22 L0314861001M832332 MOVE TABLE INTO PRINT AREA 1020A 23 L03149310012 PRINT 1020A 24 L0314941001B474B B ON TO SCOPE 1020A 25 L0314991001C611614 COMPARE LINE COUNTER WITH 891 1020A 26 L0315061001B501/ BRANCH TO ADD 1 IF NOT 891 1020A 27 L0315111001B453D D ON TO REPEAT TEST 1020A 28 L0315161001B348 BRANCH TO READ NEXT RECORD 1020A 29 L0315201001A608614 ADD 1 TO LINE COUNTER 1020A 30 L0315271001B460 BRANCH TO PRINT NEXT LINE 1020A 31 L0316191001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT1020A 32 L0316241001832 CONSTANT TO START LINE COUNTER 1020A 33 L03162710011 CONSTANT TO INCREMENT LINE COUNTER 1020A 34 L0316281001891 CONSTANT TO STOP LINE COUNTER 1020A 35 L0316311001XXX LINE COUNTER 1020A 36 L0317201001AKT4 BLU5 CMV6"DNW7 TABLE TO BE RIPPLE PRINTED 1020A 37 L0317401001EOX8 FPY9_GQZ0 HR`# ,, 1020A 38 L0317601001I-,@+&$%1 .*/2 )JS3( ,, 1020A 39 ,019027,031,038042B031T98"B400L046352BW04BS88 RIPPLE PRINT 1020A 40