anchor.diff:  (defun mach-socket-s ()
     "FUER BEFEHL, SEND"
     (defparameter  *socket-s* (usocket:socket-connect
  -                                  *startx-ip* *startx-osc-port*
  +                                  *startx-ip* *osc-port*
                                     :protocol :datagram
                                     :element-type '(unsigned-byte 8))))
   
  
positive.code:   (seq-16-d "stop")
    (abal 0))
  
  
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)
  