dim ScreenPos as string 'Variable for screen display
dim xPos, yPos, WritePos as integer 'Screen position variables
setpin 15, intl, TouchInt 'Set the screen interrupt

cls 'clear whatever was on the screen
text mm.hres/2, mm.vres/2, "Touch me!", CM, ,2 'Ooh yeah, touch me Baby!
do:loop 'Yadda, yadda...

sub TouchInt ' Here's the interrupt entry
xPos = touch(x) 'Get the X touch position
yPos = touch(y) 'Get the Y touch position
if xPos = -1 or yPos = -1 then goto AllDone 'Is there an error in the X/Y read? Finish up
ScreenPos = "Touched @ " + str$(xPos) + " " + str$(yPos) 'All good, so assemble the message to put on the screen
cls 'Clear the last message from the screen
line xPos-20,yPos,xPos+20,yPos,1,RGB(green) 'Draw part 1 of target line
line xPos,yPos-20,xPos,yPos+20,1,RGB(green) 'Draw part 2 of target line
circle xPos,yPos,10,1,,RGB(green) 'Draw circle of target
select case yPos 'Determine where to write the text
case < (mm.vres/2) 'Touched in the upper half?
WritePos = (mm.vres/4)* 3 'Write the text below the center line
case else 'otherwise
WritePos = mm.vres/4 'write it above the center line
end select
text mm.hres/2, WritePos, ScreenPos, CM, ,1 'Show a touch occured and where it happened
AllDone: 'Finish up
end sub