8-Bit Software Online Conversion

:2.S.TestY2K - Listing

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