	TYPE (dialog) dlg
	INTEGER GetIntegerFromDialog
	REAL(8) GetRealFromDialog
!	LOGICAL GetLogFromDialog
!	INTEGER GetComboFromDialog
!	CHARACTER(127) GetStringFromDialog
	CHARACTER(12) IntToString
	CHARACTER(22) RealToString
	INTEGER id
	INTEGER event