'**** HEADER ************************************************************
'EXDOS05.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 getattrib()
'**** FUNCTION DECLARATIONS *********************************************
'library
external dosdrive() getattrib() progress() progtag()
'core
'**** VARIABLE DECLARATIONS *********************************************
'library
public ptstr psa
'core
'**** CODE **************************************************************

local fname err_msg attr_str x dfalt

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

dfalt = NULL
if dosdrive() = 0
     dfalt = ptstr
end if

fname = dfalt|"\smartii\poptools\data\example.txt"

x = getattrib(fname)

attr_str = ptstr    ' always get the function result immediately

if x < 0
     beep
     progress(fgerror,bgerror,upper(fname),1)
     err_msg = "ERROR!" & chr(34)| case x \
               (-1,"function code invalid"|chr(34)) \
               (-2,"file not found"|chr(34)) \
               (-3,"path / file doesn't exist"|chr(34)) \
               (-5,"attribute can't be checked"|chr(34)) \
               else "unknown error"|chr(34)
     progtag(bgerror,fgerror,err_msg)
     jump done
end if

progress(fginvpleasing,bginvpleasing,fname,1)

attr_str = case attr_str (NULL,"None") else chr(34)|upper(attr_str)|chr(34)

progtag(fgstandard,bgstandard,"Attributes:"&attr_str)

label done
inchar

unload "doslib.psl"
unload "displib.psl"