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

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

* Get the URL of the Reality item server.
STYLESHEET = ""
CALL RW_GET_PARAM("__isurl", STYLESHEET)
* Specify the location of the stylesheet.
STYLESHEET = STYLESHEET : "/REALWEB-ITEMS/styles.css"

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

* Insert a heading.
CALL RW_CENTER_ON
TEXT = "Abbey Choir"
CALL RWS_HEADING(TEXT, 2, "")
CALL RW_PUT(TEXT)
CALL RW_CENTER_OFF

* Separate off the next section with a horizontal rule.
CALL RW_RULE

* Space the following text off from the heading.
CALL RW_VSPACE(30)

* Insert a paragraph.
CALL RW_START_PARA("", "")
CALL RW_PUT("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 RW_END_PARA

* Insert a paragraph, with the first line indented using a spacer.
CALL RW_START_PARA("", "")
CALL RW_HSPACE(20)
CALL RW_PUT("The choir has an extensive repertoire, encompassing " :...
"the wealth of Choral Music available, 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 RW_END_PARA

* Separate off the next section with a horizontal rule.
CALL RW_RULE

* Use a block space to lay out some text.
CALL RW_CENTER_ON
CALL RW_START_PARA("", "")
CALL RW_PUT("Worship<br>Concerts")
CALL RW_BSPACE(50, 50)
CALL RW_PUT("Broadcasts<br>Recordings")
CALL RW_END_PARA
CALL RW_CENTER_OFF

* Terminate the section with a horizontal rule.
CALL RW_RULE

* Complete the page.
CALL RW_END_PAGE
RETURN