//    Instruction Example :      track.key.frame.event.call (long,long,label)


        screen.resolution.set (512,384)

        screen.set (BACK)
          pattern.display ("avo\bubble.gif")
        screen.end ()

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

        @track=track.create (TRACK_LOOP)
          track.key.frame.event.call (1,1,event1)
          track.key.frame.event.call (1,2,event2)
          track.key.frame.event.call (1,3,event3)
          track.key.frame.event.call (1,4,event4)
          track.key.frame.event.call (1,5,event5)
          track.key.frame.event.call (1,6,event6)
        track.end ()

        @sequence=sequence.play (@track,@sprite,TRACK_KEEPALL)

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

        keyboard.wait ()

        script.stop ()

        procedure event1 ()
          text.display ("Frame #1",10,10)
        end procedure

        procedure event2 ()
          text.display ("Frame #2",10,10)
        end procedure

        procedure event3 ()
          text.display ("Frame #3",10,10)
        end procedure

        procedure event4 ()
          text.display ("Frame #4",10,10)
        end procedure

        procedure event5 ()
          text.display ("Frame #5",10,10)
        end procedure

        procedure event6 ()
          text.display ("Frame #6",10,10)
        end procedure