Помогите!!! Вот фрагмент программы:

Dim j As Byte 'Счетчик
Dim k As Byte 'Счетчик

Dim ADDR_TEMP As Byte 'Временная переменная для адреса записи
Dim date As Byte 'Данные для записи
Dim addr As Byte 'Адрес записи
Dim id[20] As Byte 'Массив для считывания значений записанных ключей из EEPROM
Dim Num As Byte 'Переменная для хранения количества ключей в EEPROM
Dim edat As Byte '
Dim kol As Byte '

Clear 'Очистим RAM
PORTB = %11111011 'Настроим portb
PORTA = %00100000
CMCON = 7 'Отключим компараторы
TRISB = %11111011
TRISA = %00100000
OPTION_REG = %10000000 'Отключим подтяжку на portb
rele = 0
zymer = 0
grin = 0
red = 1 'Моргнем светодиодом
DelayMS 1000 '
red = 0
DelayMS 2000

nastouka:
HSerOut ["АТ+CPBR=1" ,13]
For k = 0 To 20
ADDR_TEMP = addr + k
date = id[j + 1]
GoSub zapis
grin = 1 'Моргнем светодиодом
DelayMS 200 '
grin = 0
Next
red = 1 'Моргнем светодиодом
DelayMS 1000 '
red = 0

Вроде все ОК, но в памяти все нули, нет никакой записи в ером...

Но дело в том что команды "ОК" нету и он крутится на месте. Может у меня неправильный ответ и потому он крутится на месте, но в книге как пример есть строка ответа:
+CPBR: 10,«0146290921»,129,«Rob»
ОК

Но так ничего и не переписывает.

В начале программы описано память в виде:
EData 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

или надо написать вместо нулей:
EData $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff

Спасибо за внимание...

Добавлено (10.09.2010, 03.51.00)
---------------------------------------------
P.S. вот так я проверял баланс и если он менее 10р ,то отправлялась смс записанная в пятую ячейку sim карты
HSerOut ["ATD*105#",$0D]
HSerIn 5000,eror, [Wait ("OCTATOK "),A ]
If A.HighByte = $2E Then
HSerOut ["AT+CHUP",$0D]
DelayMS 200
HSerOut ["AT+CMSS=5",$0D]
endif

... HSerOut ["АТ+CPBR=1" ,13]
HSerIn 500,nastouka,[Wait("НОМЕР")]
For k = 0 To 20
ADDR_TEMP = addr + k
date = id[j + 1]
GoSub zapis
grin = 1 'Моргнем светодиодом
DelayMS 200 '
grin = 0
Next
...

zapis:
EWrite ADDR_TEMP,[ date]
Return

Проверте пожалуйста, мысль правильная или нет, исправте меня если что не так.
Заранее блогодарен!...