//    Instruction Example :      text.char.underline.select (long)


        screen.resolution.set (512,384)

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

        text.font.select ("arial")
        text.char.height.select (48)
        text.char.underline.select (FALSE)
        text.display ("Hello World",CENTER,CENTER)

        text.info ("Press a key to continue.")

        keyboard.wait ()

        text.font.select ("arial")
        text.char.height.select (48)
        text.char.underline.select (TRUE)
        text.display ("Hello World",CENTER,CENTER)

        text.info ("   Press a key to exit.   ")

        keyboard.wait ()

        script.stop ()

        procedure text.info ($txt)
          %underline=text.char.underline.get ()
          text.font.select ("default")
          screen.set (FRONT)
            switch (%underline)
              case (TRUE)
                text.display ("   The text is underline.   ",CENTER,10)
              case (FALSE)
                text.display ("The text is not underline.",CENTER,10)
            endswitch ()
          screen.end ()
          text.display ($txt,CENTER,350)
        end procedure