SUBROUTINE CHECKBOXA
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
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)
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)
CALL RWA_RESET(BUF, "CLEAR", "Clear Selections", "")
CALL RWA_SUBMIT_BUTTON(BUF, "Submit Details", "")
CALL RWS_FORM(BUF, "RESPONSE", "FORM5", "")
CALL RW_PUT(BUF)
CALL RW_END_PAGE
RETURN
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="Reality">
<TITLE>Form with Checkboxes</TITLE>
</HEAD>
<BODY>
<FORM ACTION="RESPONSE" NAME="FORM5" METHOD="POST">Please check the relevant boxes to indicate which course modules you require:<BR>
<BR>
<INPUT TYPE=CHECKBOX NAME="module" VALUE="Word Processing">
Word Processing<BR>
<INPUT TYPE=CHECKBOX NAME="module" VALUE="Spreadsheets">
Spreadsheets<BR>
<INPUT TYPE=CHECKBOX NAME="module" VALUE="Databases">
Databases<BR>
<INPUT TYPE=CHECKBOX NAME="module" VALUE="Web Page Design">
Web Page Design<BR>
<BR>
<INPUT TYPE=RESET NAME="CLEAR" VALUE="Clear Selections">
<INPUT TYPE="submit" VALUE="Submit Details">
</FORM>
</BODY>
</HTML>