Some modules for ya.

ah, I did not mean to include the A* stuff :D

Delta Time :-

Import indiepath.deltatime

Graphics 640,480,0,NOSYNC

Global BallX:Float = 0

Global Delta:DeltaTime = DeltaTime.Create(60) ' Set Delta base rate at 60 FPS

While Not KeyHit(Key_escape)
	Cls
	Delta.Update()
	UpdateBall(Delta.CurrDelta())
	
	DrawText (Delta.FPS(),0,0)
	Flip False
Wend

End

Function UpdateBall(delta:Float=1)

	BallX:+Delta
	DrawOval BallX,200,30,30
	If BallX > 640 BallX:-640

End Function