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