Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceINTEGER(4) length, resultCHARACTER(80) prog, argsWRITE (*, '(A, \)') ' Enter program to run: 'length = GETSTRQQ (prog)WRITE (*, '(A, \)') ' Enter arguments: 'length = GETSTRQQ (args)result = RUNQQ (prog, args)IF (result .EQ. -1) THENWRITE (*,*) 'Couldn''t run program' ELSEWRITE (*, '(A, Z4, A)') 'Return code : ', result, 'h'END IFENDGETTEXTCOLORGraphics Function: Returns the current text color index. This function is only available onWindows* systems.Module: USE IFQWINSyntaxresult = GETTEXTCOLOR( )Results:The result type is INTEGER(2). It is the current text color index.GETTEXTCOLOR returns the text color index set by SETTEXTCOLOR. SETTEXTCOLORaffects text output with OUTTEXT, WRITE, and PRINT. The background color index is set withSETBKCOLOR and returned with GETBKCOLOR. The color index of graphics over thebackground color is set with SETCOLOR and returned with GETCOLOR. These non-RGB colorfunctions use color indexes, not true color values, and limit the user to colors in the palette, at most256. To access all system colors, use SETTEXTCOLORRGB, SETBKCOLORRGB, andSETCOLORRGB.The default text color index is 15, which is associated with white unless the user remaps thepalette.2-144