File: PLOT.FT of Tape: Various/System-Tapes/eb-plot

(Source file text) 

---

	SUBROUTINE PLOT(X,Y,IPEN,MODE)
C NUR BEWEGEN ODER ZEICHNEN ZUM ZIELPUNKT X,Y
C 12-7-80/EB
C
	INTEGER NPEN(5)
	COMMON /PLCOMM/XALT,YALT,IPALT
	DATA NPEN/34,35,80,81,82/
	IF(IPEN.GT.6.OR.IPEN.LT.2)GOTO5
	IF(IPEN.EQ.IPALT)GOTO5
	CALL PLBYTE(NPEN(IPEN-1))
	IPALT=IPEN
5	DX=X-XALT
	DY=Y-YALT
	XALT=X
	YALT=Y
	CALL DELTA(DX,DY)
	RETURN
	END

---