LPARAMETERS llCharacter, llGbft
LOCAL llAppear
lLAppear = .F.

IF llCharacter THEN

    THISFORM.lcblankword = ""
    FOR lnX = 1 TO LEN(THISFORM.lcword)

        * ----------------------------
        * KIJK OF DE LETTER VOORKOMT IN HET WOORD
        * ----------------------------
        IF SUBSTR(THISFORM.lcword,lnX,1) == THISFORM.text1.Value THEN
            llAppear = .T.
            THISFORM.laword[lnX] = SUBSTR(THISFORM.lcword,lnX,1)
        ENDIF

        * ----------------------------
        * VUL ALLE LEEGTES MET _UNDERSCORES_
        * ----------------------------
        IF VARTYPE(THISFORM.laWord[lnX])="L" THEN
            THISFORM.lcblankword = THISFORM.lcblankword + "_ "
        ELSE
            THISFORM.lcblankword = THISFORM.lcblankword + THISFORM.laWord[lnX] + " "
        ENDIF
    ENDFOR

    THISFORM.label3.Caption = THISFORM.lcBlankword

    * ----------------------------
    * ALS DE LETTER NIET VOORKOMT
    * GA EEN STAP VERDER IN GALGJE
    * ----------------------------
    IF !lLAppear THEN
        THISFORM.lnstap = THISFORM.lnstap + 1
    THISFORM.image1.Picture ='SOURCE\IMAGES\'+TRANSFORM(THISFORM.lnstap)+'.bmp'
    ENDIF
    llAppear = .F.

    * ----------------------------
    * ALS DE APPLICATIE BIJ DE LAATSTE STAP IS
    * LAAT ZIEN DAT DE GEBRUIKER HET FOUT HEEFT
    * ----------------------------
    IF THISFORM.lnstap == 12 THEN
        THISFORM.image1.Picture ='SOURCE\IMAGES\'+TRANSFORM(THISFORM.lnstap)+'.bmp'

        THISFORM.msg(.F.)
        THISFORM.newword(.T.)
    ELSE

        * ----------------------------
        * ALS ALLE LETTERS ZIJN GERADEN
        * LAAT DIT ZIEN AAN DE GEBRUIKER
        * ----------------------------
        IF ATC("_",THISFORM.lcblankword) == 0 THEN
            THISFORM.raad(.F.,.T.)
        ENDIF

    ENDIF

    THISFORM.label4.Caption = ""

    FOR lnX = 1 TO ALEN(THISFORM.lausedchar)/2
        IF THISFORM.lausedchar[lnX,1] == UPPER(ALLTRIM(THISFORM.text1.Value)) THEN
            THISFORM.lausedchar[lnX,2] = .T.
        ENDIF
        IF THISFORM.lausedchar[lnX,2] THEN
            thisform.label4.Caption = thisform.label4.Caption + IIF(THISFORM.label4.Caption == "","",", ")+THISFORM.lausedchar[lnX,1]
        ENDIF
    ENDFOR

ELSE
    IF llGbft THEN
            THISFORM.image1.Picture ='SOURCE\IMAGES\13.bmp'
            THISFORM.msg(.T.)
            THISFORM.newword(.T.)
    ELSE
        IF UPPER(ALLTRIM(THISFORM.text2.Value)) == THISFORM.lcword THEN
            THISFORM.image1.Picture ='SOURCE\IMAGES\13.bmp'
            THISFORM.msg(.T.)
            THISFORM.newword(.T.)
        ELSE
            THISFORM.msg(.F.)
            THISFORM.newword(.T.)
        ENDIF
    ENDIF
ENDIF