つれない回答かとも思ったので、ちょっとした例。
DIM BTX[0],BTY[0],BTW[0]
DEF PUTBTN X,Y,T$
LOCATE X,Y:?"["+T$+"]";
PUSH BTX,X:PUSH BTY,Y:PUSH BTW,2+LEN(T$)
END
DEF CHKBTN X,Y
FOR I=0 TO LEN(BTX)-1
IF X>=BTX[i] && X < BTX[i]+BTW[i] && Y==BTY[i] THEN RETURN I
RETRN -1
END
PUTBTN 10,5,"ボタン1" '配置
IF CHKBTN(12,5) THEN BEEP 0 'チェック利用
みたいなのも一つの手。
>でんぺんさん
その方法だとNEXTが無いためエラーになってしまいますよ。
戻り値を利用するなら関数にする必要がありますね。
DEF CHKBTN(X,Y)
BTN=FALSE
IF LEN(BTX)<1 THEN RETURN FALSE
FOR I=0 TO LEN(BTX)-1
IF X>=BTX[i] && X < BTX[i]+BTW[i] && Y==BTY[i] THEN BTN=I:BREAK
NEXT
RETURN BTN
END
これでどうでしょうか？
