common /clist/ dot, bcldot, topscr, foff, fmax, nxtrec, lstred, savdot, lowc, highc, ttcc, cc, outcc, markp, mrkint, xstat, randac, flags, markb, errbuf biginteger dot # current logical record biginteger bcldot # dot at beginning of command line biginteger topscr # top of last screen biginteger foff # offset in file of logical line 1 biginteger fmax # highest line number of logical file biginteger nxtrec # next record on file biginteger lstred # last record read biginteger savdot # value of dot saved by the = command integer lowc # low value of record column range integer highc # high value of record column range integer ttcc # carriagecontrol type of standard output integer cc # carriagecontrol type of input file integer outcc # carriagecontrol type of output file integer markp # index of highest line number in markb integer mrkint # interval in lines between file marks integer xstat # exit status logical randac # .true. if input is random access device logical flags(NFLAGS) # command line switch flags integer*2 markb(MARKSIZE, 0:MAXMARK) # points to every mrkint line in file byte errbuf(80) # buffer for constructing error messages data xstat/EXIT_SUCCESS/