11/12/01 12:15:23.09 GRaVA5bs0
ビットテストしたくて下みたいに書いたんだけど、もっとシンプルで実行速度が速そうなの組みたいんだけど
どうしたらいいんだろうか？
Procedure bittest(test)
for i=0 to 3
test2=test and power(2,i)
select true
case test2=8
print test2
case test2=4
print test2
case test2=2
print test2
case test2=1
print test2
selend
next
fend