You can do it with ANSI escape codes in WRITE statements. Using Google or an equivalent, search for a string something like:
os x terminal ansi codes
Here's a simple example:
character(len=1), parameter :: esc=char(27)
print *,'Hello'
print *,esc,'[','45m','Hello',esc,'[0m'
print *,'Hello'
end