Паскаль / do9 / iriepas201 / Irie Pascal / samples / fc

//*************************************************************
// This program uses the built-in procedure textcolor to
// set the screen foreground color.
program fc(output);
(*$W44-*)
const
black = 0;
blue = 1;
green = 2;
cyan = 3;
red = 4;
magenta = 5;
brown = 6;
white = 7;
grey = 8;
light_blue = 9;
light_green = 10;
light_cyan = 11;
light_red = 12;
light_magenta = 13;
yellow = 14;
high_intensity_white = 15;

(*$W44+*)
begin
textcolor(white);
write('White text ');
textcolor(light_green);
write('Light green text ');
textcolor(white);
writeln('White text ');
end.