,0080121001 PRINT WORD MARKS 1010B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 1010B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 1010B 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 1010B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 1010B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 1010B 06 L0313961001B389S611 USE WHEN TESTS ARE RUN FROM TAPE 1010B 07 L0314041001BS88 ,, 1010B 08 L0314081001N000 ,, 1010B 09 L0314121001M360392 ,, 1010B 10 L0314191001/332 START TEST 1010B 11 L0314231001/ 1010B 12 L0314241001L654S22 MODIFY TITLE PRINT TO SKIP HEADINGS 1010B 13 L0314311001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 1010B 14 L0314391001,200 SET WORD MARK IN 200 1010B 15 L0314431001D459332 MOVE LOZENGE INTO 332 1010B 16 L0314501001M332331 MOVE LOZENGE INTO ALL PRINT POSITIONS 1010B 17 L0314571001M660472 MOVE 201234 TO START A & B OF INSTR 466 1010B 18 L0314641001M666479 MOVE 267300 TO START A & B OF INSTR 473 1010B 19 L03147110012) PRINT WORD MARKS 1010B 20 L0314731001B452B B ON TO SCOPE 1010B 21 L0314781001)467474 CLEAR WORD MARKS IN 467 AND 474 1010B 22 L0314851001,201234 SET TWO WORD MARKS IN PRINT AREA 1010B 23 L0314921001,267300 SET TWO WORD MARKS IN PRINT AREA 1010B 24 L0314991001C479669 COMPARE LAST POSITION SET WITH 333 1010B 25 L0315061001B496/ UNEQUAL-BRANCH TO SET WM IN 467 AND 474 1010B 26 L0315111001B521 EQUAL-BRANCH TO BEGIN REMOVING WMS 1010B 27 L0315151001,467474 SET WORD MARKS IN 467 AND 474 1010B 28 L0315221001A676472 ADD 1001 TO INCREMENT AB OF INSTR 466 1010B 29 L0315291001A676479 ADD 1001 TO INCREMENT AB OF INSTR 473 1010B 30 L0315361001B452 LOOP TO PRINT WORD MARKS 1010B 31 L0315401001M660548 MOVE 201234 TO START A & B OF INSTR 542 1010B 32 L0315471001M666555 MOVE 267300 TO START A & B OF INSTR 549 1010B 33 L0315541001)543550 CLEAR WORD MARKS IN 543 AND 550 1010B 34 L0315611001)201234 CLEAR TWO WORD MARKS IN PRINT AREA 1010B 35 L0315681001)267300 CLEAR TWO WORD MARKS IN PRINT AREA 1010B 36 L03157510012562) PRINT UNCLEARED WORD MARKS & BRANCH 1010B 37 L0315801001. ERROR STOP IF NO BRANCH 1010B 38 L0315811001B556B B ON TO SCOPE 1010B 39 L0315861001C555672 COMPARE LAST POSITION CLEARED WITH 332 1010B 40 L0315931001B588/ UNEQUAL-BRANCH TO SET WM IN 543 AND 550 1010B 41 L0315981001B420D EQUAL-D ON TO REPEAT TEST 1010B 42 L0316031001B348 BRANCH TO READ NEXT RECORD 1010B 43 L0316071001,543550 SET WORD MARKS IN 543 AND 550 1010B 44 L0316141001A676548 ADD 1001 TO INCREMENT AB OF INSTR 542 1010B 45 L0316211001A676555 ADD 1001 TO INCREMENT AB OF INSTR 549 1010B 46 L0316281001B535 LOOP TO PRINT UNCLEARED WORD MARKS 1010B 47 L0316691001B420 BRANCH INSTRUCTION TO MODIFY TITLE PRINT1010B 48 L0316741001201234 CONSTANT TO START AB FIELDS 1010B 49 L0316801001267300 CONSTANT TO START AB FIELDS 1010B 50 L0316861001333 CONSTANT TO END SET WM LOOPS 1010B 51 L0316891001332 CONSTANT TO END CLEAR WM LOOPS 1010B 52 L03169210011001 CONSTANT TO INCREMENT AB FIELDS 1010B 53 ,019027,031,038042B031T98"B400L046352BW04BS88 PRINT WORD MARKS 1010B 54