Loading ...
Sorry, an error occurred while loading the content.

[NTB] Millennium Counter

Expand Messages
  • Len
    Hello All; I didn t receive a confermation on this message so here it is again. Here is a corrected copy of the millennium count-down counter I posted a while
    Message 1 of 1 , Jan 3, 1999
    View Source
    • 0 Attachment
      Hello All;

      I didn't receive a confermation on this message so
      here it is again.
      Here is a corrected copy of the millennium count-down
      counter I posted a while back. This seems to work OK.

      H="milcnt"

      ;---- Type xxx to exit. ----

      ^!If ^[m^] <> 2 Skip_2
      ^!Set %days%=28
      ^!GoTo finish

      ^!IfFalse ^$StrPos("^[mm^]";"04 06 09 11";False)$ Skip_2
      ^!Set %days%=30
      ^!Skip
      ^!Set %days%=31

      :finish
      ^!IfFalse ^$StrPos("xxx";"^$GetLine$";False)$ Next Else leave
      ^!SetScreenUpdate Off

      ;---- The following is one long line ----
      ^!StatusShow The parties peak in ^$[99-^$GetDate(y)$;0] years, ^$[12-^$GetDate(m)$;0] mons, ^$[^%days%-^$GetDate(d)$;0] days, ^$[23-^$GetDate(hh)$;0] hrs, ^$[59-^$GetDate(nn)$;0] mins, ^$[59-^$GetDate(ss)$;0] secs

      ^!SetScreenUpdate On
      ^!FocusDoc
      ^!Delay 9
      ^!GoTo finish

      :leave
      ^!Select -3
      ^!Toolbar Cut
      ^!GoTo ^?{Save Document==Yes^=Next|_No^=Skip}
      ^!Save
      ^!GoTo Exit

      Happy Holidays for one last day, Len
      Leonard O. Hargrove, Jr.
      Avionics Systems Engineer
      E-Mail: Len <mjlohj@...>

      ------------------------------------------------------------------------
      eGroup home: http://www.eGroups.com/list/notetab
      Free Web-based e-mail groups by eGroups.com
    Your message has been successfully submitted and would be delivered to recipients shortly.