                        (q/text (str "(put :r2 (target))") (get (line 3) :x) (get (line 3) :y))
                        (q/text (str "(put " (get-in @keyboard-input [:key-id]) " :r2)") (get (line 4) :x) (get (line 4) :y))
                        (q/text (str "=> 'ok") (get (line 2) :x) (get (line 2) :y))
-          (= code 3) (do
-                       (q/text (str "loading instr reg 3...") (get (line 1) :x) (get (line 1) :y))
-                       (q/text (str "...") (get (line 2) :x) (get (line 2) :y))
-                       (q/text (str "(eval '(put (key) (target))") (get (line 3) :x) (get (line 3) :y))
-                       (q/text (str "=> (put " (get-in @keyboard-input [:key-id]) " " (translate-target) ")") (get (line 4) :x) (get (line 4) :y))))))
-
+                       (= code 3) (do
+                                    (q/text (str "loading instr reg 3...") (get (line 1) :x) (get (line 1) :y))
+                                    (q/text (str "...") (get (line 2) :x) (get (line 2) :y))
+                                    (q/text (str "(eval '(put (key) (target))") (get (line 3) :x) (get (line 3) :y))
+                                    (q/text (str "=> (put " (get-in @keyboard-input [:key-id]) " " (translate-target) ")") (get (line 4) :x) (get (line 4) :y))))))
+  )
                      ;;1 push to empty y register
                      ;(fn [e] (do (divert-route :current-target :y)
                      ;            (put e :current-target)))

    (q/ellipse targ-x targ-y (* 2 x-scalar) (* 2 y-scalar))

    ;
   ;   (q/line op-sentinel-x op-sentinel-y (* 21.5 x-scalar) (* 7.33 y-scalar))
   ;   (q/line op-sentinel-x op-sentinel-y (* 15 x-scalar) (* 11.75 y-scalar)))


    ;solder the sentinels to the opcode getter

  (q/fill (:color state) 255 255)
  ; Calculate x and y coordinates of the circle.
  ;(let [angle (:angle state)
  ;     x (* 150 (q/cos angle))
  ;    y (* 150 (q/sin angle))]
  (let [x 19
        y 16
        meta-bounding-box (q/rect (* 0.25 x-scalar)
