v14i098: The Last Perpetual Calendar

[David J. Camp]

Posting-number: Volume 14, Issue 98
Submitted-by: "David J. Camp" <david at 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 at wubios.wustl.edu                 ^        Mr. David J. Camp
david%wubios at 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 at 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