\(\(f5[stepsize_] := 
        Module[
{infile, points, p11, p12, p21, p22, p31, 
            p32}, 

Run["/bin/sh $LABPATH/5/ss5.sh", 
            stepsize]; 

p11 = \(p12 = \(p21 = \(p22 = \(p31 = \(p32 = {}\)\)\)\)\); 
points = 
            ReadList["$LABTMP/ss5.full", {Number, Number, 
                Number}]; 
For[i = 1, 
            i ≤ 
              251, \(i++\), 
\(p11 = 
                Append[p11, {stepsize*points[\([i, 1]\)], 
                    points[\([i, 
                        2]\)]}];\)
]; 
p12 = 
            Take[p11, \(-5\)]; 

points = 
            ReadList["$LABTMP/ss5.half", {Number, Number, 
                Number}]; 
For[i = 1, 
            i ≤ 
              501, \(i++\), 
\(p21 = 
                Append[p21, {stepsize*points[\([i, 1]\)]/2, 
                    points[\([i, 
                        2]\)]}];\)
]; 
p22 = 
            Take[p21, \(-10\)]; 

points = ReadList["$LABTMP/ss5.quar", {Number, Number, 
                Number}]; 
For[i = 1, 
            i ≤ 
              1001, \(i++\), 
\(p31 = 
                Append[p31, {stepsize*points[\([i, 1]\)]/4, 
                    points[\([i, 
                        2]\)]}];\)
]; 
p32 = 
            Take[p31, \(-20\)]; 

Print["Red is full timestep, Green is half timestep, Blue is quarter timestep"]; 

Show[
            ListPlot[p11, PlotStyle -> RGBColor[1, 0, 0], 
              DisplayFunction -> Identity], 
            ListPlot[p21, PlotStyle -> RGBColor[0, 1, 0], 
              DisplayFunction -> Identity], 
ListPlot[
              p31, PlotStyle -> RGBColor[0, 0, 1], 
              DisplayFunction -> Identity], 
            DisplayFunction -> $DisplayFunction]; 

Show[
            ListPlot[p12, PlotStyle -> RGBColor[1, 0, 0], 
              PlotJoined -> True, DisplayFunction -> Identity], 
            ListPlot[p22, PlotStyle -> RGBColor[0, 1, 0], 
              PlotJoined -> True, 
              DisplayFunction -> Identity], 
ListPlot[
              p32, PlotStyle -> RGBColor[0, 0, 1], 
              PlotJoined -> True, DisplayFunction -> Identity], 
            PlotLabel -> "Last 5 fs", 
            DisplayFunction -> $DisplayFunction];
];\)\)

stepsize = 2.0;
f5[stepsize];