,0080121001                                     COMPARE & BR UNEQUAL    0100A 0A
,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0100A 02
,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0100A 03
L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413    CARD 1 OF 3 0100A 04
,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 0100A 05
,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 0100A 06
L0313961001B389                 USE WHEN TESTS ARE RUN FROM TAPE        0100A 07
L0314041001BS88                   ,,                                    0100A 08
L0314081001N000                   ,,                                    0100A 09
L0314121001M360392                ,,                                    0100A 10
L0314191001/332                 START TEST                              0100A 11
L0314231001/                                                            0100A 12
L0314241001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   0100A 13
L0314321001/080                 CLEAR READ AREA                         0100A 14
L0314361001B348                 BRANCH TO PROGRAM CHAINING ROUTINE      0100A 15
L0314401001,002078              LOAD PRINT AREA                         0100A 16
L0314471001L080299                ,,                                    0100A 17
L0314541001L072272                ,,                                    0100A 18
L0314611001B458046L             BR TO MAKE B FIELD LARGER IF L IN 046   0100A 19
L0314691001,222                 SET B FLD WM IF NO L IN 046             0100A 20
L0314731001B462                 BRANCH TO COMPARE                       0100A 21
L0314771001,221                 SET B FLD WM IF L IN 046                0100A 22
L0314811001C203223              COMPARE & BRANCH UNEQUAL                0100A 23
L0314881001B491/                  ,,                                    0100A 24
L0314931001B462B                B ON TO SCOPE                           0100A 25
L0314981001B508041              NO ERROR IF BLANK IN 041                0100A 26
L0315061001B900                 BRANCH TO ERROR PRINT ROUTINE           0100A 27
L0315101001B462B                B ON TO SCOPE                           0100A 28
L0315151001B508041U             NO ERROR IF U IN 041                    0100A 29
L0315231001B900                 BRANCH TO ERROR PRINT ROUTINE           0100A 30
L0315271001,241                 LOAD RESULT COMMENT                     0100A 31
L0315311001L260280                ,,                                    0100A 32
L0315381001B950C                C ON TO CORRECT PRINT ROUTINE           0100A 33
L0315431001B958                 BRANCH TO SENSE D                       0100A 34
L0319191001L/14285              BEGIN ERROR PRINT ROUTINE               0100A 35
L0319261001B916E                E ON TO ERROR STOP                      0100A 36
L03193110012958                 ERROR PRINT                             0100A 37
L0319351001.958                 ERROR STOP                              0100A 38
L0319391001                     WORD MARK                               0100A 39
L0319691001L/19285              CORRECT PRINT ROUTINE                   0100A 40
L03197610012                      ,,                                    0100A 41
L0319771001B421D                D ON TO REPEAT                          0100A 42
L0319821001B417                 BRANCH TO READ NEXT RECORD              0100A 43
L031/291001ERROR                CONSTANTS                               0100A 44
L031/341001                       ,,                                    0100A 45
L031/391001A FIELD                ,,                                    0100A 46
L031/591001B FIELD                ,,                                    0100A 47
L031/791001RESULT SHOULD BE       ,,                                    0100A 48
L031/991001RESULT IS              ,,                                    0100A 49
,019027,031,038042B031T98"B400L046352BW04BS88   COMPARE & BR UNEQUAL    0100A 50
                                          EQUAL                         0100A 51
                     1                  UNEQUAL                         0100A 52
 1                   1                    EQUAL                         0100A 53
 1                                      UNEQUAL                         0100A 54
 2                   2                    EQUAL                         0100A 55
                     2                  UNEQUAL                         0100A 56
 3                   3                    EQUAL                         0100A 57
 2                                      UNEQUAL                         0100A 58
 4                   4                    EQUAL                         0100A 59
                     4                  UNEQUAL                         0100A 60
 5                   5                    EQUAL                         0100A 61
 4                                      UNEQUAL                         0100A 62
 6                   6                    EQUAL                         0100A 63
                     8                  UNEQUAL                         0100A 64
 7                   7                    EQUAL                         0100A 65
 8                                      UNEQUAL                         0100A 66
 8                   8                    EQUAL                         0100A 67
                     /                  UNEQUAL                         0100A 68
 9                   9                    EQUAL                         0100A 69
 /                                      UNEQUAL                         0100A 70
 /                   /                    EQUAL                         0100A 71
                     -                  UNEQUAL                         0100A 72
 -                   -                    EQUAL                         0100A 73
 -                                      UNEQUAL                         0100A 74
 H7                  H7                   EQUAL                         0100A 75
 H7                  HH                 UNEQUAL                         0100A 76
 RW                  RW                   EQUAL                         0100A 77
 RW                  RW                 UNEQ LARGER B FIELD             0100A 78
