スクリーンがタッチされたのを検出する関数が見当たらないと思ったら、自動的にシステム変数に入るらしい。*1
こんな感じで押された位置と押され続けた時間が分かる
LX=0:LY=0
PRESSED=FALSE
@LOOP
IF TCHST==TRUE THEN GOSUB @TDOWN
IF TCHST==FALSE THEN GOSUB @TUP
GOTO @LOOP
'
@TDOWN
PTIME=TCHTIME
IF PRESSED==TRUE THEN GOSUB @MOVE
IF PRESSED==FALSE THEN GOSUB @PRESS
LX=TCHX:LY=TCHY
RETURN
'
@PRESS
IF PRESSED==FALSE THEN PRINT "X,Y=";TCHX;",";TCHY
PRESSED=TRUE
RETURN
'
@MOVE
IF LX!=TCHX OR LY!=TCHY THEN PRINT "X,Y=";TCHX;",";TCHY
RETURN
'
@TUP
IF PRESSED==TRUE THEN PRINT "PRESSED TIME= ";PTIME;" FRAMES"
PRESSED=FALSE
RETURN
