prototype cdecl int checkh.CallExtern( STRING , STRING);
prototype foo ;

function foo()
	NUMBER retcode ;
	NUMBER res ;
	int nValue ;
	STRING szString ;
	STRING szDLL ;
begin
	szDLL = SRCDIR^"foo.DLL" ;
	res = UseDLL(szDLL) ;
	
	szString = SUPPORTDIR^"foo.EXE" ;
	retcode = CallExtern(szString , "") ;

	
	//「中止」で２が戻り値
	//「継続」で１が戻り値
	
	res = UnUseDLL(szDLL) ;
	return retcode ;
	
end ;