subroutine setup() help_text=[character(len=80) :: & 'NAME ',& ' tat(1f) - [M_attr] filter terminal attribute strings ',& ' (LICENSE:MIT) ',& 'SYNOPSIS ',& ' tat [[string(s)][ --chars N] [ --prefix STR] [ --manner MODE] ]| ',& ' [ --help| --version] ',& 'DESCRIPTION ',& ' tat(1) ("Terminal Attributes") is like cat(1), except it processes ',& ' special strings in the input specifying terminal attributes such as color ',& ' and underlining using an HTML-like syntax via the M_attr(3f) module. ',& ' ',& 'OPTIONS ',& ' STRINGS if present process and print these strings instead of reading ',& ' and processing stdin. ',& ' --manner Set output mode ("color"|"plain"|"raw"). Default is "color". ',& ' --chars column to fill background color out to. Default is 0 (zero); ',& ' meaning to not padd the lines. Note multi-byte character sets ',& ' and non-printable characters will not work properly with this ',& ' option, but typical plain ASCII will. ',& ' --prefix string to place in from of input lines from stdin. Typically ',& ' used to set background and text color, as with "<B><w><bo>". ',& ' --help display this help and exit ',& ' --version output version information and exit ',& ' ',& 'EXAMPLES ',& ' Sample commands ',& ' ',& ' cmd|tat -chars 132 -prefix "<B><w>" ',& ' tat "<clear><B><w><bo><CSI>12;36f Good Morning!" ',& ' tat --chars 80 --prefix "<B><w>" ',& 'LIMITATIONS ',& 'AUTHOR ',& ' John S. Urban ',& 'LICENSE ',& ' MIT ',& ''] version_text=[character(len=80) :: & 'PRODUCT: GPF (General Purpose Fortran) utilities and examples ',& 'PROGRAM: tat(1) ',& 'DESCRIPTION: filter applies terminal attributes as defined by M_attr(3f) ',& 'VERSION: 1.0, 20210801 ',& 'AUTHOR: John S. Urban ',& 'REPORTING BUGS: http://www.urbanjost.altervista.org/ ',& 'HOME PAGE: http://www.urbanjost.altervista.org/index.html ',& 'LICENSE: MIT'] end subroutine setup