TFT.INIT 0
TFT.FILL TFT.COLOR(black)

valorX = 110
valorY = 150
lastX = 110
lastY = 150
TFT.TEXT.SIZE 2
TFT.TEXT.COLOR TFT.COLOR(white), TFT.COLOR(black)

while 1 
  if lastX <> valorX or lastY <> valorY then
    TFT.CIRCLE lastX, lastY, 10, TFT.COLOR(black), 1
    lastX = valorX
    lastY = valorY
  end if
  if ADC(34) > 4000 and valorY > 12 then
    valorY = valorY - 3
  end if
  if ADC(34) < 1000 and valorY < 282 then
    valorY = valorY + 3
  end if
  if ADC(35) > 4000 and valorX > 11 then
    valorX = valorX - 3
  end if
  if ADC(35) < 1000 and valorX < 227 then
    valorX = valorX + 3
  end if

  TFT.CIRCLE valorX, valorY, 10, TFT.COLOR(green), 1
  TFT.RECT 0, 300, 240, 50, TFT.COLOR(black), 1
  TFT.TEXT.DRAW "X: " + str$(valorX) + "  Y: " + str$(valorY), 40, 300

  PAUSE 100
wend

end