//    Instruction Example :     long music.pattern.get ()


        screen.resolution.set (512,384)

        @music = music.load ("avo\music.xm")

        music.play (@music)
        text.display ("The pattern of the music is green.",CENTER,10)
        text.display ("Press a key to exit.",CENTER,350)
        repeat ()
          Pattern.Display ()
        until (keyboard.get ())

        script.stop ()

        procedure Pattern.Display ()
          %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 ("{255,0,0}"+STR (%index)  ,20,180)
                text.display ("{0,255,0}"+STR(%pattern),40,180)
                text.display ("{0,0,255}"+STR(%note)   ,60,180)
              screen.mask (OFF)
            %note_bak=%note
          endif ()
        end procedure