Screen 18,32,2

Const maxp As Integer = 4

Dim X(maxp) As single
Dim Y(maxp) As single
Dim ox As Single
Dim oy As Single
Dim sa As Single
Dim pa As Single
Dim r As single

ox=320
oy=240
sa=6.28318530717/4
r=220

Dim t As Single

For t=0 To maxp
	pa=sa+t*(6.28318530717/(CSng(maxp)+1.))
	X(t)=ox+r*Cos(pa)
	Y(t)=oy+r*Sin(pa)
Next

For t=0 To maxp
	Circle(X(t),Y(t)),2
Next

'ok, let's do the magic
Dim rp As Integer
Dim lx As single
Dim ly As Single
Dim mx As Single
Dim my As Single


lx=x(0)
ly=y(0)
For t=0 To 1000000
	rp=Int(Rnd*(maxp+1))
	mx=(lx+x(rp))/2
	my=(ly+y(rp))/2
	PSet(mx,my)
	lx=mx
	ly=my	
Next


Input t