Type LetLib
    Field Letther$
End Type

fntArial=LoadFont("Arial Cyr",16) ;CYR для русский шрифтов
SetFont fntArial

;Загружаем библиотеку слов
LoadWords()
Print "Введите слово для проверки"
While Not KeyHit(1) ;Крутим прогу пока юзер ее не закроет
    InputText$=Lower(Input$());Получаем текст от юзера
    Check(InputText$); проверяем слова

Wend

Function Check(Texts$);функция проверки

    Word1$=GetParams$(Texts$,1);проверяем слово
    If CheckWord(Word1$)=1; если слово сошлось
        Write "OK  ";Пишем ОК
    Else ; иначе
        Write "Ошибка в слове:"+Word1+"  ";напишем слово в котором ошибка
    EndIf

    Word2$=GetParams$(Texts$,2); повторяем N раз
    If CheckWord(Word2$)=1
        Write "OK  "
    Else
        Write "Ошибка в слове:"+Word2+"  "
    EndIf

    Word3$=GetParams$(Texts$,3)
    If CheckWord(Word3$)=1
        Write "OK  "
    Else
        Write "Ошибка в слове:"+Word3+"  "
    EndIf
    Print "Введите слово для проверки"
End Function

Function CheckWord(word$)
    For L.LetLib = Each LetLib ;проходимся по словарю
        If Lower(L\Letther$)=word$ ;если наше слово подходит то выходим из цикла с еденичкой
            Return 1
        EndIf
    Next
    Return 0 ; если не нашли то отдадим ноль
End Function

Function LoadWords()
    filein = ReadFile("mydata.txt") ;Файл с библиотекой
    masssize = ReadLine$( filein ) ;Кол во слов
    For y=1 To masssize
        L.LetLib = New LetLib
        L\Letther$= ReadLine$( filein );Запишем в память прочитанное слово.
    Next
    CloseFile filein ;Закроем поток, освободим память, ведь ее так мало
End Function

Function GetParams$(StringR$,num) ;Расшифровка строки, написана для другого проекта но работает и тут
    Spacer$=" "
    Local offset1 = Instr(StringR$,Spacer$,1)
    Local offset2 = Instr(StringR$,Spacer$,offset1+1)
    Local offset3 = Instr(StringR$,Spacer$,offset2+1)
    Local offset4 = Instr(StringR$,Spacer$,offset3+1)
    Local offset5 = Instr(StringR$,Spacer$,offset4+1)
    Local offset6 = Instr(StringR$,Spacer$,offset5+1)

    Select num
        Case 1
            Return Left(StringR$,offset1-1)
        Case 2
            Return Mid(StringR$,offset1+1,offset2-offset1-1)
        Case 3
            Return Mid(StringR$,offset2+1,offset3-offset2-1)
        Case 4
            Return Mid(StringR$,offset3+1,offset4-offset3-1)
        Case 5
            Return Mid(StringR$,offset4+1,offset5-offset4-1)
        Case 6
            Return Right(StringR$,Len(StringR$)-offset6)
    End Select
End Function