 
COMMON /CLINE/ LEVEL, LINECT(NFILES), INFILE(NFILES),
   FNAMP, FNAMES(MAXFNAMES)
   INTEGER LEVEL   # LEVEL OF FILE INCLUSION; INIT = 1
   INTEGER LINECT   # LINE COUNT ON INPUT FILE(LEVEL); INIT = 1
   INTEGER INFILE   # FILE NUMBER(LEVEL); INIT INFILE(1) = STDIN
   INTEGER FNAMP    # NEXT FREE SLOT IN FNAMES; INIT = 2
   CHARACTER FNAMES # STACK OF INCLUDE NAMES; INIT FNAMES(1) = EOS
