Leap year: Difference between revisions
Applesoft BASIC
(Leap year in Tiny BASIC) |
(Applesoft BASIC) |
||
Line 583:
=={{header|BASIC}}==
==={{header|Applesoft BASIC}}===
A one-liner combination from the [[#Commodore_BASIC|Commodore BASIC]] and [[#GW_BASIC|GW-BASIC]] solutions.
<lang gwbasic>FOR Y = 1750 TO 2021: PRINT MID$ ( STR$ (Y) + " ",1,5 * (Y / 4 = INT (Y / 4)) * ((Y / 100 < > INT (Y / 100)) + (Y / 400 = INT (Y / 400))));: NEXT</lang>
==={{header|BASIC256}}===
{{trans|FreeBASIC}}
|