Long year: Difference between revisions

</pre>

==={{header|Palo Alto Tiny BASIC}}===

{{trans|Commodore BASIC}}

<syntaxhighlight lang="basic">

10 REM LONG YEAR

20 PRINT "*** LIST OF ISO LONG YEARS ***"

30 INPUT "START YEAR"B

40 INPUT "END YEAR"E

50 FOR Y=B TO E

60 GOSUB 200

70 IF L#0 PRINT Y," ",

80 NEXT Y

90 PRINT

100 STOP

190 REM L NONZERO IF Y IS LONG

200 LET L=0,J=Y

210 GOSUB 400

220 IF W=4 LET L=1

230 LET J=Y-1

240 GOSUB 400

250 IF W=3 LET L=1

260 RETURN

370 REM CALCULATE DAY OF WEEK W GIVEN

380 REM OF J-12-31, GIVEN YEAR J

390 REM SUNDAY = 0, SATURDAY = 6

400 LET W=J+J/4-J/100+J/400

410 LET W=W-(W/7)*7

420 RETURN

</syntaxhighlight>

{{out}}

<pre>

*** LIST OF ISO LONG YEARS ***

START YEAR:1995

END YEAR:2045

1998 2004 2009 2015 2020 2026 2032 2037 2043