,0080121001                                     RESET SUBTRACT          0340A 0A
,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0340A 02
,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0340A 03
L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413    CARD 1 OF 3 0340A 04
,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 0340A 05
,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 0340A 06
L0313961001B389                 USE WHEN TESTS ARE RUN FROM TAPE        0340A 07
L0314041001BS88                   ,,                                    0340A 08
L0314081001N000                   ,,                                    0340A 09
L0314121001M360392                ,,                                    0340A 10
L0314191001/332                 START TEST                              0340A 11
L0314231001/                                                            0340A 12
L0314241001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   0340A 13
L0314321001/080                 CLEAR READ AREA                         0340A 14
L0314361001B348                 BRANCH TO PROGRAM CHAINING ROUTINE      0340A 15
L0314401001,001078              LOAD PRINT AREA                         0340A 16
L0314471001L080299                ,,                                    0340A 17
L0314541001L072272                ,,                                    0340A 18
L0314611001,206241                ,,                                    0340A 19
L0314681001,261                   ,,                                    0340A 20
L0314721001B484010              BR TO RESET SUB 1 POS FLD IF BL IN 010  0340A 21
L0314801001!210270              RESET SUB 10 POSITION FIELD             0340A 22
L0314871001B461B                B ON TO SCOPE                           0340A 23
L0314921001C270250              TEST FOR ERROR                          0340A 24
L0314991001B507                   ,,                                    0340A 25
L0315031001L201261              LOAD A FIELD                            0340A 26
L0315101001!261                 RESET SUB 1 POSITION FIELD              0340A 27
L0315141001B484B                B ON TO SCOPE                           0340A 28
L0315191001C261241              TEST FOR ERROR                          0340A 29
L0315261001B900/                BRANCH TO ERROR PRINT ROUTINE IF UNEQ   0340A 30
L0315311001B950C                C ON TO CORRECT PRINT ROUTINE           0340A 31
L0315361001B958                 BRANCH TO SENSE D                       0340A 32
L0319191001L/14285              BEGIN ERROR PRINT ROUTINE               0340A 33
L0319261001B916E                E ON TO ERROR STOP                      0340A 34
L03193110012958                 ERROR PRINT                             0340A 35
L0319351001.958                 ERROR STOP                              0340A 36
L0319391001                     WORD MARK                               0340A 37
L0319691001L/19285              CORRECT PRINT ROUTINE                   0340A 38
L03197610012                      ,,                                    0340A 39
L0319771001B421D                D ON TO REPEAT                          0340A 40
L0319821001B417                 BRANCH TO READ NEXT RECORD              0340A 41
L031/291001ERROR                CONSTANTS                               0340A 42
L031/341001                       ,,                                    0340A 43
L031/391001A FIELD                ,,                                    0340A 44
L031/591001B FIELD                ,,                                    0340A 45
L031/791001RESULT SHOULD BE       ,,                                    0340A 46
L031/991001RESULT IS              ,,                                    0340A 47
,019027,031,038042B031T98"B400L046352BW04BS88   RESET SUBTRACT          0340A 48
     01234                              000000123M                      0340A 49
     5678Z                              000005678R                      0340A 50
      AKTM                              00000 123D                      0340A 51
      EOXH                              00000 567Q                      0340A 52
      I!,@                              00000 90#*                      0340A 53
T                                       L                               0340A 54
P                                       G                               0340A 55
I                                       R                               0340A 56
#                                       $                               0340A 57
