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