procedure other
@ 3,0 clear to 20,79
@ 3,0 say 'Unclear item for hhnum '+ltrim(str(mhhnum))+' in '+mvillage
@ 4,10 say mitem
@ 5,10 say mform
@ 6,10 say mquantity
@ 7,10 say munit
@ 8,10 say mvalue
@ 10,0 say 'What value should be entered for this item?'
@ 10,44 get madd
read
return