File PLOTR.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

	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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search