SUBROUTINE FIXED
* Demonstrate the use of the RW_FIXED_ON and RW_FIXED_OFF
* subroutines.

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

* Insert a paragraph containing some text.
CALL RW_START_PARA("", "")
CALL RW_PUT("The following JavaScript function calculates the length of " :...
"the hypotenuse of a right-angled triangle:")
CALL RW_END_PARA

CALL RW_FIXED_ON
CALL RW_PUT("function hypotenuse(a, b) {" : LF : ...
" return Math.sqrt(a*a + b*b);" : LF : ...
"}")
CALL RW_FIXED_OFF

* Complete the page.
CALL RW_END_PAGE
RETURN