home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST183.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  371 b   |  23 lines
  1. *******************
  2.  
  3. FUNCTION Savemems
  4.  
  5.    PARAMETERS _sskel, _sskfile
  6.  
  7.    IF PCOUNT() = 1
  8.       _sskfile = _sskel
  9.       _sskel   = "*"
  10.    ELSEIF EMPTY(PCOUNT())
  11.       RETURN(.F.)
  12.    ENDIF
  13.  
  14.    IF TYPE("_sskel") + TYPE("_sskfile") != "CC"
  15.       RETURN(.F.)
  16.    ENDIF
  17.  
  18.    SAVE ALL Like (_sskel) TO (_sskfile)
  19.  
  20.    RETURN(DOSERROR() = 0)
  21.  
  22. * End of File
  23.