Xの座標も規則性があるんでそれを利用して IF TY<=127 && TY>=145 THEN FOR POS=0 TO 9 IF TX>=POS*30+9 && TX<=POS*30+27 THEN BEEP 9:STRING$=STRING$+MID$("123456789",POS,1)'右端が見えないんで他に処理があるんだったらこの後に続けて記述 NEXT ENDIF とまとめる事もできますね。