# 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
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.
msg The local time in [$Location] is [now].
if ndate < fdate
msg The next new moon is on [t(ndate)] at [ntime], [$Location] time.
msg The next full moon is on [t(fdate)] at [ftime], [$Location] time.
else
msg The next full moon is on [t(fdate)] at [ftime], [$Location] time.
msg The next new moon is on [t(ndate)] at [ntime], [$Location] time.
endif