Hi Anatoli

I am not guru in picbasic I will try to help you, with those who I know
It tryed these changes

Code:
DEFINE OSC 10
DEFINE SHIFT_PAUSEUS 100


TRISA = %00000000
TRISB = %11111111 
TRISC = %11111111
        
alarm var word
Flag   var BYTE
bleg   var word
B0      var word
C0      var word
'************************************
Symbol data_pin=PORTA.0
Symbol clock=PORTA.1
Symbol strb=PORTA.2
Symbol oe=PORTA.3
'************************************
alarm=0
Flag = 0
B0 = 0
C0 = 0
bleg= 500
portC = %00000000
ADCON1 = 7
'************************************


start:

oe= 0:pause bleg

B0 = PortB & %11111111
C0 = PortC & %11111111
Alarm = (0 + C0) * 1  & Alarm = (0 + B0)
If Alarm <> Flag then gosub Print
oe= 1:pause bleg
goto start      

'************************************
Print:

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

end