Function:    Banner()

               Banner()  is  a  function  that  enable's  you  to
               generate Banner's for anything you like, eg. print
               sheet  header's, or log  file beginning's  or just
               some huge message on the screen.

               For  a typical use of banner see the Usage part of
               this function  description, fact is  that Banner()
               uses the 8*8 character definition as it is defined
               in  the  ROM-BIOS  of  any  IBM  compatible,  that
               definition was used for  the CGA graphics modes in
               the early years (but still supported) and does not
               provide  any  definition   for  characters   above
               Chr(127), in other words,  no support for extended
               IBM  character set. Anyway, the Banner function is
               VERY compact (Written in Assembly, uses .300 bytes
               only).

  Syntax:      Banner(nLine,cString)

  Arguments:   <nLine> is the line of the Banner you want, the
               number must be between 1 and 8, other values will
               make Banner() return garbage. <cString> is the string
               to Banner and that is what Banner() will return.
               Note that Banner() will return a string 8 times
               longer than <cString>, filled with Spaces and blocks (#).

  Returns:     The Nth Line (one of eight) of the <cString>
               string in  Banner form.  Banner() will have  to be
               called eight times to construct a complete banner.

               Note that if you use Banner() on  your screen, you
               can only print  a string of 10 chars wide (Assuming
               MaxCol() returns 79), and a maximum of  3 lines
               (using 24 out of generally 25 available lines),
               mostly, you might use it to enhance your program's
               introduction screen with the name of the program.
               On some printers, you  might take advantage of 132
               columm printing to print out 16 char banner's.

  Usage:       * - Try this :
               for i = 1 to 8
                    ? Banner(i,'Hello')
               next
               * - It returns:
                ##  ##           ###     ###
                ##  ##            ##      ##
                ##  ##   ####     ##      ##     ####
                ######  ##  ##    ##      ##    ##  ##
                ##  ##  ######    ##      ##    ##  ##
                ##  ##  ##        ##      ##    ##  ##
                ##  ##   ####    ####    ####    ####

               * (Funny, huh?)

               * - Banner uses Chr(178) to print Dots, you might
               * - want to use 'X' instead for your printer:
               set print On
               for i = 1 to 8
                    ? StrTran(Banner(i,Filename),Chr(178),'X')
               next
               set print off