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

HTML = ""
CRLF = CHAR(13) : CHAR(10)

* 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.
* Display the text 'Welcome' in the browser's title bar.
* Don't specify a background image.
* Use the styles stylesheet.
* Use the default meta tag.
* Make this a normal page.
CALL RW_START_HTML_PAGE("Welcome", "", STYLESHEET, "", RWD_BODY)

* Insert a heading,
TEXT = "RealWeb"
CALL RWS_HEADING(TEXT, 1, "")
HTML = HTML : TEXT : CRLF

* Insert a paragraph containing the required text.
TEXT = "Welcome to the wonderful world of RealWeb!"
CALL RWS_PARA(TEXT, "", "")
HTML = HTML : TEXT

CALL RW_PUT(HTML)

* Complete the page.
CALL RW_END_PAGE
RETURN