$
$*********************************************      set basics
$
&device -oecho no
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -con  1.61 0 0
&weight -compute
&status
medit
   ~wire h_cat   4 -len 4000
   connector bs  ~wire *bs *sp
end
&connector @ -l_tension 300
&equi
&status f_connector
&status force
freq_resp
   rao     -period 6.25 -heading 90
end
struct
   lcase -rao
   ssolve
end
&env sea -sea regular 90 2 6 -time 6 .2
strpost
  joint d
  restraint loads -detail
  beam code
end
$
$*********************************************      all done
$
&fini
