$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&type ends of chord are: &element(ends chord)
&apply -load @ 100 -force @ 100
&summ
   geom
   beam scf
end
$
$*********************************************      do struct 
$
struct
   lc_doit big #1001.00
   ssolve
end
$
$*********************************************      post-process
$
strpost
   joint d
   beam load -detail
   beam stress -detail -standard
   beam code -detail -code aisc ws
   &loop class ( &names(class) )
      beam code -detail -code aisc lrfd -class %class
      beam code -detail -code norsok    -class %class
   &endloop
end
$
$*********************************************      all done
$
&finish
