#module
#deffunc valchk val

	;	valchk 変数
	;
	;	で、変数についての情報を表示する。
	;
	mref _p1,1024
	;
	flag=_p1.0 & $ffff
	mode=_p1.1 >>16
	len1=_p1.2*4
	len2=_p1.3*4
	len3=_p1.4*4
	len4=_p1.5*4
	if flag=2 : fname="文字列" : else : fname="数値"
	;
	sdim msg,256
	msg = "変数情報\n"
	msg+= "flag="+flag+"["+fname+"]\n"
	msg+= "mode="+mode+"\n"
	msg+= "配列size.1="+len1+"\n"
	msg+= "配列size.2="+len2+"\n"
	msg+= "配列size.3="+len3+"\n"
	msg+= "配列size.4="+len4+"\n"
	;
	dialog msg
	return
#global

	;	valchkモジュール呼び出しメイン
	;
	a="TEST"
	valchk a
	;
	dim a,16,32
	valchk a

	stop