The main template has a line which calls up the Rebol file calendar.r I changed this occurrance to call up a revised file called calendaral.r You can see that I changed a number from a block of script which composes a calendar block of 31 days. The number I changed is "1", after repeated tries to get the first row of the table of the monthly calendar to start the week off on a Sunday, the only number I was able to result in this was zero (0). I also discovered that removing the text "- 1" altogether, as opposed to changing the digit from 1 to 0 also accomplished my objective.
In the calendar above, the first occurance of the year sequence 2 6 5 2 7 4 2 6 3 1 5 3 is the year 2100 would fall on if the millennium year was not an issue with leap year. Instead, the 28-year cycle takes over from this sequence:
1 5 5 2 7 4 2 6 3 1 5 3 [year 2101]<-------------
7 4 4 1 6 3 1 5 2 7 4 2 [year 2102] |
6 3 3 7 5 2 7 4 1 6 3 1 [year 2103] |
5 2 1 5 3 7 5 2 6 4 1 6 [LEAP YEAR] <-------- |
3 7 7 4 2 6 4 1 5 3 7 5 [year 2105] | |
2 6 6 3 1 5 3 7 4 2 6 4 [year 2106] | |
1 5 5 2 7 4 2 6 3 1 5 3 [year 2107] | |
7 4 3 7 5 2 7 4 1 6 3 1 [LEAP YEAR] | |
5 2 2 6 4 1 6 3 7 5 2 7 [year 2109] | |\\
4 1 1 5 3 7 5 2 6 4 1 6 [year 2110] | | \\
3 7 7 4 2 6 4 1 5 3 7 5 [year 2111] | | \\
2 6 5 2 7 4 2 6 3 1 5 3 [LEAP YEAR] | | \\
7 4 4 1 6 3 1 5 2 7 4 2 [year 2113] | | \\
6 3 3 7 5 2 7 4 1 6 3 1 [year 2114] | | \\
5 2 2 6 4 1 6 3 7 5 2 7 [year 2115] | | (28yr sequence)
4 1 7 4 2 6 4 1 5 3 7 5 [LEAP YEAR] | | /
2 6 6 3 1 5 3 7 4 2 6 4 [year 2117] | | /
1 5 5 2 7 4 2 6 3 1 5 3 [year 2118] | | /
7 4 4 1 6 3 1 5 2 7 4 2 [year 2119] | | /
6 3 2 6 4 1 6 3 7 5 2 7 [LEAP YEAR] | | /
4 1 1 5 3 7 5 2 6 4 1 6 [year 2121] | |/
3 7 7 4 2 6 4 1 5 3 7 5 [year 2122] | |
2 6 6 3 1 5 3 7 4 2 6 4 [year 2123] | |
1 5 4 1 6 3 1 5 2 7 4 2 [LEAP YEAR] | |
6 3 3 7 5 2 7 4 1 6 3 1 [year 2125] | |
5 2 2 6 4 1 6 3 7 5 2 7 [year 2126] | |
4 1 1 5 3 7 5 2 6 4 1 6 [year 2127] | |
3 7 6 3 1 5 3 7 4 2 6 4 [LEAP YEAR] | |
1 5 5 2 7 4 2 6 3 1 5 3 [year 2129]»---------|---
7 4 4 1 6 3 1 5 2 7 4 2 [year 2130] |
6 3 3 7 5 2 7 4 1 6 3 1 [year 2131] |
5 2 1 5 3 7 5 2 6 4 1 6 Break in sequence! ---
Remember, if a millennium year
is a multiple of 400, then
chances are good that it will be
a leap year (February contains
29 days); hence, if a millennium
year is not a multiple of 400,
February will have 28 days and
that year will not (should not)
be a "leap year".