1.1 --- a/clojure/com/aurellem/run/choreo.clj	Mon Jun 25 12:45:57 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/choreo.clj	Mon Jun 25 14:15:38 2012 -0500
     1.3 @@ -9,3 +9,27 @@
     1.4    (:import java.io.File))
     1.5  
     1.6  
     1.7 +
     1.8 +;; take over game
     1.9 +;; [X] silence noise
    1.10 +;; [ ] construct writing/playing kernel
    1.11 +;; [ ] play pony song while writing picture-program
    1.12 +;; [ ] run picture program to display pinkie pie mark
    1.13 +
    1.14 +
    1.15 +
    1.16 +(defn-memo silence-noise
    1.17 +  ([] (silence-noise (launch-main-bootstrap-program)))
    1.18 +  ([script]
    1.19 +     (->> script
    1.20 +          (write-RAM 0xFF1A [0 0 0]))))
    1.21 +
    1.22 +
    1.23 +(defn-memo write-pony-music-data
    1.24 +  ([] (write-pony-music-data (silence-noise)))
    1.25 +  ([script]
    1.26 +     (->> script
    1.27 +          (write-RAM 0xA000 
    1.28 +
    1.29 +
    1.30 +