![]() |
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/; |