Type Namen
    Field Nam$
    Field AddNam$
End Type 

initnames(s$);s$= datei die geöffnet werden soll

While Not ende = 1

Cls
updatenames()
Flip 

Wend
End 

Function InitNames(String$)

file = OpenFile(String)

If file = 1

For i = 1 To 8+ANZ

NM.Namen = New Namen

NM\Nam$=ReadLine (file)

Select NM\Nam$

Case \"//\";der anfang einer Addresse
NM\AddNam$=ReadLine (file)
ANZ=ANZ+8
Case \"\\\";Das ende einer Addresse
ZA=ZA+1
End Select

Next 
End Function

Function UpDateNames()

For NM.Namen = Each Namen

For i = 1 To ZA                      ;Diese Schleife
Text 0,43+tpx,NM\AddNam$  ;versteh ich absolut
tpx=tpx+20                          ;nicht, weiß net warum 
Next                                     ;es überhaupt geht!

Next 
End Function 

Type Namen
    Field Nam$
    Field AddNam$
End Type

Global ZA=0   ;du brauchst es in der Funktion, also Global....

initnames(s$);s$= datei die geöffnet werden soll

While Not(KeyHit(1))        ;Ende wird nie 1 sein 
  Cls
  updatenames()
  Flip
Wend
End

Function InitNames(s$)   ;String ist ein BB-Befehl, den darfst du nicht als Variable benutzen....
  file = OpenFile(s)

  If file <> 0       ;file ist 0, wenn nichts geladen wurde, und etwas anderes wenn etwas geladen wurde....

    For i = 1 To 8+ANZ
      NM.Namen = New Namen
      NM\Nam$=ReadLine (file)
      Select NM\Nam$
        Case \"//\";der anfang einer Addresse
          NM\AddNam$=ReadLine (file)
          ANZ=ANZ+8
        Case \"\\\";Das ende einer Addresse
          ZA=ZA+1
      End Select
    Next
  End If 
End Function
  
Function UpDateNames()
  For NM.Namen = Each Namen    ;mit dieser schleife gehst du alle adresseinträge durch
    For i = 1 To ZA                      ;Diese Schleife
      Text 0,43+tpx,NM\AddNam$  ;versteh ich absolut
      tpx=tpx+20                          ;nicht, weiß net warum
    Next                                     ;es überhaupt geht!
  Next
End Function