SUBROUTINE ULIST2
* Display 2 bulleted lists, using different styles of bullets and colours of text

* Include the RealWeb definitions

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

* Start the HTML page.
* Display the text 'School Rules' in the browser's title bar.
CALL RW_START_HTML_PAGE("School Rules", "", "", "", "")


     EQU AM TO CHAR(254)

     EQU VM TO CHAR(253)

CALL RW_PUT("Every pupil is expected to")
CALL RW_NEWLINES(2)

*Set up the style of the list

     UL_CLASS='style="color: green; font-style: italic"'

*Set up the array of items to include in the list 

     VALUE_LIST="Be punctual":AM:"Wear the correct uniform":AM:"Hand in homework on time"

*Create the list
CALL RW_MAKE_ULIST(VALUE_LIST,UL_CLASS)
CALL RW_NEWLINES(4)
CALL RW_PUT("Pupils MUST NOT")
CALL RW_NEWLINES(2)

*Set up the style of the list

     UL_CLASS= 'type="circle"'

     UL_CLASS<-1>= 'style="color: red"'

*Set up the array of items to include in the list

     VALUE_LIST="Run in the corridors":AM:"Eat sweets in class":AM:"Leave the school grounds at lunchtime"
*Create the list
CALL RWA_MAKE_ULIST(LIST,VALUE_LIST,UL_CLASS)
*Display the 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>School Rules</TITLE>


</HEAD>
<BODY>

Every pupil is expected to
<BR>
<BR>
<UL style="color: green; font-style: italic">
<LI>Be punctual

<LI>Wear the correct uniform

<LI>Hand in homework on time

</UL>
<BR>
<BR>
<BR>
<BR>

Pupils MUST NOT
<BR>
<BR>
<UL type="circle" style="color: red">
<LI>Run in the corridors

<LI>Eat sweets in class

<LI>Leave the school grounds at lunchtime

</UL>

</BODY>
</HTML>