SUBROUTINE QUOTE
* Demonstrate the use of the RWS_QUOTE subroutine.
* Does not work in Internet Explorer.

* Include the RealWeb definitions

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

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


     HTML = ""

* Insert a paragraph containing some text.

     HTML = "Dr Parkes (quoted in an article on "

     TEXT = "Sanitary Science"
CALL RWS_QUOTE(TEXT, "")

     HTML = HTML : TEXT : " in "

     TEXT = "Chambers Encyclopedia"
CALL RWS_ITALIC(TEXT, "")

     HTML = HTML : TEXT : " of 1880) "

     HTML = HTML : "reckoned that a ten-stone man consumed 70 to 90 ounces of " : ...

        "water every day - 40 of them in food, 50 in liquid."

CALL RWS_PARA(HTML, "", "")

CALL RW_PUT(HTML)

* Complete the page.
CALL RW_END_PAGE

RETURN

Subroutine result in browser

Note:
Internet Explorer does not currently support the <q> tag.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta NAME="Generator" CONTENT="Reality">
<title>Quoted Text Example</title>


</head>
<body>
<p>

Dr Parkes (quoted in an article on <q>Sanitary Science</q> in 
<i>Chambers Encyclopedia</i> of 1880) reckoned that a ten-stone 

man consumed 70 to 90 ounces of water every day - 40 of them in 

food, 50 in liquid.
</p>

</body>
</html>