$
$*********************************************      basics
$
&dimen -dimen feet kips
&device  -g_default device -oecho no
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
&summary
   point_sum
   loadg ud_force
   beam
end
&picture side -type struct
struc
   lc_doit lc1 #load
   ssolve
end
strpost
   beam loads
   joint code -standard -summary
   joint code -code api 21
   joint code -code api lrfd
   joint code -code iso lrfd
   joint brace -standard -summary
end
$
$*********************************************      all done
$
&finish
