:Disp "cranwell@yahoo.com"
:Lbl B:ClLCD:0üY
:Input "MIN?=?",M
:Input "SEC?=?",S
:Disp "ARROW START"
:M*60+SüQ
:Lbl A:Q+YüQ
:If Q==0:Y*ú1üY
:iPart (Q/3600)üH
:Q-3600HüP
:iPart (P/600)üA
:iPart (P/60)üB
:iPart (B/10)üM
:B-10MüM:P-60BüS
:iPart (S/10)üC
:S-10CüD
:Outpt(5,8,":")
:Outpt(5,11,":")
:Outpt(5,7,H)
:Outpt(5,9,A)
:Outpt(5,10,M)
:Outpt(5,12,C)
:Outpt(5,13,D)
:Outpt(8,8,q)
:For(I,1,q,1):End
:Outpt(5,8," ")
:Outpt(5,11," ")
:getKyüG
:If G==0:Goto A
:If G==105:Goto B
:If G==34:q+1üq
:If G==25:q-1üq
:If G==24:ú1üY
:If G==26:1üY
:Goto A

    Source: geocities.com/xulfrepus/ti85

               ( geocities.com/xulfrepus)