! int ?

! Open and scale Graphics screen
gr.open 255,0,0,0 :pause 1000
gr.orientation -1
gr.color 255,255,0,0,1
gr.text.size 30
gr.text.bold 1

do
  do : gr.touch flag, tx, ty : until flag
     ! put code to time touch here - short tap or long touch
  do : gr.touch flag, tx, ty : until !flag
  xx=int(tx)

  print xx,      

  kk$ = str$(xx)
  gr.text.draw txt1, tx, ty, KK$
  gr.render       

until 0