BGMPLAY "CDEFGAB" 'MMLを再生 REPEAT:WAIT:UNTIL BGMCHK(0)==0 'トラック0が鳴り終わるまで繰り返し待つ