C                                                                       0001.000
C K.FILECOM - File i/o common block definitions                         0002.000
C                                                                       0003.000
      OPTION 1+                                                         0004.000
      INTEGER      MAXFILE         !maximum number of files             0005.000
      INTEGER      MAXCH           !maximum number of characters/buf    0006.000
      PARAMETER (MAXFILE=8, MAXCH=768)                                  0007.000
      INTEGER      EOF             !eof flag                            0008.000
      INTEGER      ERROR           !error flag                          0009.000
      PARAMETER (EOF=-1, ERROR=-2)                                      0010.000
      INTEGER      CLOSED          !closed file                         0011.000
      INTEGER      RD              !read only file                      0012.000
      INTEGER      WR              !write only file                     0013.000
      PARAMETER (CLOSED=0, RD=1, WR=2)                                  0014.000
      INTEGER      TAB             !tab character                       0015.000
      INTEGER      LF              !lf character                        0016.000
      INTEGER      CR              !cr character                        0017.000
      INTEGER      NEL             !new line                            0018.000
      INTEGER      BLANK           !blank character                     0019.000
      PARAMETER (TAB=9, LF=10, CR=13, NEL=O'205', BLANK=32)             0020.000
      INTEGER      NOIO            !none started, none completed        0021.000
      INTEGER      IOSTART         !io started                          0022.000
      INTEGER      IOCOMP          !io complete                         0023.000
       PARAMETER (NOIO = 0, IOSTART=2, IOCOMP = 3)                      0024.000
C                                                                       0025.000
      CHARACTER*8  FNAME(MAXFILE)  !file names                          0026.000
      INTEGER      FMODE(MAXFILE)  !current mode                        0027.000
      INTEGER*1    FCHBUF(MAXCH, MAXFILE)  !character buffer            0028.000
      INTEGER      FCHPTR(MAXFILE) !buffer pointer                      0029.000
      INTEGER      FCHCNT(MAXFILE) !count of characters in buffer       0030.000
      LOGICAL      FEOF(MAXFILE)   !eof encountered                     0031.000
      LOGICAL      CTDEV(MAXFILE)  !device                              0032.000
      INTEGER      FREQ(MAXFILE)   !i/o request size                    0033.000
      INTEGER      IOPEND(MAXFILE) !i/o pending                         0034.000
      INTEGER      FBLK(4, MAXFILE) !dio parameter blocks               0035.000
      LOGICAL      NOWAIT(MAXFILE) !do no wait io                       0036.000
      LOGICAL      BINARY(MAXFILE) !binary mode or ascii mode           0037.000
      INTEGER      FTIMOUT(MAXFILE)!time for timeout                    0038.000
C                                                                       0039.000
      COMMON /FILECOM/ FNAME, FMODE, FCHPTR, FEOF, CTDEV,               0040.000
     $                 FCHCNT,            FCHBUF,                       0041.000
     $                 FREQ, IOPEND, FBLK, NOWAIT, BINARY,              0042.000
     $                 FTIMOUT                                          0043.000
      OPTION 1-                                                         0044.000