;--------------------------------------
;	num_getkey p1		[数字入力チェック]
;
;	p1=配列変数：読み込むための配列変数（要素は10個）
;
;	押されているものは１、押されていないものは０が返る
;	どれも押されていなければstatに-1が返る
;
;	テンキー、もキーボードの数字も関係なく押されたことの確認ができる
;--------------------------------------
#module
#deffunc num_getkey val
	mref num,48
	mref st,64

	;配列数のチェック
	mref pval,1024
	if pval.2!=10 : dialog "配列の数が違います",1,"ERROR" : return

	i=0
	repeat 10*10,0
		getkey a,cnt\10+48
		if a==1 : num.i=1 : else : num.i=0
		if i==9 : i=0 : else i++
	loop
	i=0
	repeat 10*10,0
		getkey a,cnt\10+96
		if a==1 : num.i=1
		if i==9 : i=0 : else i++
	loop
	kari=0
	repeat 10,0
		kari=kari+num.cnt
	loop
	st=0
	if kari=0 : st=-1
	return
#global

;--------------------------------------
;	ここから、サンプルプログラム
;	実際に使うときは削除してください
;--------------------------------------

dim check,10
repeat
	num_getkey check
	if stat!=-1 : break
	wait 1
loop
repeat 10,0
	mes ""+cnt+"="+check.cnt
loop
stop