I need to srink this code from 1688 to 1024 or less for a 16F84.
This to make a car horn honk when the circuit gets power. It's adjustable from one to ten honks. This is the first code I have ever written so if you find any thing else wrong please tell me.


DEFINE OSC 4
TRISA.2 = 0
High PORTA.2
Pause 50
TRISB = %11111111
TRISA.0 = 1
TRISA.1 = 1
TRISA.3 = 1
TRISA.4 = 1
SWITCH:
Pause 250
IF PORTA.4 = 1 Then End
IF (PORTB.2 = 0) AND (PORTB.3 = 0) AND (PORTB.6 = 0) AND (PORTB.4 = 0) AND (PORTB.5 = 1) Then GoTo SW10
IF (PORTB.2 = 0) AND (PORTB.3 = 0) AND (PORTB.6 = 0) AND (PORTB.4 = 1) AND (PORTB.5 = 1) Then GoTo SW1
IF (PORTB.2 = 1) AND (PORTB.3 = 0) AND (PORTB.6 = 0) AND (PORTB.4 = 0) AND (PORTB.5 = 1) Then GoTo SW2
IF (PORTB.2 = 1) AND (PORTB.3 = 0) AND (PORTB.6 = 0) AND (PORTB.4 = 1) AND (PORTB.5 = 1) Then GoTo SW3
IF (PORTB.2 = 0) AND (PORTB.3 = 0) AND (PORTB.6 = 1) AND (PORTB.4 = 0) AND (PORTB.5 = 1) Then GoTo SW4
IF (PORTB.2 = 0) AND (PORTB.3 = 0) AND (PORTB.6 = 1) AND (PORTB.4 = 1) AND (PORTB.5 = 1) Then GoTo SW5
IF (PORTB.2 = 1) AND (PORTB.3 = 0) AND (PORTB.6 = 1) AND (PORTB.4 = 0) AND (PORTB.5 = 1) Then GoTo SW6
IF (PORTB.2 = 1) AND (PORTB.3 = 0) AND (PORTB.6 = 1) AND (PORTB.4 = 1) AND (PORTB.5 = 1) Then GoTo SW7
IF (PORTA.2 = 0) AND (PORTB.3 = 1) AND (PORTB.6 = 0) AND (PORTB.4 = 0) AND (PORTB.5 = 1) Then GoTo SW8
IF (PORTA.2 = 0) AND (PORTB.3 = 1) AND (PORTB.6 = 0) AND (PORTB.4 = 1) AND (PORTB.5 = 1) Then GoTo SW9
GoTo SWITCH
SW1:
PulsOut PORTA.2, 50000
End
SW2:
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
End
SW3:
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
End
SW4:
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
End
SW5:
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
End
SW6:
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
End
SW7:
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
End
SW8:
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
End
SW9:
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
End
SW10:
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
Pause 500
PulsOut PORTA.2, 50000
End

Any help is appreciated.
Thanks