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