18 lines
416 B
Text
18 lines
416 B
Text
REM Rosetta Code problem: https://rosettacode.org/wiki/Leap_year
|
|
REM by Jjuanhdez, 06/2022
|
|
|
|
10 REM Leap year
|
|
20 LET Y = 1750
|
|
30 IF Y = 2021 THEN GOTO 80
|
|
40 GOSUB 100
|
|
50 IF L = 1 THEN PRINT Y
|
|
60 LET Y = Y + 1
|
|
70 GOTO 30
|
|
80 END
|
|
100 LET L = 0
|
|
110 IF (Y - (Y / 4) * 4) <> 0 THEN RETURN
|
|
120 IF (Y - (Y / 100) * 100) = 0 THEN GOTO 140
|
|
130 LET L = 1
|
|
140 IF (Y - (Y / 400) * 400) <> 0 THEN GOTO 160
|
|
150 LET L = 1
|
|
160 RETURN
|