int Pt_Num;

@N = @N;
Pt_Num = addpoint(0, @P);
setpointattrib(geoself(), "N", Pt_Num, @N, "set");
removeprim(0, @primnum, 1);