integer*2 mxch
      parameter (maxchr=78,maxsiz=maxchr+2)
      character*(maxsiz) line
      integer*2 mxstat
      parameter (mxstat=3)
      character*4 stastr(mxstat)
      integer*2 maxopt
      parameter (maxopt=8)
      real*4 pi
      parameter (pi=3.1415927)
      character*4 optstr(maxopt)
      character*14 disunt,linunt
      character*17 araunt
      common /scrnsg/ line,stastr,optstr,disunt,linunt,araunt
      integer*4 iout
      integer*2 option(maxopt),ndisut,nlinut,naraut,statop(mxstat),
     1          nchar,ibckgd,icolor,ivpage,irow,icol,ierror,keycde,
     2          iblink,iatt
      logical pntran
      common /screen/ iout,nchar,ibckgd,icolor,ivpage,irow,icol,
     1                ierror,keycde,iblink,iatt,
     2                option,ndisut,nlinut,naraut,statop,pntran
c
c   line   - character string used to write to screen
c   stastr - character string of data stastr options
c   statop - indicator (=1) of which data stastr options are set
c   optstr - character string of data analysis options
c   option - indicator (=1) of which data analysis options are set
c   disunt - character string containing original distance units
c   ndisut - position of last non-blank character in disunt
c   linunt - character string containing original line length units
c   nlinut - position of last non-blank character in linunt
c   araunt - character string containing area units
c   naraut - position of last non-blank character in araunt
c   iout   - output unit number for file to create TRANSECT input in
c   nchar  - number of characters in line
c   ibckgd - background color
c   icolor - character color
c   ivpage - page on which to write
c   irow   - row to start write
c   icol   - column to start write
c   ierror - error return for all calls
c   keycde - key board code for inp routine
c   iblink - blink indicator, 1 means blink, 0 not blink
c   iatt   - attribute of characters of input string
c   pntran - logical flag - .true. means point transect data
c