//    Instruction Example :      picture.layer.set (objectid,long)


        screen.resolution.set (512,384)

        @picture=picture.load ("avo\fruit.jpg")
        picture.persistence.set (@picture,ON)

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

        for (%i=1 to 10)
          @picture [%i]=picture.clone (@picture)
          picture.layer.set (@picture [%i],%i)
          picture.display (@picture[%i],%i*40,%i*20)
        next ()

        screen.mask (on)

        repeat ()

          for (%i=1 to 10)
            picture.layer.set (@picture[%i],%i)
            text.display (" "+str(picture.layer.get(@picture[%i]))+" ",0,%i*30+10)
          next ()

          screen.display ()

          keyboard.wait ()

          for (%i=1 to 10)
            picture.layer.set (@picture[%i],11-%i)
            text.display (" "+str(picture.layer.get(@picture[%i]))+" ",0,%i*30+10)
          next ()

          screen.display ()

          keyboard.wait ()
        until (keyboard.get ()==KEY_ESCAPE)


        script.stop ()