&dimen -dimen feet kips
&device    -auxin plate1.dat
&set lname = axix bndy bndz
&set xrefine = 10
&set yrefine = 1
inmodel
&title Plate Cantelever
&subtitle x-refine=%xrefine ; y-refine=%yrefine
&apply -load @ 100 -force @ 100
struct
   &loop load (%lname%)
      lc_doit %load% #%load% 1
   &endloop
  ssolve
end
strpost
   &loop load (%lname%)
      res load -load %load%
      joint disp  -load %load%
      pla stress -detail -load %load%
   &endloop
end
&device -g_default device
&picture iso -type struct
&fini