FILEATTR FOR CLOSED FILES
FILEATTR(CLOSED,1)= 0 
FILEATTR(CLOSED,2)= 0 
FILEATTR FOR INPUT FILES
FILEATTR(INPUT ,1)= 1 
FILEATTR(INPUT ,2)= 0 
FILEATTR FOR OUTPUT FILES
FILEATTR(OUTPUT,1)= 2 
FILEATTR(INPUT ,2)= 0 
FILEATTR FOR RANDOM FILES
FILEATTR(RANDOM,1)= 4 
FILEATTR(RANDOM,2)= 0 
FILEATTR FOR APPEND FILES
FILEATTR(APPEND,1)= 8 
FILEATTR(APPEND,2)= 0 
FILEATTR FOR BINARY FILES
FILEATTR(BINARY,1)= 32 
FILEATTR(BINARY,2)= 0 
FILEATTR WITH INVALID X < DEVMIN
FILEATTR(#0,1)=
ERR = 5 
ERL = 100 
ERR$=ILLEGAL FUUNCTION CALL: FILEATTR(X)
FILEATTR WITH INVALID X > DEVMAX
FILEATTR(#999,2)=
ERR = 5 
ERL = 200 
ERR$=ILLEGAL FUUNCTION CALL: FILEATTR(X)
FILEATTR WITH INVALID Y < 1
FILEATTR(...,0)=
ERR = 5 
ERL = 300 
ERR$=ILLEGAL FUUNCTION CALL: FILEATTR(Y)
FILEATTR WITH INVALID Y > 2
FILEATTR(...,3)=
ERR = 5 
ERL = 400 
ERR$=ILLEGAL FUUNCTION CALL: FILEATTR(Y)
