History of Timer Script
Webb - all rights reserved - ©2004
spacer


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/;