Click above to get retro games delivered to your door ever month!

 RESTSCR(<C filespec> [,<C memvar name> [,"G"]])
 Reads a disk file directly into video RAM, or into a character-type memvar.
 Returns <expL> false if the file is not found, otherwise true.

 <filespec> is the file name from which to restore the screen.
 <memvar name> optionally restores the screen to 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 rapid screen painting for screens which cannot be saved
 in memory variables, like opening screens.

 Default file extension is .SCN if none is specified.

 * Default extension
 IF .NOT. RESTSCR( "Myscreen" )
    ? "Error -- screen file not found"
 ELSE
    <appropriate code for the restored screen>
 ENDIF

 * Specified extension
 IF RESTSCR( "Myscreen.xxx" )
    <appropriate code for the restored screen>
 ENDIF

 * Into memvar instead of screen
 m_screen = SPACE(4000)  && requires 4,000 bytes
 IF RESTSCR( "Myscreen", "m_screen" )
    * Restored screen is in m_screen, not on CRT
 ENDIF

 Hazard
    Does not reactivate any GETs that were on the screen. If you
    want to READ the GETs again, you must @...GET them again.


             Placed in the Public Domain by Tom Rettig Assoc.