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

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

  Returns:  .T. if screen saved, .F. if error opening or writing
            to the file

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

                 scrtodisk("mainscrn.txt")
                 nap(50)
                 disktoscr("screen2.txt")

  Note:     This is an example function. Clipper source code is
            included on the source disk in the file c_scrtod.prg.