eg_setlg.for

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

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

        call _setvideomode( _VRES16COLOR )
        call _setvieworg( 320, 240 )
        call _ellipse( _GBORDER, -200, -150, 200, 150 )
        pause
        call _setvideomode( _DEFAULTMODE )
        end