home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Linux / Divers / remind-03.00.19.tgz / remind-03.00.19.tar / remind-03.00.19 / www / sunset.rem-DIST < prev   
Text File  |  1997-01-15  |  1KB  |  44 lines
  1. # File for giving sunset info
  2. #
  3. # This file is part of REMIND.
  4. # Copyright (C) 1992-1997 by David F. Skoll
  5.  
  6. # $Id: sunset.rem-DIST,v 1.2 1997/01/16 04:31:11 dfs Exp $
  7.  
  8. set now now()
  9.  
  10. banner %
  11.  
  12. MSG <HEAD>%
  13. MSG <TITLE>Sunset in Ottawa</TITLE>%
  14. MSG </HEAD>%
  15.  
  16. MSG <BODY>
  17. MSG <H1>Sunset in Ottawa</H1>
  18.  
  19. set tod sunset(today())
  20. set tom sunset(today()+1)
  21.  
  22. set len1 sunset(today())-sunrise(today())
  23. set len2 sunset(today()+1)-sunrise(today()+1)
  24. set dlen len2-len1
  25. set slen iif(dlen==0, "the same length as", dlen<0, abs(dlen)+plural(abs(dlen)," minute", " minutes")+" shorter than", dlen+plural(dlen, " minute", " minutes")+" longer than")
  26.  
  27. set diff tod-now
  28. set adiff abs(diff)
  29. set hdiff adiff/60
  30. set mdiff adiff%60
  31.  
  32. set mstr iif(mdiff==0, "", mdiff == 1, "1 minute", mdiff + " minutes")
  33. set hstr iif(hdiff==0, "", hdiff == 1, "1 hour", hdiff + " hours")
  34. set astr iif(mdiff!=0 && hdiff!=0, " and ", "")
  35. set fn iif(diff==0, "now", diff <0, "ago", "from now")
  36. set iw iif(diff<0, "was", "is")
  37. set aw iif(tod==tom, " as well.", ".")
  38. msg Today is %w, %d %m, %y.<P>
  39. msg The local time in Ottawa is [now].<P>
  40. msg Sunset today [iw] at [tod]; in other words, [hstr][astr][mstr] [fn].<P>
  41. msg Sunset tomorrow is at [tom][aw]<P>
  42. msg The daylight portion of tomorrow will be [slen] today.<P>
  43. msg </BODY>
  44.