pragma1

subroutine Pragma1

***********************************************************************

* Demonstrate specifying a custom Pragma

***********************************************************************

*

* [00] 08Aug97 jr Initial Creation

* [01] 29Sep97 jr Remove w3HtmlComplete

include wbp w3Include

call w3HtmlPragma("Content-type: text/plain")

subsitutions=""

subsitutions<1,1>="##HEADLINE##"

subsitutions<1,2>="Pragma Demonstration"

subsitutions<2,1>="##TITLE##"

subsitutions<2,2>=subsitutions<1,2>

*  set up the HTML page

call w3HTMLInit("", "")

call w3HTMLHeader("",subsitutions)

call w3HTMLInsert("pragma1","")

call w3HTMLFooter("","")

return