How can I merge these two graphs?

Please I would like to plot, in the same graph, these two curves. How can I do that?

Manipulate[
 ListPlot[Table[
   NIntegrate[
    Sqrt[((2*(Exp[(r)/(2)] - ((v0)^2))    ))/(r*
         Exp[(r)/(2)] - ((2*(Exp[(r)/(2)] - ((v0)^2))    )))], {r, 
(2*(1)*(1 + ( 
          LambertW[((( 0^2  ) - (v0^2))/(Exp[
               1]))]   ))), (2*(1)*(1 + ( 
          LambertW[((( u^2  ) - (v0^2))/(Exp[1]))]   )))}], {u, 0, k, 
    1}], Joined -> True, InterpolationOrder -> 1], {k, 1, 
  20}, {v0, -0.9, 0.9}]

and

Manipulate[
 ListPlot[Table[
   NIntegrate[-Sqrt[((2*(Exp[(r)/(2)] - ((v0)^2))    ))/(r*
          Exp[(r)/(2)] - ((2*(Exp[(r)/(2)] - ((v0)^2))    )))], {r, 
(2*(1)*(1 + ( 
          LambertW[((( 0^2  ) - (v0^2))/(Exp[
               1]))]   ))), (2*(1)*(1 + ( 
          LambertW[((( u^2  ) - (v0^2))/(Exp[1]))]   )))}], {u, 0, k, 
    1}], Joined -> True, InterpolationOrder -> 1], {k, 1, 
  20}, {v0, -0.9, 0.9}]

Source: https://sites.google.com/view/curvedrealityblog/texts-in-physics/mathematica-and-similar-softwares?authuser=0

Manipulate[
 ListPlot[{Table[NIntegrate[Sqrt[((2*(Exp[(r)/(2)] - ((v0)^2))))/
       (r*Exp[(r)/(2)] - ((2*(Exp[(r)/(2)] - ((v0)^2)))))],
     {r, (2*(1)*(1 + (LambertW[(((0^2) - (v0^2))/(Exp[1]))]))),
      (2*(1)*(1 + (LambertW[(((u^2) - (v0^2))/(Exp[1]))])))}], {u, 0, k, 1}], 
   Table[NIntegrate[-Sqrt[((2*(Exp[(r)/(2)] - ((v0)^2))))/
        (r*Exp[(r)/(2)] - ((2*(Exp[(r)/(2)] - ((v0)^2)))))],
     {r, (2*(1)*(1 + (LambertW[(((0^2) - (v0^2))/(Exp[1]))]))),
      (2*(1)*(1 + (LambertW[(((u^2) - (v0^2))/(Exp[1]))])))}], {u, 0, k, 1}]},
  Joined -> True, InterpolationOrder -> 1],
 {{k, 5}, 1, 20},
 {v0, -0.9, 0.9}
 ]