   (println "   7 = CALL ON LIBRARY COMPUTER")
   (println))
 
+(defn user-input []
+  (parse-number (read-line)))
+
 (defn play-game []
   (w/new-game-state game-state)
-  (w/enter-sector)
+  (w/enter-quadrant game-state)
   (let [stop-condition (ref false)]
     (while (not (deref stop-condition))
       ; check to see if the Enterprise is destroyed

       edn/read-string
       (map :page)))

; only needed for reading numbers from command line
(let [m (.getDeclaredMethod clojure.lang.LispReader
                            "matchNumber"
                            (into-array [String]))]
  (.setAccessible m true)
  (defn parse-number [s]
    (.invoke m clojure.lang.LispReader (into-array [s]))))

(defn print-instructions [pause]
  (loop [p pages]

  (let [seed (parse-number (read-line))]
    (binding  [gen/*rnd*  (java.util.Random. seed)])

    (with-redefs [u/message println
                  n/pick-course user-input
                  n/pick-warp-factor user-input
                  e/pick-phaser-power user-input
                  e/pick-torpedo-course user-input
                  e/pick-shield-power user-input ]
    (play-game))))
