Function Invisible(F As FolderItem) As Boolean
  Dim TIS As TextInputStream
  Dim S,All As String
  Dim I As Integer
  dim g as folderitem
  
  If Left(F.Name,1)="." or not f.visible Then
    Return True
  End If
  
  g=F.Parent.Child(".hidden")
  If g.Exists Then
    TIS=g.OpenAsTextFile
    if tis<>Nil then
      All=TIS.ReadAll
      For I=1 to CountFields(All,Chr(11))
        S=NthField(All, Chr(11), I)
        If S=F.name Then
          Return True
        End If
      Next
    end if
  End if
End Function