   (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

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

    (with-redefs [u/message println]
    (play-game))))

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

(defn parse-number
  "Reads a number from a string. Returns nil if not a number."
  [s]
  (if (re-find #"^-?\d+\.?\d*$" s)
    (read-string s)
    (let [s2 (str "0" s)]
      (if (re-find #"^-?\d+\.?\d*$" s2)
        (read-string s2)))))

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