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


        screen.resolution.set (512,384)

        @track=track.create ()
          track.key.set (1)
            track.key.event.call (test,1,2)
        track.end ()

        @sequence=sequence.play (@track)

        keyboard.wait ()

        script.stop ()

        procedure test (@event,%custom1,%custom2)
          text.display (str(%custom1+%custom2),CENTER,CENTER)
          text.display ("Press a ESCAPE to exit.",CENTER,350)
        end procedure