home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST164.PRG < prev    next >
Encoding:
Text File  |  1989-08-22  |  1.3 KB  |  54 lines
  1. ********************
  2.  
  3. FUNCTION Good_env
  4.  
  5.    PARAMETERS _gooda, _goodb, _goodc, _goodd, _goode, _goodf
  6.  
  7.    IF PCOUNT() = 1
  8.       STORE "000" TO _goodb, _goodc, _goodd
  9.       STORE "20" TO _goode
  10.       STORE "" TO _goodf
  11.    ELSEIF PCOUNT() = 2
  12.       STORE "000" TO _goodc, _goodd
  13.       STORE "20" TO _goode
  14.       STORE "" TO _goodf
  15.    ELSEIF PCOUNT() = 3
  16.       STORE "000" TO _goodd
  17.       STORE "20" TO _goode
  18.       STORE "" TO _goodf
  19.    ELSEIF PCOUNT() = 4
  20.       STORE "20" TO _goode
  21.       STORE "" TO _goodf
  22.    ELSEIF PCOUNT() = 5
  23.       STORE "" TO _goodf
  24.    ENDIF
  25.  
  26.    PRIVATE _pass, _theenv, _thelet, _thepar, _dummy
  27.  
  28.    _pass = .T.
  29.    _theenv = UPPER(GETE("CLIPPER"))
  30.  
  31.    FOR qaz = 1 TO 6
  32.       _thelet = SUBSTR("VREXFS", qaz, 1)
  33.       _thepar = "_good" + CHR(96 + qaz)
  34.  
  35.       IF TYPE(&_thepar.) = "N"
  36.          _dummy = &_thepar.
  37.          &_thepar. = FILL_ZEROS(_dummy, 3)
  38.       ENDIF
  39.  
  40.       IF !EMPTY(VAL(&_thepar.)) .OR. _thelet = "E"
  41.          IF _thelet = "S" .AND. EMPTY(_goodf)
  42.             * skip over it
  43.          ELSE
  44.             _pass = (VAL(&_thepar.) <= VAL(SUBSTR(_theenv, AT(_thelet, _theenv) + 1, 3)))
  45.             IF !_pass
  46.                RETURN(.F.)
  47.             ENDIF
  48.          ENDIF
  49.       ENDIF
  50.    NEXT
  51.    RETURN(_pass)
  52.  
  53. * End of File
  54.