home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST138.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  487 b   |  24 lines
  1. ********************
  2.  
  3. FUNCTION Fv_of_psum
  4.  
  5.    PARAMETERS _prinve, _rate, _m, _nopers
  6.  
  7.    IF TYPE("_prinve") + TYPE("_rate") + TYPE("_m") + TYPE("_nopers") != "NNNN"
  8.       RETURN(-1)
  9.    ENDIF
  10.  
  11.    PRIVATE _time, _amnt, _qaz, _subtot
  12.  
  13.    _time = 1 + ((_rate / _m) / 100)
  14.    _amnt = _time
  15.    IF _nopers <> 1
  16.       FOR _qaz = 1 to (_nopers - 1)
  17.          _subtot = _amnt * _time
  18.          _amnt = _subtot
  19.       NEXT
  20.    ENDIF
  21.    RETURN(_prinve * _amnt)
  22.    
  23. * End of File
  24.