;This code will delay main loop execution to provide accurate frame limiting
;"on the fly" based on how long the main loop takes to execute each cycle.

fRate = (1000/30) ;*set second number to desired frame rate*

While Not KeyHit(1)
   ;this code must go at the very start of the loop
   time1 = MilliSecs() ;time at start of processing loop
   
   ;***********************************
   ;all processing loop code goes here*
   ;***********************************
   
   ;this code must go at the very end of the loop
   time2 = MilliSecs() ;time at end of processing loop
   time3 = time2 - time1 ;number of miiliseconds to process loop
   time4 = fRate - time3 ;number of milliseconds to delay each processing loop to achieve dynamically accurate framerate
   Delay time4 ;delay execution
Wend

;Use any "frame per second" code to verify correct frame speed.
;Frame speed variance is usually within 1 fps. Not bad, eh? :)