rlm@90: (ns com.aurellem.save-corruption
rlm@90:   (:use (com.aurellem gb-driver vbm title)))
rlm@90: 
rlm@90: (use 'clojure.repl)
rlm@90: 
rlm@90: (defn-memo activate-menu []
rlm@90:   (->> (intro)
rlm@90:        (advance [:b] [:a :b :start])))
rlm@90: 
rlm@90: (defn-memo save-game []
rlm@90:   (->> (activate-menu)
rlm@90:        (advance [] [:d])
rlm@90:        (play-moves [[] [] [] [:d] [] [] [] [:d] [] [] [:a]])
rlm@90:        scroll-text))
rlm@90: 
rlm@90: 
rlm@90: 
rlm@90:        
rlm@90: 
rlm@90: