例えば4bitずつ処理すると速いよ。見た目はよくないけど。
dim b4$[16]
@bin
data "0000","0001","0010","0011","0100","0101","0110","0111","1000","1001","1010","1011","1100","1101","1110","1111"
copy b4$,@bin
def bin32$(x%)
return b4$[(x%>>28) and 15] + b4$[(x%>>24) and 15] + b4$[(x% >>20) and 15] + b4$[(x%>>16) and 15] + b4$[(x%>>12) and 15] + b4$[(x%>>8) and 15] + b4$[(x%>>4) and 15] + b4$[x% and 15]
end