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

  Name:     disktoscr() - restore a screen from a disk file
  Usage:    <logical> = disktoscr(<file>,[<r1>,<c1>,<r2>,<c2>])
  Params:   string <file> - the name of the file to restore from
            integers <r1>,<r2>,<r3>,<r4> - the 4 row column
            coordinates to restore to. If left off, then the
            entire screen is assumed

  Returns:  nothing

 ---------------------------------- Example ---------------------------------

                 disktoscr("mainscrn.txt")

                 scrtodisk("window1",10,10,20,70)
                 cls()
                 disktoscr("window1",10,10,20,70)

  Note:     This is an example function, Clipper source code is
            provided on the source disk in the file c_diskto.prg.