Local dirname$=CurrentDir()

Type Tdir
   Field name$
End Type
Local Tdir.Tdir=New Tdir
Tdir\name$=dirname$

Local writer=WriteFile("Filelist.txt")
WriteLine writer,"* Nur als Übersicht für den BCC33-Contest-Leiter gedacht (und aller, die es genau wissen wollen) *"
WriteLine writer,""
Local size=0

Local dir
Local file$,fullname$

While Tdir<>Null
   dir=ReadDir(Tdir\name)
   WriteLine writer,Right(Tdir\name$,Len(Tdir\name$)-Len(CurrentDir()))+"\"
   
   Repeat
      file$=NextFile(dir)
      If file$="" Then Exit
      If Right(Tdir\name$,1)="\" Then
         fullname$=Tdir\name$+file$
      Else
         fullname$=Tdir\name$+"\"+file$
      EndIf
      If Right(file$,4)=".dat" Or Right(file$,4)=".png" Or Right(file$,3)=".bb" Then
         WriteLine writer," "+file$+": "+FileSize(fullname$)+"b"
         size=size+FileSize(fullname$)
      EndIf
      If Instr(file$,".")=0 Then
         If file$<>"Sonstiges" Then
            temp.Tdir=New Tdir
            temp\name$=fullname$
         EndIf
      EndIf
   Forever
   WriteLine writer,""
   CloseDir dir
   Delete Tdir
   Tdir=First Tdir
Wend

WriteLine writer,""
WriteLine writer,"Gesamt-Größe: "+size+" byte"
CloseFile writer
Delay 200
ExecFile("temp.txt")
End