Hi MIKE.

12-Jun-03 10:29:00, MIKE ROSS wrote to Leonard Erickson

 MR>      SUB Delay (t%)

 MR>         StopTime& = TIMER + t%
 MR>         DO
 MR>            IF LEN(INKEY$) THEN EXIT DO
 MR>         LOOP UNTIL (StopTime& - TIMER) MOD 86400 <= 0

you're mixing floats and integers there and it leads to unpredictable
behavior

try this

for x= 1 to 60: call delay(1):?".";: next

expect to wait much less than 1 minute for it complete!

-=> Bye <=-

---