;Types
Type T_fremd
   Field yaytext$
End Type

Type T_bedeutung
   Field yaytext$
   Field parent
End Type

;Beispiel
;Neues Fremdwort
f.T_fremd = New T_fremd
f\yaytext$ = "h4x"
;Neue Bedeutung
b.T_bedeutung = New T_bedeutung
b\yaytext$ = "hacks"
b\parent = Handle(f.T_fremd)
;Noch eine Bedeutung dafür
b.T_bedeutung = New T_bedeutung
b\yaytext$ = "cheats"
b\parent = Handle(f.T_fremd)

;Funktion um das Ergebnis abzufragen
Function CheckVoc(richtigeshandle%, eingabehandle%)
   For b.T_bedeutung = Each T_bedeutung
      If b\parent = eingabehandle%
         If b\parent = richtigeshandle%
            Return 1
            Exit
         EndIf
      EndIf
   Next
End Function

;Funktion um ein Handle einer Vokabel zu bekommen
Function FindVoc(voc$)
   For b.T_bedeutung = Each T_bedeutung
      If b\yaytext$ = voc$
         Return Handle(b.T_bedeutung)
         Exit
      EndIf
   Next
End Function