The following functions are added to the Card.exe and Micro900.dll. These functions are 
for blowing the fuses of AT88SC102 and erasing AZ2 with EC mode enabled. 

C prototypes are:

int WINAPI Blow_Manufacturer_Fuse_102( );
int WINAPI Blow_EC2EN_Fuse_102( );
int WINAPI Blow_Issuer_Fuse_102( );

int WINAPI Erase_102_AZ2_EC( char *EZArray );

VB declarations are:

Private Declare Function Blow_Manufacturer_Fuse_102() Lib "micro900.dll" () As Long
Private Declare Function Blow_EC2EN_Fuse_102 Lib "micro900.dll" () As Long
Private Declare Function Blow_Issuer_Fuse_102 Lib "micro900.dll" () As Long

Private Declare Function Erase_102_AZ2_EC lib micro900.dll ( ByRef EZArray As Byte ) as Long


Now the Erase_102_Word function has been modified. The new command byte is 0xa7 instead of old
0x87.

//
//
int WINAPI Erase_102_Word( int WordAddress )
{
	int Result = ERR_SUCCESS;
	char CommandData[ 6 ];

	// erase
	CommandData[ 0 ] = 4;
	CommandData[ 1 ] = ( char )0xa7; // write 1 or 0
	CommandData[ 2 ] = LOBYTE( WordAddress * 16 );
	CommandData[ 3 ] = HIBYTE( WordAddress * 16 );
	CommandData[ 4 ] = 1;

	Result = IssueCommandAndWait( 'B', CommandData );
	if ( Result != ERR_SUCCESS )
		return Result;
	
	return Result;
}


The following is the C implementation of the Fuse Blowing functions:
//
//
int WINAPI Blow_Manufacturer_Fuse_102( )
{
	char CommandData[ 6 ];

	CommandData[ 0 ] = 4;
	CommandData[ 1 ] = ( char )0xe7;
	CommandData[ 2 ] = LOBYTE( 1456 );
	CommandData[ 3 ] = HIBYTE( 1456 );
	CommandData[ 4 ] = 0;
	
	return IssueCommandAndWait( 'B', CommandData );
}

//
//
int WINAPI Blow_EC2EN_Fuse_102( )
{
	char CommandData[ 6 ];
	CommandData[ 0 ] = 4;
	CommandData[ 1 ] = ( char )0xe7;
	CommandData[ 2 ] = LOBYTE( 1529 );
	CommandData[ 3 ] = HIBYTE( 1529 );
	CommandData[ 4 ] = 0;

	return IssueCommandAndWait( 'B', CommandData );
}

//
//
int WINAPI Blow_Issuer_Fuse_102( )
{
	char CommandData[ 6 ];
	CommandData[ 0 ] = 4;
	CommandData[ 1 ] = ( char )0xe7;
	CommandData[ 2 ] = LOBYTE( 1552 );
	CommandData[ 3 ] = HIBYTE( 1552 );
	CommandData[ 4 ] = 0;

	return IssueCommandAndWait( 'B', CommandData );
}