Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2GETCavailable in the palette, at most 256. Some display adapters (SVGA and true color) are capable ofcreating 262,144 (256K) colors or more. To access any available color, you need to specify anexplicit RGB value with an RGB color function, rather than a palette index with a non-RGB colorfunction.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETCOLORRGB”, “GETTEXTCOLORRGB”, “SETBKCOLORRGB”,“GETBKCOLOR”Example! Build as a QuickWin or Standard Graphics App.USE IFQWININTEGER(4) back, fore, oldcolorINTEGER(2) status, x1, y1, x2, y2x1 = 80; y1 = 50x2 = 240; y2 = 150oldcolor = SETCOLORRGB(Z'FF') ! red! reverse the screenback = GETBKCOLORRGB()fore = GETCOLORRGB()oldcolor = SETBKCOLORRGB(fore)oldcolor = SETCOLORRGB(back)CALL CLEARSCREEN ($GCLEARSCREEN)status = ELLIPSE($GBORDER, x1, y1, x2, y2)ENDPortability Function: Reads the next available character from external unit 5, which is normallyconnected to the console.Module: USE IFPORTSyntaxresult = GETC (char)char(Output) Character*(*). The first character typed at the keyboard after the call to GETC. If unit 5is connected to a console device, then no characters are returned until the Enter key is pressed.2-101