*movewindow(400,200,150,150)
demand 0
DIM calc%(2, 50, 71)
rad=2*3.14159
FOR deg% = 1 TO 71
	deg1=rad/(360/(deg%*5))
	FOR linepos% = 1 TO 50
		calc%(1, linepos%, deg%) = SIN(deg1) * linepos% + 70
		calc%(2, linepos%, deg%) = COS(deg1) * linepos% + 70
	NEXT
	LOCATE 1, 1
	PRINT deg%
NEXT

FOR deg% = 1 TO 71
	FOR linepos% = 1 TO 50
		x = calc%(1, linepos%, deg%)
		y = calc%(2, linepos%, deg%)
		PSET (x, y), linepos% MOD 15
	NEXT
NEXT
demand 10
WHILE fin$ = ""
fin$ = INKEY$: WEND
end