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

(Source file text) 

---

	COMMON /PLCOMM/ XALT,YALT
	COMMON /PUFCOM/BITPUF(12),IBP,IFN
	DATA BITPUF/12*'      '/,IBP,IFN/1,9/
	XALT=0.
	YALT=0.
1	WRITE(4,44)
44	FORMAT(' X,Y IN CM  '$)
	READ(4,45)X,Y
45	FORMAT(2F10.0)
	IF(X.GT.1E9)GOTO999
	CALL PLOT(X,Y,0,0)
	GOTO1
999	CALL XPLOT
	STOP
	END

---