XSCREEN 2:DISPLAY 1 CX=160:CY=120:R=50 GCIRCLE CX,CY,R REPEAT:WAIT TOUCH OUT TM,TX,TY IF TM<1 THEN CONTINUE LX=TX-CX:LY=TY-CY IF SQR(LX*LX+LY*LY)<=R THEN ?"処理" ELSE ? UNTIL 0