home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR19 / SNIP0693.ZIP / WINSAVE.PRG < prev   
Text File  |  1993-03-13  |  747b  |  23 lines
  1. #translate winsave([ < color > ] [ , < cursor > ] ) =>  ;
  2.                    { savescreen() , ;
  3.                      setcolor( [ < color > ] )   , ;
  4.                      row()  ,       ;
  5.                      col() ,        ;
  6.                      setcursor( [ < cursor > ] ) }
  7.  
  8. #translate winrest( <Array> ) =>  ;
  9.                    ( setcolor( <Array>\[2\])   , ;
  10.                      restscreen(0,0,24,79,<Array>\[1\]) , ;
  11.                      setpos(<Array>\[3\],<Array>\[4\]) , ;
  12.                      setcursor(<Array>\[5\]) )
  13.  
  14.  
  15.  func main
  16.  Local Winbuff := Winsave('b/g,g/b',0)
  17.  // app
  18.  Winrest( Winbuff )
  19.  Quit
  20.  
  21.  // THE most elegant solution is to save it all and restore it all.
  22.  // Gives a very nice feel to the app.
  23.