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