Graphics Subroutine: In text or graphics mode, sends a string of text to the screen, including any trailing blanks.
USE IFQWIN
CALL OUTTEXT (text)
text |
(Input) Character*(*). String to be displayed. |
Text output begins at the current text position in the color set with SETTEXTCOLORRGB or SETTEXTCOLOR. No formatting is provided. After it outputs the text, OUTTEXT updates the current text position.
To output text using special fonts, you must use the OUTGTEXT subroutine.
USE IFQWIN
INTEGER(2) oldcolor
TYPE (rccoord) rc
CALL CLEARSCREEN($GCLEARSCREEN)
CALL SETTEXTPOSITION (INT2(1), INT2(5), rc)
oldcolor = SETTEXTCOLOR(INT2(4))
CALL OUTTEXT ('Hello, everyone')
END