SUBROUTINE TRANS
* Display a Reality item, translated using RW_TRANS.

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

* Start the HTML page.
CALL RW_START_HTML_PAGE("TRANS", "", "", "", "")

* Read an item from a Reality file - we'll use a web page called
* personal_details.htm.
ITEM = ""
OPEN "REALWEB-ITEMS" TO F ELSE STOP
READ ITEM FROM F,"personal_details.htm" ELSE STOP
CLOSE F

* Convert reserved HTML characters into escape sequences.
* This will let us display the HTML.
CALL RW_TRANS(ITEM, RWD_NORMAL)

* Complete the page.
CALL RW_END_PAGE
RETURN