home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST282.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  591 b   |  30 lines
  1. *******************
  2.  
  3. FUNCTION Clipwindow
  4.  
  5.    PARAMETERS _w1, _w2, _w3, _w4
  6.  
  7.     IF EMPTY(PCOUNT())
  8.        CALL __setwin WITH WORD(0), WORD(0), WORD(24), WORD(79)
  9.         RETURN(.T.)
  10.     ELSEIF PCOUNT() = 1
  11.         RETURN(.F.)
  12.     ELSEIF PCOUNT() = 2
  13.         RETURN(.F.)
  14.     ELSEIF PCOUNT() = 3
  15.         RETURN(.F.)
  16.     ELSE
  17.        IF TYPE("_w1")+TYPE("_w2")+TYPE("_w3")+TYPE("_w4") != "NNNN"
  18.            RETURN(.F.)
  19.         ELSE
  20.            @ _w1, _w2 CLEAR TO _w3, _w4
  21.            @ _w1, _w2 TO _w3, _w4 DOUBLE
  22.          CALL __setwin WITH WORD(_w1), WORD(_w2), WORD(_w3), WORD(_w4)
  23.             RETURN(.T.)
  24.         ENDIF
  25.     ENDIF
  26.  
  27. * End of File
  28.        
  29.  
  30.