$
$*********************************************      basics
$
&dimen -dimen feet kips
&device    -g_default device -oecho no
$
$*********************************************      read model
$
inmodel
&apply -load @ 100 -force @ 100
&apply -load @ 100 -for @ 100
&summ
   point
   beam
   load
end
struc
   lc_doit bcomp #bcomp
   lc_doit btens #btens
   ssolve
end
strpost
   rest -detail
   beam load code -detail
end
$
$*********************************************      all done
$
&finish
