SAVESCR(<C filespec> [,<C memvar name> [,"G"]])
 Saves the current screen to a disk file for later use.
 Returns <expL> true if file is successfully written, otherwise false.

 <filespec> is the file name to which to save a screen image.
 <memvar name> optionally saves a screen stored in a memory variable.
 "G" allows use on monochrome graphics cards such as Hercules and Compaq.

 Since the second parameter is also optional, if you need to
 pass the third parameter, but want to go directly to/from
 the screen instead of a memvar, you must pass a null, "",
 for the second parameter:  RESTSCR( <filespec>, "", "G" )

 Provides permanent storage for screens which you do not save
 in memory variable (.MEM) files.

 Default file extension is .SCN if none is specified.

 * Default extension
 IF .NOT. SAVESCR( "Myscreen" )
    * If file is not completely written,
    * delete it, so RESTSCR() won't find it.
    IF FILE("Myscreen.scn")
       ERASE Myscreen.scn
    ENDIF
 ENDIF

 * Specified extension
 IF .NOT. SAVESCR( "Myscreen.xxx" )
    * If file is not completely written,
    * delete it, so RESTSCR() won't find it.
    IF FILE("Myscreen.xxx")
       ERASE Myscreen.xxx
    ENDIF
 ENDIF

 * Save from memvar instead of current screen.
 * m_screen contains the screen image.
 IF SAVESCR( "Myscreen", m_screen )
    * Image from m_screen is saved in Myscreen
 ENDIF


             Placed in the Public Domain by Tom Rettig Assoc.