10 REM > BLib.FInfo v1.00

   20 REM Read full file info

   30 :

   40 REM FNf_info - find full file information

   50 REM -------------------------------------

   60 DEFFNf_info(A$):LOCAL T%,L%,E%,S%,F%,U%,P%:X%!14=0:T%=FNfile(A$,5):IFT%=0:=0

   70 X%!17=0:X%!21=0:X%!25=0:F%=FNfs:IFF%<>16:IFF%<>5:=T%

   80 L%=X%!2:E%=X%!6:S%=X%!10:P%=X%!14

   90 IFF%=16:A%=FNfile(A$,&FD):IFX%!6=E%:IFX%!10=S%:X%!6=0:X%!10=0:X%!8=P%:X%?8=0

  100 IFF%=16:X%!14=P%:X%!17=X%!6:X%!21=X%!10:X%!25=X%!2:X%!2=L%:X%!6=E%:X%!10=S%:=T%

  110 IFFNNetFS_OpN(18,65,8,A$)=0:U%=X%!5

  120 IFFNNetFS_OpN(18,64,8,A$)=0:X%!15=X%!10:X%?19=X%?14:X%!20=X%!5:X%?24=X%?9 ELSE X%!14=P%:X%!19=P%:X%?19=0:X%!22=0

  130 X%!2=L%:X%!6=E%:X%!10=S%:X%?14=P%:X%!25=U%:=T%

  140 :

  150 REM FNf_access - convert access byte to access string

  160 REM -------------------------------------------------

  170 DEFFNf_access(A%,T%):LOCALA$:IF(A%AND128):A$="P"

  180 IF(T%AND2):A$=A$+"D"

  190 IF(A%AND8):A$=A$+"L"

  200 IF(A%AND2):A$=A$+"W"

  210 IF(A%AND1):A$=A$+"R"

  220 IF(A%AND5)=4:A$=A$+"E"

  230 A$=A$+"/":IF(A%AND32):A$=A$+"w"

  240 IF(A%AND16):A$=A$+"r"

  250 IF(A%AND80)=64:A$=A$+"e"

  260 =LEFT$(A$+"        ",8)

  270 :