Device=18f4550
Clock=20

Include "convert.bas"    // Конвертирование данных
Include "string.bas"
Include "USART.bas"

Dim C,B As String
Dim I,A,P As Byte
dim X as longword

C="01234567890ABCDEFGH"    // исходник для поиска
I=0                        // длинна строки

SetBaudrate(br57600)

// Первый способ

I=Length(C)                // узнаем длинну
Write ("LEN=",DecToStr(I),13)    // пишем ее в уарт
For A=0 To I-1                     // в цикле ищем нужный нам знак
If Mid(C,A,1)="H" Then           // если нашли
Write (DecToStr(A+1),13)         // вывлевываем его в уарт
End If
Next

// Второй способ
// ******************************
// любая символьная переменная  представляет из себя
// массив из символов(работаем с массивом)
// комментировать не буду, и так все ясно
I=Length(C)
A=0
cycle:
If C(A)="0" Then
Write (DecToStr(A+1),13)
End If
Inc(A)

If A<= I Then
  GoTo cycle
End If

// Вывод ASCII кодов строки
I=Length(C)                // узнаем длинну
Write ("LEN=",DecToStr(I),13,13)    // пишем ее в уарт
For A=0 To I-1                     // в цикле ищем нужный нам знак
b=Mid(C,A,1)
p=byte(b(0))

Write(dectostr(p),13)         // вывлевываем его в уарт

Next

Write (13,"The end",13)
loop:
GoTo loop