FK_GER
Joined: 26 Oct 2017 Posts: 35 Location: University of Kassel,Germany
|
Posted: Sat Apr 07, 2018 1:48 pm Post subject: Changing of text colour |
|
|
Following subroutine doesn't change text colour, as desired:
Code: | 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 |
|