# File for giving moon phase info.
#
# This file is part of REMIND.
# Copyright (C) 1992-1997 by David F. Skoll
# Copyright (C) 1999-2000 by Roaring Penguin Software Inc.

set now now()

banner %

MSG %
MSG Moon over [$Location]%
MSG %

MSG <BODY>
MSG 
Moon over [$Location]

set ndate moondate(0)
set ntime moontime(0)
set fdate moondate(2)
set ftime moontime(2)

fset t(x) wkday(x)+", "+day(x)+" "+mon(x)+", "+year(x)
msg Today is %w, %d %m, %y.<P>
msg The local time in [$Location] is [now].<P>

if ndate < fdate
  msg The next new moon is on [t(ndate)] at [ntime], [$Location] time.<P>
  msg The next full moon is on [t(fdate)] at [ftime], [$Location] time.<P>
else
  msg The next full moon is on [t(fdate)] at [ftime], [$Location] time.<P>
  msg The next new moon is on [t(ndate)] at [ntime], [$Location] time.<P>
endif
