+46               S30213 C.W. 10-21-77 F03                              SCAN
         DEF      TMPBUF                                                SCAN
+332              S30213 C.W. F03 10-18-77                              SCAN
TBL$INC  DATA     0                                                     SCAN
+823,823 S28366 C.W. 12-07-76 F01                                       SCAN
         BNEZ     DIAG02            NO TO DIAG AND USE SIGN             SCAN
+835     S28366 C.W. 12-07-76 F01                                       SCAN
DIAG02   RES      0                                                     SCAN
         BAL,R10  DIAGCALL                                              SCAN
         DATA     2                 NO SPACE AFTER OPERATOR             SCAN
         B        PLS5              USE SIGN                            SCAN
+1463             S30213 C.W. F03 10-18-77                              SCAN
         LI,R7    0                                                     SCAN
         STW,R7   TBL$INC           CLEAR CTR                           SCAN
+2624             S30213 C.W. F03 10-18-77                              SCAN
*        S31476 R.L.R. F04 3-4-80  ADD NEXT THREE STATEMENTS            SCAN
         LW,R6    TBL$INC                                               SCAN
         CI,R6    2                                                     SCAN
         BLE      $+2                                                   SCAN
         AW,R3    TBL$INC           CLEAR CTR                           SCAN
+2671             S30213 C.W. F03 10-18-77                              SCAN
*        INC SO ACCOUNTS WILL NOT BE SEARCHED AGAIN AT LIBCPY1          SCAN
*        STOPS FROM LOOPING-----SIDR 30213 C.W.                         SCAN
         MTW,2    TBL$INC                                               SCAN
+END
