10REM >TestY2K
20REM by Steven Flintham
30REM
40REM Version 0.01
50REM
60REM Friday 25th July 1997
70REM Thursday 21st August 1997
80:
90TIME$="Fri,31 Dec 1999"
100REPEAT
110REM If the time in the next line is
changed to 23:59:59 the RTC seems to
120REM decide there are 29 days in eve
ry month! If it's changed to 23:59:58
130REM most months are the right lengt
h but it doesn't spot leap years.
140TIME$="23:59:57"
150PRINT TIME$
160REPEAT UNTIL RIGHT$(TIME$,8)<="23:0
0:00"
170UNTIL FALSE