home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST214.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.1 KB  |  46 lines
  1. *******************
  2.  
  3. FUNCTION Arraysave
  4.  
  5.    * Contributed by Joe Booth / Modified by Steve Straley
  6.  
  7.    PARAMETER _warray, _fname
  8.  
  9.    IF PCOUNT() != 2
  10.       RETURN(.F.)
  11.    ELSEIF TYPE("_warray") + TYPE("_fname") != "AC"
  12.       RETURN(.F.)
  13.    ENDIF
  14.  
  15.    PRIVATE _retval, _tmp, _qaz, _wtype, _addme, _fn, _tmp, _hw
  16.  
  17.    _retval = .F.
  18.    _tmp1 = ""
  19.    _tmp2 = ""
  20.    FOR _qaz = 1 TO LEN(_warray)
  21.       _wtype= TYPE("_warray[_qaz]")
  22.       _addme = ""
  23.       DO CASE
  24.       CASE _wtype = "C"
  25.          _addme = _warray[_qaz]
  26.       CASE _wtype = "D"
  27.          _addme = DTOC(_warray[_qaz])
  28.       CASE _wtype = "N"
  29.          _addme = STR(_warray[_qaz])
  30.       CASE _wtype = "L"
  31.          _addme = IF(_warray[_qaz],"T","F")
  32.       ENDCASE
  33.       _tmp1 = _tmp1+_wtype+STR( LEN(_addme),5)
  34.       _tmp2 = _tmp2+_addme
  35.    NEXT
  36.    _fn = FCREATE(_fname,0)
  37.    IF _fn >= 0
  38.       _tmp = "SJS"+STR( LEN(_warray), 10) + STR( LEN(_tmp1),10)+STR(LEN(_tmp2),10)+_tmp1+_tmp2
  39.       _hw = FWRITE(_fn,_tmp)
  40.       _retval =  (_hw = LEN(_tmp))
  41.       fclose(_fn)
  42.    ENDIF
  43.    RETURN(_retval)
  44.  
  45. * End of File
  46.