,0080121001                                     MOVE & ZERO SUPPRESS    0230A 0A
,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0230A 02
,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0230A 03
L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413    CARD 1 OF 3 0230A 04
,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 0230A 05
,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 0230A 06
L0313961001B389                 USE WHEN TESTS ARE RUN FROM TAPE        0230A 07
L0314041001BS88                   ,,                                    0230A 08
L0314081001N000                   ,,                                    0230A 09
L0314121001M360392                ,,                                    0230A 10
L0314191001/332                 START TEST                              0230A 11
L0314231001/                                                            0230A 12
L0314241001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   0230A 13
L0314321001/080                 CLEAR READ AREA                         0230A 14
L0314361001B348                 BRANCH TO PROGRAM CHAINING ROUTINE      0230A 15
L0314401001,001078              LOAD PRINT AREA                         0230A 16
L0314471001L080299                ,,                                    0230A 17
L0314541001L072272                ,,                                    0230A 18
L0314611001,241265                ,,                                    0230A 19
L0314681001B480010              BR TO MOVE 1 POS FLD IF BLANK IN 010    0230A 20
L0314761001Z210270              MOVE & ZERO SUPPRESS 10 POS FIELD       0230A 21
L0314831001B457B                B ON TO SCOPE                           0230A 22
L0314881001C270250              TEST FOR ERROR                          0230A 23
L0314951001B499                   ,,                                    0230A 24
L0314991001Z201261              MOVE & ZERO SUPPRESS 1 POS FIELD        0230A 25
L0315061001B480B                B ON TO SCOPE                           0230A 26
L0315111001C261241              TEST FOR ERROR                          0230A 27
L0315181001B900/                BRANCH TO ERROR PRINT ROUTINE IF UNEQ   0230A 28
L0315231001B950C                C ON TO CORRECT PRINT ROUTINE           0230A 29
L0315281001B958                 BRANCH TO SENSE D                       0230A 30
L0319191001L/14285              BEGIN ERROR PRINT ROUTINE               0230A 31
L0319261001B916E                E ON TO ERROR STOP                      0230A 32
L03193110012958                 ERROR PRINT                             0230A 33
L0319351001.958                 ERROR STOP                              0230A 34
L0319391001                     WORD MARK                               0230A 35
L0319691001L/19285              CORRECT PRINT ROUTINE                   0230A 36
L03197610012                      ,,                                    0230A 37
L0319771001B421D                D ON TO REPEAT                          0230A 38
L0319821001B417                 BRANCH TO READ NEXT RECORD              0230A 39
L031/291001ERROR                CONSTANTS                               0230A 40
L031/341001                       ,,                                    0230A 41
L031/391001A FIELD                ,,                                    0230A 42
L031/591001B FIELD                ,,                                    0230A 43
L031/791001RESULT SHOULD BE       ,,                                    0230A 44
L031/991001RESULT IS              ,,                                    0230A 45
,019027,031,038042B031T98"B400L046352BW04BS88   MOVE & ZERO SUPPRESS    0230A 46
00.000.000                                                              0230A 47
00.000.009                                       9                      0230A 48
00.000.090                                      90                      0230A 49
00.000.80I                                     809                      0230A 50
00.00070A&                                    70A                       0230A 51
00.0060K0R                                   60K 9                      0230A 52
00.050T0Q-                                  50T Q                       0230A 53
00.40D0Z0Z                                 40D Z 9                      0230A 54
0030N0&0-'                                30N & -                       0230A 55
020W0$0'07                               20W $ ' 7                      0230A 56
10G0)0#0@0                              10G ) # @                       0230A 57
7                                       7                               0230A 58
R                                       9                               0230A 59
&                                                                       0230A 60
'                                                                       0230A 61
0                                                                       0230A 62
)                                       @                               0230A 63
,                                       #                               0230A 64
