RosettaCodeData/Task/Flow-control-structures/Phix/flow-control-structures-3.phix

for i=1 to 100 do
    if a[i]=x then
        location = i
        exit
    end if
end for