eg_getpa.for

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

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

        integer old_act

        call _setvideomode( _VRES16COLOR )
        old_act = _getplotaction()
        call _setplotaction( _GPSET )
        call _rectangle( _GFILLINTERIOR, 100, 100,
     +                                   540, 380 )
        pause
        call _setplotaction( _GXOR )
        call _rectangle( _GFILLINTERIOR, 100, 100,
     +                                   540, 380 )
        pause
        call _setplotaction( old_act )
        call _setvideomode( _DEFAULTMODE )
        end