procedure spelling
go top
do while .not. eof()
    if village<>'gangara' .and. village<>'madobi' .and. village<>'marwa' �
    .and. village<>'yakasai'
        display village,hhnum
        error=.t.
    endif
    skip
enddo
return