anchor.diff:  (defcommand (ch "olc" "zset" "top" value) (:immortal)
     (let ((zone (zone-of (in-room-of ch))))
       (when (check-can-edit ch zone +zone-zcmds-approved+)
  -      (let ((value (parse-integer value :junk-allowed t)))
  +      (with-numeric-input ((value "The zone top must be a number."))
           (cond
             ((not (security-is-member ch "OLCWorldWrite"))
              (send-to-char ch "You cannot alter zones in this way.~%"))
  -          ((null value)
  -           (send-to-char ch "The argument must be a number.~%"))
             ((some (lambda (zone)
                      (>= (* (number-of zone) 100) value (top-of zone)))
                    *zone-table*)
  
positive.code:                (push-zcmd zone nil #\D 0 (number-of to-room)
                            (aref +rev-dir+ dir) exit-flags 100)))
             (send-to-char ch "Command completed ok.~%")))))))
  
  (defcommand (ch "olc" "zput" container-name obj-vnum max-loaded prob) (:immortal)
    (with-numeric-input ((obj-vnum "Invalid vnum specified.")
  
negative.code:                            :insert-after mob-reset-cmd)
           (let ((obj (real-object-proto obj-vnum)))
             (when (and (< (number-of (shared-of obj)) max-loaded)
                        (null (aref (implants-of mob) pos)))
               (equip-char mob (read-object obj-vnum) pos :implant)))
           (send-to-char ch "Command completed ok.~%"))))))
  
  (defcommand (ch "olc" "zobj") (:immortal)
    (send-to-char ch "Usage: olc zobj <obj-vnum> <max-loaded> <prob>~%"))
  
  (defcommand (ch "olc" "zobj" junk) (:immortal)
    (declare (ignore junk))
    (send-to-char ch "Usage: olc zobj <obj-vnum> <max-loaded> <prob>~%"))
  
  (defcommand (ch "olc" "zobj" obj-vnum max-loaded prob) (:immortal)
    (with-numeric-input ((obj-vnum "Invalid vnum specified.")
  