home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CADKEY_C.ZIP / CADKEY14.ZIP / CDL / SH_RSTR.CDL < prev    next >
Encoding:
Text File  |  1980-01-01  |  350 b   |  16 lines
  1.  
  2. REM     name:     sh_rstr.cdl
  3.  
  4. REM     date:     011288 simon izraelevitz
  5.  
  6. REM     task:     Restores window, units and current view. Used by the
  7. REM               utility programs.
  8.  
  9. REM     -----------------------------------------------
  10.  
  11.    SET VIEW, curview
  12.    SET UNIT, units
  13.    WINDOW wx1, wy1, wx2, wy2
  14.    REDRAW
  15.    MODE NORMAL
  16.