Hub の内蔵スピーカーを鳴らす

Hub の裏にスピーカーがついている。
 

 
Revised:

Define sound()=
Prgm
:Local scale,i
:scale:={294,294,330,330,349,349,392,440}
:
:For i,1,4
:   Send "SET SOUND 110 TIME 0.2"
:   Wait 0.8
:EndFor
:
:While getKey()≠"esc"
:   For i,1,dim(scale)
:      Send "SET SOUND eval(scale[i]) TIME 0.2"
:      Wait 0.2
:   EndFor
:EndWhile
:EndPrgm