serin serout komutunu engelliyor

[yasargunaydin]

Arkadaşlar merhaba;
visual basic ile yazdığım proğramda butona basınca pice haber gönderiyorum.butona 65 ve butonb 66 bilgisi gidiyor
dc motor ile sağa sola giden ve sw lere deyince duran ve swsag e basınca 121 swsol basınca 122 bilgisini geri göndermek
istiyorum.
Aşağıdaki proğramda bilgi gidiyor.motor çalışıyor.Sw ye basınca serout çalışmıyor.Bazen garip karakterler gönderiyor
Ama serin iptap edipte pice bağlı başka butonlara basınca sağ sol gönderirsem swlere basınca bilgi göndermede problem yok.
Yani ne hikmetse serin komutu seroutu engelliyor.Bunu engellemesini ben nasıl engelleyebilirim.

BASLA:
A=0:B=0
SERIN SI,2400,B0
IF  (B0=65) and (SWSAG=1)  THEN A=1:PORTD=%00000100:goto DUR
IF  (B0=66) and (SWSOL=1)  THEN B=1:PORTD=%00001000:goto DUR
'IF BUT=0 THEN C0=127:SEROUT SO,2400,[#C0]
GOTO BASLA

DUR:   
IF (SWSAG=0) AND (A=1) THEN C0=121: PORTD=%00000000: SEROUT SO,2400,[#C0]: goto BASLA
IF (SWSOL=0) AND (B=1) THEN  C0=122: PORTD=%00000000 :  SEROUT SO,2400,[#C0] :  goto BASLA
GOTO DUR