anchor.diff:                 (cxn-write cxn "~%")))))
        finally (when (and brief (not (logtest idx 1)))
                  (cxn-write cxn "~%"))))
  -                  
  +
   (define-connection-state main-menu
     (menu (cxn)
      (cxn-write cxn "&@&c*&n&b-----------------------------------------------------------------------------&c*
  
positive.code: (defun player-pathname (idnum)
    (make-pathname :name (princ-to-string idnum)
  				 :type "dat"
  				 :defaults
  				 (merge-pathnames (format nil "lib/players/character/~d/"
  										  (mod idnum 10))
  								  (asdf:component-pathname
  								   (asdf:find-system "tempus")))))
  
  (defun equipment-pathname (idnum)
    (make-pathname :name (princ-to-string idnum)
  				 :type "equip"
  				 :defaults
  				 (merge-pathnames (format nil "lib/players/equipment/~d/"
  										  (mod idnum 10))
  								  (asdf:component-pathname
  								   (asdf:find-system "tempus")))))
  
  (defun corpse-pathname (idnum)
    (make-pathname :name (princ-to-string idnum)
  				 :type "dat"
  				 :defaults
  				 (merge-pathnames (format nil "lib/players/corpses/~d/"
  										  (mod idnum 10))
  								  (asdf:component-pathname
  								   (asdf:find-system "tempus")))))
  
  (defun player-to-game (player)
    (setf (login-time-of player) (now))
  
negative.code:   (prompt (cxn)
      (cxn-write cxn "Enter your selection: "))
    (input (cxn line)
     (cond
       ((string= line "")
        (send-menu cxn 'main-menu))
       ((or (char-equal (char line 0) #\l) (eql (char line 0) #\0))
  