david@wubios.wustl.edu (David J. Camp) (09/21/90)
Posting-number: Volume 14, Issue 98
Submitted-by: "David J. Camp" <david@wubios.wustl.edu>
Archive-name: perpetual.l/part01
[[Looks like an extremely simple nroff document. ++bsa]]
Okay, I know this is just a toy, but it does not take up much space.
-David-
david@wubios.wustl.edu ^ Mr. David J. Camp
david%wubios@wugate.wustl.edu < * > +1 314 382 0584
...!uunet!wugate!wubios!david v "Be kind to sinners."
"Concentration impedes Inspiration." --- "Depend on God, who has dominion."
#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of shell archive."
# Contents: perpetual.l
# Wrapped by david@wubios on Wed Sep 19 01:35:39 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'perpetual.l' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'perpetual.l'\"
else
echo shar: Extracting \"'perpetual.l'\" \(3907 characters\)
sed "s/^X//" >'perpetual.l' <<'END_OF_FILE'
X.nf
X THE LAST PERPETUAL CALENDAR by David J. Camp
X
X OFFSET = (YEAR + (YEAR / 400) - (YEAR / 100) + (YEAR / 4)) MODULO 7
X
X OFFSET= Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Feb
X 0123456
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X WTFSSMT 1 1
X TFSSMTW 2 1 2 1
X FSSMTWT 3 2 1 3 1 2
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X SSMTWTF 4 1 3 1 2 4 2 3
X SMTWTFS 5 2 4 2 3 1 5 3 4
X MTWTFSS 6 3 1 5 3 4 2 6 4 1 5
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X TWTFSSM 7 4 2 6 4 1 5 3 7 5 2 6
X WTFSSMT 8 5 3 7 5 2 6 4 8 6 3 7
X TFSSMTW 9 6 4 8 6 3 7 5 9 7 4 8
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X FSSMTWT 10 7 5 9 7 4 8 6 10 8 5 9
X SSMTWTF 11 8 6 10 8 5 9 7 11 9 6 10
X SMTWTFS 12 9 7 11 9 6 10 8 12 10 7 11
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X MTWTFSS 13 10 8 12 10 7 11 9 13 11 8 12
X TWTFSSM 14 11 9 13 11 8 12 10 14 12 9 13
X WTFSSMT 15 12 10 14 12 9 13 11 15 13 10 14
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X TFSSMTW 16 13 11 15 13 10 14 12 16 14 11 15
X FSSMTWT 17 14 12 16 14 11 15 13 17 15 12 16
X SSMTWTF 18 15 13 17 15 12 16 14 18 16 13 17
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X SMTWTFS 19 16 14 18 16 13 17 15 19 17 14 18
X MTWTFSS 20 17 15 19 17 14 18 16 20 18 15 19
X TWTFSSM 21 18 16 20 18 15 19 17 21 19 16 20
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X WTFSSMT 22 19 17 21 19 16 20 18 22 20 17 21
X TFSSMTW 23 20 18 22 20 17 21 19 23 21 18 22
X FSSMTWT 24 21 19 23 21 18 22 20 24 22 19 23
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X SSMTWTF 25 22 20 24 22 19 23 21 25 23 20 24
X SMTWTFS 26 23 21 25 23 20 24 22 26 24 21 25
X MTWTFSS 27 24 22 26 24 21 25 23 27 25 22 26
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X TWTFSSM 28 25 23 27 25 22 26 24 28 26 23 27
X WTFSSMT 29 26 24 28 26 23 27 25 29 27 24 28
X TFSSMTW 30 27 25 29 27 24 28 26 30 28 25 29
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X FSSMTWT 31 28 26 30 28 25 29 27 29 26
X SSMTWTF 29 27 29 26 30 28 30 27
X SMTWTFS 30 28 30 27 29 31 28
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X MTWTFSS 29 31 28 30 29
X TWTFSSM 30 29 31 30
X WTFSSMT 31 30 31
X ------- --- --- --- --- --- --- --- --- --- --- --- ---
X TFSSMTW 31
END_OF_FILE
if test 3907 -ne `wc -c <'perpetual.l'`; then
echo shar: \"'perpetual.l'\" unpacked with wrong size!
fi
# end of 'perpetual.l'
fi
echo shar: End of shell archive.
exit 0