Hai ragione, non avevo tenuto conto di un fattore; prova così:
codice:
OPEN "tempi.txt" FOR APPEND AS #20
tempo& = 1
t! = TIMER
begfrac! = t! - FIX(t!)
DO
    CLS
    t2! = TIMER
    t! = FIX(t2!) + begfrac + tempo&
    IF t! >= 86400! THEN t! = t! - 86400 : blocco% = 1
    i$ = INKEY$
    IF i$ = CHR$(27) THEN END
    PRINT #20, DATE$, TIME$, TIMER
    PRINT TIME$
    DO
        IF TIMER < t2! THEN blocco% = 0
        t2!=TIMER
    LOOP WHILE t2! < t! OR blocco% <> 0
LOOP WHILE i$ = ""
CLOSE #20
P.S.: indenta il codice e usa i tag CODE!