SUBROUTINE RADIO2
* Simple form including 3 groups of radio buttons.

* Include the RealWeb definitions

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

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


     BUF = "Please enter your name in the box:"
CALL RWS_PARA(BUF, "", "")


     FRM = ""

* Create an editbox.
CALL RWA_EDIT_BOX(FRM, "EDITBOX", 30, "3")
CALL RWA_NEWLINES(FRM, 2)


     FRM = FRM : "Please tell us where you get most of your books:"

* Display group of 3 radio buttons.
* The first button will be the default.
CALL RWA_NEWLINES(FRM, 1)
CALL RWA_RADIO(FRM, "source", "S", 1, "")

     FRM = FRM : "High Street Bookshop"
CALL RWA_NEWLINES(FRM, 1)
CALL RWA_RADIO(FRM, "source", "I", "", "")

     FRM = FRM : "Internet Bookshop"
CALL RWA_NEWLINES(FRM, 1)
CALL RWA_RADIO(FRM, "source", "L", "", "")

     FRM = FRM : "Local Library"
CALL RWA_NEWLINES(FRM, 2)

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

* Create the HTML form, specifying that the subroutine THANKS should
* be run when the submit button is clicked.
CALL RWS_FORM(FRM, "THANKS", "FORM2", "")


     BUF = BUF : FRM

* Output the form.
CALL RW_PUT(BUF)

* Complete the page.
CALL RW_END_PAGE

RETURN

Subroutine result in browser 

<!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 Radio Buttons</TITLE>


</HEAD>
<BODY>
<P>

Please enter your name in the box:
</P>
<FORM ACTION="THANKS" NAME="FORM2" METHOD="POST"><INPUT CLASS="3" NAME="EDITBOX" SIZE="30" TYPE="TEXT">
<BR>
<BR>

Please tell us where you get most of your books:<BR>
<INPUT TYPE=RADIO NAME="source" VALUE="S" CHECKED>

High Street Bookshop<BR>
<INPUT TYPE=RADIO NAME="source" VALUE="I">

Internet Bookshop<BR>
<INPUT TYPE=RADIO NAME="source" VALUE="L">

Local Library<BR>
<BR>
<INPUT TYPE="submit" VALUE="Submit Details">

</FORM>

</BODY>
</HTML>