16F877 and 4094 please help

[aratti]

This will leave your last action ON.

INCLUDE "modedefs.bas"
DEFINE SHIFT_PAUSEUS 100


        
        TRISB = %00000111 
        
        alarm var BYTE
        Flag   var BYTE
'****************************************************************
        symbol clock=portc.4
        symbol data_pin=portc.2
        symbol strb=PORTc.3
'****************************************************************
        alarm=0
        Flag = 0

start:
Pause 10

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

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

end

Al.