Тема: dcl "не понятно"
Здравствуйте. я первый раз столкнулся с программированием а АС, посему есть глупый вопрос. перепробовал много примеров, ниже приведен один из них. проблема банальная. при запуске программы, никак не хочет вылезать диалоговое окно. отпечатывается результат этого выражения (princ "\nMyFirst"), то есть вроде работает все, ан нет.
файлы в одной папке. названы, как требует код. пробовал в разных версиях акада даже.
в общем, господа, помогите разобраться.
заранее спасибо.
dcl_settings : default_dcl_settings { audit_level = 3; }
//---------------------------------------------------------------------------------------------------------
// MyFirst
//---------------------------------------------------------------------------------------------------------
MyFirst : dialog {
label = " Hello World";
spacer;
: text {
label = "This is my first dialog.";
alignment = centered;
}
spacer;
ok_only;
}//MyFirst
;----------------------------------------------------------------------------------------------------------
; c:MyFirst - You've got to start somewhere
; Syntax: MyFirst
;----------------------------------------------------------------------------------------------------------
(defun c:MyFirst (/ Dcl_Id%)
(princ "\nMyFirst")(princ)
; Load Dialog
(setq Dcl_Id% (load_dialog "MyDialogs.dcl"))
(new_dialog "MyFirst" Dcl_Id%)
; Dialog Actions
(start_dialog)
; Unload Dialog
(unload_dialog Dcl_Id%)
(princ)
);defun c:MyFirst
