//    Instruction Example :     long text.line.number.visible.get (objectid)


        screen.resolution.set (512,384)

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

        screen.set (FRONT)
          text.display ("Edit text and press ESCAPE to exit.",CENTER,350)
        screen.end ()

        $text=text.load ("avo\about.txt")
        @text=text.create ($text,512,384)
        @text=text.edit (@text,0,0)
        screen.set (FRONT)
          repeat ()
            text.display ("   Lines : "+str(text.line.get (@text))+"/"+str(text.line.number.get($text))+" ",400,250)
            text.display ("    Char : "+str(text.cursor.get (@text))+" ",400,260)
            text.display (" Visible : "+str(text.line.number.visible.get(@text))+" ",400,270)
          until (keyboard.get()==KEY_ESCAPE)
        screen.end ()

        script.stop ()