//    Instruction Example :     objectid event.object.create (label,objectid,long,long)


        screen.resolution.set (512,384)

        screen.set (BACK)
          pattern.display ("avo\bubble.gif")
        screen.end ()

        screen.set (MID)
          @dino=icon.load ("avo\dinosaur.png")
          icon.display (@dino,CENTER,CENTER)
          icon.persistence.set (@dino,TRUE)
          event.object.create (event.manager,@dino,PRESS_LEFT_BUTTON,%custom)
        screen.end ()

        screen.set (FRONT)
          mouse.display ("avo\shoot.csr",CENTER,CENTER)
        screen.end ()

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

        keyboard.wait ()

        script.stop ()

        procedure event.manager (@event,%status,%custom)
          icon.display (@dino,icon.position.x.get(@dino)+2,icon.position.y.get(@dino)+2)
          time.wait (0.2)
          icon.display (@dino,CENTER,CENTER)
        end procedure