Initial checkin of www stuff

2026-05-03 14:27:05 +02:00 · 1997-01-16 04:00:26 +00:00
parent d0be59edff
commit 0f167686d9
13 changed files with 574 additions and 0 deletions
@@ -0,0 +1,34 @@
+# 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 <HEAD>%
+MSG <TITLE>Moon over Ottawa</TITLE>%
+MSG </HEAD>%
+
+MSG <BODY>
+MSG <H1>Moon over Ottawa</H1>
+
+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 Ottawa is [now].<P>
+
+if ndate < fdate
+  msg The next new moon is on [t(ndate)] at [ntime], Ottawa time.<P>
+  msg The next full moon is on [t(fdate)] at [ftime], Ottawa time.<P>
+else
+  msg The next full moon is on [t(fdate)] at [ftime], Ottawa time.<P>
+  msg The next new moon is on [t(ndate)] at [ntime], Ottawa time.<P>
+endif