SUBROUTINE ULIST3
*Display a bulleted list, with circles as bullets

* 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, ask the breeder")
CALL RW_NEWLINES(2)

UL_CLASS= 'type="circle"'

*Display the list
CALL RW_START_ULIST(UL_CLASS)
CALL RW_START_LIST_ITEM("")
CALL RW_PUT("to see copies of health clearances for both parents")
CALL RW_END_LIST_ITEM
CALL RW_START_LIST_ITEM("")
CALL RW_PUT("what guarantees are given about the puppy's health?")
CALL RW_END_LIST_ITEM
CALL RW_START_LIST_ITEM("")
CALL RW_PUT("is follow-up help and advice available?")
CALL RW_END_LIST_ITEM
CALL RW_START_LIST_ITEM("")
CALL RW_PUT("are all puppies fully registered?")
CALL RW_END_LIST_ITEM
CALL RW_END_ULIST

* Complete the page
CALL RW_END_PAGE
RETURN