Heißer Draht mit "one chance" Funktion

int a;

void setup()
{
pinMode( 4 , INPUT);
pinMode( 1 , OUTPUT);
pinMode( 0 , OUTPUT);
pinMode( 1 , OUTPUT);
pinMode( 2 , OUTPUT);
pinMode( 0 , OUTPUT);
analogWrite(0 , 115);

digitalWrite( 1 , LOW );

digitalWrite( 2 , LOW );

}

void loop()
{
if (digitalRead(4))
{
digitalWrite( 0 , LOW );
analogWrite(1 , 115);
digitalWrite( 2 , HIGH );
delay( 1500 );
digitalWrite( 2 , LOW );
for (a=1; a<= ( 32000 ); ++a )
{
delay( 32000 );
delay( 32000 );
}
}
delay( 1 );
}