eg_gette.for

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

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

	record /xycoord/ concat, extent(4)

	call _setvideomode( _VRES16COLOR )
	call _grtext( 100, 100, 'hot'c )
	call _gettextextent( 100, 100, 'hot'c,
     +			     concat, extent )
	call _polygon( _GBORDER, 4, extent )
	call _grtext( concat.xcoord, concat.ycoord,
     +		      'dog'c )
	pause
	call _setvideomode( _DEFAULTMODE )
	end