Intel® Fortran Compiler 18.0 Developer Guide and Reference
Graphics Function: Returns the current text color index.
USE IFQWIN
result = GETTEXTCOLOR( )
The result type is INTEGER(2). It is the current text color index.
GETTEXTCOLOR returns the text color index set by SETTEXTCOLOR. SETTEXTCOLOR affects text output with OUTTEXT, WRITE, and PRINT. The background color index is set with SETBKCOLOR and returned with GETBKCOLOR. The color index of graphics over the background color is set with SETCOLOR and returned with GETCOLOR. These non-RGB color functions use color indexes, not true color values, and limit the user to colors in the palette, at most 256. To access all system colors, use SETTEXTCOLORRGB, SETBKCOLORRGB, and SETCOLORRGB.
The default text color index is 15, which is associated with white unless the user remaps the palette.
The GETTEXTCOLOR routine described here is a QuickWin routine. If you are trying to use the Microsoft* Platform SDK version of the GetTextColor routine by including the IFWIN module, you need to specify the routine name as MSFWIN$GetTextColor.