SUBROUTINE EBOX1
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
CALL RW_START_HTML_PAGE("Edit box example", "", "", "", "")
CALL RW_PUT("Please enter your name in the box, then click the Go button")
CALL RW_START_HTML_FORM("HELLO","FORM3","")
CLASS=""
CLASS<2>=30
CLASS<3>="YOUR NAME HERE"
CLASS<4>=30
CALL RW_EDIT_BOX("NAME","",CLASS)
CALL RW_SUBMIT_BUTTON("GO","")
CALL RW_END_FORM
CALL RW_END_PAGE
RETURN
SUBROUTINE HELLO
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
CALL RW_START_HTML_PAGE("Response to Form", "", "", "", "")
CALL RW_GET_PARAM("NAME",NAME)
CALL RW_PUT("Hello " :NAME)
CALL RW_END_PAGE
RETURN
HTML
Form page
<!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>Edit box example</TITLE>
</HEAD>
<BODY>
Please enter your name in the box, then click the Go button
<FORM ACTION="HELLO" NAME="FORM3" METHOD="POST">
<INPUT MAXLENGTH="30" VALUE="YOUR NAME HERE" SIZE="30" NAME="NAME" TYPE="TEXT">
<INPUT TYPE="submit" VALUE="GO">
</FORM>
</BODY>
</HTML>
Response page
<!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>Response to First Form</TITLE>
</HEAD>
<BODY>
Hello Paul
</BODY>
</HTML>