Leap year: Difference between revisions
Leap year in Tiny BASIC
(Leap year in Tiny BASIC) |
|||
Line 677:
50 PRINT "A LEAP YEAR."
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}}===
| |||