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