home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST322.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  524 b   |  30 lines
  1. ********************
  2.  
  3. FUNCTION Restsys
  4.  
  5.    PARAMETERS _whereto, _withadd
  6.  
  7.    _whereto = IF( TYPE("_whereto") != "C", "", _whereto)
  8.    _withadd = IF( TYPE("_withadd") != "L", .T., _withadd)
  9.  
  10.    IF !EMPTY(_whereto)
  11.       IF !VALID_PATH(_whereto)
  12.          RETURN(.F.)
  13.       ENDIF
  14.    ENDIF
  15.  
  16.    PRIVATE _tfile
  17.  
  18.    _tfile = "Screen.sys"
  19.  
  20.    IF _withadd
  21.       RESTORE FROM (_whereto + _tfile) ADDITIVE
  22.    ELSE
  23.       RESTORE FROM (_whereto + _tfile)
  24.    ENDIF
  25.  
  26.    RETURN( DOSERROR()=0 )
  27.  
  28. * End of File
  29.  
  30.