$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
struct
   lc_doit loadx #loadx 1
   lc_doit loady #loady 1
   s_part left
   s_rest ~fix
   reduce sleft *02
   s_part right
   s_rest ~fix
   reduce sright *03
   s_part sleft super sright super vert
   s_rest none
   ssolve
   expand sleft
   expand sright
end
strpost
  joint disp
  res -detail
  beam loads
end
$
$*********************************************      all done
$
&fini
