Leap year: Difference between revisions
Content added Content deleted
m (→{{Header|Tiny BASIC}}: Works with (Tom Pittman's) TinyBasic.) |
(→{{header|Palo Alto Tiny BASIC}}: Added.) |
||
| Line 954: | Line 954: | ||
20 IF A-(A/100)*100=0 AND A-(A/400)*400<>0 THEN RESULT$="NOT " |
20 IF A-(A/100)*100=0 AND A-(A/400)*400<>0 THEN RESULT$="NOT " |
||
30 PRINT "THAT'S "RESULT$"A LEAP YEAR."</syntaxhighlight> |
30 PRINT "THAT'S "RESULT$"A LEAP YEAR."</syntaxhighlight> |
||
==={{header|Palo Alto Tiny BASIC}}=== |
|||
{{trans|Tiny BASIC}} |
|||
<syntaxhighlight lang="basic"> |
|||
10 REM LEAP YEAR |
|||
20 FOR Y=1750 TO 2022 |
|||
30 GOSUB 100 |
|||
40 IF L=1 PRINT Y |
|||
50 NEXT Y |
|||
60 STOP |
|||
100 LET L=0 |
|||
110 IF Y-(Y/4)*4#0 RETURN |
|||
120 IF Y-(Y/100)*100#0 LET L=1 |
|||
130 IF Y-(Y/400)*400=0 LET L=1 |
|||
140 RETURN</syntaxhighlight> |
|||
==={{header|PureBasic}}=== |
==={{header|PureBasic}}=== |
||