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