Here is my code (pasted below). How do I append values to the end of my lists? Either append isn't working or the debugging lines I wrote to confirm the values were appended isn't working. What am I doing wrong?

I don't honestly believe I have a future in this... it's not something I am smart enough to learn... an IQ of 150 just isn't high enough for Mathematica and physics I don't think.

(* Create empty lists *) xlist={}; ylist={}; zlist={};

(* Take inputs for ECEF *) (Label[startinput];x = Input["What is the x coordinate?"]; y = Input["What is the y coordinate?"]; z = Input["What is the z coordinate?"]; Append [xlist, x] Append [ylist, y] Append [zlist, z] (Label[errorcontrol]; again=InputString["Enter more coords? Y for yes, N for no"]; If [again=="Y", Print["Okay!"];Goto[startinput]]; If [again!="N", Print["Sorry, this is an invalid input here!"];Goto[errorcontrol]]; If [again=="N", Print["Okay."]]));

(* Debugging *) Print[xlist] Print[ylist] Print[zlist] Print[x] Print[y] Print[z]

(* Put in Coordinate Form *) GeoPositionXYZ[{x, y, z}, "ITRF00"];

(* Convert to LLA *) GeoPosition[%]

(* Display Map *) GeoGraphics[GeoMarker[GeoPosition[%]],GeoRange -> "World", GeoProjection -> "Robinson"]

(* Display 3D Plot *) ListPointPlot3D[{{x, y, z}}]