*DECK TREPCOM 
USETEXT TNUMOPT 
      PROC TREPCOM ;
      BEGIN 
      CONTROL STEXT;
      ITEM DUMMY I;                                                     006680
      XREF ARRAY RA0;        # ARRAY STARTING AT RA--0 ADDRESS #        006690
        ITEM RA I;                                                      006700
      COMMON REPCOM;                                                    006710
        BEGIN                                                           006720
        ITEM FOUNDV B;       # IS THERE A VARIABLE FILE #               006730
        ITEM REPFILE C(7);   # REPORT FILE NAME #                       006740
      ARRAY TABFIT [0:LFITM1] S(1);  #TABLE FILE FIT                   #
        BEGIN 
          ITEM TFITWD I;     # WORDS OF FIT #                           006760
        END 
        ARRAY VARFIT [0] S(LFIT);  #VARIABLE FILE FIT                  # REPCOM 
          BEGIN  END                                                     REPCOM 
      ITEM SAVELFNINFO;            # ADDRESS OF LFNINFO ARRAY          #
        END                                                             006780
      END 
      TERM
