Retro1.org codex

*DECK LFGFN 
      PROC LFGFN; 
      BEGIN 
# 
***   LFGFN - INPUT FILE NAMES. 
* 
*     LFGFN CONTAINS ITEMS PERTAINING TO THE INPUT FILE NAMES 
*     BEGINNING AT RA+2.
* 
# 
      CONTROL STEXT;
      COMMON FNUM;
        BEGIN 
        ITEM BC$VAL;         # BATCH COUNT VALUE                       #
        ITEM FILENUM I;      # FILE NUMBER WITHIN AN LFN               #
        ITEM LFN U;          # INPUT LFN NUMBER                        #
        ITEM NUMIFILE U;     # NUMBER OF INPUT LFN"S                   #
 
        ARRAY FN [0:100] S(1);
          BEGIN 
          ITEM FNAME C(0,0,7);  #INPUT FILE NAMES IN JOB COMM. AREA    #
          END 
        END 
      END TERM