*this filters for allowable form
set talk off
go top
do while .not. eof()
    do case
    case form='               '.or.form='threshed'
        skip
    case form='seed'.or.form='npk'.or.form='can'
        skip
    case form='urea'.or.form='supa'.or.form='refuse'
        skip
    case form='unthreshed'.or.form='in shell'.or.form='deposit'
        skip
    case form='planted'.or.form='dried'
        skip
    otherwise
        display village, item, form, unit
        skip
    endcase
enddo
set talk on