feature_textbackground can be used to determine if the current platform supports the built-in procedure textbackground.
program color(output);
const
blue = 1;
white = 15;
begin
if supported(feature_textbackground) then textbackground(blue);
if supported(feature_textcolor) then textcolor(white);
writeln('white on blue');
end.
Operating Systems: All
Standard Pascal: No