# File for giving moon phase info.
#
# This file is part of REMIND.
# Copyright (C) 1992-1997 by David F. Skoll
# $Id: moon.rem-DIST,v 1.1 1997-01-16 04:00:28 dfs Exp $
set now now()
banner %
MSG %
MSG Moon over Ottawa%
MSG %
MSG
MSG Moon over Ottawa
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 Ottawa is [now].
if ndate < fdate
msg The next new moon is on [t(ndate)] at [ntime], Ottawa time.
msg The next full moon is on [t(fdate)] at [ftime], Ottawa time.
else
msg The next full moon is on [t(fdate)] at [ftime], Ottawa time.
msg The next new moon is on [t(ndate)] at [ntime], Ottawa time.
endif