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

2022Re: [NTO] Re: RE: Real-time calculator

Expand Messages
  • Carl Swann
    Mar 28, 2001
    • 0 Attachment
      Ray's clip-based real-time calculator is shown below, and it's neat!
      Thanks, Ray.

      FWIW, I ran across a small program (freeware) called AddTime,
      available as one of 22 free little programs in a zipped file called
      ToolsPackage from this site:

      http://www.freewarehits.de

      The program itself is downloadable from:
      http://www.freewarehits.de/OwnSoft/AddTime.zip

      "Fitzgerald, Raymond" wrote:
      >
      > Hi Carl,
      >
      > Here's a second version that requires minutes and seconds to be less than
      > 60, if that's part of your input routine:
      >
      > H="Running times for Carl"
      > ; 031901 rayfitz; rev 032201 to edit for < 60sec/min
      > ^!SetWizardTitle "Press the Esc key or click Cancel to exit..."
      > ^!Set %hrT%=00; %minT%=00; %secT%=00
      > :LOOP
      > ^!SetWizardLabel "Your running times: ^%hrT%:^%minT%:^%secT%"
      > ; long line follows
      > :ERRLOOP
      > ^!Set %hr%=^?{(M="9;0;*")Enter hours}; %min%=^?{(M="99;0;*")Enter minutes};
      > %sec%=^?{(M="99;0;*")Enter seconds}
      > ^!IfCancel Total
      > ^!IfFalse ^%sec% Min
      > ^!If ^%sec% < 60 Skip_2
      > ^!SetWizardLabel "(^%hrT%:^%minT%:^%secT%) Enter 59 seconds or less!"
      > ^!Goto ErrLoop
      > ^!Inc %secT% ^%sec%
      > ^!If ^%secT% < 60 Min
      > ^!Dec %secT% 60
      > ^!Inc %minT%
      > :MIN
      > ^!IfFalse ^%min% Hr
      > ^!If ^%min% < 60 Skip_2
      > ^!SetWizardLabel "(^%hrT%:^%minT%:^%secT%) Enter 59 minutes or less!"
      > ^!Goto ErrLoop
      > ^!Inc %minT% ^%min%
      > ^!If ^%minT% < 60 Hr
      > ^!Dec %minT% 60
      > ^!Inc %hrT%
      > :HR
      > ^!IfFalse ^%hr% Skip
      > ^!Inc %hrT% ^%hr%
      > ^!Goto Loop
      > :TOTAL
      > ^!IfFalse ^$Calc(^%hrT%+^%minT%+^%secT%)$ End
      > ^!SetWizardTitle ""
      > ^!Info Final total: ^%hrT%:^%minT%:^%secT%
      >
      > Cheers,
      > Ray
      >
      >
      >
      >
      > Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

      --
      ==============================================================

      ||||| Carl Swann, Kingsport TN
      (o o) "Starting slow, and coasting downhill from there"
      oOOo-(_)-oOOo