DO
z1 = TIMER
PRINT "x";
DO
z2 = TIMER
IF z1 > z2 THEN z2 = z2 - 86400
IF z2 - z1 >= .1 THEN EXIT DO
IF LEN(INKEY$) THEN END
LOOP
LOOP

I was using the classic empty FOR loop, I know I should get spanked for that but I don't have any takers..LOL.

It worked, that's all I wondered, atleast, I saw the light (sooner or later) lol and now I want the right way to do it hehe.

Thanks again.