// This Dialog box displays a line of text with an OK button
FIRSTDCL : dialog {
   label = "My First Dialog Box";
     : text { 
                 label = "Hello there, this is my first dialog box";
     }
     ok_only;
}

(defun c:FIRSTDCL ()
  (defun do_exit ()
    (done_dialog 1)
  )
  (setq SRT (load_dialog "FIRSTDCL"))
  (if (> SRT 0)
    (progn
      (new_dialog "FIRSTDCL" SRT)
      (action_tile "accept" "(do_exit)")
      (start_dialog)
      (unload_dialog SRT)
    )
  )
)