'**** HEADER ************************************************************
'EXDISP04.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 scrollbox()
'**** FUNCTION DECLARATIONS *********************************************
'library
external relperf() scrollbox() tone()
'core
'**** VARIABLE DECLARATIONS *********************************************
'library
public ptval dsa
'core
'**** CODE **************************************************************

local nkey fg bg rpi

load "\smartii\poptools\lib\displib.psl" in-memory
load "\smartii\poptools\lib\soundlib.psl" in-memory
fg = fgerror
bg = bgerror

relperf()
rpi = ptval

tone("error")
if scrollbox(fg,bg,"DISK FULL! Erase backup files and continue (y/n)?",rpi)=0
     screen shortrestore dsa
     if ptval = {Y} or ptval = {y}
          message "Deleting backup files to make room for new file"
          ' return to normal operations
     else
          message "You have chosen to abort"
          ' exit the application module
     end if
end if

unload "displib.psl"
unload "soundlib.psl"