common /clist/ dot, odot, topscr, foff, fmax, nxtrec, lstred, savdot, lowc, highc, cc, outcc, markp, markb biginteger dot # current logical record; init: 1 biginteger odot # old value of dot biginteger topscr # top of last screen; init: 1 biginteger foff # offset in file of logical line 1; init: 0 biginteger fmax # highest line number of logical file; init: MAXINT-1 biginteger nxtrec # next record on file; init: 1 biginteger lstred # last record read; init: 0 biginteger savdot # value of dot saved by the = command; init: 1 integer lowc # low value of record column range integer highc # high value of record column range integer cc # carriagecontrol type of input file integer outcc # carriagecontrol type of output file integer markp # index of highest line number in markb; init:0 integer markb(MARKSIZE, 0:MAXMARK) # points to every 100th line on file