divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
define(`MINDIVERS',8)	# minimum file code for diversions
define(`MAXSTRING',500)define(`MAXPAR',50) # nested par. level
define(`LEFTOVER',iolftv)define(`LASTLINE',iolstl)define(`IN_STRUC',ioinst)
define(`LEX_INIT',`parlev=0; ntoken=0; ltoken=0;macro=FALSE; nline=0; contin=FALSE; expr=NULL')
divert(0)
common /ioptrs/ nline, parlev, ltoken, LEFTOVER, ntoken, oldpos, divers,
  explen, expr, pchar, macro, diary, contin, IN_STRUC
common /iobuff/ LASTLINE,pstack
CHARACTER(LASTLINE,MAXSTRING)
CHARACTER(pstack,1,MAXPAR)
integer nline, parlev, ltoken, ntoken, oldpos, divers, explen, diary, LEFTOVER
logical macro,contin
POINTER expr, pchar, IN_STRUC
SCCS_ID(93475,`@(#)'lexio.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
