anchor.diff:    (sleep 2)
     (x-kurz ">startx<ready!AA"))
   
  -(defun startx ()
  +(defun startx-0 ()
     (setf (cdr (assoc "kali" *status* :test #'equalp)) 10)
     (netz 1)
     (sleep 1)
  
positive.code:                                   *startx-ip* *startx-osc-port*
                                    :protocol :datagram
                                    :element-type '(unsigned-byte 8))))
  (
  defun kill-socket-s ()
    (usocket:socket-close *socket-s*))
  
  (defun mach-socket-r ()
  
negative.code:   "warte bis alle stop"
    (sleep 0.1) ; braucht zwsn zeit,weil zu schnell die 'warte-alle-stop, inklusive
    (process-wait "ALLE-WARTE" #'alle-stop-p)
    (format t "~&GESTOPPT ALLE~%")
    't)
  
  (defparameter *satz-dauer* 2)
  