SUBROUTINE TEXTAREA2
* Create a simple form containing 2 edit boxes, a text area
* and a submit button.

* Include the RealWeb definitions.

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

* Start the HTML page.
CALL RW_START_HTML_PAGE("Send a Message", "", "", "", "")

* Create the edit boxes.

     BUF = "To:"
CALL RWA_EDIT_BOX(BUF, "TO", 30, "")
CALL RWA_NEWLINES(BUF, 1)

     BUF = BUF : "Subject:"
CALL RWA_EDIT_BOX(BUF, "SUBJECT", 30, "")
CALL RWA_NEWLINES(BUF, 1)

* Set up the size and initial content of the text area.

     ROWS = 12

     COLS = 40

     CLASS = ""

     CONTENT="Type your message here"

* Create the text area.     
CALL RWA_TEXT_AREA(BUF, "MESSAGE", ROWS, COLS, CONTENT, CLASS)

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

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

* Output the HTML.
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>Send a Message</TITLE>


</HEAD>
<BODY>
<FORM ACTION="TEXTAREA2" NAME="FORM5" METHOD="POST">To:<INPUT NAME="TO" SIZE="30" TYPE="TEXT">
<BR>

Subject:<INPUT NAME="SUBJECT" SIZE="30" TYPE="TEXT">
<BR>
<TEXTAREA NAME="MESSAGE" COLS="40" ROWS="12">Type your message here</TEXTAREA>
<INPUT TYPE="submit" VALUE="SEND">

</FORM>

</BODY>
</HTML>