xvrrce[vrrc3_, std5_] := Module[{r, t1, t2, s, p, q}, 
     t1 = Date[]; r = xvrrc[vrrc3, std5]; Clear[STARTCLOCK, ENDCLOCK, OUT, 
       SY00, std0a, vrrc0a]; OUT = r; vrrc0a = vrrc3; std0a = std5; 
      t2 = Date[]; {s, p, q} = vrrc3; SY00 = s; STARTCLOCK = t1; 
      ENDCLOCK = t2; Save["out.xvrrce", STARTCLOCK, ps, memo, OUT, SY00, 
       std0a, vrrc0a, ENDCLOCK]; ]
 
xvrrc[vrrc3_, std5_] := Module[{v1, md, acc, st1, st2, jp, rep, x, xa, ct}, 
     {st1, st2, jp, rep, st3} = std5; {v1, md, acc} = vrrc3; x = v1; ct = 0; 
      Label[o1]; x = vrrc[x, md, acc, st1]; ct = ct + 1; xa = x; 
      x = vrrc[x, md, acc, st2]; x = (1 + jp)*x - jp*xa; 
      If[ct < rep, Goto[o1]]; x = vrrc[x, md, acc, st3]; Return[x]; ]