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

(Source file text) 

---

	SUBROUTINE PLOTXY(DU)
	CALL ASK(4,IREL,DU,DU,DU,'RELATIVE&')
	CALL ASK(4,IUP,DU,DU,DU,'PEN UP&')
10	CALL ASK(2,DU,X,DU,DU,'X&')
	CALL ASK(2,DU,Y,DU,DU,'Y&')
	IF (X.GT.998.) RETURN
	IF (IREL.EQ.0) GOTO 2
	CALL WHERE(XR,YR,DU)
	X=X+XR
	Y=Y+YR
2	CALL XYPLOT(X,Y,IUP+2)
	CALL XYPLOT(X,Y,3)
	GOTO 10
	END

---