(defun c:inserisciTesto ( / testo dcl_id tastoPremuto) 
  (setq dcl_id (load_dialog "esempio1.dcl")) 
  (if (not (new_dialog "testorosso" dcl_id)) 
    (exit) 
  ) 
  
  (action_tile "svuotatxt" "(set_tile \"txt\" \"\")") 
  (action_tile "accept" "(setq testo (get_tile \"txt\")) (done_dialog 1)") 
  (setq tastoPremuto (start_dialog)) 
  (if (= tastoPremuto 1) 
    (progn 
        (command "_text" pause "2" "0" testo) 
        (command "_change" "_last" "" "_p" "_c" "_red" "") 
    ) 
  ) 
  (unload_dialog dcl_id) 
(prin1) 
)