Changing of text colour

Following subroutine doesn't change text colour, as desired:

      SUBROUTINE LEGEND (KRW)
!C**********************************************************************
!C  Coloured text of legend for curves at the screen
!C  KRW = logical unit of output-window
!C
      INCLUDE <windows.ins>
      INTEGER I
      I=WINIO@('%tc[red]')
      WRITE (KRW,319)
      I=WINIO@('%tc[blue]')
      WRITE (KRW,320)
      I=WINIO@('%tc[black]')
      WRITE (KRW,321)
      RETURN
  319 FORMAT (/1X,'* RED curve = calculated stiffness values  *')
  320 FORMAT (/1X,'* BLUE curve = parabolicly approximated course *')
  321 FORMAT (/1X,'* Presented is the half girder. Symmetry axis = middle of girder *')
      END

What goes wrong? For Information: I'm using Personal Edition V8.1

There is no connection of the kind implied by your code.

You could create an embedded 'ClearWin' window using %cw and use the option [local_font] to set the font. You may also be required to set the font name.