set [i v] to (1)
set [min_dist v] to ((x_list[1]-xposition)*(x_list[1]-xposition)+(y_list[1]-y position)*(y_list[1]-y position))
set [j v] to (item (1) of [x_list])
repeat (length of [x_list]-1)
{
     change [i v] by (1)
     if((x_list[i]-xposition)*(x_list[i]-xposition)+(y_list[i]-y position)*(y_list[i]-y position) < min_dist)
     {
           set [min_dist v] to ((x_list[i]-xposition)*(x_list[i]-xposition)+(y_list[i]-y position)*(y_list[i]-y position))
           set [j v] to (i)
     }
}
point to coordinates: "item (j) of [x_list]" and "item(j) of [y_list]"