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


        screen.resolution.set (512,384)

        sound.play ("Error.wav",CHANNEL_1,SOUND_LOOP)

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

        do ()
          for (%i=255 to 0 step -1)
          exit ()
            sound.volume.set (CHANNEL_1,%i)
            text.display (" Volume = "+str(sound.volume.get(CHANNEL_1))+" ",CENTER,CENTER)
            time.wait (0.01)
          next ()

          for (%i=0 to 255 step 1)
          exit ()
            sound.volume.set (CHANNEL_1,%i)
            text.display (" Volume = "+str(sound.volume.get(CHANNEL_1))+" ",CENTER,CENTER)
            time.wait (0.01)
          next ()
        loop ()

        procedure exit ()
          if (keyboard.get ())
            script.stop ()
          endif()
        end procedure