24 lines
484 B
Text
24 lines
484 B
Text
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
|