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