getps.for

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

        subroutine GetPS( ps, get )
        integer ps
        logical get
c
c
c
        include 'gui.fi'

        if( get ) then
            ps = WinGetPS( WinHandle )
        else
            call WinReleasePS( ps )
        end if

        end