randomize 88888888 dim duration as double dim tim as double tim = TIMER duration = .1 out 888, 0 for y = 1 to 100 out 888, 2^(abs((rnd(1)*8))) tim = Timer DO LOOP UNTIL (TIMER - tim + 86400) - (INT((TIMER - tim + 86400) / 86400) * 86400) > duration out 888, 0 next y