//    Instruction Example :      event.music.note.create (label)


        screen.resolution.set (512,384)

        music.play ("avo\music.xm")

        event.music.note.create (Event.Manager)

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

        keyboard.wait ()

        script.stop ()

        procedure Event.Manager ()
          %note=music.note.get ()
          if (%note != %note_bak)
            %pattern=music.pattern.get ()
            %index=music.position.get ()

              screen.mask (on)

                @scroll=screen.copy (20,10,60,180)
                picture.transparency.set (@scroll,off)
                picture.display (@scroll,20,00)

                screen.free (@scroll)

                text.display (str(%index)  ,20,180)
                text.display (str(%pattern),40,180)
                text.display (str(%note)   ,60,180)

              screen.mask (OFF)

            %note_bak=%note
          endif ()
        end procedure