Module: _savescr      Library: Clipper 5.3


This module contains the following functions and procedures:

function __XRESTSCR
function __XSAVESCR

Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally 
performed based on the contents of STD.CH and other .CH files
 
#include "common.ch"
#include "inkey.ch"

//-----------------------------------------------------------------
//  file-wide static variables
//
static Static1

//---------------------------------------------------[top]-
//  __XRESTSCR
//
function __XRESTSCR

   if ( Static1 != Nil )
      restore screen from Static1[ 3 ]
      SetPos(Static1[ 1 ], Static1[ 2 ])
   endif
   Static1 := Nil
   return Nil

//---------------------------------------------------[top]-
//  __XSAVESCR
//
function __XSAVESCR

   Static1 := {Row(), Col(), SaveScreen(0, 0, MaxRow(), MaxCol())}
   return Nil

//---EOF


Use your Browser's BACK button to return to Function Listings