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

{$I-}

program HersheyBanner ;

{$I Banner.con                  CONSTant declarations       }
{$I Banner.typ                  TYPE declarations           }
{$I Banner.var                  VARiable declarations       }

{$I iBanner.pas                 Initailize BANNER           }
{$I lChar.pas                   List CHARacter              }
{$I lBanner.pas                 List BANNER                 }

begin
                                { fanfare }
   writeln ('Hershey Banner 1.4 (C) 1986 Adam Fritz') ;
                                { initialize }
   InitBanner ;
                                { list banner }
   ListBanner

end.

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