Form.load (v:Binärbaum)
var
   x : Textdatei;
   y : String;
begin
 while not Dateiende(x) do
   begin
    LiesZeile(x, y);
     if y enthält Zeichen(*) then // Zeichen * markiert Blätter
      begin
        lösche Zeichen(*);//Zeichen wird gelöscht, es diente nur zum markieren
        load(v.gibRechtenBaum.erzuge(y));
        load(v.giblinkenBaum.erzeuge(y));    
      end
        else
         v.erzeuge(y);
   end;
end;