oops here is the code again
h=0
m=0
s=0
ms=0
ts=0
do
if return+key()+=1
ts=ts+999
if ts>1000
ms=ms+99
ts=0
cls
if ms>100
s=s+1
ms=0
cls
if s>60
m=m+1
s=0
cls
if m>60
h=h+1
m=0
cls
endif
endif
endif
endif
endif
if inkey$()="r"
ts=0
ms=0
s=0
m=0
h=0
endif
print "press (and hold) ENTER to take the time"
print "press R to reset the timer"
set cursor 320,240 : print "Hours: ",h
set cursor 320,260 : print "Minutes: ",m
set cursor 320,280 : print "Secounds: ",s
set cursor 320,300 : print "MilliSec.: ",ms
set cursor 320,320 : print "NaniSec.: ",ts
sync:loop