$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
$
$*********************************************      compute
$
&summary
   class
   point
   beam
   plate
   categ
end
struc
   lc_doit  lc1 #lc1
   s_part three
   s_rest none
   reduce part3 *c1 *c2 *c3 *c4
   s_part part3 super two
   s_rest none
   reduce part2 *b1 *b2 *b3 *b4
   s_part part2 super one
   s_rest ~@
   ssolve model
   expand part2
   expand part3
end
strpost
   joint disp
   rest -detail
   beam loads
end
$
$*********************************************      all done
$
&finish
