SUBROUTINE SPACERA
* Demonstrate the use of horizontal, vertical and block spacers
* and horizontal rules.

* Include the RealWeb definitions.

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

* Start the HTML page.
CALL RW_START_HTML_PAGE("Spacers Demonstration", "", "", "", "")


     TEXT = ""

* Insert a heading.

     PARA = "Abbey Choir"     
CALL RWS_HEADING(PARA, 2, "")
CALL RWS_CENTER(PARA, "")

     TEXT = TEXT : PARA

* Separate off the next section with a horizontal rule.
CALL RWA_RULE(TEXT)

* Space the following text off from the heading.
CALL RWA_VSPACE(TEXT, 50)

* Insert a paragraph.

     PARA = "If you enjoy singing, then you may wish to consider " :...

        "joining us. On average, the choir sings for 5 out of 8 " :...

        "services per month. Rehearsals take place on Fridays from " :...

        "7.30pm, and just prior to Sunday Services."
CALL RWS_PARA(PARA, "", "")

     TEXT = TEXT : PARA

* Insert a paragraph, with the first line indented using a spacer.

     PARA = ""
CALL RWA_HSPACE(PARA, 20)

     PARA = PARA : "The choir has an extensive repertoire, encompassing " :...

        "the wealth of Choral Music available, right from Tallis (once " :...

        "organist of the Abbey) and Byrd through to Britten and Tippett. ": ...

        "As well of leading the worship, the choir has a busy concert " :...

        "schedule, and has undertaken various broadcasts for radio & " :...

        "television, Cathedral visits and to date, three CD recordings, " :...

        "all of which are available from the Abbey gift shop."
CALL RWS_PARA(PARA, "", "")

     TEXT = TEXT : PARA

* Separate off the next section with a horizontal rule.
CALL RWA_RULE(TEXT)

* Use a block space to lay out some text.

     PARA = "Worship<br>Concerts"
CALL RWA_BSPACE(PARA, 50, 50)

     PARA = PARA : "Broadcasts<br>Recordings"
CALL RWS_PARA(PARA, "", "")
CALL RWS_CENTER(PARA, "")

     TEXT = TEXT : PARA

* Terminate the section with a horizontal rule.
CALL RWA_RULE(TEXT)

CALL RW_PUT(TEXT)

* Complete the page.
CALL RW_END_PAGE

RETURN

Subroutine result in browser 

<!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>Spacers Demonstration</TITLE>


</HEAD>
<BODY>
<CENTER><H2>

Abbey Choir
</H2>
</CENTER>
<HR>
<BR><img src="/servlet/realityis/test/IMAGES/small.gif" width=1 height="30" alt="Vertical Spacer">
<P>

If you enjoy singing, then you may wish to consider joining us. On average, the

choir sings for 5 out of 8 services per month. Rehearsals take place on Fridays

from 7.30pm, and just prior to Sunday Services.
</P>
<P>
<img src="/servlet/realityis/test/IMAGES/small.gif" width="20" height=1 alt="Horizontal Spacer">

The choir has an extensive repertoire, encompassing the wealth of Choral Music

available, right from Tallis (once organist of the Abbey) and Byrd through to

Britten and Tippett. As well of leading the worship, the choir has a busy concert

schedule, and has undertaken various broadcasts for radio & television,

Cathedral visits and to date, three CD recordings, all of which are available

from the Abbey gift shop.
</P>
<HR>
<CENTER><P>

Worship<br>Concerts<img src="/servlet/realityis/test/IMAGES/small.gif" width="50" height="50" alt="Block Spacer">

Broadcasts<br>Recordings
</P>
</CENTER>
<HR>

</BODY>
</HTML>