SUBROUTINE PHYSICAL
* Demonstrate the use of the physical styles subroutines.

* Include the RealWeb definitions

     INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP


     EQU AM TO CHAR(254)

* Start the HTML page.
CALL RW_START_HTML_PAGE("Physical Styles Example", "", "", "", "")

* Insert a paragraph containing some text.

     HTML = "Explicitly "

     TEXT = "boldfaced"
CALL RWS_BOLD(TEXT, "")

     HTML = HTML : TEXT : ", "

     TEXT = "italicised"
CALL RWS_ITALIC(TEXT, "")

     HTML = HTML : TEXT : ", or "

     TEXT = "teletype-style"
CALL RWS_MONO(TEXT, "")

     HTML = HTML : TEXT : " text should be used "

     TEXT = "sparingly"

     aClass = ""

     aClass<2> = 5              ;* Font size 5 (larger than normal).

     aClass<3> = "red"          ;* Red text.
CALL RWS_FONT(TEXT, aClass)

     HTML = HTML : TEXT : "!"

CALL RWS_PARA(HTML, "", "")

CALL RW_PUT(HTML)

* Complete the page.
CALL RW_END_PAGE

RETURN

Subroutine result in browser 

<!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>Physical Styles Example</TITLE>


</HEAD>
<BODY>
<P>

Explicitly <B>boldfaced</B>, <I>italicised</I>, or <TT>teletype-style</TT> text 

should be used <FONT SIZE="5" COLOR="red">sparingly</FONT>!
</P>

</BODY>
</HTML>