(defun c:DclJump ( / DAT DONE LISTE OK)
(setq liste
       '((1 . "")
         (2 . "")
         (3 . "")))

  (setq dat (load_dialog "DclJump.dcl"))
  (if	(not (new_dialog "DclJump" dat)) (exit))
  (DclJump:Set liste)
  (DclJump:Mode liste)
  (action_tile "accept" "(setq liste (DclJump:Get liste))(setq done(DclJump:Mode liste))(if done (done_dialog 1))")
  (action_tile "ok" "(setq liste (DclJump:Get liste))(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 99)")
  (setq Ok (start_dialog))

  (if (= ok 1)(alert "Jetzt können die Eingaben ausgewertet werden."))
  )
  
  
    
(defun DclJump:Get (liste / )
  (setq liste (subst (cons 1 (get_tile "e1"))(assoc 1 liste)liste)
        liste (subst (cons 2 (get_tile "e2"))(assoc 2 liste)liste)
        liste (subst (cons 3 (get_tile "e3"))(assoc 3 liste)liste)))
                               

(defun DclJump:Set (liste / )
  (set_tile "e1" (cdr(assoc 1 liste)))
  (set_tile "e2" (cdr(assoc 2 liste)))
  (set_tile "e3" (cdr(assoc 3 liste))))

(defun DclJump:Mode (liste / done)
  (cond ((=(cdr(assoc 1 liste))"")
         (mode_tile "e1" 2))
        ((=(cdr(assoc 2 liste))"")
         (mode_tile "e2" 2))
        ((=(cdr(assoc 3 liste))"")
         (mode_tile "e3" 2))
        ('T
         (setq done 'T)
         (mode_tile "accept" 2)))
  done)