//*********************************************
//     BLOOD GROUP for HR2 THE SIMULATOR
//
//  NAME     :  PORTER type A
//  PURPOSE  :  seek R_FLAG->get ERG->
//              seek G_FLAG->put ERG
//  CHARACTER:  Majime
//
//  WRITER   :  ARTDINK 1994/12/16
//*********************************************

main()
{
	int	ans ;
	int	echk ;

	echk = buggage() ;
	if( echk == FAIL ){
		ans = lets_go( R_FLAG ) ;
		if( ans == SUCCESS ){
			ans = get_erg() ;
		}
	}
	else{
		ans = put_erg( G_FLAG ) ;
	}
	if( ans == FAIL ){
		if( echk == FAIL ){
			error_act( LEFT,LEFT ) ;
		}
		else{
			error_act( RIGHT,RIGHT ) ;
		}
	}
	return( ans ) ;
}

lets_go( int target )
{
	int	ans ;
	int	p ;
	int	h ;

	ans = find( target ) ;
	if( ans != FAIL ){
		p = place() ;
		h = high() ;
		do{
			ans = go( p,h ) ;
		}while( ans == CONT ) ;
	}
	return( ans ) ;
}

get_erg()
{
	int	ans ;

	ans = lets_go( ERG ) ;
	if( ans == SUCCESS ){
		ans = get() ;
	}
	return( ans ) ;
}

put_erg( int target )
{
	int	ans ;

	ans = lets_go( target ) ;
	if( ans == SUCCESS ){
		ans = put() ;
	}
	return( ans ) ;
}

error_act( int dir1,int dir2 )
{
	int	i ;
	int	chk ;
	int	dir ;
	for( i=0 ; i<4 ; i++ ){
		chk = i%2 ;
		dir = dir1 ;
		if( chk != 0 )	dir = dir2 ;
		round( dir ) ;
	}
}