Topic: Please Help

[srcadguy]

I think the computer Gods hate me sometimes. I"m new to writing LISP's and so I thought to get a feel for things I'd copy something simple from one of the links that's on this site. http://www.afralisp.net/index.php Very helpful link by the way. So anyway, I thought I would also learn about DCL and that's where I am having trouble. When I followed this example from the following link, http://www.afralisp.net/dialog-control-language/tutorials/getting-started-part-1.php, I get these error messages that I attached. Please tell me what I am doing wrong.

[CAB]

Maybe a copy & paste error. Try these reformatted:

Code: [Select]

;;AUTOLISP CODING STARTS HERE
(defun C:TEST_DCL1 (/ dcl_id)
  (setq dcl_id (load_dialog "test_dcl1.dcl"))
  (if (new_dialog "test_dcl1" dcl_id)
    (progn
      (action_tile "accept" "(done_dialog)")
      (start_dialog)
      (unload_dialog dcl_id)
    )
  )
  (princ)
)                                       ;defun
(prompt "\nType TEST_DCL1 to run...")
(princ)
;;AUTOLISP CODING ENDS HERE

Code: [Select]

//DCL CODING STARTS HERE
test_dcl1 : dialog
{label = "Test Dialog No 1";
 : text { label = "This is a Test Message"; alignment = centered; }
 : button { key = "accept"; label = "Close"; is_default = true;
            fixed_width = true; alignment = centered; }
}
//DCL CODING ENDS HERE
And welcome