AppTitle "Adressbuch"

Dim address$(100,6)
Repeat

 Print "1 - Adresse eingeben"
 Print "2 - Adresse abfragen"
 Print "3 - Adressbuch speichern"
 Print "4 - Ende"
 Print " "
 vote = Input$("Bitte wählen: ")

 Cls
 Locate 1, 1

 Select vote
   Case 1
   index = index + 1
   address$(index,0) = Input("Telefonnummer: ")
   address$(index,1) = Input("Vorname: ")
   address$(index,2) = Input("Nachname: ")
   address$(index,3) = Input("Straße und Hausnr.: ")
   address$(index,4) = Input("Wohnort: ")
   address$(index,5) = Input("Land: ")
   address$(index,6) = Input("E-Mail Adresse: ")
  Case 2
   found = 0
   search$ = Input$("Nachname eingeben: ")
   For I=1 To index
    If address$(I,2) = search$ Then
     Print address$(I,1) + " " + address$(I,2)
     Print "- " + address$(I,0)
     Print "- " + address$(I,3)
     Print "- " + address$(I,4)
     Print "- " + address$(I,5)
     Print "- " + address$(I,6)
     found = 1
    EndIf
   Next
   If found = 0 Then Print "Kein Eintrag gefunden"
  Case 3
   f = WriteFile("otext.txt")
    For I = 0 To 100
     For J = 0 To 6
      WriteString address$(I,J),f
     Next
    Next
   CloseFile f
   Print "done!"
  Case 4
   End
  Default
   Print "Ungültige Wahl"
  End Select
  Print "Taste drücken"
 WaitKey
Forever

     WriteString address$(I,J),f

     WriteString f,address$(I,J)