PROC geteva: local t%,j&,t& local m%,s%,e&,o&,s&,tint& local restart% local tcb%,tstat% local cstat%,k%(2) ioopen(tcb%,"TIM:",-1) ioa(-2,14,cstat%,k%(1),#0) tstat%=-46 while 1 iowait if tstat%<>-46 call($078b,0,10,0,$41c,addr(t%)) tint&=10-((t% and $1f)*10)/32 ioa(tcb%,1,tstat%,tint&,#0) if restart% restart%=0 s&=t& endif e&=o&+t&-s& m%=e&/60 s%=e&-m%*60 at 30,9 if m%<10 print " "; endif print m%;":"; if s%<10 print "0"; endif print s%; else if k%(1)=$402 or k%(1)=$403 o&=e& iow(tcb%,4,#0,#0) :rem cancel timer iowaitstat tstat% tstat%=-46 endif if k%(1)=$401 or k%(1)=$403 restart%=1 tstat%=0 iosignal elseif k%(1)>=%a and k%(1)<=%z at 1,1 print "Received key",chr$(k%(1)) endif ioa(-2,14,cstat%,k%(1),#0) endif endwh ENDP