since it's friday, here's a fun little script.

adapted from the algorithm found at:
http://aa.usno.navy.mil/faq/docs/easter.html

i came up with:
===================
parm y=!hpyear

setvar _e_year      !y
setvar _e_century   _e_year / 100
setvar _e_n         _e_year - 19 * ( _e_year / 19 )
setvar _e_k         ( _e_century - 17 ) / 25
setvar _e_i &
  _e_century - ( _e_century / 4 ) - &
  ( _e_century - _e_k ) / 3 + 19 * _e_n + 15
setvar _e_i         _e_i - 30 * ( _e_i / 30 )
setvar _e_i &
  _e_i - ( _e_i / 28 ) * ( 1 - ( _e_i / 28 ) * &
  ( 29 / ( _e_i + 1 ) ) * &
  ( ( 21 - _e_n ) / 11 ) )
setvar _e_j &
  _e_year + ( _e_year / 4 ) + _i + 2 - _e_century + ( _e_century / 4 )
setvar _e_j         _e_j - 7 * ( _e_j / 7 )
setvar _e_l         _e_i - _e_j
setvar _e_month     3 + ( _e_l + 40 ) / 44
setvar _e_day       _e_l + 28 - 31 * ( _e_month / 4 )

setvar _e_date      "!_e_year" + "/" + &
                    rht(("00"+"!_e_month"),2) + "/" + &
                    rht(("00"+"!_e_day"),2)
echo Easter occurs on: !_e_date

deletevar _e_@
=====================
enjoy :-)       - d

(yeah, i know getting the year isn't rigourous....)

Donna Garverick, HP-CSA   Sr. System Programmer
dgarverick -at- longs -dot- com
925-210-6631              Longs Drug Stores

Come, my friends, 'Tis not too late to seek a newer world.
Tho' much is taken, much abides; and tho'
We are not now that strength which in old days
Moved earth and heaven, that which we are, we are.
"Ulysses", A. Tennyson

>>>MY opinions, not Longs Drug Stores'<<<

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *