HSPTV!掲示板

こんにちは、息子です。
button　が、不可の状態で、
inputで、何か１文字でも入れたときに
不可の状態が、解除されるプログラムを教えてください。
ifで、色々やってみたのですが、うまくできませんでした。

a=""
input a
button "OK", *change
*c
if a="" :gosub *change
stop
*change
objenable 1, check
if a="a" :check ^= 1 :goto *c

こんな感じでしょうか

#define	TRUE	1				// 真
#define	FALSE	0				// 偽

	a = "";
	input a;
	button "OK", *change;
	btn_id = stat;

	objenable btn_id, FALSE;	// ボタン無効
*c
	wait 10;
	if( a != "" ) {
		goto *change;
	}

	goto *c;

*change
	objenable btn_id, TRUE;		// ボタン有効
	goto *c;

うまくいきました!
ありがとうございました。

ループさせるよりonkeyで調べた方が効率が良いのでは？

onkey gosub *key
sdim a:input a
button "botan",*botan
hBut=stat
objenable hBut,0
stop

*key
await
if a!="":objenable hBut,1
return

*botan
stop

> ループさせるよりonkeyで調べた方が効率が良いのでは？
uさんのおっしゃる通りですね
失礼しました

いくつもやり方が、あるんですね。
色々とありがとうございました。