&dimen -dimen feet kips
inmodel
&instat -loc 0 0 300
medit
   ~pin  fix  x y z
   connector a ~pin    *two
end
&env test  -time 2.75 .01
tdom -newmar -no_cap
prcpost
  traj
    report loca velo
  end
 conforce
    rep
 end
 ldgfor test -force @
    report
 end
end
&fini