option explicit
 option default none
 
 const Tperiod=1   ' timer period in ms 1 to 20
 const MaxCutoff=99-(Tperiod+1) ' increase for slow dev/code in DoChange section.

 dim float Tval
 dim integer x,y,linesp,colsp,DoChange,T100,Sval
 
 mode 1 : font 1 : colsp=60 : linesp=16 : x=10 : y=10
 Const VertLimit=MM.VRES-Linesp  
 Const HorzLimit=MM.HRES-colsp  

 SetTick Tperiod,T1_INT(),1 : timer=0 : cls
 
Sub T1_INT()
 T100=T100+Tperiod
 if T100>=100 then
   Tval=timer : T100=0
   Printline(str$(Tval,2))
   timer=0
 endif
End Sub
 
 Do
   if DoChange and T100 =< MaxCutoff then
     Sval=T100
     colour RGB(red),RGB(black)
     DoChange=0 : PrintLine("S "+str$(Sval,2))
     colour RGB(white),RGB(black)
   endif

   Select case ucase$(INKEY$)
     Case "S"
       DoChange=1
     Case "Q"
       end
     Case "C"
       cls : end
   End Select
 Loop
 
Sub PrintLine(ThisLine as string)
 y=y+linesp
 if y > VertLimit then
   y=10 : x=x+colsp
   if x > HorzLimit then
     x=10 : y=10 : cls
   endif
 endif
 Text x,y,ThisLine
End sub
end