home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST186.PRG < prev    next >
Encoding:
Text File  |  1989-08-14  |  799 b   |  38 lines
  1. ********************
  2.             
  3. FUNCTION Asum
  4.  
  5.    PARAMETER _warray, _begin, _end
  6.  
  7.    PRIVATE _totnum, _qaz
  8.  
  9.    IF PCOUNT() = 1
  10.       IF TYPE("_warray") != "A"
  11.          RETURN(0)
  12.       ENDIF
  13.       _begin = 1
  14.       _end = LEN(_warray)
  15.    ELSEIF PCOUNT() = 2
  16.       _end = LEN(_warray)
  17.    ELSEIF EMPTY(PCOUNT())
  18.       RETURN(0)
  19.    ENDIF
  20.    
  21.    IF TYPE("_warray") + TYPE("_begin") + TYPE("_end") != "ANN" 
  22.       RETURN(0)
  23.    ENDIF
  24.  
  25.    _end   = IF((_end > LEN(_warray)), LEN(_warray), _end)
  26.    _begin = IF( (_begin > _end .OR. _begin > LEN(_warray) .OR. _begin < 1), 1, _begin)
  27.  
  28.    _totnum = 0
  29.  
  30.    FOR _qaz = _begin TO _end
  31.       IF TYPE("_warray[_qaz]") = "N"      
  32.          _totnum = _totnum + _warray[_qaz]
  33.       ENDIF
  34.    NEXT
  35.    RETURN(_totnum)
  36.  
  37. * End of File
  38.