SETTEXTPOSITION

Graphics Subroutine: Sets the current text position to a specified position relative to the current text window.

Module: USE DFLIB

Syntax

CALL SETTEXTPOSITION (row, column, t)

row
(Input) INTEGER(2). New text row position.

column
(Input) INTEGER(2). New text column position.

t
(Output) Derived type rccoord. Previous text position. The derived type rccoord is defined in DFLIB.F90 (in the \DF98\INCLUDE subdirectory) as follows:

 TYPE rccoord
   INTEGER(2) row ! Row coordinate
   INTEGER(2) col ! Column coordinate
 END TYPE rccoord

Subsequent text output with the OUTTEXT function (as well as standard console I/O statements, such as PRINT and WRITE) begins at the point (row, column).

Compatibility

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

See Also: CLEARSCREEN, GETTEXTPOSITION, OUTTEXT, SCROLLTEXTWINDOW, SETTEXTWINDOW, WRAPON

Example

 USE DFLIB
 TYPE (rccoord) curpos

 WRITE(*,*) "Original text position"
 CALL SETTEXTPOSITION (INT2(6), INT2(5), curpos)
 WRITE (*,*) 'New text position'
 END