数値を2進数(文字列)に変換するモジュール

#module
#defcfunc tobit int num
	s=""
	repeat 32
		s = str((num & 1<<cnt)!0) + s
	loop
	return s
#global

ss=""
mesbox ss, ginfo_winx, ginfo_winy
objid = stat

s=""
s += tobit( 2 ) + "\n"
s += tobit( 3 ) + "\n"
s += tobit( 5 ) + "\n"
s += tobit( 7 ) + "\n"
s += tobit( 11 ) + "\n"
s += tobit( 13 ) + "\n"
s += tobit( 17 ) + "\n"
s += tobit( 19 ) + "\n"
s += tobit( 23 ) + "\n"
s += tobit( 29 ) + "\n"
s += tobit( 31 ) + "\n"
s += tobit( 37 ) + "\n"
s += tobit( 41 ) + "\n"
s += tobit( 43 ) + "\n"
s += tobit( 47 ) + "\n"
s += tobit( 53 ) + "\n"
s += tobit( 59 ) + "\n"
s += tobit( 61 ) + "\n"

objprm objid, s