File: PLOTR.FT of Disk: Disks/PDP8-Net/disk2-fortran

(Source file text) 

---

	DIMENSION NAME(30)
	ITTY=4
	WRITE(ITTY,100)
100	FORMAT(1X,'TYPE IN TEXT(30 CHARACTER MAX)')
	READ(ITTY,200)NAME
200	FORMAT(30A1)
	WRITE(ITTY,150)
150	FORMAT(1X,'HOW MANY CHARS. DID YOU TYPE IN?')
	READ(ITTY,250)NN
250	FORMAT(I2)
	CALL PLOTS(.005,0)
	CALL XYPLOT(0,-30,-3)
	CALL XYPLOT(10,10,-3)
	RAD=3
	SIZE=.1225*RAD
	SPIR=.995
	CONV=180./3.1415
	ANG=0
	BANG=1.5707
	DO 300 J=1,NN
300	CALL SYMBOL((J-1-NN)*SIZE,RAD,SIZE,NAME(J),ANG,1)
380	DO 400 J=1,NN
	T=2*ATAN(SIZE/(2.*RAD))
	ANG=ANG-T*CONV
	X=RAD*COS(BANG)
	Y=RAD*SIN(BANG)
	BANG=BANG-T
	RAD=RAD*SPIR
	SIZE=.1225*RAD
400	CALL SYMBOL(X,Y,SIZE,NAME(J),ANG,1)
	IF(SIZE-.07)500,500,380
500	CALL PLEXIT
	END

---