sample\hsp3dish\mtouch.hsp » Plain Format
#include "hsp3dish.as"
title "Dish Test"
repeat
stick key,15
if key&128 : end
redraw 0
gmode 0
color 0,0,128
boxf
color 255,255,255
pos 0,0:mes "("+mousex+","+mousey+")"
y=16
mtlist touchid
num=stat
repeat num
id = touchid(cnt)
mtinfo touch,id
mes "T:"+id+"("+touch(1)+","+touch(2)+") "+touch(3)
y+=10
loop
redraw 1
await 1000/60
loop
stop