SUBROUTINE MULTICOL
     * Demonstrate the use of multicolumn layout in Netscape 3 and 4.

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

     * Start the HTML page.
     CALL RW_START_HTML_PAGE("Netscape Multicolumn Example", "", "", "", "")

     HTML = ""

     * Insert a level 1 heading.
     TEXT = "Overview"
     CALL RWS_HEADING(TEXT, 1, 'style="color: purple"')
     HTML = HTML : TEXT

     * Insert a paragraph containing some text.
     TEXT = "Reality is a software environment that supports Reality " : ...
        "applications on UNIX and Windows (NT, 2000 and XP) systems. The " : ...
        "applications support environment supplied by Reality is a Relational " : ...
        "Database Management System (RDBMS), supporting multiple databases on " : ...
        "a single host platform, a range of powerful utilities for database " : ...
        "management and inquiry, and a set of utilities for operating system " : ...
        "resources."
     CALL RWS_PARA(TEXT, "", "")
     HTML = HTML : TEXT

     * Insert a level 2 heading.
     TEXT = "Multiple Databases"
     CALL RWS_HEADING(TEXT, 2, "")
     HTML = HTML : TEXT

     TEXT = "Any number of databases can be created and maintained on the host. " : ...
        "The only restriction is disk space availability. This allows " : ...
        "independent and secure use of different databases by different " : ...
        "departments or groups using the system. Each database comprises a " : ...
        "collection of data organised in relational data structures enabling " : ...
        "easy access to, and manipulation of data."
     CALL RWS_PARA(TEXT, "", "")
     HTML = HTML : TEXT

     aClass = "gutter=20"               ;* Increase the space between the columns.

     * Format the text for display in three columns.
     CALL RWS_MULTICOL(HTML, 3, aClass)

     * Output the HTML.
     CALL RW_PUT(HTML)

     * Complete the page.
     CALL RW_END_PAGE
RETURN

Go to top button