SUBROUTINE ULIST4
*Display a bulleted list using the string functions RWS_LIST_ITEM and RWS_ULIST

* Include the RealWeb definitions

     INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
* Start the HTML page
* Display the text 'Buying a Puppy' in the browser's title bar
CALL RW_START_HTML_PAGE("Buying a Puppy", "", "", "", "")
CALL RW_PUT("When choosing your puppy, you should ask the breeder")
CALL RW_NEWLINES(2)

*Create the items for the list

     LIST=""

     BUF="to see copies of health clearances for both parents"
CALL RWS_LIST_ITEM(BUF,"")

     LIST=LIST:BUF

     BUF="what guarantees are given about the puppy's health?"
CALL RWS_LIST_ITEM(BUF,"")

     LIST=LIST:BUF

     BUF="is follow-up help and advice available?"
CALL RWS_LIST_ITEM(BUF,"")

     LIST=LIST:BUF

     BUF="are all puppies fully registered?"
CALL RWS_LIST_ITEM(BUF,"")

     LIST=LIST:BUF
*Create and display the list
CALL RWS_ULIST(LIST,"")
CALL RW_PUT(LIST)

* 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>Buying a Puppy</TITLE>


</HEAD>
<BODY>

When choosing your puppy, you should ask the breeder
<BR>
<BR>
<UL>
<LI>to see copies of health clearances for both parents
<LI>what guarantees are given about the puppy's health?
<LI>is follow-up help and advice available?
<LI>are all puppies fully registered?
</UL>

</BODY>
</HTML>