$
$*********************************************      basics
$
&device -g_default device -oecho no
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&pict iso -type struct
&set top = 4
&loop k 1 %top
   &describe process p%k
   medit
      el_active -active @ -inactive b%k
   end
   &names elem
   struc
      &env lc%k
      &apply -load @ 100 -force @ 100 #l%k 0
      lcase -static lc%k
      s_rest ~re
      ssolve
   end
&endloop
strpost
   &loop k 1 %top
      beam load -detail -load lc%k
   &endloop
end
$
$*********************************************      all done
$
&finish
