Leap year: Difference between revisions
Content added Content deleted
(Leap year in Tiny BASIC) |
|||
Line 677: | Line 677: | ||
50 PRINT "A LEAP YEAR." |
50 PRINT "A LEAP YEAR." |
||
60 STOP</lang> |
60 STOP</lang> |
||
==={{Header|Tiny BASIC}}=== |
|||
<lang Tiny BASIC>REM Rosetta Code problem: https://rosettacode.org/wiki/Leap_year |
|||
REM by Jjuanhdez, 06/2022 |
|||
LET Y = 1750 |
|||
10 IF Y = 2021 THEN GOTO 20 |
|||
GOSUB 100 |
|||
IF L = 1 THEN PRINT Y |
|||
LET Y = Y + 1 |
|||
GOTO 10 |
|||
20 END |
|||
100 LET L = 0 |
|||
IF (Y - (Y / 4) * 4) <> 0 THEN RETURN |
|||
IF (Y - (Y / 100) * 100) = 0 THEN GOTO 110 |
|||
LET L = 1 |
|||
110 IF (Y - (Y / 400) * 400) <> 0 THEN GOTO 120 |
|||
LET L = 1 |
|||
120 RETURN</lang> |
|||
==={{header|ZX Spectrum Basic}}=== |
==={{header|ZX Spectrum Basic}}=== |