home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
vp21beta.zip
/
LEXMPSRC.RAR
/
COLORS.PAS
next >
Wrap
Pascal/Delphi Source File
|
2000-08-15
|
293b
|
24 lines
program Colors;
uses
Crt;
var
I: Integer;
begin
for I := 0 to 7 do
begin
TextColor(I);
WriteLn('Color #', I);
end;
TextColor(0);
for I := 0 to 7 do
begin
TextBackground(I);
WriteLn('Background #', I);
end;
TextBackground(0);
end.