/clear,start
mass=83500
/prep7
k,1,0,0,0
k,2,10000,0,0
lstr,1,2
et,1,beam44
et,2,mass21
R,1,186160,178980000000,56238000000,1278,680,128980000000,
RMODIF,1,21,1278,680,
RMODIF,1,25,76160,110000,0,0,7.0678e-009,0,
*do,i,1,5
j=i*1000
/prep7
R,2,mass-j,mass-j,