SUBROUTINE ANCHOR
* Demonstrate the use of the RW_ANCHOR subroutine to create
* hyperlinks.

* Include the RealWeb definitions

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


     HTML = ""

     CRLF = CHAR(13) : CHAR(10)

* Get the URL of the Reality item server.

     STYLESHEET = ""
CALL RW_GET_PARAM("__isurl", STYLESHEET)
* Specify the location of the stylesheet.

     STYLESHEET = STYLESHEET : "/REALWEB-ITEMS/realweb.css"

* Start the HTML page.
CALL RW_START_HTML_PAGE("Link Example 1", "", STYLESHEET, "", RWD_BODY)

* Insert a heading,

     TEXT = "Recommended Reading"
CALL RWS_HEADING(TEXT, 2, "")
CALL RW_PUT(TEXT)

CALL RW_RULE

* Insert paragraphs containing details of the recommended books.
CALL RW_START_PARA("", "")

     TEXT = "HTML & XHTML: The Definitive Guide"
CALL RWS_ITALIC(TEXT, "")
CALL RW_PUT(TEXT)
CALL RW_PUT(" by Chuck Musciano and Bill Kennedy, ")
* Insert a link to the publisher's web site.
CALL RW_ANCHOR("http://www.oreilly.com/", "O'Reilly")
CALL RW_PUT(", fifth edition 2002.")
CALL RW_END_PARA

CALL RW_START_PARA("", "")

     TEXT = "Cascading Style Sheets 2.0"
CALL RWS_ITALIC(TEXT, "")
CALL RW_PUT(TEXT)
CALL RW_PUT(" by Eric Meyer, ")
* Insert a link to the publisher's web site.
CALL RW_ANCHOR("http://www.osborne.com", "Osborne McGraw-Hill")
CALL RW_PUT(", 2001.")
CALL RW_END_PARA

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

<STYLE type="text/css">
<!-- @import url(/servlet/realityis/test/REALWEB-ITEMS/realweb.css); -->
</STYLE>

</HEAD>
<BODY>
<H2>

Recommended Reading
</H2>

<HR>
<P>
<I>HTML & XHTML: The Definitive Guide</I>

 by Chuck Musciano and Bill Kennedy, 
<A HREF="http://www.oreilly.com/">O'Reilly</A>

, fifth edition 2002.
</P>
<P>
<I>Cascading Style Sheets 2.0</I>

 by Eric Meyer, 
<A HREF="http://www.osborne.com">Osborne McGraw-Hill</A>

, 2001.
</P>
</BODY>
</HTML>