set device to print
set talk off
@  0, 23  SAY "Livestock Tenancy"
@  1, 16  SAY "Each record is an instance of tenancy"
@  3,  5  SAY "VILLAGE  HHNUM      RESPONDENT        DATE     ROUND"
@  4,  5  GET  HERDING->VILLAGE
@  4, 16  GET  HERDING->HHNUM
@  4, 23  GET  HERDING->RESPONDENT
@  4, 42  GET  HERDING->DATE
@  4, 54  GET  HERDING->ROUND
@  7,  0  SAY "Is this based on the responses of the HH head? (RESPONDSEX):"
@  7, 61  GET  HERDING->RESPONDSEX
@  9,  0  SAY "Is this a letting out of animals by the household? (HERDOUT):"
@  9, 62  GET  HERDING->HERDOUT
@ 11,  0  SAY "ANIMAL involved:"
@ 11, 17  GET  HERDING->ANIMAL
@ 11, 34  SAY "NUMBER:"
@ 11, 42  GET  HERDING->NUMBER
@ 13,  0  SAY "To be herded UNTIL:"
@ 13, 21  GET  HERDING->UNTIL
@ 13, 38  SAY "at (PLACE):"
@ 13, 50  GET  HERDING->PLACE
@ 15,  0  SAY "Are the animals ROAMING?"
@ 15, 25  GET  HERDING->ROAMING
@ 17,  0  SAY "Will the herder keep the MILK?"
@ 17, 32  GET  HERDING->MILK
@ 18,  0  SAY "Will the herder keep any of the CALVES?"
@ 18, 41  GET  HERDING->CALVES
@ 19,  3  SAY "If so, how many of the calves? (NOCALVES)"
@ 19, 46  GET  HERDING->NOCALVES
@ 21,  0  SAY "Will the animals be grazed on the fields of the owner? (OWNERGRAZE)"
@ 21, 69  GET  HERDING->OWNERGRAZE
READ
@  1,  0  SAY "Items being transferred because of the herding:"
@  3,  0  SAY "Is this household paying out?(PAY1):"
@  3, 37  GET  HERDING->PAY1
@  3, 40  SAY "(N = receiving)"
@  4,  0  SAY "ITEM1"
@  4, 12  GET  HERDING->ITEM1
@  5,  0  SAY "FORM1"
@  5, 12  GET  HERDING->FORM1
@  6,  0  SAY "QUANTITY1"
@  6, 12  GET  HERDING->QUANTITY1
@  7,  0  SAY "UNIT1"
@  7, 12  GET  HERDING->UNIT1
@  8,  0  SAY "VALUE1"
@  8, 12  GET  HERDING->VALUE1
@  9,  0  SAY "DATE1"
@  9, 12  GET  HERDING->DATE1
@ 11,  0  SAY "Is this household paying out?(PAY2):"
@ 11, 37  GET  HERDING->PAY2
@ 12,  0  SAY "ITEM2"
@ 12, 12  GET  HERDING->ITEM2
@ 13,  0  SAY "FORM2"
@ 13, 12  GET  HERDING->FORM2
@ 14,  0  SAY "QUANTITY2"
@ 14, 12  GET  HERDING->QUANTITY2
@ 15,  0  SAY "UNIT2"
@ 15, 12  GET  HERDING->UNIT2
@ 16,  0  SAY "VALUE2"
@ 16, 12  GET  HERDING->VALUE2
@ 17,  0  SAY "DATE2"
@ 17, 12  GET  HERDING->DATE2
READ
@  1,  0  SAY "Is this household paying out?(PAY3):"
@  1, 37  GET  HERDING->PAY3
@  2,  0  SAY "ITEM3"
@  2, 12  GET  HERDING->ITEM3
@  3,  0  SAY "FORM3"
@  3, 12  GET  HERDING->FORM3
@  4,  0  SAY "QUANTITY3"
@  4, 12  GET  HERDING->QUANTITY3
@  5,  0  SAY "UNIT3"
@  5, 12  GET  HERDING->UNIT3
@  6,  0  SAY "VALUE3"
@  6, 12  GET  HERDING->VALUE3
@  7,  0  SAY "DATE3"
@  7, 12  GET  HERDING->DATE3
@  9,  0  SAY "Is this household paying out?(PAY4):"
@  9, 37  GET  HERDING->PAY4
@ 10,  0  SAY "ITEM4"
@ 10, 12  GET  HERDING->ITEM4
@ 11,  0  SAY "FORM4"
@ 11, 12  GET  HERDING->FORM4
@ 12,  0  SAY "QUANTITY4"
@ 12, 12  GET  HERDING->QUANTITY4
@ 13,  0  SAY "UNIT4"
@ 13, 12  GET  HERDING->UNIT4
@ 14,  0  SAY "VALUE4"
@ 14, 12  GET  HERDING->VALUE4
@ 15,  0  SAY "DATE4"
@ 15, 12  GET  HERDING->DATE4
READ
@  1,  0  SAY "The Other Party:"
@  2,  0  SAY "SEX:"
@  2,  6  GET  HERDING->SEX
@  2, 12  SAY "Ethnic group:"
@  2, 26  GET  HERDING->ETHNIC
@  3,  0  SAY "STATUS (commoner/royal):"
@  3, 25  GET  HERDING->STATUS
@  4,  0  SAY "OCCUPATION:"
@  4, 13  GET  HERDING->OCCUPATION
@  4, 31  SAY "Residence:"
@  4, 44  GET  HERDING->RESIDENCE
@  5,  0  SAY "Member of the FAMILY?"
@  5, 23  GET  HERDING->FAMILY
@  6,  0  SAY "If so, what is the RELATIONship?"
@  6, 34  GET  HERDING->RELATION
@  8,  0  SAY "Previous Transactions:"
@ 10,  0  SAY "DEAL1:"
@ 10,  8  GET  HERDING->DEAL1
@ 10, 25  SAY "Frequency:"
@ 10, 36  GET  HERDING->FREQUENCY1
@ 11,  0  SAY "AV_VALUE1:"
@ 11, 11  GET  HERDING->AV_VALUE1
@ 11, 18  SAY "THISMONTH?"
@ 11, 30  GET  HERDING->THISMONTH1
@ 12,  0  SAY "DURATION1:"
@ 12, 12  GET  HERDING->DURATION1
@ 12, 18  SAY "EXCLUSIVE?"
@ 12, 30  GET  HERDING->EXCLUSIVE1
@ 14,  0  SAY "DEAL2:"
@ 14,  8  GET  HERDING->DEAL2
@ 14, 25  SAY "Frequency:"
@ 14, 36  GET  HERDING->FREQUENCY2
@ 15,  0  SAY "AV_VALUE2:"
@ 15, 11  GET  HERDING->AV_VALUE2
@ 15, 18  SAY "THISMONTH?"
@ 15, 30  GET  HERDING->THISMONTH2
@ 16,  0  SAY "DURATION2:"
@ 16, 12  GET  HERDING->DURATION2
@ 16, 18  SAY "EXCLUSIVE?"
@ 16, 30  GET  HERDING->EXCLUSIVE2
@ 18,  0  SAY "DEAL3:"
@ 18,  9  GET  HERDING->DEAL3
@ 18, 27  SAY "FREQUENCY:"
@ 18, 38  GET  HERDING->FREQUENCY3
@ 19,  0  SAY "AV_VALUE3:"
@ 19, 11  GET  HERDING->AV_VALUE3
@ 19, 18  SAY "THISMONTH?"
@ 19, 30  GET  HERDING->THISMONTH3
@ 20,  0  SAY "DURATION3"
@ 20, 12  GET  HERDING->DURATION3
@ 20, 18  SAY "EXCLUSIVE?"
@ 20, 30  GET  HERDING->EXCLUSIVE3