'**** HEADER ************************************************************
'EXDISP01.PF3 (release .02)
'Copyright (c) 1990-1991 Applied Resource Technologies, Inc.
'P.O. Box 64381, Dallas, Texas 75206 U.S.A. (214) 855-0449
'Description: Demonstrates fgetscncoord()
'**** FUNCTION DECLARATIONS *********************************************
'library
external fgetscncoord() progress() progtag()
'core
'**** VARIABLE DECLARATIONS *********************************************
'library
public ptstr
'core
'**** CODE **************************************************************

local row row_offset col col_offset fname fsize
local the_screen desired_row desired_col

load "\smartii\poptools\lib\displib.psl" in-memory

fname = "\smartii\poptools\data\exdisp01.scn"     'release .02

if fgetscncoord(fname,4) = 0

     row = value(group(ptstr,1))
     row_offset  = value(group(ptstr,2))
     col = value(group(ptstr,3))
     col_offset  = value(group(ptstr,4))
     fsize = value(group(ptstr,5))

     desired_row = scrheight-4
     desired_col = scrwidth

     while desired_row + row_offset >= scrheight-4
           desired_row = desired_row - 1
     end while

     while desired_col + col_offset >= scrwidth
          desired_col = desired_col - 1
     end while

     error off
     clearerror

     fopen fname as 1
     fread 1 binary fsize into the_screen
     fclose 1

     error on

     if lerror = 0
          screen restore desired_row desired_col the_screen
     end if
else
     beep
     progress(fgerror,bgerror,"Error reading saved screen file" & fname,1)
     progtag(fgerror,bgerror,"Press any key to continue...")
end if

inchar

unload "displib.psl"