% scriptbeep program
%   Programmed by Gerox 1999.Sep.10
%   for Windows95/98 
%
function scriptbeep(beep)
data=inp('0x61');
bitdata= rem(floor(data*pow2(0:-1:-7)),2);%2進数に変換する。
if(beep == 1) bitdata(1:2)=1;%下位ビット2ビットのみをオンにする。
else bitdata(1:2)=0;%下位ビット2ビットのみをオフにする。
end
data= sum(bitdata.*pow2(0:7));%もう一度10進数に変換する。
outp('0x61',data);