つれない回答かとも思ったので、ちょっとした例。
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 'チェック利用
みたいなのも一つの手。
0そうだね プレイ済み