帮忙见见这代码是什么语言

一个ivr简单的流程代码
#function PlayRoundSMS
#function main
#declare SR sCode
#declare SR Path
main
{
:stWait
 Connect(0) -> stAllocResource
 Connect -> stAllocResource
 
:stAllocResource           
 [ setvoxformat 8000,4]  
 [ ClearDTMF ]
 [ AllocMediaDevice 1 ]
 AllocResourceOK -> stSetMandarin
 AllocResourceFail -> stExit
     
:stSetMandarin
        [ EnableCall 0]
 [ SetLang 1 ]
 -> stBillBegin
      
:stBillBegin         
 [ BillBegin 1,0,$ServiceItemNo ]
 Verify(0) -> stWelcome
 Verify(-1) -> stExit
 
:stWelcome     
        [ ClearDTMF]
 [ SetDTMF "?"]
 [ PlayFile ".\vox\jytip01.vox"  ]   //播放欢迎词。
 StopPlayBack -> stStart
 DialTerminate -> stStart
 Failed->stExit
 Bargein ->stExit
            
:stStart     
        [ ClearDTMF]
 [ SetDTMF "?"]
 [ PlayFile ".\vox\jytip02.vox"  ]   //播放按键提示。按1进入每日一句按2进入经典对话按3进入慢速英语按4进入英文歌曲按5进入名人演讲按6进入英文交友按7进入人工咨询按8进入公司简介.
 StopPlayBack -> stChoose
 DialTerminate -> stChoose
 Failed->stExit
 Bargein ->stExit
  
:stChoose
 [ SETDTMF "?"]
 [ DIGIT 5 ]
 StopDigits('1') -> stKey1   //按1每日一句
 StopDigits('2') -> stKey2           //按2进入经典对话
 StopDigits('3') -> stKey3         //按3慢速英语
 StopDigits('4') -> stKey4         //按4英文歌曲
 StopDigits('5') -> stKey5         //按5名人演讲
 StopDigits('6') -> stKey6         //按6英文交友
 StopDigits('7') -> stKey7         //按7人工咨询
 StopDigits('8') -> stKey8         //按8公司简介
 StopDigits -> stStart  
 TimeOut -> stStart 
 Failed ->stExit
 Bargein ->stExit
:stKey1        //
        [ Assign Path,".\vox\1\"]
        [ Assign sCode,"1"]
        [ CallFunc &PlayRoundSMS ]     
        Returned(3)->stKey1
        Returned(4)->stKey2
        Returned(5)->stKey3
        Returned(6)->stKey4
        Returned(7)->stKey5
        Returned(8)->stKey6