HTML file generated by SIMPOL Editor sbisimagesample.sma 
// sbisimagesample.sma
//
// This program contains the image sample using SIMPOL similarly to the sample provided
// with the SBL-based Superbase Internet Server product.
//
// © 2001-2002 Superbase Developers plc
// Author: Neil Robinson
// Date: 05.Nov.2001
// Modified: 09.May.2002
//   Updated to not be part of one giant program but as part of a suite of compiled programs
////////////////////////////////////////////////////////////////////////////////////////////


constant CRLF                "{0D}{0A}"


 ' +*************************************************************
 ' * ImageSample()
 ' * Public
 ' *
 ' * Parameters:
 ' * -----------
 ' * RetValue$ - Contains the additional parameters passed to
 ' *             the procedure as an argument. Unused here.
 ' *
 ' * Description:
 ' * ------------
 ' * This procedure creates a page with a tiled image background
 ' * in the main frame of the three frames created in the
 ' * FrameSample() procedure. It then displays text on top of the
 ' * background.
 ' +*************************************************************
 
function main(cgicall cgi)
  cgi.output("Content-type:  text/HTML" + CRLF + CRLF,1)
  cgi.output('<BODY BACKGROUND="/images/SBMARBLE.GIF">' + CRLF, 1)
  cgi.output('<CENTER><H3>Image Sample</H3></CENTER><UL><B>' + CRLF, 1)
  cgi.output('This is a sample of using an image.<P>' + CRLF, 1)
  cgi.output('The sample uses the SBMARBLE.GIF file installed in the images directory ' + CRLF, 1)
  cgi.output("of your web-server's document root directory. If you do not see this sample " + CRLF, 1)
  cgi.output('then please ensure that the images directory is copied into the directory ' + CRLF, 1)
  cgi.output('that your web-server is using as a document root.' + CRLF, 1)
  cgi.output('</UL>' + CRLF, 1)
  cgi.output('</BODY>' + CRLF, 1)
  cgi.output('</HTML>' + CRLF, 1)
end function ""