SUBROUTINE ANCHOR_A
* 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 2", "", STYLESHEET, "", RWD_BODY)


     HTML = ""

* Insert a heading,

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

     HTML = HTML : TEXT

CALL RWA_RULE(HTML)

* Insert paragraphs containing details of the recommended books.

     TEXT = "HTML & XHTML: The Definitive Guide"
CALL RWS_ITALIC(TEXT, "")

     TEXT = TEXT : " by Chuck Musciano and Bill Kennedy, "
* Insert a link to the publisher's web site.
CALL RWA_ANCHOR(TEXT, "http://www.oreilly.com/", "O'Reilly", "")

     TEXT = TEXT : ", fifth edition 2002."
CALL RWS_PARA(TEXT, "", "")

     HTML = HTML : TEXT


     TEXT = "Cascading Style Sheets 2.0"
CALL RWS_ITALIC(TEXT, "")

     TEXT = TEXT : " by Eric Meyer, "
* Insert a link to the publisher's web site.
CALL RWA_ANCHOR(TEXT, "http://www.osborne.com", "Osborne McGraw-Hill", "")

     TEXT = TEXT : ", 2001."
CALL RWS_PARA(TEXT, "", "")

     HTML = HTML : TEXT

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>Link Example 2</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>