highlight Function

public function highlight(text) result(textout)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	text

Return Value character(len=8)

Source Code

  function highlight(text) result(textout)
    character(len=*) :: text
    character(len=8+len(text)) :: textout
    textout=achar(27)//"[7m"//text//achar(27)//"[0m"
  end function highlight