SUBROUTINE NEWLINE
* 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", "", "", "", "")

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

* Insert a paragraph containing the required text.
CALL RW_START_PARA("", "")

CALL RW_PUT("Twinkle, twinkle little star.")
CALL RW_NEWLINE
CALL RW_PUT("How I wonder what you are.")
CALL RW_NEWLINE
CALL RW_PUT("Up above the world so high")
CALL RW_NEWLINE
CALL RW_PUT("Like a diamond in the sky.")
CALL RW_NEWLINE
CALL RW_PUT("Twinkle, twinkle little star.")
CALL RW_NEWLINE
CALL RW_PUT("How I wonder what you are.")

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

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

CALL RW_END_PARA

* Complete the page.
CALL RW_END_PAGE
RETURN