ein(N,E):-asserta(dat(N,E)),append('c:/dat.pl'),writeq(dat(N,E)),write('.'),nl,told,
/* Übernahme von neuen Daten in die Datenbank */
aus(N,E):-clause(dat(N,E),true).
/* Suchen von Daten, Aufruf des Fensters aus zur Datenausgabe */
in:-not(at_end_of_stream),read(T),assert(T),in.
inf:-see('c:/dat.pl'),in.
inf:-seen.