CC MAINLINE
	COMMON X(5,100),Y(5,100)
	NUM=216
	WRITE (6,1) NUM
1	FORMAT (1X,I4)
	R1=4.0
	H1=4.0
	CALL CAL (R1,H1,1)
	R2=8.0
	H2=3.0
	CALL CAL (R2,H2,2)
	R3=10.0
	H3=0.0
	CALL CAL (R3,H3,3)
	R4=8.0
	H4=-3.0
	CALL CAL (R4,H4,4)
	R5=4.0
	H5=-4.0
	CALL CAL (R5,H5,5)
	PAUSE 11111
	DO 150 I=1,24
C
	WRITE (6,200) X(1,I),H1,Y(1,I),X(2,I),H2,Y(2,I)
	WRITE (6,200) X(2,I),H2,Y(2,I),X(3,I),H3,Y(3,I)
	WRITE (6,200) X(3,I),H3,Y(3,I),X(4,I),H4,Y(4,I)
	WRITE (6,200) X(4,I),H4,Y(4,I),X(5,I),H5,Y(5,I)
150	CONTINUE
200	FORMAT (1X,6F10.2)
	STOP
	END