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

(Source file text) 

---

	SUBROUTINE PLONUM
	CALL ASK(1,IANGLE,DU,DU,DU,'ANGLE&')
	ANGLE=IANGLE
	CALL ASK(1,ISIZE,DU,DU,DU,'SYMB. SIZE&')
	SIZE=ISIZE*.07
	CALL ASK(2,DU,XS,DU,DU,'X0&')
	CALL ASK(2,DU,YS,DU,DU,'Y0&')
	CALL ASK(2,DU,FNUM,DU,DU,'NUMBER&')
	CALL ASK(1,IFMT,DU,DU,DU,'FORMAT&')
	CALL NUMBER(XS,YS,SIZE,FNUM,ANGLE,IFMT)
	END

---