1 PRINT CDBL(365*24*60*60)
4 ON ERROR GOTO 333
5 CLS
6 TT$ = RIGHT$(STR$(TIMER),LEN(STR$(TIMER))-2)
10 PRINT OCT$(TIMER),HEX$(TIMER),VAL("&h"+RIGHT$(STR$(TIMER),LEN(STR$(TIMER))-2)),TIMER
15 PRINT TIME$,DATE$
20 LOCATE 1,1
50 GOTO 10
333 LOCATE 22,1:PRINT TT$,OV:LOCATE 1,1:BEEP :OV = OV + 1:RESUME NEXT
2172 .27
2567 .27
37325 .22