SUBROUTINE FIXED_S
* Demonstrate the use of the RWS_FIXED subroutine.

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

EQU LF TO CHAR(10)

* Start the HTML page.
CALL RW_START_HTML_PAGE("Preformatted Example 2", "", "", "", "")

HTML = ""

* Insert a paragraph containing some text.
TEXT = "The following JavaScript function calculates the length of " :...
"the hypotenuse of a right-angled triangle:"
CALL RWS_PARA(TEXT, "", "")
HTML = HTML : TEXT

TEXT = "function hypotenuse(a, b) {" : LF : ...
" return Math.sqrt(a*a + b*b);" : LF : ...
"}"
CALL RWS_FIXED(TEXT, 'style="font-size: 9pt;"')
HTML = HTML : TEXT

CALL RW_PUT(HTML)

* Complete the page.
CALL RW_END_PAGE
RETURN