win=CreateWindow("Vokabeln",100,100,800,600,Desktop(),15)
button_neu_voc=CreateButton("Neue Vokabeln",0,0,100,25,win,1)
Repeat
   Select WaitEvent()
      Case $803
         If Confirm("Wirklich beenden?") End
      Case $401
         Select EventSource()
            Case button_neu_voc
               Vokabel_Deutsch$=Eingabe(win,50,50)
               Notify Vokabel_Deutsch
               Vokabel_Englisch$=Eingabe(win,50,50)
               Notify Vokabel_Englisch
         End Select
   End Select
Forever
End
Function Eingabe(fenster,x,y)
   button_ok=CreateButton("Ok",x,y+25,25,25,fenster,1)
   button_abbrechen=CreateButton("Abbrechen",x+30,y+25,100,25,fenster,1)
   Text_Feld=CreateTextField(x,y,100,25,fenster)
   Repeat
      Select WaitEvent()
         Case $803
            If Confirm("Wirklich beenden?") End
         Case $401
            Select EventSource()
               Case button_abbrechen
                  FreeGadget button_abbrechen
                  FreeGadget button_ok
                  FreeGadget Text_Feld
                  Exit
               Case button_ok
                  txt$=TextFieldText(Text_Feld)
                  Notify txt
                  FreeGadget button_abbrechen
                  FreeGadget button_ok
                  FreeGadget Text_Feld
                  Return txt$
            End Select
      End Select      
   Forever
End Function