SUBROUTINE ALIGN
* Demonstrate the use of the RW_ALIGN subroutine.

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

* Start the HTML page.
CALL RW_START_HTML_PAGE("Paragraph Alignment Example", "", "", "", "")

* Insert some paragraphs.
CALL RW_ALIGN("RIGHT")
CALL RW_PUT("Right over here!")
CALL RW_END_PARA

CALL RW_ALIGN("RIGHT")
CALL RW_PUT("This is too.")
CALL RW_END_PARA

CALL RW_ALIGN("LEFT")
CALL RW_PUT("Over to the left.")
CALL RW_END_PARA

CALL RW_ALIGN("CENTER")
CALL RW_PUT("Now in the centre.")
CALL RW_END_PARA

CALL RW_ALIGN("")
CALL RW_PUT("The default is left.")
CALL RW_END_PARA

* Complete the page.
CALL RW_END_PAGE
RETURN