//    Instruction Example :      event.music.note.free ()


        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==30)
            event.music.note.free ()
          else ()
            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 ()
          endif ()
        end procedure