,0080121001                                     MOVE ZONE               0220A 0A
,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0220A 02
,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0220A 03
L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413    CARD 1 OF 3 0220A 04
,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 0220A 05
,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 0220A 06
L0313961001B389                 USE WHEN TESTS ARE RUN FROM TAPE        0220A 07
L0314041001BS88                   ,,                                    0220A 08
L0314081001N000                   ,,                                    0220A 09
L0314121001M360392                ,,                                    0220A 10
L0314191001/332                 START TEST                              0220A 11
L0314231001/                                                            0220A 12
L0314241001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   0220A 13
L0314321001/080                 CLEAR READ AREA                         0220A 14
L0314361001B348                 BRANCH TO PROGRAM CHAINING ROUTINE      0220A 15
L0314401001,001078              LOAD PRINT AREA                         0220A 16
L0314471001L080299                ,,                                    0220A 17
L0314541001L072272                ,,                                    0220A 18
L0314611001,221241                ,,                                    0220A 19
L0314681001L225265                ,,                                    0220A 20
L0314751001Y205265              MOVE ZONE OP WITH CHAINING              0220A 21
L0314821001Y                      ,,                                    0220A 22
L0314831001Y                      ,,                                    0220A 23
L0314841001Y                      ,,                                    0220A 24
L0314851001Y                      ,,                                    0220A 25
L0314861001B456B                & ON 06   675                           0220A 26
L0314911001C265245              TEST FOR ERROR                          0220A 27
L0314981001B900/                BRANCH TO ERROR PRINT ROUTINE IF UNEQ   0220A 28
L0315031001B950C                C ON TO CORRECT PRINT ROUTINE           0220A 29
L0315081001B958                 BRANCH TO SENSE D                       0220A 30
L0319191001L/14285              BEGIN ERROR PRINT ROUTINE               0220A 31
L0319261001B916E                E ON TO ERROR STOP                      0220A 32
L03193110012958                 ERROR PRINT                             0220A 33
L0319351001.958                 ERROR STOP                              0220A 34
L0319391001                     WORD MARK                               0220A 35
L0319691001L/19285              CORRECT PRINT ROUTINE                   0220A 36
L03197610012                      ,,                                    0220A 37
L0319771001B421D                D ON TO REPEAT                          0220A 38
L0319821001B417                 BRANCH TO READ NEXT RECORD              0220A 39
L031/291001ERROR                CONSTANTS                               0220A 40
L031/341001                       ,,                                    0220A 41
L031/391001A FIELD                ,,                                    0220A 42
L031/591001B FIELD                ,,                                    0220A 43
L031/791001RESULT SHOULD BE       ,,                                    0220A 44
L031/991001RESULT IS              ,,                                    0220A 45
,019027,031,038042B031T98"B400L046352BW04BS88   MOVE ZONE               0220A 46
12345               67890               67890                           0220A 47
67890               12345               12345                           0220A 48
&&&&&               -----               &&&&&                           0220A 49
-----               &&&&&               -----                           0220A 50
AKT4                5678                EOX8                            0220A 51
EOX8                1234                AKT4                            0220A 52
9'$)                6789                6XQI                            0220A 53
5678                AKT4                1234                            0220A 54
1234                EOX8                5678                            0220A 55
