うむむ。もし、10進数nを二進数にしたら、どのビットが立っているかを調べたいのであったなら、こんな感じのリストになります。
やっぱり、ビットシフトを使って、何番目のビットが立っているかを調べる。
;10進数nを二進数にしたら、どのビットが立っているかを調べるプログラム
n=123 ;調べたい値
#define TOTALBITS 16 ;総ビット数(1〜31)
dim BITLIST,TOTALBITS ;BITLIST(TOTALBITS〜0)に、結果が入る
i=0x1
repeat TOTALBITS
if (n&(i<<cnt))!0:BITLIST(cnt)=1
loop
;結果表示
repeat TOTALBITS
mes str(cnt+1)+":"+str(BITLIST(cnt))
loop