Preformatted Example 1 (RealWeb)

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

Result

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>Preformatted Example 1</TITLE>


</HEAD>
<BODY>
<P>

The following JavaScript function calculates the length of the hypotenuse 

of a right-angled triangle:
</P>
<PRE>function hypotenuse(a, b) {

   return Math.sqrt(a*a + b*b);

}</PRE>
</BODY>
</HTML>