;左ビットシフト a=5 mes "a="+a repeat 6,1 b=a<<cnt mes "a*(2の"+cnt+"乗)="+b loop stop |
;不等号などの計算 a=5 mes "a="+a b=a>0 : mes "a>0="+b b=a>=0 : mes "(a>=0)="+b b=a<0 : mes "a<0="+b b=a<=0 : mes "(a<=0)="+b pos 0,100 ;値がマイナスなら0にする repeat 5,-2 a=(cnt>0)*cnt mes "a="+a loop pos 0,200 ;値がマイナスなら0にする repeat 5,-2 if cnt<0 : a=0 : else : a=cnt mes "a="+a loop stop |
p=0b1010 mes "初期状態" : gosub *check ;属性追加 p=p|0b0100 mes "属性追加後" : gosub *check ;属性解除 p=p&0b1011 mes "属性解除後" : gosub *check stop *check if p&0b0001 : mes "火の属性" if p&0b0010 : mes "水の属性" if p&0b0100 : mes "風の属性" if p&0b1000 : mes "地の属性" mes "\n " return |