My apologies to others. I had no time to read your responses. This is how I'd do it...

DO
IF USR1 < 9 THEN USR1 = USR1 + 1 ELSE USR1 = 1
LOCATE 20, 20
t = TIMER
IF USR1 = LCK1 THEN
COLOR 14, 0
ELSEIF USR1 <> LCK1 THEN
COLOR 12, 0
END IF
DO WHILE TIMER - t < .4
IF TIMER < t THEN t = t - 86400
key$ = INKEY$
IF VAL(key$) = LCK1 THEN EXIT DO
LOOP
PRINT USR1, LCK1
LOOP UNTIL key$ > ""

-------------------------

Pete