SUBROUTINE MAKETABLE1
* Create a simple table.

* Include the RealWeb definitions.
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP

EQU AM TO CHAR(254)
EQU VM TO CHAR(253)

* Start the HTML page.
CALL RW_START_HTML_PAGE("RW_MAKE_TABLE Example 1", "", "", "", "")

TEXT = "Protocols for Different Types of Connection"
CALL RWS_HEADING(TEXT, 2, "")
CALL RW_PUT(TEXT)

* Assemble some data to go in the table.
* Headings.
aHeadings = "Connection to":AM:"Network type":AM:"Protocol"
* Data.
aData = "Annex, MPS, MPTS.":VM:"TCP":VM:"None"
aData<-1> = "Terminal servers other than those above.":VM:"TCP":VM:"Telnet"
aData<-1> = "LPD daemon, Network printer interface.":VM:"TCP":VM:"LPR"
aData<-1> = "MPS.":VM:"OSI (null- or full-network)":VM:"MPS 'FF'"
aData<-1> = "MPS, MPTS.":VM:"OSI (null- or full-network)":VM:"DDA"
aData<-1> = "X.25 PAD (via NetworkX).":VM:"OSI (null- or full-network)":VM:"SPAG Y/13"
aData<-1> = "-":VM:"X.25 (connection may be via NetworkX)":VM:"None"

* Create the table.
CALL RW_MAKE_TABLE(aHeadings, aData, "", "", "")

* Complete the page.
CALL RW_END_PAGE
RETURN