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

(Source file text) 

---

	SUBROUTINE PLOTXT
	REAL CHAR(10)
	CALL ASK(1,IANGLE,DU,DU,DU,'ANGLE&')
	CALL ASK(1,ISIZE,DU,DU,DU,'SYMB. SIZE&')
	ANGLE=IANGLE
	SIZE=ISIZE*.07
	CALL ASK(2,DU,XS,DU,DU,'X0&')
	CALL ASK(2,DU,YS,DU,DU,'Y0&')
10	CALL ASK(3,DU,DU,CHAR,NCHAR,'TEXT&')
	CALL SYMBOL(XS,YS,SIZE,CHAR,ANGLE,NCHAR)
	END

---