,0080121001                                     MOVE COMPARE            0200A 0A
,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0200A 02
,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0200A 03
L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413    CARD 1 OF 3 0200A 04
,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 0200A 05
,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 0200A 06
L0313961001B389                 USE WHEN TESTS ARE RUN FROM TAPE        0200A 07
L0314041001BS88                   ,,                                    0200A 08
L0314081001N000                   ,,                                    0200A 09
L0314121001M360392                ,,                                    0200A 10
L0314191001/332                 START TEST                              0200A 11
L0314231001/                                                            0200A 12
L0314241001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   0200A 13
L0314321001/080                 CLEAR READ AREA                         0200A 14
L0314361001B348                 BRANCH TO PROGRAM CHAINING ROUTINE      0200A 15
L0314401001,001078              LOAD PRINT AREA                         0200A 16
L0314471001L080299                ,,                                    0200A 17
L0314541001L072272                ,,                                    0200A 18
L0314611001,241270                ,,                                    0200A 19
L0314681001M210270              MOVE OP WITH CHAINING                   0200A 20
L0314751001M                      ,,                                    0200A 21
L0314761001B449B                B ON TO SCOPE                           0200A 22
L0314811001)270                 TEST FOR ERROR                          0200A 23
L0314851001C270250                ,,                                    0200A 24
L0314921001B900/                BRANCH TO ERROR PRINT ROUTINE IF UNEQ   0200A 25
L0314971001B950C                C ON TO CORRECT PRINT ROUTINE           0200A 26
L0315021001B958                 BRANCH TO SENSE D                       0200A 27
L0319191001L/14285              BEGIN ERROR PRINT ROUTINE               0200A 28
L0319261001B916E                E ON TO ERROR STOP                      0200A 29
L03193110012958                 ERROR PRINT                             0200A 30
L0319351001.958                 ERROR STOP                              0200A 31
L0319391001                     WORD MARK                               0200A 32
L0319691001L/19285              CORRECT PRINT ROUTINE                   0200A 33
L03197610012                      ,,                                    0200A 34
L0319771001B421D                D ON TO REPEAT                          0200A 35
L0319821001B417                 BRANCH TO READ NEXT RECORD              0200A 36
L031/291001ERROR                CONSTANTS                               0200A 37
L031/341001                       ,,                                    0200A 38
L031/391001A FIELD                ,,                                    0200A 39
L031/591001B FIELD                ,,                                    0200A 40
L031/791001RESULT SHOULD BE       ,,                                    0200A 41
L031/991001RESULT IS              ,,                                    0200A 42
,019027,031,038042B031T98"B400L046352BW04BS88   MOVE COMPARE            0200A 43
1111111111                              1111111111                      0200A 44
2222222222                              2222222222                      0200A 45
4444444444                              4444444444                      0200A 46
8888888888                              8888888888                      0200A 47
//////////                              //////////                      0200A 48
----------                              ----------                      0200A 49
AKT4 BLU5                               AKT4 BLU5                       0200A 50
CMV6 DNW7                               CMV6 DNW7                       0200A 51
EOX8 FPY9                               EOX8 FPY9                       0200A 52
GQZ0 HR'#                               GQZ0 HR'#                       0200A 53
I-,@ &$%0                               I-,@ &$%0                       0200A 54
1.*/ )JS3                               1.*/ )JS3                       0200A 55
