16F877 and 4094 please help

[dovegroup]

Hello friends
I have manufactured this circuit with 16F877
3 switches of entry that them portray the situation of entry in the 4094
This code work good .my problem is always sees the last entry
that I can see the all entries simultaneously be portrayed in the 4094

INCLUDE "modedefs.bas"
DEFINE SHIFT_PAUSEUS 100


        
        TRISB = %00000111 
        
        alarm var word
'****************************************************************
        symbol clock=portc.4
        symbol data_pin=portc.2
        symbol strb=PORTc.3
'****************************************************************
        alarm=0
       
start:

       IF PORTB.0=0 THEN
       alarm=%10000000
	   ENDIF
	   IF PORTB.1=0 THEN
       alarm=01000000
	   ENDIF
	   IF PORTB.2=0 THEN
       alarm=%00100000
	   ENDIF
       gosub print
       goto start      

print:
        
        ShiftOut data_pin,clock,0,[alarm]                              
        strb = 1  : PAUSEUS 100 :  STRB = 0
        return

end