var GWIDTH:int = 800
var GHEIGHT:int = 600

Graphics( GWIDTH, GHEIGHT )

var Radius:int = 100
var TimeSpan:int

While KeyHit( 27 ) = 0
	TimeSpan = Millisecs()
	
	Cls()
	
	var Angle:float = ( Millisecs() mod 3600 )/10.
	
	DrawRect( GWIDTH/2 + Cos( Angle )*Radius, GHEIGHT/2 - Sin( Angle )*Radius, 30, 30 )
	
	DrawText( 0, 0, Millisecs() - TimeSpan )
	DrawText( 0, 20, Angle )
	
	Flip( 0 )
Wend

End()