//    Instruction Example :     objectid track.event.create ()


        screen.resolution.set (512,384)

        @sprite=sprite.load ("avo\dinosaur.spr")

        @clip=clip.timeline.create (INTERNAL_TIMER)
          @event=track.event.create ()
            track.key.set (0)
            track.key.event.call (event)
            track.key.set (1)
            track.key.event.call (event)
            track.key.set (2)
            track.key.event.call (event)
            track.key.set (3)
            track.key.event.call (event)
            track.key.set (4)
            track.key.event.call (event)
          track.end ()
        clip.timeline.end ()

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

        keyboard.wait ()

        clip.play (@clip)

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

        keyboard.wait ()

        script.stop ()

        procedure event (@sequence,%object,%custom)
          %pos+=10
          text.color.select (number.random.get(50,255),number.random.get(50,255),number.random.get(50,255))
          text.display ("event #"+str(%pos/10),CENTER,%pos)
        end procedure