上と同じような物です。 上の物よりはすっきりしてるかも。 DEF TWO$(BIT,N) WHILE N!=0 N$=STR$(N MOD 2)+N$ N=N DIV 2 WEND RETURN FORMAT$("%0"+STR$(BIT)+"S",N$) END これをプログラムの一番上に入れれば ?TWO$(桁数,数字) これで2進数になります。 変換後に文字数が桁数より少ない場合は0を詰め込み、文字数が桁数を超える場合は無視されます。