SUBROUTINE IMAGE2
*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/square.gif"

*Get the image
CALL RWA_IMAGE(BUF, IMAGE, "red square", "")


     CHECK1="Action at the scene of an accident"

     CHECK2="Dealing with choking"

     CHECK3="Dealing with severe bleeding"

     CHECK4="Treating burns and scalds"

     CHECK5="Responding to a heart attack"

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

CALL RW_PUT("The following topics are covered by this online first aid course")
CALL RW_NEWLINES(3)
CALL RW_START_DLIST("")
CALL RW_DLIST_ITEM("COURSE MODULES", "", "")

CALL RW_PUT(BUF:CHECK1)
CALL RW_DLIST_ITEM("", "", "")
CALL RW_PUT(BUF:CHECK2)
CALL RW_DLIST_ITEM("", "", "")
CALL RW_PUT(BUF:CHECK3)
CALL RW_DLIST_ITEM("", "", "")
CALL RW_PUT(BUF:CHECK4)
CALL RW_DLIST_ITEM("", "", "")
CALL RW_PUT(BUF:CHECK5)
CALL RW_END_DLIST

* Complete the page.
CALL RW_END_PAGE

RETURN
ClosedResult
ClosedHTML