%%
%% This is file `demo.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% dates.dtx  (with options: `demo')
%% 
%% This file is part of the Dates package,
%% Copyright (C) 1996 Frank Bennett, Jr.
%% All rights reserved.
%% ------------------------------------------
%% This file is provided for demonstration purposes; feel free
%% to edit it in any way whatsoever.
%% ------------------------------------------
%% 
\documentclass{minimal}
\usepackage{dates}
\begin{document}

\makeatletter

%
% We invoke the \dateread command.
%
\dateread
%
% We tell it to report a few details to the terminal.
%
{\message{\theshorttext}%
 \message{\theday/\the\dates@month/\the\dates@year}%
 \ifx\thelongtext\dates@empty%
 \else%
   \message{\thelongtext}%
 \fi}
%
% The following are ranges.
%
   december 10 1995 {^^JStart of First}
to jan     10 1996 {End of First}
   december 10 1996 {^^JStart of Second}
to jan     10 1997 {End of Second^^J}
%
% The following are specific dates (obviously)
%
February 18 1997 {^^JFrank's Next Birthday}
 [The best presents come in small packages.^^JIt
  would be a terrific present for someone to make
  this one smaller.]
February 18 1998 {^^JFrank's Next Birthday But One}
%
% These are a couple of recursive dates.
%
Every Monday {^^JMonday Coffee}
Every Third Tuesday {^^JMeeting}
% Here is a sample function definition, which gives
% the phases of the moon within the ranges.  The code
% was ripped off from the calendar package for plain
% TeX
%

function \moonsinit \moonsincrement

 {
  \newcount\moonno
 \newif\ifsign

  \def\firstmoon{\moonno=\dates@year
  \multiply\moonno by123685
  \divide\moonno by10000
  \multiply\moonno by4\advance\moonno by-1
  \loop\moondate\relax
  \ifnum\dates@date<\dates@subrange@start
  \advance\moonno by1\repeat}

% Compute date for cycle quarter MOONNO

  \def\moondate{{\count0=\moonno
  \lin 202.126.369+0.\count0=\count1
  \count6=0
  \lin 0.2.319+2907.\sin\fac{3}
  \divide\count6  by1000
  \lin 365.249.86+7593.\id\fac{1}
  \divide\count6 by10\count7 =\count6
  \ifodd\moonno\quarters
  \else\fullornew\fi\global\dates@date=\count7}
  \jdttol}

% Correction for full and new moon

  \def\fullornew{\count6=0
  \lin -393.0.0+0.
  \divide\count1 by100000000
  \advance\count6  by\count1
  \lin 0.628.300+6269.\sin
  \multiply\count6  by\count4
  \lin -7.-700.-369+  928.\sin\fac{  -74}
  \lin  0. 628. 300+ 6269.\sin\fac{ 1734}
  \lin  1. 256. 600+12539.\sin\fac{   21}
  \lin  8. 328. 670+ 5341.\sin\fac{-4068}
  \lin  8. 538. 220+-4597.\sin\fac{   10}
  \lin  8. 956. 970+11610.\sin\fac{  -51}
  \lin 16. 238. 589+-5526.\sin\fac{   -4}
  \lin 16. 657. 340+10682.\sin\fac{  161}
  \lin 16. 866. 890+  743.\sin\fac{  104}
  \lin 17. 285. 640+16951.\sin\fac{   50}
  \lin 17. 495. 190+ 7013.\sin\fac{    4}
  \lin 24. 986.  10+16023.\sin\fac{   -4}
  \lin 25. 195. 560+ 6084.\sin\fac{   -6}
  \divide\count6  by10000
  \advance\count7 by\count6 }

% Correction for quarters

  \def\quarters{\lin -393.0.0+0.
  \divide\count1  by100000000
  \count6 =\count1  \lin 0.628.300+6269.
  \sin\multiply\count6  by\count4
  \lin -16. -29. -40+-4413.\sin\fac{   40}
  \lin  -7.-700.-369+  928.\sin\fac{  -47}
  \lin  -7. -72. -69+ 7198.\sin\fac{  -30}
  \lin   0. 628. 300+ 6270.\sin\fac{ 1721}
  \lin   1. 256. 600+12539.\sin\fac{   21}
  \lin   8. 328. 670+ 5341.\sin\fac{-6280}
  \lin   8. 538. 220+-4598.\sin\fac{   21}
  \lin   8. 956. 970+11611.\sin\fac{ -119}
  \lin  16. 238. 589+-5526.\sin\fac{   -4}
  \lin  16. 657. 340+10682.\sin\fac{   89}
  \lin  16. 866. 890+  743.\sin\fac{   79}
  \lin  17. 285. 640+16952.\sin\fac{    3}
  \lin  17. 495. 190+ 7013.\sin\fac{    3}
  \lin  24. 986.  10+16023.\sin\fac{   -4}
  \lin  25. 195. 560+ 6085.\sin\fac{   -6}
  \count8=\count6\count6=28000
  \lin 628. 300. 373+ 6270.\cos\fac{   -4}
  \lin   8. 328. 670+ 5341.\cos\fac{    3}
  \count2=\moonno
  \advance\count2 by-1\divide\count2 by2
  \ifodd\count2\multiply\count6  by-1 \fi
  \advance\count6 by\count8
  \divide\count6  by10000
  \advance\count7  by\count6 }

% Events for phases.
% Uses PHASE (local).

  \def\phase{{\count0=\moonno
  \count1=\moonno
  \divide\count0 by4\multiply\count0 by4
  \advance\count1 by-\count0\relax
  \global\edef\themoon{\ifcase\count1
  New Moon\or First Quarter\or
  Full Moon\or Last Quarter\fi}}}

  \gdef\moonsinit{%
  \firstmoon
  \dates@month=12\dates@day=31\dates@fix\advance\dates@date by1
  \count1=\dates@date
  \moondate
  \phase
  \caldate}

  \gdef\moonsincrement{%
  \advance\moonno by 1
  \moondate\phase
  \caldate}

  }
  {\themoon}

\end{document}
%% 
%%
%% End of file `demo.tex'.