File DSAMP.FT (FORTRAN source file)

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

C
C   PROGRAM TO DRAW N-GONS,  N = 3, 4, ..., 10
C
1	FORMAT(3A2)
	CALL OOPEN('DSK','PLOT')
	DO 20 N = 3,10
	IX = 90 + 80
	IY = 100 + 0
	IFLG = 0
	WRITE(4,1) IX, IY, IFLG
	DO 10 I = 1,N
	THETA = 2.0*3.141593*FLOAT(I) / FLOAT(N)
	IX = 90 + IFIX(80.0*COS(THETA))
	IY = 100 + IFIX(90.0*SIN(THETA))
	IFLG = 1
	WRITE(4,1) IX, IY, IFLG
10	CONTINUE
	IFLG = -1
	WRITE(4,1) IX, IY, IFLG
20	CONTINUE
	CALL OCLOSE
	CALL CHAIN('DFPLOT')
	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