SUBROUTINE BLOCKQUOTE
* Demonstrate the use of the RWS_FIXED subroutine.

* Include the RealWeb definitions

     INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP

* Start the HTML page.
CALL RW_START_HTML_PAGE("Blockquote Example", "", "", "", "")


     HTML = ""

* Insert a paragraph.

     TEXT = "To what extent dowsing is efficacious has long been a matter " : ...

        "of debate. Writing in 1917, an American government geologist stated " : ...

        "confidently that:"
CALL RWS_PARA(TEXT, "", "")

     HTML = HTML : TEXT

* The quote.

     TEXT = "the use of the forked twig or so-called divining rod is a curious " : ...

        "superstition that still has a strong hold on the popular mind...It is " : ...

        "difficult to see how, for practical purposes, the whole matter could " : ...

        "be more thoroughly discredited, and it should be obvious to everyone " : ...

        "that further tests would be a misuse of public funds."
CALL RWS_BLOCKQUOTE(TEXT, "")

     HTML = HTML : TEXT

* Another paragraph.

     TEXT = "Seven leading authorities on water supply examined the claims of " : ...

        "seven water diviners at Guildford in 1913. Most of the dowsers failed " : ...

        "to 'find' the hidden water which formed the test."
CALL RWS_PARA(TEXT, "", "")

     HTML = HTML : TEXT

CALL RW_PUT(HTML)

* Complete the page.
CALL RW_END_PAGE

RETURN
Result
HTML