home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB3.ZIP / TESTBAN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-10-16  |  303 b   |  13 lines
  1. program Testbanner;
  2. {$I Iletters.pas}
  3.  
  4. var
  5.   words     : phrase_chars;
  6.   the_msg   : big_message;
  7.  
  8. begin
  9.   clrscr;
  10.   words := ' HELLO WORLD       ';   {25 chars max... else haywire}
  11.   add_letter(the_msg,words);        {build banner}
  12.   banner(the_msg,length(words));    {display banner}
  13. end.