WAVSETA 224,127,127,127,127,LOADWAV("TEST.WAV"),91
BGMPLAY"@224O4A1"
DEF LOADWAV(FNAME)
DIM W%[0]
LOAD"DAT:"+FNAME$,W%,0
REPEAT:UNTIL SHIFT(W%)==&H61746164
VAR S%=(SHIFT(W%)+3)>>2
IF S%>4096 THEN S%=4096
DIM E%[S%*4],I%,J%:DEC S%
FOR I%=0 TO S%:J%=I%*4
RGBREAD W%[I%]OUT E%[J%+3],E%[J%+2],E%[J%+1],E%[J%]
NEXT
RETURN E%
END
高度サウンドユニット無くても、これで2.048秒だけWAVファイルを再生できる。
WAVファイルは 8ビット 1チャンネル でなければならない。
周波数は8000Hzがお勧め。
周波数を変更する場合は91って所で音程を調節するんだ