: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