               (motor motorforce (:front wheels))))
        (torque! body (* mass dspeed 10) 0 0))
 
-      (key? "s")
+      (or (key? "s")
+          (joy-down?))
       (if grounded 
        (if (> forward-speed (- max-speed))
           (do (force! body 0 0 (* mass dspeed -20))

       (do (motor 0 (:rear wheels))
           (motor 0 (:front wheels))))
     (cond 
       (key? "a") 
       (if grounded
           (do (swap! steerage #(max (- max-turn) (- % (∆ 45))))
               (steer (- @steerage) (:rear wheels))
               (steer @steerage (:front wheels)))
           (torque! body 0 (* mass dspeed -24) 0))
       (key? "d") 
       (if grounded
           (do (swap! steerage #(min max-turn (+ % (∆ 45))))
               (steer (- @steerage) (:rear wheels))


    (when @STANDING 
     (cond 
      (or (key? "w")
          (joy-up?))
      (if grounded 
       (if (< forward-speed max-speed)
          (do (force! body 0 0 (* mass dspeed 20))
