name$ = input("Name: ")
vorname$ = input("Vorname: ")
telefon$ = inpu("Telefon-Nr.: ")

dim Daten(3)
;einlesen
Daten$(1) = name$
Daten$(2) = vorname$
Daten$(3) = telefon$
;ausgabe
for i = 1 to 3
 write Daten$(i) + ""
next

Type Eintrag
   Field name$
   Field adress
   Field phonenumber
End Type

Graphics  400,200,1,2
SetBuffer BackBuffer()

Global status = 1
Global Name$
Global Vornamen$
Global Telefon$
Dim Daten$(3)

While status = 1

Cls

Text 10,20, "1- Eintragen"
Text 10,40, "2- Suchen"
Text 10,60, "3- Verzeichnis"
Text 10,80, "4- Ende"

Locate 10,100
auswahl = Input("")

If auswahl = 1 Then
 Eingabe()
Else If auswahl = 2 Then
 Suche()
Else If auswahl = 4 Then
 status = 0
Else If auswahl = 3 Then
 Verzeichnis()
Else
 Text 10,120, "Ungültige Eingabe!!!"
End If

Daten$(1) = Name$
Daten$(2) = Vornamen$
Daten$(3) = Telefon$



Wend



;;;;;;;;;;;;;;;FUNKTIONEN
Function Eingabe()
Cls
Locate 10,20
 Name$ = Input$("Bitte geben Sie Ihren Namen ein: ")
 Vornamen$ = Input$("Bitte geben Sie Ihren Vornamen ein: ")
 Telefon$ = Input$("Bitte geben Sie Ihre Telefon-Nr. ein: ")

Flip
End Function
;;;;;;;;;;;;;;;;;;;;;;
Function Suche()
Cls
Print "Suchen"
WaitKey
Flip
End Function
;;;;;;;;;;;;;;;;;;
Function Verzeichnis()
Cls
For i = 1 To 3
 Write Daten$(i) + " "
Next
Print ""
WaitKey
Flip
End Function

Graphics 800,600,16,2
SetBuffer BackBuffer()

Type p
Field name$
Field vorname$
Field tel
End Type

Global p.p
SetNames()
main()

Function main()
Repeat
Print "1- Hinzufügen"
Print "2- Ansehen"
Print "3- Suchen"
Print "4- Beenden"
i = Input("")
Select i
Case 1
Add()
Case 2
Show()
Case 3
Search()
Case 4
End
End Select
Until KeyHit(1)
End
End Function

Function Add()
p.p = New p
Print "-Hinzufügen-"
p\vorname$ = Input("Vorname : ")
p\name$ = Input("Nachname : ")
p\tel = Input("Telefonnummer : ")
Print "Danke !"
Print "Daten erfolgreich eingetragen."
FlushKeys()
WaitKey()
End Function

Function show()
Print "-Anzeigen-"
Var = 0
For p.p = Each p
Var = Var + 1
Print Var + " : "+p\vorname$+" "+p\name$+" / "+p\tel
Next
If Var > 0 Then
Print "Alle Daten Angesehen !"
Else
Print "Keine Daten vorhanden !"
EndIf
FlushKeys()
WaitKey()
End Function

Function Vergleich(tt1$,tt2$)
For i = 1 To Len(tt1$)
If Mid(tt1$,i,Len(tt2$)) = tt2$ Then Return 1
Next
End Function

Function Search()
Print "-Suche-"
Print "Gib bitte einen Teil des Namens oder Nachnamens an !"
nam$= Upper(Input(">"))
Var = 0
Print "Suchergebnisse : "
For p.p = Each p
Var = Var + 1
tt1$ = Upper(p\name$)
tt2$ = Upper(p\vorname$)
If Vergleich(tt1,nam$) Or Vergleich(tt2,nam$) Then
Print Var + " : "+p\vorname$+" "+p\name$+" / "+p\tel
EndIf
Next
Print "Keine weiteren namen gefunden !"
FlushKeys()
WaitKey()
End Function

Function SetNames()
Read rr
For i = 1 To rr
p.p = New p
Read p\vorname$,p\name$,p\tel
Next
End Function


.Namen
Data 10
Data "Ulf","Müller",123456
Data "Heinz","Lacker",556677
Data "Karl","Becker",098723

Data "Otto","Meinsu",887703
Data "Lucky","Luke",666666
Data "Tobias","Klap",787878

Data "Otto","Hünersuppe",129854
Data "Karl","Klosett",883311
Data "Friederich","Lachgas",7693764

Data "Franz","von Hahn",555555