$
$*********************************************      basics
$
&dimen -dimen feet kips
&device    -oecho no
$
$*********************************************      read model
$
inmodel
&instate -cond 295
&weight -compute 100 32 100 100
&status config
&status force
&event 1
medit
   ~sp tube 63*12 1
   sp_beam sp_beam ~sp -eleme @ *spf *sps
end
struct
    lcase -process 1
    ssolve
end
strpost
   beam load stress -detail
   bmom sp_beam
     view @ -hard
     end
end
$
$*********************************************      all done
$
&fini
