負数対応版 IF B%<0 THEN B%=B% AND &H7FFFFFFF WHILE B% B$=STR$(B% AND 1)+B$ B%=B% >> 1 WEND B$="1"+RIGHT$("0"*31+B$,31) ELSE （前述のやつ） ENDIF 実装するの結構面倒くさいですね。