set procedure to chkvill
set status on
set talk off
use cows
error=.f.
do spelling
if error
    @ 20,0 say 'cows'
endif
use herding
error=.f.
do spelling
if error
    @ 20,8 say 'herding'
endif
use ciniki
error=.f.
do spelling
if error
    @ 20,15 say 'ciniki'
endif
use credit
error=.f.
do spelling
if error
    @ 20,25 say 'credit'
endif
use labour
error=.f.
do spelling
if error
    @20,35 say 'labour'
endif
use land
error=.f.
do spelling
if error
    @20,45 say 'land'
endif
set talk on
close all