anchor.diff:    (kali 0 1)
     (warte "kali" 16)
     (kredit)
  -  (format t "the maschine startx initialized, vermute ich")
  +  (format t "THE MASCHINE STARTX INITIALIZED, VERMUTE ICH")
     )
  -
   
   (defun kali-warte ()
     (setf (cdr (assoc "kali" *status* :test #'equalp)) 10)
     (kali 0 1)
     (warte "kali" 16)
  -  (format t "alle null kalibriert, denke ich."))
  +  (format t "ALLE NULL KALIBRIERT, DENKE ICH."))
   
   (defun agur ()
     (abal 0)
  
positive.code:                       address-zu-int))
           (gefunden (assoc address *status* :test #'equalp))) 
      (if (null gefunden)
          (format t "~%OSC routing not gefunden")
          (progn (rplacd gefunden  value)
                 (format t "~%=> ~S" gefunden)
  	       ))
  
negative.code: (defun warte-alle-stop ( )
    "warte bis alle stop"
    (process-wait "ALLE-WARTE" #'alle-stop-p)
    (format t "GESTOPPT ALLE")
    't)
  
  ;; z.B.
  