SUBROUTINE IMAGE1
*Retrieve an image from the REALWEB_ITEMS file to prefix definitions in a definition list item
* Include the RealWeb definitions

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

* Get the URL of the Reality item server

     IMAGE = ""
CALL RW_GET_PARAM("__isurl", IMAGE)
* Specify the location of the image

     IMAGE = IMAGE : "/REALWEB-ITEMS/arrow.gif"

*Set up text for the definitions

     CHECK1="check for any <B>D</B>anger"

     CHECK2="try for a <B>R</B>esponse"

     CHECK3="check <B>A</B>irway"

     CHECK4="check <B>B</B>reathing"

     CHECK5="check <B>C</B>irculation"

* Start the HTML page
* Display the text 'First Aid' in the browser's title bar
CALL RW_START_HTML_PAGE("First Aid", "", "", "", "")
CALL RW_PUT("Don't forget the framework <I>DR ABC</I> in all emergencies")
CALL RW_NEWLINES(3)

*Create the list
CALL RW_START_DLIST("")
CALL RW_DLIST_ITEM("DR ABC","","")
CALL RW_IMAGE(IMAGE,"blue arrow")
CALL RW_PUT(CHECK1)
CALL RW_DLIST_ITEM("","","")
CALL RW_IMAGE(IMAGE,"blue arrow")
CALL RW_PUT(CHECK2)
CALL RW_DLIST_ITEM("","","")
CALL RW_IMAGE(IMAGE,"blue arrow")
CALL RW_PUT(CHECK3)
CALL RW_DLIST_ITEM("","","")
CALL RW_IMAGE(IMAGE,"blue arrow")
CALL RW_PUT(CHECK4)
CALL RW_DLIST_ITEM("","","")
CALL RW_IMAGE(IMAGE,"blue arrow")
CALL RW_PUT(CHECK5)
CALL RW_END_DLIST

* Complete the page
CALL RW_END_PAGE

RETURN
Result
HTML