File: PLOLIN.FT of Tape: Various/ETH/f2

(Source file text) 

---

	SUBROUTINE PLOLIN(XS,FRSVX,FINCX,YS,FRSVY,FINCY)
	REAL CHAR(10)
	CALL ASK(1,NPTS,DU,DU,DU,'# OF POINTS&')
	IF(NPTS.LE.0)GO TO 50
	DELVX=FINCX/2.5
	DELVY=FINCY/2.5
	IPLT=3
	CALL ASK(1,LTP,DU,DU,DU,'MODE&')
	IF(LTP.NE.0) CALL ASK(3,DU,DU,CHAR,DU,'SYMBOL&')
	CALL CGET(CHAR(1),1,INTEQ)
	INTEQ=INTEQ+199
	ALTP=ABS(LTP)
	ZCNT=ALTP
	ICHR=0
	IF(LTP.NE.0)ICHR=1
	DO 30 I=1,NPTS
	CALL ASK(2,DU,XA,DU,DU,'X&')
	IF(XA.GT.1.E10) GOTO 50
	XPT=(XA-FRSVX)/DELVX+XS
	CALL ASK(2,DU,YA,DU,DU,'Y&')
	YPT=(YA-FRSVY)/DELVY+YS
25	CALL XYPLOT(XPT,YPT,IPLT)
	IF(LTP.GE.0)IPLT=2
	IF(ICHR.EQ.0)GO TO 30
	ZCNT=ZCNT+1
	IF(ZCNT.LT.ALTP)GO TO 30
	ZCNT=0
	CALL SYMBOL(XPT,YPT,.32,INTEQ,0,IPLT-4)
30	CONTINUE
50	CALL XYPLOT(XPT,YPT,3)
	RETURN
	END

---