@  1, 24  SAY "MARKET PRICE SURVEY"
@  2, 18  SAY "(Each Record is a Single Market"
@  3, 25  SAY "on a Single Day)"
@  5,  0  SAY "VILLAGE:"
@  5, 10  GET  PRICES->VILLAGE
@  6,  0  SAY "MARKET:"
@  6, 10  GET  PRICES->MARKET
@  7,  0  SAY "DATE:"
@  7,  8  GET  PRICES->DATE
@  9,  0  SAY "ITEM          PRICE PER TIYA      WHOLESALE PRICE      WHOLESALE UNIT"
@ 10, 57  SAY "(in tiya)"
@ 11,  0  SAY "GERO"
@ 11, 14  GET  PRICES->RGERO
@ 11, 38  GET  PRICES->WGERO
@ 11, 60  GET  PRICES->SGERO
@ 12,  0  SAY "DAWA"
@ 12, 14  GET  PRICES->RDAWA
@ 12, 38  GET  PRICES->WDAWA
@ 12, 60  GET  PRICES->SDAWA
@ 13,  0  SAY "WAKE"
@ 13, 14  GET  PRICES->RWAKE
@ 13, 38  GET  PRICES->WWAKE
@ 13, 60  GET  PRICES->SWAKE
@ 14,  0  SAY "GYADA"
@ 14, 14  GET  PRICES->RGYADA
@ 14, 38  GET  PRICES->WGYADA
@ 14, 60  GET  PRICES->SGYADA
@ 15,  0  SAY "Shinkafa"
@ 16,  0  SAY "-Unpolished"
@ 16, 14  GET  PRICES->RRICEU
@ 16, 38  GET  PRICES->WRICEU
@ 16, 60  GET  PRICES->SRICEU
@ 17,  0  SAY "-Polished"
@ 17, 14  GET  PRICES->RRICEP
@ 17, 38  GET  PRICES->WRICEP
@ 17, 60  GET  PRICES->SRICEP
@ 18,  0  SAY "ALKAMA"
@ 18, 14  GET  PRICES->RALKAMA
@ 18, 38  GET  PRICES->WALKAMA
@ 18, 60  GET  PRICES->SALKAMA
@ 19,  0  SAY "MASARA"
@ 19, 14  GET  PRICES->RMASARA
@ 19, 38  GET  PRICES->WMASARA
@ 19, 60  GET  PRICES->SMASARA
@ 20,  0  SAY "GARI"
@ 20, 14  GET  PRICES->RGARI
@ 20, 38  GET  PRICES->WGARI
@ 20, 60  GET  PRICES->SGARI
@ 21,  0  SAY "SOYA"
@ 21, 14  GET  PRICES->RSOYA
@ 21, 38  GET  PRICES->WSOYA
@ 21, 60  GET  PRICES->SSOYA
READ
@  1,  0  SAY "ITEM         PRICE1       UNIT1          PRICE2       UNIT2"
@  2,  0  SAY "DOYA"
@  2, 13  GET  PRICES->PDOYA1
@  2, 22  GET  PRICES->SDOYA1
@  2, 41  GET  PRICES->PDOYA2
@  2, 50  GET  PRICES->SDOYA2
@  3,  0  SAY "ONION"
@  3, 13  GET  PRICES->PONION1
@  3, 22  GET  PRICES->SONION1
@  3, 41  GET  PRICES->PONION2
@  3, 50  GET  PRICES->SONION2
@  4,  0  SAY "PEPPER"
@  4, 13  GET  PRICES->PPEPPER1
@  4, 22  GET  PRICES->SPEPPER1
@  4, 41  GET  PRICES->PPEPPER2
@  4, 50  GET  PRICES->SPEPPER2
@  5,  0  SAY "GINGER"
@  5, 13  GET  PRICES->PGINGER1
@  5, 22  GET  PRICES->SGINGER1
@  5, 41  GET  PRICES->PGINGER2
@  5, 50  GET  PRICES->SGINGER2
@  6,  0  SAY "TOMATO"
@  6, 13  GET  PRICES->PTOMATO1
@  6, 22  GET  PRICES->STOMATO1
@  6, 41  GET  PRICES->PTOMATO2
@  6, 50  GET  PRICES->STOMATO2
@  7,  0  SAY "SWEET"
@  7, 13  GET  PRICES->PSWEET1
@  7, 22  GET  PRICES->SSWEET1
@  7, 41  GET  PRICES->PSWEET2
@  7, 50  GET  PRICES->SSWEET2
@  9,  0  SAY "OTHERS:"
@ 10,  3  SAY "ITEM                PRICE        UNIT"
@ 11,  0  GET  PRICES->OTHER1
@ 11, 22  GET  PRICES->POTHER1
@ 11, 32  GET  PRICES->SOTHER1
@ 12,  0  GET  PRICES->OTHER2
@ 12, 22  GET  PRICES->POTHER2
@ 12, 32  GET  PRICES->SOTHER2
@ 13,  0  GET  PRICES->OTHER3
@ 13, 22  GET  PRICES->POTHER3
@ 13, 32  GET  PRICES->SOTHER3
READ
@  1,  0  SAY "ANIMAL       PRICE"
@  3,  0  SAY "GUZUMA"
@  3, 12  GET  PRICES->GUZUMA
@  4,  0  SAY "UWARGARKE"
@  4, 12  GET  PRICES->UWARGARKE
@  5,  0  SAY "KARSANA"
@  5, 12  GET  PRICES->KARSANA
@  6,  0  SAY "DANMARKAI"
@  6, 12  GET  PRICES->DANMARKAI
@  7,  0  SAY "YARMARAKA"
@  7, 12  GET  PRICES->YARMARAKA
@  8,  0  SAY "NOMA"
@  8, 12  GET  PRICES->NOMA
@  9,  0  SAY "RAGO"
@  9, 12  GET  PRICES->RAGO
@ 10,  0  SAY "TUNKIYA"
@ 10, 12  GET  PRICES->TUNKIYA
@ 11,  0  SAY "JAKI"
@ 11, 12  GET  PRICES->JAKI
@ 12,  0  SAY "TAURE"
@ 12, 12  GET  PRICES->TAURE
@ 13,  0  SAY "AKUYA"
@ 13, 12  GET  PRICES->AKUYA
@ 14,  0  SAY "YAYAYE"
@ 14, 12  GET  PRICES->YAYAYE
@ 15,  0  SAY "ZABI"
@ 15, 12  GET  PRICES->ZABI
@ 16,  0  SAY "KAJI"
@ 16, 12  GET  PRICES->KAJI
@ 17,  0  SAY "AGWAGI"
@ 17, 12  GET  PRICES->AGWAGI
@ 18,  0  SAY "TALOTALO"
@ 18, 12  GET  PRICES->TALOTALO
@ 19,  0  SAY "TANTABARAI"
@ 19, 12  GET  PRICES->TANTABARAI
@ 20,  0  SAY "ZOMAYE"
@ 20, 12  GET  PRICES->ZOMAYE
READ
@  1,  0  SAY "OTHER ANIMALS:"
@  2,  2  SAY "ANIMAL             PRICE"
@  3,  0  GET  PRICES->OTHERA
@  3, 20  GET  PRICES->POTHERA
@  4,  0  GET  PRICES->OTHERB
@  4, 20  GET  PRICES->POTHERB
@  5,  0  GET  PRICES->OTHERC
@  5, 20  GET  PRICES->POTHERC