新しく発言する EXIT インデックスへ

WAV逆再生化

　　WAV逆再生化 しばっち 2008/02/20 20:11:09  (修正2回)
　　├続き しばっち 2008/02/20 20:11:59  (修正2回)
　　├WAV2CSV しばっち 2008/03/02 22:13:11 
　　│└続き しばっち 2008/03/02 22:14:07 
　　└CSV2WAV しばっち 2008/03/02 22:15:44 
　　　└続き しばっち 2008/03/02 22:16:32
Re: CSV2WAV 返事を書く ノートメニュー
しばっち <dihjvcfsyu> 2008/03/02 22:16:32
続き

EXTERNAL FUNCTION MKI$(X)
OPTION CHARACTER BYTE
DECLARE STRING A$,B$
LET A=INT(X)
IF A<0 THEN LET A=A+65536
LET A$=CHR$(MOD(A,256))
LET B$=CHR$(INT(A/256))
LET MKI$=A$ & B$
END FUNCTION

EXTERNAL FUNCTION MKL$(X)
OPTION CHARACTER BYTE
DECLARE STRING A$,B$,C$,D$
LET A=INT(X)
IF A<0 THEN LET A=A+2^32
LET A$=CHR$(MOD(A,256))
LET B$=CHR$(MOD(INT(A/256),256))
LET C$=CHR$(MOD(INT(A/65536),256))
LET D$=CHR$(MOD(INT(A/16777216),256))
LET MKL$=A$ & B$ & C$ & D$
END FUNCTION

EXTERNAL FUNCTION ISNUMBER(A$)
WHEN EXCEPTION IN
LET X=VAL(A$)
LET ISNUMBER=-1
USE
LET ISNUMBER=0
END WHEN
END FUNCTION

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。