SUBROUTINE SCROLL
*Display a simple form with a scrolling message in the status line

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

* Start the HTML page
CALL RW_START_HTML_PAGE("OFFTEC Training Solutions", "", "", "", "")
CALL RW_PUT("Please check the relevant boxes to indicate which " : ...
"course modules you require")

* Start the HTML form, specifying that the subroutine RESPONSE should
* be run when the submit button is clicked
CALL RW_START_HTML_FORM("RESPONSE","FORM5","")
CALL RW_NEWLINE

CALL RW_CHECKBOX("module","Word Processing",0,0,"")
CALL RW_PUT("Word Processing")
CALL RW_NEWLINE
CALL RW_CHECKBOX("module","Spreadsheets",0,0,"")
CALL RW_PUT("Spreadsheets")
CALL RW_NEWLINE
CALL RW_CHECKBOX("module","Databases",0,0,"")
CALL RW_PUT("Databases")
CALL RW_NEWLINE
CALL RW_CHECKBOX("module","Web Page Design",0,0,"")
CALL RW_PUT("Web Page Design")
CALL RW_NEWLINES(2)

*Create the reset button
CALL RW_RESET("CLEAR","Clear Selections","")

*Create the submit button
CALL RW_SUBMIT_BUTTON("Submit Details","")

*Complete the form
CALL RW_END_FORM

*Create the scrolling message
MESSAGE = "OFFTEC Training Solutions - Learn at YOUR pace!"
CALL RW_STATUS_SCROLL(MESSAGE, "", "")

* Complete the page
CALL RW_END_PAGE
RETURN
Result
HTML