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