DEF BIN$(B%) VAR B$="" WHILE B% B$=A$+STR$(1ANDB%) B%=B%>>1 WEND RETURN B$ END DEF化 ソース拝借、動作無保証（ダメじゃん）