set device to print
use cows
select 2
use others
cnt=8
do while cnt <= 50
   nocow=.f.
   select 1
   locate for village='gangara'.and.hhnum=cnt
   @1,1 say hhnum
   if .not. eof()
@3,1 say 'guz uwar kars sa   dan  yar  noma rago tunk jaki akuya taur ya'
@4,1 say ltrim(str(guzuma))
@4,5 say ltrim(str(uwargarke))
@4,10 say ltrim(str(karsana))
@4,15 say ltrim(str(sa))
@4,20 say ltrim(str(danmaraki))
@4,25 say ltrim(str(yarmaraka))
@4,30 say ltrim(str(noma))
@4,35 say ltrim(str(rago))
@4,40 say ltrim(str(tunkiya))
@4,45 say ltrim(str(jaki))
@4,50 say ltrim(str(ajuya))
@4,56 say ltrim(str(taure))
@4,61 say ltrim(str(yayaye))
    else
@3,1 say 'hh head has no cattle'
    endif
    select 2
   locate for village='gangara'.and.hhnum=cnt
   if .not. eof()
@6,1 say 'guz uwar kars sa   dan  yar  noma rago tunk jaki akuya taur ya'
@7,1 say ltrim(str(guzuma))
@7,5 say ltrim(str(uwargarke))
@7,10 say ltrim(str(karsana))
@7,15 say ltrim(str(sa))
@7,20 say ltrim(str(dammaraki))
@7,25 say ltrim(str(yarmaraka))
@7,30 say ltrim(str(noma))
@7,35 say ltrim(str(rago))
@7,40 say ltrim(str(tunkiya))
@7,45 say ltrim(str(jaki))
@7,50 say ltrim(str(akuya))
@7,56 say ltrim(str(taure))
@7,61 say ltrim(str(yayaye))
@8,1 say ltrim(str(guzuma2))
@8,5 say ltrim(str(uwargarke2))
@8,10 say ltrim(str(karsana2))
@8,15 say ltrim(str(sa2))
@8,20 say ltrim(str(danmaraki2))
@8,25 say ltrim(str(yarmaraka2))
@8,30 say ltrim(str(noma2))
@8,35 say ltrim(str(rago2))
@8,40 say ltrim(str(tunkiya2))
@8,45 say ltrim(str(jaki2))
@8,50 say ltrim(str(akuya2))
@8,56 say ltrim(str(taure2))
@8,61 say ltrim(str(yayaye2))
@9,1 say ltrim(str(guzuma3))
@9,5 say ltrim(str(uwargarke3))
@9,10 say ltrim(str(karsana3))
@9,15 say ltrim(str(sa3))
@9,20 say ltrim(str(danmaraki3))
@9,25 say ltrim(str(yarmaraka3))
@9,30 say ltrim(str(noma3))
@9,35 say ltrim(str(rago3))
@9,40 say ltrim(str(tunkiya3))
@9,45 say ltrim(str(jaki3))
@9,50 say ltrim(str(akuya3))
@9,56 say ltrim(str(taure3))
@9,61 say ltrim(str(yayaye3))
@10,1 say ltrim(str(guzuma4))
@10,5 say ltrim(str(uwargarke4))
@10,10 say ltrim(str(karsana4))
@10,15 say ltrim(str(sa4))
@10,20 say ltrim(str(danmaraki4))
@10,25 say ltrim(str(yarmaraka4))
@10,30 say ltrim(str(noma4))
@10,35 say ltrim(str(rago4))
@10,40 say ltrim(str(tunkiya4))
@10,45 say ltrim(str(jaki4))
@10,50 say ltrim(str(akuya4))
@10,56 say ltrim(str(taure4))
@10,61 say ltrim(str(yayaye4))
    else
@8,1 say 'no others file'
    endif
eject
cnt=cnt+1
enddo