// cam2bmp.mac

	$GvPath="c:\\Gv32\\gv.exe";
	$DirIn="D:\\img\\CAM\\";
	$DirOut="D:\\img\\BMP\\";

	ddeinitiate "GV","System";
	if (!result) {
		title " GV 起動";
		run $GvPath+" /DDE /ICON";
		if (!result) {message "GVが起動できません."; endmacro; }
		ddeinitiate "GV","System";
		if (!result) {message "GVが正常に立ち上がりません."; endmacro;}
	}

	ddeexecute "ShowGV(OFF)";
	ddeexecute "Aspect(67,W)";
	ddeexecute "AutoAspect(OFF)";
	ddeexecute "AutoResize(OFF)";
	gofiletop;
	beginsel;
	golineend;
	copy;
	beginclipboardread;
	$a = getclipboard;
	while($a!="") {
		title "ｺﾝﾊﾞｰﾄ "+$a;
		ddeexecute "FileOpen("+$DirIn+$a+".CAM)";
		if(!result) {message "GV load error"; endmacro; }
		ddeexecute "FileSaveEx("+$DirOut+$a+".BMP,ON,ON)";
		if(!result) {message "GV save error"; endmacro; }
		right;
		beginsel;
		golineend;
		copy;
		beginclipboardread;
		$a = getclipboard;
	}
	ddeexecute "ExitGV()";
	message "コンバートが終了しました.";
	endmacro;