インテル® Fortran コンパイラー 14.0 ユーザー・リファレンス・ガイド
Graphics Function: Sets the height and width of the text cursor (the caret) for the window in focus.
result = SETTEXTCURSOR (newcursor)
The result type is INTEGER(2); it is the previous text cursor value in the same format as newcursor.
After calling SETTEXTCURSOR, you must call DISPLAYCURSOR($GCURSORON) to actually see the cursor.
use IFQWIN
integer(2) oldcur
integer(2) istat
type(rccoord) rc
open(10,file='user')
istat = displaycursor($GCURSORON)
write(10,*) 'Text cursor is now character cell size, the default.'
read(10,*)
write(10,*) 'Setting text cursor to wide and low.'
oldcur = settextcursor(Z'0801')
istat = displaycursor($GCURSORON)
read(10,*)
write(10,*) 'Setting text cursor to high and narrow.'
oldcur = settextcursor(Z'0108')
istat = displaycursor($GCURSORON)
read(10,*)
write(10,*) 'Setting text cursor to a dot.'
oldcur = settextcursor(Z'0101')
istat = displaycursor($GCURSORON)
read(10,*)
end