5 CLS:COLOR 7
6 WHILE X < 50000!
10 PRINT TIMER,TIME$,:COLOR X MOD 30:PRINT X
15 COLOR 7
20 LOCATE 1,1
25 X = X + 1
30 WEND
40 GOTO 10