modified by Russ Webb on 2004-04-22 21:12:25
Author - Russ Webb
Email: rwebb@nthlab.com
Webpage:
Summary: Script for timing things and getting the time/date.
Instructions:
Code:
RPN.2.b \Timer
[h]#'100';
[d]#'12';
[s]#'60';
[n]Vv0<(#'86400'v+:v);
[S]TsTmCs*ThCsCs**++;
"Timer"
"Hour.Min"ThVvCd>(vCd-:v)Ch*Tm+Ch/;
~
"Month.Day"TMCh*TD+Ch/;
~
"Go: start/reset timer"TtXa CSXb;
"m.s: elapse time in min sec"
CSxb-CnV v#'0.5'+Cs/w vCs%Ch/+;
"s.100: elapse time in \sec.100ths" Ttxa-Ch/;