MAKEOLIST Example (RealWeb)

SUBROUTINE NUMLISTS
* Display 2 numbered lists

* Include the RealWeb definitions
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP

* Start the HTML page
CALL RW_START_HTML_PAGE("Caramel Custard", "", "", "", "")

EQU AM TO CHAR(254)
EQU VM TO CHAR(253)

CALL RW_PUT("To make the caramel custard")
CALL RW_NEWLINES(2)

* Set up values for first list
VALUE_LIST = "Heat the milk, with the lemon peel and cinammon, to " : ...
"almost boiling" : AM : ...
"Remove from heat and remove lemon peel and cinammon" : AM : ...
"Beat the milk with the sugar, egg yolks and cornflour until smooth"
* Create the list
CALL RW_MAKE_OLIST(VALUE_LIST, "")
CALL RW_NEWLINES(3)

CALL RW_PUT("To complete the custard")
CALL RW_NEWLINES(2)

* Set up values for second list
VALUE_LIST = "Pour into heavy based pan and stir continuously over a " : ...
"low heat until the mixture coats the back of a wooden spoon" : AM : ...
"Pour into a shallow, heatproof dish" : AM : ...
"Just before serving, sprinkle on the sugar and place under " : ...
"grill to caramelise"
* Create the list
CALL RWA_MAKE_OLIST(LIST, VALUE_LIST, "")
CALL RW_PUT(LIST)

CALL RW_END_PAGE
RETURN

HTML

<!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>Caramel Custard</TITLE>


</HEAD>
<BODY>

To make the caramel custard
<BR>
<BR>
<OL>
<LI>Heat the milk, with the lemon peel and cinammon,to almost boiling

<LI>Remove from heat and remove lemon peel and cinammon

<LI>Beat the milk with the sugar, egg yolks and cornflour until smooth

</OL>
<BR>
<BR>
<BR>

To complete the custard
<BR>
<BR>
<OL>
<LI>Pour into heavy based pan and stir continuously over a low heat until the mixture coats the back of a wooden spoon

<LI>Pour into a shallow, heatproof dish

<LI>Just before serving, sprinkle on the sugar and place under grill to caramelise

</OL>

</BODY>
</HTML>