{ Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, N.Y. 13730 }

procedure ListBanner ;

var
     BChar          : char ;
     i              : integer ;

begin

   nBanner := Length (Banner) ;
   if nBanner > 0 then begin
                                { print leader }
      for i := 1 to LeaderLength do
         writeln (LST) ;
                                { print characters }
      for iBanner := 1 to nBanner do begin
         BChar := Banner[iBanner] ;
         ListChar (BChar)
      end ;
                                { print trailer }
      while NBLines mod PageLength <> 0 do begin
         nBLines := nBLines + 1 ;
         writeln (LST)
      end ;
      for i := 1 to TrailerLength do
         writeln (LST)
   end

end ;

{ Copyright (C) 1986 Adam Fritz, 133 Main St., Afton, N.Y. 13730 }