;--------------------------------------
;	num_get		[数字入力チェック]
;
;	押された数字（０〜９）がstatに返る
;	どれも押されていなければstatに-1が返る
;
;	テンキー、もキーボードの数字も関係なく確認ができる
;--------------------------------------
stick
#module
#deffunc num_get
	mref st,64		;stat
	st=-1
	i=0
	repeat 10*10,0
		getkey a,cnt\10+48
		if a==1 : st=cnt\10
		if i==9 : i=0 : else i++
	loop
	i=0
	repeat 10*10,0
		getkey a,cnt\10+96
		if a==1 : st=cnt\10
		if i==9 : i=0 : else i++
	loop
	return
#global

;--------------------------------------
;	ここから、サンプルプログラム
;	実際に使うときは削除してください
;--------------------------------------
repeat
	num_get
	if stat!=-1 : break
	wait 1
loop
mes stat
stop