,0080121001 RIPPLE PUNCH 1030A 0A L03135510010 HOW MANY DETAIL READ? PRINT FIRST 2. 1030A 02 L0313561001U%U1B BACKSPACE 1030A 03 L0313611001N086 86 IF TAPE ERROR 1030A 04 L0313651001. HALT WITH 86 IN A-STAR AND B-STAR 1030A 05 L0313661001,001081 1 FOR HEADER, 81 UNDER GM IF TAPE 1030A 06 L0313731001B363A NO CARDS LEFT? 1030A 07 L03137810011407 READ A DETAIL OR HEADER CARD 1030A 08 L0313821001B389081" TAPE LOAD PUTS GM IN 81 1030A 09 L0313901001B380 1030A 10 L0313941001U%U1B 1030A 11 L0313991001N099 99 IF NO TAPE OR EOF 1030A 12 L0314031001. HALT WITH 99 IN A-STAR AND B-STAR 1030A 13 L0314041001B347 TRY AGAIN 1030A 14 L0314081001L%U1001R READ A DETAIL OR HEADER TAPE RECORD 1030A 15 L0314161001B337L ERROR? 1030A 16 L0314211001B375K EOF? 1030A 17 L0314261001B001080A EXECUTE IF A HEADER 1030A 18 L0314341001B4533362 HEADERS PRINTED YET? 1030A 19 L0314421001B442190 SKIP HEADER PRINTING? 1030A 20 L0314501001L077277 PRINT THE FIRST TWO HEADERS 1030A 21 L03145710012 1030A 22 L0314581001/ 1030A 23 L0314591001/ 1030A 24 L03146010012 1030A 25 L0314611001A442336 1030A 26 L0314681001B347 1030A 27 L0314721001L632692 EXPAND TABLE FROM 701-760 TO 701-880 1030A 28 L0314791001L692752 ,, 1030A 29 L0314861001)633693 ,, 1030A 30 L0314931001/180 CLEAR PUNCH AREA 1030A 31 L0314971001,101 SET WM IN PUNCH AREA 1030A 32 L0315011001L565572 LOAD CARD COUNTER 1030A 33 L0315081001M572499 MOVE CARD COUNTER INTO NEXT INSTRUCTION 1030A 34 L0315151001M000180 MOVE TABLE INTO PUNCH AREA 1030A 35 L0315221001V5211012 BR TO PUNCH AND BRANCH IF NO ZONE IN 10 1030A 36 L03153010014 PUNCH 1030A 37 L0315311001B511B B ON TO SCOPE 1030A 38 L0315361001B531 BRANCH TO TEST FOR LAST CARD 1030A 39 L03154010014526 PUNCH & BRANCH 1030A 40 L0315441001. ERROR STOP IF NO BRANCH 1030A 41 L0315451001B521B B ON TO SCOPE 1030A 42 L0315501001C569572 COMPARE CARD COUNTER WITH 839 1030A 43 L0315571001B552/ BRANCH TO ADD 1 IF NOT 839 1030A 44 L0315621001B482D D ON TO REPEAT TEST 1030A 45 L0315671001B347 BRANCH TO READ NEXT RECORD 1030A 46 L0315711001A566572 ADD 1 TO CARD COUNTER 1030A 47 L0315781001B489 BRANCH TO PUNCH NEXT CARD 1030A 48 L0315821001652 CONSTANT TO START CARD COUNTER 1030A 49 L03158510011 CONSTANT TO INCREMENT CARD COUNTER 1030A 50 L0315861001711 CONSTANT TO STOP CARD COUNTER 1030A 51 L0315891001XXX CARD COUNTER 1030A 52 L0315921001AKT4 BLU5"CMV6 DNW7_ TABLE TO BE RIPPLE PUNCHED 1030A 53 L0316121001EOX8 FPY9+GQZ0 HR'#( ,, 1030A 54 )0025931001 ,, 1030A 55 L0316321001I-,@ &$%1?.*/2 )JS3! ,, 1030A 56 )0026131001 ,, 1030A 57 L03144110011 1030A 58 )0024221001 1030A 59 /347080 1030A 60