home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST66.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  618 b   |  32 lines
  1. ********************
  2.  
  3. FUNCTION Saveit
  4.  
  5.    PARAMETERS _temp
  6.  
  7.    _temp = IF( EMPTY(PCOUNT()), .T., _temp)
  8.    IF TYPE("scr_level") = "U"
  9.       RETURN (-1)
  10.    ENDIF
  11.  
  12.    PRIVATE _wlevel
  13.  
  14.    IF _temp
  15.       _wlevel = scr_level
  16.       PUSHSCREEN()
  17.    ELSE
  18.       POPSCREEN()
  19.       _wlevel = scr_level
  20.    ENDIF
  21.  
  22.    * This just calls the PUSHSCREEN() function that just tells it
  23.    * to save the entire screen if there is no parameter passed or
  24.    * if the parameter passed is set to logical true (.T.).  Otherwise
  25.    * the function calls the POPSCREEN() logic
  26.  
  27.    RETURN(_wlevel)
  28.  
  29. * End of File
  30.  
  31.  
  32.