Паскаль / 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.