Code: Select all
Function P_GetBits(flags)
Local f$ = "HSPARWED"
If Not (flags & #FILEATTR_HIDDEN) Then f$ = ReplaceStr(f$, "H", "-")
If Not (flags & #FILEATTR_SCRIPT) Then f$ = ReplaceStr(f$, "S", "-")
If Not (flags & #FILEATTR_PURE) Then f$ = ReplaceStr(f$, "P", "-")
If Not (flags & #FILEATTR_ARCHIVE) Then f$ = ReplaceStr(f$, "A", "-")
If Not (flags & #FILEATTR_READ_USR) Then f$ = ReplaceStr(f$, "R", "-")
If Not (flags & #FILEATTR_WRITE_USR) Then f$ = ReplaceStr(f$, "W", "-")
If Not (flags & #FILEATTR_EXECUTE_USR) Then f$ = ReplaceStr(f$, "E", "-")
If Not (flags & #FILEATTR_DELETE_USR) Then f$ = ReplaceStr(f$, "D", "-")
Return(f$)
EndFunction