Centred Text Example 2 (RealWeb)

SUBROUTINE CENTER_S
* Demonstrate the use of the RWS_CENTER subroutine.

* Include the RealWeb definitions
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP

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

HTML = ""

* Insert a centred heading.
TEXT = "London's Water"
CALL RWS_HEADING(TEXT, 1, "")
CALL RWS_CENTER(TEXT, "")
HTML = HTML : TEXT

* Insert a paragraph containing some text.
TEXT = "In 1439, the Mayor of London looked to the Abbot of " : ...
"Westminster to supplement the fresh water he was able to provide " : ...
"for his 50,000 citizens. In that year the Abbot gave the City of London " : ...
"'one head of water together with springs to the north and west of the " : ...
"head in Paddington for a payment of two peppercorns', a grant that was " : ...
"confirmed by King Henry VI in 1442."
CALL RWS_PARA(TEXT, "", "")
HTML = HTML : TEXT

CALL RW_PUT(HTML)

* Complete the page.
CALL RW_END_PAGE
RETURN

HTML

<!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>Centred Text Example 2</TITLE>


</HEAD>
<BODY>
<CENTER><H1>

London's Water
</H1>
</CENTER>
<P>

In 1439, the Mayor of London looked to the Abbot of Westminster to supplement 

the fresh water he was able to provide for his 50,000 citizens. In that year 

the Abbot gave the City of London 'one head of water together with springs to 

the north and west of the head in Paddington for a payment of two peppercorns', 

a grant that was confirmed by King Henry VI in 1442.
</P>

</BODY>
</HTML>