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

(Source file text) 

---

	SUBROUTINE PLOWRT(UNIT)
	COMMON //IFIL
	REAL CHAR(10)
	IUP=-1
	CALL ASK(1,ANGLE,DU,DU,DU,'ANGLE&')
	CALL ASK(2,DU,XS,DU,DU,'XBEG&')
	CALL ASK(2,DU,YS,DU,DU,'YBEG&')
20	CALL ASK(1,ISIZE,DU,DU,DU,'SYMB. SIZE&')
	SIZE=ISIZE*.07
	RANG=ANGLE*.017453
	CANG=COS(RANG)
	SANG=SIN(RANG)
	LOW=0
	CALL ASK(1,ILOW,DU,DU,DU,'LWR/GREEK(2/3)&')
	IF(ILOW.LT.2.OR.ILOW.GT.3) GOTO 10
	LOW=ILOW*32
10	CALL ASK(3,DU,DU,CHAR,DU,'CHAR&')
	CALL CGET(CHAR(1),1,ICHAR)
	CALL SYMBOL(XS,YS,SIZE,ICHAR+LOW,ANGLE,IUP)
	IF(IFIL.NE.4) GOTO 70
50	WRITE(4,200)
200	FORMAT(1H ,'SAME,NEW,END?',$)
70	READ(IFIL,220) SW
220	FORMAT(1A6)
	IF(SW.EQ.'SAME') GOTO 40
	IF(SW.EQ.'NEW') GOTO 30
	IF(SW.EQ.'END') GOTO 60
	GOTO 50
40	XS=XS+SIZE*CANG
	YS=YS+SIZE*SANG
	GOTO 10
30	CALL ASK(1,X,DU,DU,DU,'XINC&')
	CALL ASK(1,Y,DU,DU,DU,'YINC&')
	XS=XS+X*.07
	YS=YS+Y*.07
	GOTO 20
60	RETURN
	END

---