home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST339.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.2 KB  |  47 lines
  1. *******************
  2.  
  3. FUNCTION O_window
  4.  
  5.    PARAMETERS _t
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       Windowpop()
  9.       RETURN(.T.)
  10.    ENDIF
  11.  
  12.    IF TYPE("_t") != "A"
  13.       RETURN(.F.)
  14.    ELSEIF TYPE("_t[1]") != "C"
  15.       RETURN(.F.)
  16.    ENDIF
  17.  
  18.    PRIVATE  _tt, _t1, _t2, _t3, _t4, _t5, _t6, _t7, _t8, _t9, _t10, _t11, _t12
  19.  
  20.    _tt = _t[1]
  21.  
  22.    _t1  = VAL(LTRIM(TRIM(Parsing(@_tt, ";"))))
  23.    _t2  = VAL(LTRIM(TRIM(Parsing(@_tt, ";"))))
  24.    _t3  = VAL(LTRIM(TRIM(Parsing(@_tt, ";"))))
  25.    _t4  = VAL(LTRIM(TRIM(Parsing(@_tt, ";"))))
  26.    _t5  = VAL(LTRIM(TRIM(Parsing(@_tt, ";"))))
  27.    _t6  = LTRIM(TRIM(Parsing(@_tt, ";")))
  28.    _t7  = UPPER(LTRIM(TRIM(Parsing(@_tt, ";"))))
  29.    _t8  = UPPER(LTRIM(TRIM(Parsing(@_tt, ";"))))
  30.    _t9  = UPPER(LTRIM(TRIM(Parsing(@_tt, ";"))))
  31.    _t10 = UPPER(LTRIM(TRIM(Parsing(@_tt, ";"))))
  32.    _t11 = LTRIM(TRIM(Parsing(@_tt, ";")))
  33.    _t12 = LTRIM(TRIM(Parsing(@_tt, ";")))
  34.  
  35.    _t12 = IF(EMPTY(_t12), ".F.", _t12)
  36.    _t11 = IF(EMPTY(_t11), ".F.", _t11)
  37.    _t6  = IF(EMPTY(_t6), ".F.", _t6)
  38.  
  39.    _t12 = &_t12.
  40.    _t11 = &_t11.
  41.    _t6  = &_t6.
  42.  
  43.    Windowpush(_t1, _t2, _t3, _t4, _t7, _t8, _t9, _t10, _t11, _t12, _t5, _t6)
  44.    RETURN(.T.)
  45.  
  46. * End of File
  47.