home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / LEXMPSRC.RAR / COLORS.PAS next >
Pascal/Delphi Source File  |  2000-08-15  |  293b  |  24 lines
  1. program Colors;
  2.  
  3. uses
  4.   Crt;
  5.  
  6. var
  7.   I: Integer;
  8.  
  9. begin
  10.   for I := 0 to 7 do
  11.   begin
  12.     TextColor(I);
  13.     WriteLn('Color #', I);
  14.   end;
  15.   TextColor(0);
  16.  
  17.   for I := 0 to 7 do
  18.   begin
  19.     TextBackground(I);
  20.     WriteLn('Background #', I);
  21.   end;
  22.   TextBackground(0);
  23. end.
  24.