//    Instruction Example :      sound.frequency.set (objectid,long)


        screen.resolution.set (512,384)

        @sound = sound.load ("error.wav")

        text.display ("Press a key to exit.",CENTER,350)

        repeat ()
          %freq+=1000
          sound.play (@sound,CHANNEL_1)
          sound.frequency.set (CHANNEL_1,%freq)
          text.display ("The current frequency of the sound is : " +STR (sound.frequency.get (CHANNEL_1)),CENTER,10)
          time.wait (0.1)
        until (keyboard.get ())

        script.stop ()