$
$*********************************************      basics
$
&dimen -dimen feet kips
&device    -oecho no
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
&instate -loc 0 0 -350
medit
   ~wire h_cat 3  -len 4000
   connector bs ~wire *jbpf *gbpf
   connector bp ~wire *jbps *gbps
   connector sp ~wire *jbsf *gbsf
   connector ss ~wire *jbss *gbss
   ~sp tube 50 4
   sp_beam dummy ~sp -eleme @ *spf *sps
end
&connector @ -l_ten 857
&equi
&status force
&even 1
struct
   lcase -process 1
   ssolve
end
strpost
   rest load -detail
   &sele :doit -s sp@ leg@
   beam load -detail -ele :doit
   bmom_shr dummy -load p0001.00
     view @ -hard
     end
end
$
$*********************************************      all done
$
&finish
