Rosetta Code

Leap year: Difference between revisions

Page Discussion

Leap year (view source)

Revision as of 01:32, 9 November 2022

24 bytes added ,  1 year ago
m
→‎{{Header|Tiny BASIC}}: Works with (Tom Pittman's) TinyBasic.
(→‎{{header|Vlang}}: Rename "Vlang" in "V (Vlang)")
m (→‎{{Header|Tiny BASIC}}: Works with (Tom Pittman's) TinyBasic.)
Line 1,080:
 
==={{Header|Tiny BASIC}}===
{{works with|TinyBasic}}
<syntaxhighlight lang="tiny basic">REM Rosetta Code problem: https://rosettacode.org/wiki/Leap_year
REM by Jjuanhdez, 06/2022
 
10 REM Leap year
LET Y = 1750
1020 IFLET Y = 2021 THEN GOTO 201750
30 IF LY = 12021 THEN PRINTGOTO Y80▼
40 GOSUB 100
▲ IF L = 1 THEN PRINT Y
50 IF L = LET1 YTHEN =PRINT Y + 1
60 LET Y = GOTOY 10+ 1
70 GOTO 30
20 80 END
100 LET L = 0
110 IF (Y - (Y / 4) * 4) <> 0 THEN RETURN
120 IF (Y - (Y / 100) * 100) = 0 THEN GOTO 110140
130 LET L = 1
110140 IF (Y - (Y / 400) * 400) <> 0 THEN GOTO 120160
150 LET L = 1
120160 RETURN</syntaxhighlight>
 
==={{header|uBasic/4tH}}===
Christophoro S
511

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/333341"