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


        screen.resolution.set (512,384)

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

        event.music.create (Event.Manager)

        screen.set (FRONT)
          text.display ("Press a key to exit.",CENTER,350)
        screen.end ()

        keyboard.wait ()

        script.stop ()

        procedure Event.Manager ()
          %position_x = number.random.get (0,256)
          %position_y = number.random.get (0,192)
          %width      = number.random.get (2,512-128)
          %height     = number.random.get (2,384-96)

          box.color.select (number.random.get (0,255),number.random.get (0,255),number.random.get (0,255))
          box.fill.select (VECTOR_SOLID)
          box.display (%position_x,%position_y,%width,%height)

          box.color.select (number.random.get (0,255),number.random.get (0,255),number.random.get (0,255))
          box.thickness.select (number.random.get (1,10))
          box.fill.select (VECTOR_WIRE)
          box.display (%position_x,%position_y,%width,%height)
        end procedure