Const strx = 5
Const stry = 1

AppTitle "Test01"
Graphics 800, 600, 32, 2
SetBuffer BackBuffer()

While Not KeyHit(1)
	
	mx = Rand(1,strx)
	my = Rand(1,stry)
	
	sx=(sx+mx) Mod 800
	sy=(sy+my) Mod 600

	Zaehler = (Zaehler + 1) Mod 360

	Color Abs(Sin(Zaehler)*255),0,0
		
	r1posx = sx+(Sin(Zaehler)*100)
	r1posy = sy+(Sin(Zaehler)*100)
	
	Rect r1posx, r1posy, 10,10,1

	Color Abs(Sin(Zaehler)*255),Abs(Sin(Zaehler)*255),0
	
	r2posx = sx+(Sin(Zaehler)*100)
	r2posy = sy+(Sin(Zaehler)*-100)
	
	Rect r2posx, r2posy, 10,10,1

	Color 0,Abs(Sin(Zaehler)*255),0
	
	r3posx = sx+(Sin(Zaehler)*-100)
	r3posy = sy+(Sin(Zaehler)*100)
	
	Rect r3posx, r3posy, 10,10,1

	Color 0,0,Abs(Sin(Zaehler)*255)
	
	r4posx = sx+(Sin(Zaehler)*-100)
	r4posy = sy+(Sin(Zaehler)*-100)
	
	Rect r4posx, r4posy, 10,10,1

	Flip()
Wend