$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
medit
   alias *onet1 *twob1 *onet2 *twob2 *onet3 *twob3 \
         *onet4 *twob4 *twot1 *thrb1 *twot2 *thrb2 \
         *twot3 *thrb3 *twot4 *thrb4
end
&status alias -hard
struc
   lc_doit  lc1 #lc1
   ssolve
end
strpost
   joint disp
   rest -detail
   beam loads
end
&status alias
medit
   alias -dele *twot3  *twot4
end
&status alias
struc
   lc_doit  lc1 #lc1
   ssolve
end
strpost
   joint disp
   rest -detail
   beam loads
end
$
$*********************************************      all done
$
&finish
