@L TOUCH OUT T,X,Y IF T==0 THEN @L LOCATE 0,0:?X,Y, GOTO @L こんな感じで使ってみて下さい。