'**** HEADER ************************************************************
'EXDISP05.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 showerr()
'**** FUNCTION DECLARATIONS *********************************************
'library
external showerr() progress() scrollbox() relperf() replstr()
'core
'**** VARIABLE DECLARATIONS *********************************************
'library
public ptval ptstr
'core
'**** CODE **************************************************************

local fname orig_ext bak_ext err# fg bg rpi errstr

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

fname = "myfile"
orig_ext = ".ext"
bak_ext = ".bak"
fg = fgerror
bg = bgerror

clearerror
tools file copy fname|orig_ext to fname|bak_ext
err# = lerror

if err# = 0
   progress(fgpleasing,bgpleasing,"Success: backing up"&fname|orig_ext,0)
else
   relperf()
   rpi = ptval
   beep
   if showerr(err#) = 0
      if lower(ptstr) ! "continue"
         ptstr = left(ptstr,match(lower(ptstr),"continue")-3) | "!"
      end if
      if ptstr ! "%s"
         replstr(ptstr,"%s",chr(34)|fname|orig_ext|chr(34))
      end if
      errstr = ptstr
      if scrollbox(fg,bg,errstr,rpi) < 0
         scrollbox(fg,bg,left(errstr,scrwidth-4),rpi) < 0
      end if
   else
      scrollbox(fg,bg,"Unknown error backing up"&fname|orig_ext,rpi)
   end if
end if

unload "displib.psl"
unload "strlib.psl"