例えば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