ENVI^ ForceLocal=1
ENVI^ EnviMode=1
LOGS * X.log
ENVI^ ALIAS -opt Beep=CALL $--qd# --ret:* Kernel32.dll,Beep, //没内置了

//生日快乐歌的音符频率表，不同频率由不同的延时来决定
SET &SONG_TONE=212 212 190 212 159 169 212 212 190 212 142 159 212 212 106 126 159 169 190 119 119 126 159 142 159 0 

//生日快乐歌节拍表，节拍决定每个音符的演奏长短
SET &SONG_LONG=9 3 12 12 12 24 9 3 12 12 12 24 9 3 12 12 12 12 12 9 3 12 12 12 24 0 

_SUB PlayMusic
    TEAM  SET &I=1| SET &tone=1| SET &tm=1
    LOOP $1=1,
    {
        MSTR * tone=<%I%>%1
        MSTR * tm=<%&I%>%2
        IFEX $%tone%<1,  EXIT LOOP
        CALC #tone=400000 / %tone%  //延时转为频率 
        CALC #tm=%tm% * 20
        Beep *nul,%tone%,%tm%
        CALC #I=%I% + 1
    }
_END
PlayMusic SONG_TONE SONG_LONG
