home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG013.ARC / TESTPCG.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  1KB  |  42 lines
  1. program TestPCG;
  2.  
  3. {$I lores.pro }
  4. {$I inverse.pro }
  5. {$I big.pro }
  6. {$I uline.pro }
  7. {$I bold.pro }
  8. {$I boldulin.pro }
  9.  
  10. type
  11.     string13 = string[13];
  12.  
  13.     procedure PrintPCG(Message : string13);
  14.  
  15.     var
  16.         i : integer;
  17.  
  18.     begin { PrintPCG }
  19.  
  20.         ClrScr;
  21.         GotoXY(1,10);
  22.         writeln('Current font is ', Message);
  23.         for i := 0 to 127 do
  24.             write(chr(128+i));
  25.         writeln;writeln;
  26.         write('<Press any key to continue>');
  27.         repeat until keypressed
  28.  
  29.     end; { PrintPCG }
  30.  
  31. begin { TestPCG }
  32.  
  33.                    PrintPCG('INVERSE      ');
  34.     Lores;         PrintPCG('LORES        ');
  35.     Underline;     PrintPCG('UNDERLINE    ');
  36.     Bold;          PrintPCG('BOLD         ');
  37.     BoldUnderline; PrintPCG('BOLDUNDERLINE');
  38.     Big;           PrintPCG('BIG          ');
  39.     Inverse;       PrintPCG('INVERSE      ')
  40.  
  41. end. { TestPCG }
  42.