;--------------------------------------
;	bin p1,p2		[マスの表示]
;
;	p1 ： 数値
;	p2=1〜(8) ： 桁数
;	
;	refstrにp1の値を二進数にした文字列を返します
;	p2を省略、マイナスにした場合は、８桁になります。
;--------------------------------------
#module
#deffunc bin int,int
	mref data,0
	mref keta,1
	mref ref,65
	s=""
	if keta<=0 : keta=8
	repeat keta
		s+="0"
	loop
	repeat keta
		kari=0
		kari=data\2
		if kari=1 : poke s,keta-cnt-1,'1'
		if kari=0 : poke s,keta-cnt-1,'0'
		data=data-kari/2
		if data<=0 : break
	loop
	ref=s
return
#global

;--------------------------------------
;	ここから、サンプルプログラム
;	実際に使うときは削除してください
;-------------------------------------
	repeat 20
		bin cnt,5
		mes ""+cnt+"="+refstr
	loop
	stop