Global lines,bytes,files,blanklines,commentlines
Dim filenames$(50)
Dim filelines(50)

Repeat
   Print "Type 'Exit' for end"
   filename$ = Input("Filename?  ")
   If Trim(Lower(filename)) = "exit" Then End
   SearchFile filename
   Print filename + " and its includes have"
   Print "   " + files + " files:"
   For i = 0 To files - 1

      Print "      " + filenames(i) + " (" + filelines(i) + " lines of code)"

   Next
   Print "   " + bytes + " bytes of code"
   Print "   " + lines + " lines of code"
   Print "   " + blanklines + " blank lines"
   Print "   " + commentlines + " comment lines"
   Print
   Reset
Forever

Function SearchFile(filename$)

   filenames(files) = filename
   Local fileid = files
   files = files + 1
   bytes = bytes + FileSize(filename)

   Local file = ReadFile(filename)

   While Not Eof(file)

      Local l$ = Lower(Trim(ReadLine(file)))

      ; grob...
      If l = "" Then
         blanklines = blanklines + 1
      ElseIf Left(l,1) = ";" Then
         commentlines = commentlines + 1
      Else
         lines = lines + 1
         filelines(fileid) = filelines(fileid) + 1
      End If

      inc = Instr(l,"include") > 0

      If inc > 0 Then

         Local f$ = ""
         Local pos = 0
         If Mid(l,inc + 8,1) = Chr(34) Then
            While Mid(l,inc + 9 + pos,1) <> Chr(34)

               f = f + Mid(l,inc + 9 + pos,1)

               pos = pos + 1
            Wend

            SearchFile f
    			End If

      End If

   Wend

   CloseFile file

End Function

Function Reset()
   lines = 0
   files = 0
   chars = 0
   blanklines = 0
   commentlines = 0
End Function

Include "..\Libs\gui.bb"