eg_gettp.for

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 14 行

	include 'graphapi.fi'
	include 'graph.fi'

	record /rccoord/ old_pos

	call _setvideomode( _TEXTC80 )
	old_pos = _gettextposition()
	call _settextposition( 10, 40 )
	call _outtext( 'WATCOM Graphics'c )
	call _settextposition( old_pos.row, old_pos.col )
	pause
	call _setvideomode( _DEFAULTMODE )
	end