c	INCLUDE file for SCRLIB

	common	 /ctrlX/ans,ans2,bell,CR,DEL,esc,LF,null
	character*1	ans,ans2,bell,CR,DEL,esc,LF,null
	data		bell/"007/,CR/"015/,DEL/"177/
	data		esc/"033/,LF/"012/,null/"000/

	byte		byt1,byt2
	equivalence	(ans,byt1),(ans2,byt2)
	integer*2	jch
	equivalence	(jch,byt1)

c	All array sizes are 40: this may be changed as desired
c	Some character strings are 42: users should restrict themselves
c	 to a maximum length of 40 to avoid overwrites! (This is a
c	 seperate 40, and may be changed too.)

	common	  /fldsX/field,buff,xpos,ypos,frmt
	character*42	field(40)	!Internal storage for display and
	character*42	buff		! temp working buffer. Both end in |
	character*2	xpos,ypos	!goXY coordinates for cells
	character*8	frmt(40)	!Formats for cells

	common	/fldpsX/iX,iY,L,LDP
	integer*4	iX(40)		!Associated column position
	integer*4	iY(40)		!Associated row position
	integer*4	L(40)		!Associated field length
	integer*4	LDP(40)		!Optional decimal positions for real

	common	/nmbrsX/nvar,fvar,ind,maxind,intf,realf,changd,revers
	integer*4	nvar(40)
	real*4		fvar(40)
	integer*2	ind, maxind
	logical*1	intf(40), realf(40), changd, revers
	data		intf/40*.false./
	data		realf/40*.false./
	data		nvar/40*0/
	data		fvar/40*0.0/
	data		revers/.false./

	logical*1	OK