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


        screen.resolution.set (512,384)

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

        @picture = picture.load ("avo\fruit.jpg")
        picture.display (@picture,CENTER,CENTER)

        screen.set (FRONT)
          text.display ("Press a key to set the persistence of the picture.",CENTER,10)
          text.color.stack (COLOR_RED)
          text.display ("Press ESCAPE to exit.",CENTER,350)
        screen.end ()

        repeat ()

          !angle+=1.5
          picture.position.set (@picture,100+80*number.sin.get (!angle),100+80*number.cos.get (!angle))

          if (keyboard.get ())
          keyboard.set (OFF)

            %i+=1
            switch (%i mod 3)
              case (0)
                picture.persistence.set (@picture,OFF)
              case (1)
                picture.persistence.set (@picture,ON)
              case (2)
                picture.persistence.set (@picture,PERSISTENCE_TRAILS)
            end switch ()

            screen.set (FRONT)
              switch (picture.persistence.get (@picture))
                case (OFF)
                  text.display ("The persistence of the picture is : OFF   ",CENTER,30)
                case (ON)
                  text.display ("The persistence of the picture is : ON    ",CENTER,30)
                case (PERSISTENCE_TRAILS)
                  text.display ("The persistence of the picture is : TRAILS",CENTER,30)
              end switch ()
            screen.end ()

          endif ()

          time.wait (0.005)

        until (keyboard.get ()==KEY_ESCAPE)

        script.stop ()