SUBROUTINE NEWLINEA
* Display a poem to illustrate line breaks.

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

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

TEXT = ""

* Insert a heading,
PARA = "Twinkle, Twinkle Little Star"
CALL RWS_HEADING(PARA, 3, "")
TEXT = TEXT : PARA

PARA = "Twinkle, twinkle little star."
CALL RWA_NEWLINES(PARA, 1)
PARA = PARA : "How I wonder what you are."
CALL RWA_NEWLINES(PARA, 1)
PARA = PARA : "Up above the world so high"
CALL RWA_NEWLINES(PARA, 1)
PARA = PARA : "Like a diamond in the sky."
CALL RWA_NEWLINES(PARA, 1)
PARA = PARA : "Twinkle, twinkle little star."
CALL RWA_NEWLINES(PARA, 1)
PARA = PARA : "How I wonder what you are."

* We'll have a blank line between the verses.
CALL RWA_NEWLINES(PARA, 2)

PARA = PARA : "When the blazing sun has gone;"
CALL RWA_NEWLINES(PARA, 1)
PARA = PARA : "When he nothing shines upon;"
CALL RWA_NEWLINES(PARA, 1)
PARA = PARA : "Then you show your little light."
CALL RWA_NEWLINES(PARA, 1)
PARA = PARA : "Twinkle, twinkle all the night."
CALL RWA_NEWLINES(PARA, 1)
PARA = PARA : "Twinkle, twinkle little star."
CALL RWA_NEWLINES(PARA, 1)
PARA = PARA : "How I wonder what you are."

* Insert a paragraph containing the required text.
CALL RWS_PARA(PARA, "", "")
TEXT = TEXT : PARA

* Output the text.
CALL RW_PUT(TEXT)

* Complete the page.
CALL RW_END_PAGE
RETURN