DIMENSION farrea[14,3]
farrea[1,1]  = "AmmanA"
farrea[1,2]  = "AmmanR"

farrea[4,1]  = "ZarqA"
farrea[4,2]  = "ZarqR"

farrea[5,1]  = "b51"
farrea[5,2]  = "b52"

farrea[6,1]  = "b61"
farrea[6,2]  = "b62"

farrea[7,1]  = "b71"
farrea[7,2]  = "b72"

farrea[8,1]  = "b81"
farrea[8,2]  = "b82"

farrea[9,1]  = "b91"
farrea[9,2]  = "b92"

farrea[10,1]  = "b101"
farrea[10,2]  = "b102"

farrea[11,1]  = "b111"
farrea[11,2]  = "b112"

farrea[12,1]  = "b121"
farrea[12,2]  = "b122"

farrea[13,1]  = "b131"
farrea[13,2]  = "b132"

farrea[14,1]  = "AqabA"
farrea[14,2]  = "AqabR"

USE RIS_RANDOMS
COPY TO (farrea[1,1]) FOR area < 4 AND resident="1"
COPY TO (farrea[1,2]) FOR area < 4 AND resident="2"

FOR myvar = 4 TO 14
    COPY TO (farrea[myvar,1]) FOR area=m.myvar AND resident="1"
    COPY TO (farrea[myvar,2]) FOR area=m.myvar AND resident="2"
NEXT

>USE RIS_RANDOMS
>if area=1 or 2 or 3 and resident="1"
>COPY STRU TO AmmanA
>endif
>
>if area=1 or 2 or 3 and resident="2"
>COPY STRU TO AmmanR
>endif
>
>if area=4  and resident="1"
> COPY STRU TO ZarqA
>ENDIF
>
>if area=4  and resident="2"
> COPY STRU TO ZarqR
>ENDIF
>....
>.
>.
>.
>if area=14  and resident="1"
> COPY STRU TO AqabA
>ENDIF
>
>if area=14  and resident="2"
> COPY STRU TO AqabR
>ENDIF
>