Давно решил проблему, найдя в сети сишный код перевода русской кодировки в код, понятный жк индикаотору и переделав его под Bascom.
Вот функция печати. Немного громоздкая, так как переводит входящюю строку 16 символов (longstr) в жк кодировку и разбивает на 2 части для печати на однострочном индикаторе, с внутренней организацией 2x8 символов.
Printlsd:
For Otchet = 1 To 16
Ru = Mid(longstr , Otchet , 1)
Dig = Ru
If Dig > 191 Then
Dig = Dig - 192
Dig = Lookup(dig , Rusdata)
Mid(longstr , Otchet , 1) = Dig
End If
Next
Str1 = Mid(longstr , 1 ,
Str2 = Mid(longstr , 9 ,
Cls
Lcd Str1
Lowerline
Lcd Str2
Return
Rusdata:
Data &H41 , &HA0 , &H42 , &HA1 , &HE0 , &H45 , &HA3 , &HA4 , _
&Ha5 , &HA6 , &H4B , &HA7 , &H4D , &H48 , &H4F , &HA8 , _
&H50 , &H43 , &H54 , &HA9 , &HAA , &H58 , &HE1 , &HAB , _
&Hac , &HE2 , &HAD , &HAE , &HAD , &HAF , &HB0 , &HB1 , _
&H61 , &HB2 , &HB3 , &HB4 , &HE3 , &H65 , &HB6 , &HB7 , _
&Hb8 , &HB9 , &HBA , &HBB , &HBC , &HBD , &H6F , &HBE , _
&H70 , &H63 , &HBF , &H79 , &HE4 , &H78 , &HE5 , &HC0 , _
&Hc1 , &HE6 , &HC2 , &HC3 , &HC4 , &HC5 , &HC6 , &HC7