anchor.diff:    "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")
  +  (format t "~&GESTOPPT ALLE~%")
     't)
   
   (defparameter *satz-dauer* 2)
  
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)))
      gefunden))
  
  (defun osc-router-loop ()
  
negative.code:   (kali-raw 0 1)
    (warte "kali" 16)
    (kredit)
    (format t "~&THE MASCHINE STARTX INITIALIZED, VERMUTE ICH~%")
    )
  
  (defun startx ()
    (process-run-function "startx-t" #'startx-0))
  
  (defun kali-warte ()
    (setf (cdr (assoc "kali" *status* :test #'equalp)) 10)
    (kali 0 1)
    (warte "kali" 16)
    (format t "~&ALLE NULL KALIBRIERT, DENKE ICH.~%"))
  
  (defun agur-0 ()
    (abal 0)
    (sleep 7)
    (stm 0 0)
    (sleep 1)
    (netz 0)
    (format t "~&AGUR!~%"))
  
  (defun agur ()
    (process-run-function "agur-t" #'agur-0))
  
  (defun foo (stepper-lst abs &optional maxi-x aksel-x)
    (progn (maxi stepper-lst maxi-x)
  