anchor.diff:       (with-font (make-font :face *font-face* :size 20 :color (color 4))
          (text "(c) Danilo Vidovic (vydd)" 286 440)
          (text "made during Spring Lisp Game Jam 2016" 218 460)))
  -    (:running
  +    ((:starting :running)
  +     (when (eql (slot-value game 'state) :starting)
  +       (with-font (make-font :face *font-face* :size 16 :color (color 4))
  +	 (text "PRESS SPACE WHEN YOU MATCH SHAPE AND COLOR" 208 143)))
        (with-font (make-font :face *font-face* :size 30 :color (color 4))
          (text title 700 540)
          (text (format nil "SCORE~6d" (slot-value game 'score)) 30 540))
  
positive.code:    (scanner :initarg :scanner)
     (level :initform 0)
     (score :initform 0)
     (state :initform :initial) ;; :initial, :running, :lost
     (time :initform 0)))
  
  (defmethod tick ((instance game))
  
negative.code: 
  (defmethod action ((instance game))
    (with-slots (scanner score state time belt level) instance
      (setf state :running)
      (let ((scan (scan scanner))
  	  (select (selection scanner)))
        (if (and (eql (first scan) (first select))
  