я знал - значит уже не "никто" 

В реальной жизни бывает, что на столе в железе работает, а унесешь, поставишь глубоко и надежно - не работает. Протеус для отладки какого то кусочка, в реальных устройствах, где не только цифровая часть, но и аналог, к тому же нелинейный Протеус не подойдет.

Я вот так.

 If Ischarwaiting() = 1 Then                                'Прием данных из UART
   J = Inkey()                                              'При приеме от контроллера проскакивает лишний символ <LF> , скидываем его
   If J <> 10 Then
   Led_r = 1
    $timeout = 1000000
    Input S Noecho
    If J <> 10 Then S = Chr(j) + S
    Flagbuf = 1
    Led_r = 0
   End If
 End If

Не понимаю, зачем извращаться с Print, Print ; когда нужно будет передавать не текст, а данные? Используйте Printbin будет отправлять именно значение переменной, а не ее текстовое представление. Сделайте массив байт, кратный количеству байт в переменной, добавьте в него байт контрольной суммы и передавайте побайтно, запихивая на приеме в массив опять же. Как все зашли принимаем байт контрольной суммы, просчитываем и отправляем код успеха или неуспеха, если нужна гарантированная доставка именно этой информации, а если не нужна очищаем массив, инкрементируем переменную счетчика ошибок и принимаем следующую порцию. Если три пакета подряд с ошибками можем просигналить, что канал плохой.
Можно обойтись и без контрольной суммы, включить контроль четности или вообще забить на ошибки, считая, что линия идеальная, но потом не удивляться если кварц вдруг поплыл, пошел мусор и приемник пошел вразнос.