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

(Source file text) 

---

	SUBROUTINE PLOSYM
	REAL CHAR(10)
	CALL ASK(4,ICENT,DU,DU,DU,'CENTEREDS&')
	IUP=1
	IF(ICENT.EQ.1) CALL ASK(4,IUP,DU,DU,DU,'PENUP&')
	IUP=IUP-2
	CALL ASK(1,ANGLE,DU,DU,DU,'ANGLE&')
	CALL ASK(1,ISIZE,DU,DU,DU,'SYMB. SIZE&')
	SIZE=ISIZE*.07
	CALL ASK(2,DU,XS,DU,DU,'X&')
	CALL ASK(2,DU,YS,DU,DU,'Y&')
	LOW=0
	IF(ICENT.EQ.1) GOTO 10
	CALL ASK(1,LOW,DU,DU,DU,'LOWER/GREEK(2/3)&')
	IF(LOW.LT.2.OR.LOW.GT.3) GOTO 10
	LOW=LOW*32
10	CALL ASK(3,DU,DU,CHAR,DU,'CHAR&')
	CALL CGET(CHAR(1),1,ICHAR)
	CALL SYMBOL(XS,YS,SIZE,ICHAR+LOW+ICENT*199,ANGLE,IUP)
	CALL ASK(4,MORE,DU,DU,DU,'MORE&')
	IF(MORE.NE.1) RETURN
	CALL ASK(2,DU,X,DU,DU,'XINC&')
	CALL ASK(2,DU,Y,DU,DU,'YINC&')
	XS=XS+X
	YS=YS+Y
	IF(ICENT.EQ.0) GOTO 10
	XS=X
	YS=Y
	GOTO 10
	END

---