・サンプリング周波数48KHzで、引数で与えた時間のあいだ録音を行う。
・指定時間後に録音が停止する。
・途中で録音を停止したい時はRECSTOPを用いる。
録音する秒数 0.1~60
RECSTART 5 BGMPLAY 3 WHILE RECCHK():WEND BGMSTOP DIM BUF[2,1] RECSAVE BUF WAIT 60 PCMSTREAM BUF,48000 INPUT A$
・サンプリング周波数48KHzで録音する(時間無制限)。
・バッファは5秒間分用意される。
・録音を停止するときはRECSTOPを用いる。
LENGTH=48000/3 DIM BUF[2,LENGTH] PCMSTREAM BUF,48000 PCMVOL 0,16384 PCMVOL 1,16384 RECSTART BGMPLAY 1 PPOS=0 WPOS=0 LOOP NPOS=RECPOS() IF PPOS!=NPOS THEN FOR I=PPOS to NPOS-1 RECDATA I OUT L,R BUF[0,WPOS]=L BUF[1,WPOS]=R WPOS=(WPOS+1) mod LENGTH NEXT PPOS=NPOS ENDIF ENDLOOP