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

//*************************************************************
// This program uses the built-in procedure textbackground to
// set the background color
program bc(output);
(*$W44-*)
const
   black = 0;
   blue = 1;
   green = 2;
   cyan = 3;
   red = 4;
   magenta = 5;
   brown = 6;
   white = 7;
   blinking = 8;
(*$W44+*)
begin
   write('Normal background ');
   textbackground(blue + blinking);
   write('Blinking blue background ');
   textbackground(black);
   writeln('Normal background ');
end.