+202              S28786 C.W. F01 1-7-77                                COBOL31
         CI,CBYT  X'4B'             PROCEDURE USING??                   COBOL31
         BE       COMX1             YES WRITE LINE NO FOR DIAGNOSTICS   COBOL31
+204              S28786 C.W. F01 1-7-77                                COBOL31
COMX1    EQU      $                                                     COBOL31
+234     S28644 C.W. 12-06-76 F01                                       COBOL31
         CI,CBYT  X'4F'             SEE IF UNSTRING                     COBOL31
         BE       CLIP              YES--SAVE WRITE FOR LAST CLUSTER    COBOL31
+435,435   S. K.  08-22-78   S-31473 F04                                COBOL31
         LW,R4    R2                IN THESE 5 STATEMENTS               COBOL31
         MTW,0    PDBDBG            WE CHECK WITH DEBUG.                COBOL31
         BEZ      $+2               MODE AND FETCH RIGHT                COBOL31
         AI,R4    2                 ADDR. OF BASE OF LINKAGE            COBOL31
         LB,R4    2,R4              FOR WITH DEBUG. MODE                COBOL31
+737     S28644 C.W. 12-06-76 F01                                       COBOL31
         LH,R4    SAVER             SEE IF OVERFLOW CONDITION           COBOL31
         BEZ      SUTAL4            NO                                  COBOL31
         LW,R4    R2                SET TO CURRENT CLUSTER              COBOL31
         LI,R13   0                                                     COBOL31
         STB,R13  WCHBUF,UP3                                            COBOL31
         STH,R13  SAVER,UP1         CLEAR SUBSCRIPT SAVED FLAG          COBOL31
         BAL,R11  OCC               WRITE CRF                           COBOL31
         BAL,R11  STRCLEAR          CLEAR FLAGS                         COBOL31
     )
SUTAL4   RES      0                                                     COBOL31
+998              S28283 C.W. F01   2-24-77                             COBOL31
         LI,R1    0                 INITIALIZE                          COBOL31
         STB,R1   GIVER               'GIVING' FLAG                     COBOL31
+END

