File: PLOT.TE of Tape: Various/ETH/htb1

(Source file text) 

---

	DIMENSION XAXIS(20),YAXIS(20)
	DIMENSION XAR(1030),YAR(1030)
	N=
	MODE=
	SYMBO=
	DATA XAXIS /''/
	DATA YAXIS /''/
	NXAX=
	NYAX=
	LXAX=
	XMIN=
	XINC=
	XNN=
	LYAX=
	YMIN=
	YINC=
	YNN=
	CALL PLOTS(.02,0)
	SIZE=1.
	CALL FACTOR(SIZE)
	CALL XYPLOT(-8,-8,-3)
	CALL AXIS(0,0,XAXIS,NXAX,LXAX,0,XNN,XMIN,XINC)
	CALL AXIS(0,0,YAXIS,NYAX,LYAX,90,YNN,YMIN,YINC)
	CALL LINE(XAR,YAR,N,1,MODE,SYMBO)
	CALL PLEXIT

---