dlg.number <<= 10;
	for(;;)
		switch(dlg.Execute()) {
		case IDOK:
			PromptOK(AsString(~dlg.number));
			break;
		case IDCANCEL:
			return;
		}

        double x = Mul(p);
	for(;;)
		if(p.Char('+'))
			x = x + Mul(p);
		else
		if(p.Char('-'))
			x = x - Mul(p);
		else
			return x;