SUBROUTINE CHECKBOXA
* Display a simple form with one group of checkboxes, each box with the same name.

* Include the RealWeb definitions

     INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP

* Start the HTML page.
CALL RW_START_HTML_PAGE("Form with Checkboxes", "", "", "", "")


     BUF = "Please check the relevant boxes to indicate which course modules you require:"
CALL RWA_NEWLINES(BUF, 2)

* Create the checkboxes.
CALL RWA_CHECKBOX(BUF, "module", "Word Processing", 0, 0, "")

     BUF = BUF : "Word Processing"
CALL RWA_NEWLINES(BUF, 1)
CALL RWA_CHECKBOX(BUF, "module", "Spreadsheets", 0, 0, "")

     BUF = BUF : "Spreadsheets"
CALL RWA_NEWLINES(BUF, 1)
CALL RWA_CHECKBOX(BUF, "module", "Databases", 0, 0, "")

     BUF = BUF : "Databases"
CALL RWA_NEWLINES(BUF, 1)
CALL RWA_CHECKBOX(BUF, "module", "Web Page Design", 0, 0, "")

     BUF = BUF : "Web Page Design"
CALL RWA_NEWLINES(BUF, 2)

* Create the reset button.
CALL RWA_RESET(BUF, "CLEAR", "Clear Selections", "")

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

* Create the HTML form, specifying that the subroutine RESPONSE should
* be run when the submit button is clicked.
CALL RWS_FORM(BUF, "RESPONSE", "FORM5", "")

* Output the HTML.
CALL RW_PUT(BUF)

* Complete the page
CALL RW_END_PAGE

RETURN
ClosedResult
ClosedHTML