&device -g_default file
&dimen -dimen feet kips
&set lname = axix bndy bndz
&set xrefine = 1
&set yrefine = 1
inmodel
&apply -load @ 100 -force @ 100
struct
   &loop load (%lname%)
      lc_doit %load% #%load% 1
   &endloop
&exec -diag none term
  ssolve
end
strpost
   &loop load (%lname%)
      res load -load %load%
      joint disp  -load %load%
      pla stress -detail -load %load%
   &endloop
end
&picture iso -type struct
&fini