,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
