''GNU-ASspell示例，从http://aspell.net/win32/转换

#include once "aspell.bi"

Dim As AspellConfig Ptr spell_config = new_aspell_config()

''如果需要，请更改以适应已安装的字典语言
aspell_config_replace(spell_config, "只", "en_CA")

''创建拼写对象
Dim As AspellCanHaveError Ptr possible_err = new_aspell_speller(spell_config)
If (aspell_error_number(possible_err) <> 0) Then
    Print *aspell_error_message(possible_err)
    End 1
End If
Dim As AspellSpeller Ptr speller = to_aspell_speller(possible_err)

Dim As String word
Do
    Print 
    Input "输入一个字词（空白退出）：", word
    If (Len(word) = 0) Then
        Exit Do
    End If

    If (aspell_speller_check(speller, StrPtr(word), Len(word)) <> 0) Then
        Print "词是正确的"
    Else
        Print "建议："
        Dim As AspellStringEnumeration Ptr elements = _
            aspell_word_list_elements(aspell_speller_suggest(speller, StrPtr(word), Len(word)))
        Do
            Dim As ZString Ptr w = aspell_string_enumeration_next(elements)
            If (w = 0) Then
                Exit Do
            End If
            Print ""; *w
        Loop
        delete_aspell_string_enumeration(elements)
    End If

    ' - 报告更换
    'aspell_speller_store_repl（拼写，拼写错误，大小，
    'correct_spelled_word，size）;

    ' - 添加到会话或个人字典
    'aspell_speller_add_to_session |个人（拼写，字，大小）
Loop

delete_aspell_speller(speller)