home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / gould3 / k.filec < prev    next >
Text File  |  2020-01-01  |  4KB  |  45 lines
  1. C                                                                       0001.000
  2. C K.FILECOM - File i/o common block definitions                         0002.000
  3. C                                                                       0003.000
  4.       OPTION 1+                                                         0004.000
  5.       INTEGER      MAXFILE         !maximum number of files             0005.000
  6.       INTEGER      MAXCH           !maximum number of characters/buf    0006.000
  7.       PARAMETER (MAXFILE=8, MAXCH=768)                                  0007.000
  8.       INTEGER      EOF             !eof flag                            0008.000
  9.       INTEGER      ERROR           !error flag                          0009.000
  10.       PARAMETER (EOF=-1, ERROR=-2)                                      0010.000
  11.       INTEGER      CLOSED          !closed file                         0011.000
  12.       INTEGER      RD              !read only file                      0012.000
  13.       INTEGER      WR              !write only file                     0013.000
  14.       PARAMETER (CLOSED=0, RD=1, WR=2)                                  0014.000
  15.       INTEGER      TAB             !tab character                       0015.000
  16.       INTEGER      LF              !lf character                        0016.000
  17.       INTEGER      CR              !cr character                        0017.000
  18.       INTEGER      NEL             !new line                            0018.000
  19.       INTEGER      BLANK           !blank character                     0019.000
  20.       PARAMETER (TAB=9, LF=10, CR=13, NEL=O'205', BLANK=32)             0020.000
  21.       INTEGER      NOIO            !none started, none completed        0021.000
  22.       INTEGER      IOSTART         !io started                          0022.000
  23.       INTEGER      IOCOMP          !io complete                         0023.000
  24.        PARAMETER (NOIO = 0, IOSTART=2, IOCOMP = 3)                      0024.000
  25. C                                                                       0025.000
  26.       CHARACTER*8  FNAME(MAXFILE)  !file names                          0026.000
  27.       INTEGER      FMODE(MAXFILE)  !current mode                        0027.000
  28.       INTEGER*1    FCHBUF(MAXCH, MAXFILE)  !character buffer            0028.000
  29.       INTEGER      FCHPTR(MAXFILE) !buffer pointer                      0029.000
  30.       INTEGER      FCHCNT(MAXFILE) !count of characters in buffer       0030.000
  31.       LOGICAL      FEOF(MAXFILE)   !eof encountered                     0031.000
  32.       LOGICAL      CTDEV(MAXFILE)  !device                              0032.000
  33.       INTEGER      FREQ(MAXFILE)   !i/o request size                    0033.000
  34.       INTEGER      IOPEND(MAXFILE) !i/o pending                         0034.000
  35.       INTEGER      FBLK(4, MAXFILE) !dio parameter blocks               0035.000
  36.       LOGICAL      NOWAIT(MAXFILE) !do no wait io                       0036.000
  37.       LOGICAL      BINARY(MAXFILE) !binary mode or ascii mode           0037.000
  38.       INTEGER      FTIMOUT(MAXFILE)!time for timeout                    0038.000
  39. C                                                                       0039.000
  40.       COMMON /FILECOM/ FNAME, FMODE, FCHPTR, FEOF, CTDEV,               0040.000
  41.      $                 FCHCNT,            FCHBUF,                       0041.000
  42.      $                 FREQ, IOPEND, FBLK, NOWAIT, BINARY,              0042.000
  43.      $                 FTIMOUT                                          0043.000
  44.       OPTION 1-                                                         0044.000
  45.