home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST273.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  441 b   |  27 lines
  1. ********************
  2.  
  3. FUNCTION Adsort
  4.  
  5.    PARAMETERS _array
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       RETURN(.F.)
  9.    ELSEIF TYPE("_array") != "A"
  10.       RETURN(.F.)
  11.    ENDIF
  12.  
  13.    PRIVATE _x, _qaz
  14.  
  15.    DECLARE _temp[LEN(_array)]
  16.    ACOPY(_array, _temp)
  17.    ASORT(_temp)
  18.    _x = 1
  19.    FOR _qaz = LEN(_temp) TO 1 STEP -1
  20.       _array[_x] = _temp[_qaz]
  21.       _x = _x + 1
  22.    NEXT
  23.    RELEASE _temp, _qaz, _x
  24.    RETURN(.T.)
  25.  
  26. * End of File
  27.