(de er_angefangen (PID) (wait 200) (prinl *Pid " sagt: " PID " war Schuld") (tell PID 'er_schuld *Pid) (tell))

(unless (setq *der_andere (fork))
        (setq er_angefangen NIL)
        (de er_schuld (PID)
           (prinl *Pid " sagt: Aber " PID " hat angefangen")
           (tell PID 'er_angefangen *Pid) (tell))
        (wait))

(er_angefangen *der_andere)