//    Instruction Example :      event.sound.stream.free (objectid)


        screen.resolution.set (512,384)

        @shoot=sound.stream.play ("avo\sound.wav",CHANNEL_1)
        event.sound.stream.create (@shoot,event.manager)

        text.display ("Press a key to free.",CENTER,20)

        keyboard.wait()

        event.sound.stream.free (@shoot)

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

        keyboard.wait()

        script.stop()

        procedure event.manager (@ObjectID,$text)
          text.display ("Synchro #"+str(%i+1),0,%i*10)
          %i+=1
        end procedure