1. Forum
  2. Usenet
  3. COMP.LANG.FORTRAN

  • Re: Bold print

    From Thomas Koenig@21:1/5 to Lynn McGuire on Sat Jan 13 09:33:27 2024
    Lynn McGuire <lynnmcguire5@gmail.com> schrieb:
    On 1/12/2024 7:54 AM, db wrote:
    I have a program that reads a file of birthdays and prints
    out impending ones when I activate my (Linux) console.
    It first prints a header

      print '(/" Birthdays:")'

    Is it possible to get it to print that in bold or a colour?
    If yes, how?

    Ok, I'll bite. So what is the device that you are printing to ?

    If the device is a screen then there are control codes that you must
    print also.

    If the device is a file then, no way. This is the reason that HTML was invented.

    Or rather, there are quite a number of ways, depending on how
    the file is interpreted afterwards.

    Writing HTML to a file and then loading it into a browser is certainly
    one way. One thing I someitmes do to write out PostScript from
    a Fortran program, where you could use setgrbcolor.

    Or you can write out Markdown and insert HTML color.

    Or you can...

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From yeti@21:1/5 to All on Sat Jan 13 18:36:06 2024
    Maybe this way?

    bold.f90: ------------------------------------------------------------------------ program testbold
    call system('tput bold')
    print'("Hello, World!")'
    call system('tput sgr0')
    print'("Bye, World!")'
    end program testbold ------------------------------------------------------------------------

    That's my 1st hand full of Fortran lines since the early 90s, so please
    don't laugh too loud.

    Using `system` and `tput` avoids needing
    + to find a Fortran (n)curses library
    + to hardcode the terminal commands
    .

    It worked for me with Gfortran on OpenBSD. I was too lazy to install
    Gfortran on Linux while already having access to it on BSD.

    --
    I do not bite, I just want to play.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)