eg_getwc.for

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

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

        record /xycoord/ centre
        record /_wxycoord/ pos1, pos2

        call _setvideomode( _MAXRESMODE )
        ! draw a box 50 pixels square
        ! in the middle of the screen
        centre = _getviewcoord_w( 0.5, 0.5 )
        pos1 = _getwindowcoord( centre.xcoord - 25,
     +                          centre.ycoord - 25 )
        pos2 = _getwindowcoord( centre.xcoord + 25,
     +                          centre.ycoord + 25 )
        call _rectangle_wxy( _GBORDER, pos1, pos2 )
        pause
        call _setvideomode( _DEFAULTMODE )
        end