Добрый день пишу программу в Баском Авр  и появилась необходимость записать переменную в EEPROM. Нашел вариант кода но он не хочет работать   Работать должно так: когда на ком порт приходит строка "AllowWateringPot_1" то переменная W1 должна иметь значение 1 и записываться в EEPROM но этого не происходит помогите может с кодом что не так?

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Dim Commands As String * 30
Dim W1 As Byte
Dim W1e As Eram Byte

Do
Input "#|" , Commands
If Commands = "AllowWateringPot_1" Then
W1 = 1
W1e = W1
W1 = W1e
Print "*|" ; W1
End If
Loop
End

Раздел: Алгоритмы