{VERSION 2 2 "IBM INTEL NT" "2.2" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier New" 0 1 255 0 0 1 0 1 
0 0 1 0 0 0 0 }{CSTYLE "" -1 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" 18 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
256 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 0 0 0 
0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 
0 }{CSTYLE "" -1 259 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 }{PSTYLE "Norma
l" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 
"Courier New" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 }1 0 0 -1 -1 -1 0 0 0 
0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 
0 0 0 0 0 0 1 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Error" 7 
8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 0 0 0 0 0 0 0 0 0 }0 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 
-1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
}
{SECT 0 {PARA 0 "" 0 "" {TEXT -1 40 "                                 \+
       " }}{PARA 0 "" 0 "" {TEXT -1 48 "                              \+
                  " }{TEXT 256 24 "        Day of the week " }}{PARA 
0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 93 "    Gauss, amon
g others, gave formulas for determining the day of the week from the d
ate. The" }{TEXT 257 9 " calendar" }{TEXT -1 215 " package implements \+
these formulas. There are two calendar implemented: the  Gregorian and
 the Julian calendars. The default is the Gregorian. A small \"correct
ion\" in the tables in [K] has been made in this version." }}{PARA 0 "
" 0 "" {TEXT -1 37 "    First, load the package by typing" }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "read(`d:/maplev4/share/games/calend
ar/calendar.mpl`);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 86 " Note that \+
the first date of the millenium - Jan 1st in the year 0 - is not enter
ed as" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "day_of_week(1,1,0)
;" }}{PARA 8 "" 1 "" {TEXT -1 101 "Error, (in cal_num) The Gregorian c
alendar began in 1582. Use the \"J\" option for the Julian calendar." 
}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 22 " Instead, one must try" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "day_of_week(1,1,0,`J`);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#%0Julian~calendarG" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#%)ThursdayG" }}}{PARA 0 "" 0 "" {TEXT -1 110 "    To \+
get the day of week for Feb 3rd, 1997 (which happens to be the date th
is is written), simply type:     " }}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "day_of_week(2,3,1977);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#%3Gregorian~calendarG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%)Thurs
dayG" }}}{PARA 0 "" 0 "" {TEXT -1 65 "   To get the day of the week in
 the Julian calendar, simply type" }}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 27 "day_of_week(5,21,1996,`J`);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%0Julian~calendarG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%
'MondayG" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 
0 "" }}{PARA 0 "" 0 "" {TEXT -1 51 "                                  \+
                 " }{TEXT 259 16 "      REFERENCES" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 20 " [K]  M. Kraitchik, " }
{TEXT 258 24 "Mathematical recreations" }{TEXT -1 17 ", Dover, New Yor
k" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 20 "David Joyner, 2-3-96" }}}{MARK "13 0 0" 
0 }{VIEWOPTS 1 1 0 1 1 1803 }