SUBROUTINE NEWLINEA
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
CALL RW_START_HTML_PAGE("Newlines", "", "", "", "")
TEXT = ""
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."
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."
CALL RWS_PARA(PARA, "", "")
TEXT = TEXT : PARA
CALL RW_PUT(TEXT)
CALL RW_END_PAGE
RETURN
HTML
<!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>Newlines</TITLE>
</HEAD>
<BODY>
<H3>
Twinkle, Twinkle Little Star
</H3>
<P>
Twinkle, twinkle little star.<BR>
How I wonder what you are.<BR>
Up above the world so high<BR>
Like a diamond in the sky.<BR>
Twinkle, twinkle little star.<BR>
How I wonder what you are.<BR>
<BR>
When the blazing sun has gone;<BR>
When he nothing shines upon;<BR>
Then you show your little light.<BR>
Twinkle, twinkle all the night.<BR>
Twinkle, twinkle little star.<BR>
How I wonder what you are.
</P>
</BODY>
</HTML>