eg_gettc.for

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

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

	integer old_col
	integer old_bk

	call _setvideomode( _TEXTC80 )
	old_col = _gettextcolor()
	old_bk = _getbkcolor()
	call _settextcolor( 7 )
	call _setbkcolor( _BLUE )
	call _outtext( ' WATCOM '//char(10)//
     +		       'Graphics'c )
	call _settextcolor( old_col )
	call _setbkcolor( old_bk )
	pause
	call _setvideomode( _DEFAULTMODE )
	end