This sub stops the program by the given amount of seconds with a precision of about 1/15th of second. Note that the TIMER function will reset after midnight; if that's the case, internally the routine will substract 86400 seconds (a whole day) to keep things OK.

 

SUB Delaysecs (secs!) 



Now! = TIMER 

o! = TIMER + secs! 



DO WHILE TIMER < o! 

IF Now! > TIMER THEN o! = o! - 86400 

LOOP 



END SUB