Mirley - Elektronika i Programowanie

Witam,
kupiłem ostatnio takie oto moduły:

http://allegro.pl/moduly-radiowe-nadawczo-odbiorcze-433mhz-zobacz-i1388769222.html

Pod koniec strony są podane komendy do bascoma, na ich podstawie próbowałem napisać programy które będą zapalać i gasić diodę po naciśnięciu odpowiedniego uS'a.

Nadawanie:

   $regfile = "attiny2313.dat"
 
 
 
 
Config Portd.0 = Output
Config Pinb.6 = Input
Config Pinb.5 = Input
Open "comd.0:300,8,n,1" For Output As #1
 
 
If Portb.6 = 0 Then
   Waitms 50
   If Portb.6 = 0 Then
 
   Print #1 , "h"
 
   End If
   If Portb.5 = 0 Then
   Waitms 50
   If Portb.5 = 0 Then
 
   Print #1 , "j"
 
End If
End If
End If
 
Close #1

Odbieranie:

 $regfile = "attiny2313.dat"
 
 
 
 
Dim V As Byte
Config Portd.0 = Input
Config Portb.6 = Output
 
 
 
Dim A As Integer
Open "comd.0:300,8,n,1" For Input As #2
 
V = Waitkey(#2)
Close #2
 
 
Open "comd.1:300,8,n,1" For Output As #1
 
Print #1 , V
Close #1
 
If V = "h" Then Portb.6 = 1
If V = "j" Then Portb.6 = 0

Miały to być najprostsze programy z możliwych. Niestety te powyższe nie działają tak jakbym chciał. Otórz dioda podłączona pod portb.6 do attiny2313 zamiast zapalać się i gasnąć po naciśnięciu uS'ów, mruga sama z siebie po podłączeniu zasilania do nadajnika. Wygląda to tak jakby nadajnik cały czas wysyłał polecenie zapalania i gaszenia. Proszę więc Was o pomoc w poprawce programów tak abym mógł sam załączać i wyłączać diodę dwoma uS'ami.