$
$*********************************************      basics
$
&dimen -dimen feet kips
$&title Aisc Tube Check
&subtitle
&device    -g_default device
$
$*********************************************      read model
$
inmodel
&stat sn
&instate -loc 0 0 100
&type ends of chord are: &element(ends chord)
&apply -load @ 100 -force @ 100
&status force
&summ
   class
end
&pict side
struct
   lc_doit big #1001.00
   ssolve
end
strpost
   &sele :c -sel @ -ex ~sp@
   joint disp
   rest load
   beam load    -class :c
   beam stress  -class :c
   beam code    -class :c
end
$
$*********************************************      all done
$
&fini
