$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
struct
   lc_doit load #load
   ssolve
end
strpost
   joint d
   rest load -detail
   &sele :c -ex ~spa
   beam load  -class :c
   beam stress  -class :c
   beam code  -class :c
end
$
$*********************************************      all done
$
&finish
