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


        screen.resolution.set (512,384)

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

        text.display ("Press a key to exit.",CENTER,350)
        %i=0
        repeat ()
          sound.play (@sound,CHANNEL_1,SOUND_ONE_SHOT)
          sound.pan.set (CHANNEL_1,%i)
          switch (sound.pan.get (CHANNEL_1))
            case (==SOUND_PAN_MIDDLE,128)
              $pan="SOUND_PAN_MIDDLE"
            case (==SOUND_PAN_RIGHT)
              $pan="SOUND_PAN_RIGHT"
            case (==SOUND_PAN_LEFT)
              $pan="SOUND_PAN_LEFT"
            case else ()
              $pan=str(%i)
          end switch ()
          text.display ("The current pan of the sound is : " +$pan+"                   ",CENTER,10)
          time.wait (0.5)
          %i+=16
          if (%i>255)
            %i=0
          endif ()
        until (keyboard.get ())

        script.stop ()