Contrary to my Swiftforth manual, my system dictionary didn't seem to
have the D/M/Y function. So, I wrote one for y'all. Yeah, I know, you
could do it too, but maybe I saved you 5 minutes out of your day hunting
for this little guy.

Bob

\ D/M/Y date function

: D/M/Y ( u1 u2 u3 -- u4 ) \ day, month, and year -> MJD
  -rot
  1000000 * swap
  10000 * + + 0 M/D/Y
;

\ ***************************************
\ **** Bob Dickow (dickow_at_uidaho.edu) ******
\ *** Hampton School of Music, Univ of Idaho *
\ ** USDA Zone 5 *************************
Received on Sat Jun 17 2000 - 11:31:53 PDT