home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST320.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  931 b   |  37 lines
  1. **********************
  2.  
  3. FUNCTION Wcenter
  4.  
  5.    PARAMETERS _which
  6.  
  7.    IF TYPE("_which") = "C"
  8.       _wstr = _which
  9.       _which = IF(TYPE("scr_level") = "U", 1, scr_level-1)
  10.    ELSEIF TYPE("_which") = "N"
  11.       _wstr = ""
  12.       IF TYPE("scr_level") = "U"
  13.          _which = 1
  14.       ELSE
  15.          IF _which > scr_level
  16.             _which = scr_level
  17.          ENDIF
  18.       ENDIF
  19.    ELSE
  20.       _wstr = ""
  21.       _which = IF(TYPE("scr_level") = "U", 1, scr_level-1)
  22.    ENDIF
  23.       
  24.    IF TYPE("scr_level") = "N" .AND. TYPE("allwindows") = "A"
  25.       IF _which >= scr_level .OR. _which > LEN(allwindows) .OR. _which < 1
  26.       ELSE
  27.          IF scr_level > 1
  28.             _which = VAL(SUBSTR(allwindows[_which],10, 2)) - ;
  29.                      VAL(SUBSTR(allwindows[_which], 4, 2))
  30.             RETURN(Wholenum((_which / 2) - (LEN(_wstr) / 2)))
  31.          ENDIF
  32.       ENDIF
  33.    ENDIF
  34.    RETURN(40)
  35.  
  36. * End of File
  37.