,0080121001                                     ZONE ADD                0350A 0A
,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0350A 02
,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0350A 03
L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413    CARD 1 OF 3 0350A 04
,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 0350A 05
,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 0350A 06
L0313961001B389                 USE WHEN TESTS ARE RUN FROM TAPE        0350A 07
L0314041001BS88                   ,,                                    0350A 08
L0314081001N000                   ,,                                    0350A 09
L0314121001M360392                ,,                                    0350A 10
L0314191001/332                 START TEST                              0350A 11
L0314231001/                                                            0350A 12
L0314241001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   0350A 13
L0314321001/080                 CLEAR READ AREA                         0350A 14
L0314361001B348                 BRANCH TO PROGRAM CHAINING ROUTINE      0350A 15
L0314401001,001078              LOAD PRINT AREA                         0350A 16
L0314471001L080299                ,,                                    0350A 17
L0314541001L072272                ,,                                    0350A 18
L0314611001,221241                ,,                                    0350A 19
L0314681001N000                   ,,                                    0350A 20
L0314721001B484002              BR TO ADD 1 DIGIT FLD IF 002 IS BLANK   0350A 21
L0314801001L222262              LOAD B FIELD                            0350A 22
L0314871001A202262              ZONE ADD WITH 2 DIGIT FIELDS            0350A 23
L0314941001B461B                B ON TO SCOPE                           0350A 24
L0314991001B503                 BRANCH TO TEST FOR ERROR                0350A 25
L0315031001L221261              LOAD B FIELD                            0350A 26
L0315101001A201261              ZONE ADD WITH 1 DIGIT FIELDS            0350A 27
L0315171001B484B                B ON TO SCOPE                           0350A 28
L0315221001C262242              TEST FOR ERROR                          0350A 29
L0315291001B900/                BRANCH TO ERROR PRINT ROUTINE IF UNEQ   0350A 30
L0315341001B950C                C ON TO CORRECT PRINT ROUTINE           0350A 31
L0315391001B958                 BRANCH TO SENSE D                       0350A 32
L0319191001L/14285              BEGIN ERROR PRINT ROUTINE               0350A 33
L0319261001B916E                E ON TO ERROR STOP                      0350A 34
L03193110012958                 ERROR PRINT                             0350A 35
L0319351001.958                 ERROR STOP                              0350A 36
L0319391001                     WORD MARK                               0350A 37
L0319691001L/19285              CORRECT PRINT ROUTINE                   0350A 38
L03197610012                      ,,                                    0350A 39
L0319771001B421D                D ON TO REPEAT                          0350A 40
L0319821001B417                 BRANCH TO READ NEXT RECORD              0350A 41
L031/291001ERROR                CONSTANTS                               0350A 42
L031/341001                       ,,                                    0350A 43
L031/391001A FIELD                ,,                                    0350A 44
L031/591001B FIELD                ,,                                    0350A 45
L031/791001RESULT SHOULD BE       ,,                                    0350A 46
L031/991001RESULT IS              ,,                                    0350A 47
,019027,031,038042B031T98"B400L046352BW04BS88   ZONE ADD                0350A 48
40                  40                  80                              0350A 49
1!                  90                  8?                              0350A 50
Z0                  R0                  80                              0350A 51
U0                  D0                  80                              0350A 52
M0                  M0                  80                              0350A 53
40                  U0                  Y0                              0350A 54
90                  90                  Y0                              0350A 55
Z0                  I0                  Y0                              0350A 56
R0                  R0                  Y0                              0350A 57
D0                  M0                  Y0                              0350A 58
40                  M0                  Q0                              0350A 59
Z0                  90                  Q0                              0350A 60
U0                  U0                  Q0                              0350A 61
R0                  I0                  Q0                              0350A 62
D0                  D0                  Q0                              0350A 63
40                  D0                  H0                              0350A 64
R0                  90                  H0                              0350A 65
U0                  M0                  H0                              0350A 66
Z0                  Z0                  H0                              0350A 67
I0                  I0                  H0                              0350A 68
4                   4                   8                               0350A 69
9                   9                   8                               0350A 70
M                   M                   Q                               0350A 71
I                   I                   H                               0350A 72
U                   U                   Y                               0350A 73
J                   9                   H                               0350A 74
1                   R                   Q                               0350A 75
9                   J                   H                               0350A 76
R                   1                   Q                               0350A 77
