eg_gettc.for
来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 19 行
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
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?