baseURL = "http://golem.fjfi.cvut.cz/shots/";
ShotNo=38650
diagnPATH = "/Diagnostics/BasicDiagnostics/Results/U_loop.csv";
dataURL = baseURL <> ToString[ShotNo] <> diagnPATH;
dataimp = Import[dataURL, "Data"];
graf = ListPlot[dataimp, AxesLabel->{"time [ms]", "U_loop [V]"}];
Export["plot.jpg", graf];

(* command line execution: *)
(* math -script Uloop.ma *)

(*https://reference.wolfram.com/language/tutorial/ActivatingMathematica.html*)
