$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
struct
   lc_doit mult1 #1001.00
   lc_doit mult2 #1001.00 2
   ssolve
end
medit
   beam ~chord *j131 *j141
end
struct
   lc_doit same #1001.00
   ssolve
end
strpost
   cases -combine differ mult1 1 same -1
   joint d
   beam loads -detail
end
$
$*********************************************      all done
$
&finish
