$
$*********************************************      set basics
$
&device -oecho no
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -condition 9
&status
&compartment -percent  tank .25
&weight -compute 5 32 .29*400 .29*400
&status
&type &compartm(@)
&dcptime time to medit
medit
   ~wire b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .008 \
                     -b_tens 500
   connector sst ~wire   *mla -anc   45   20
   connector sbs ~wire   *mla -anc   90   20
   connector sbb ~wire   *mld -anc   90   20
   connector sbo ~wire   *mld -anc  135   20
   connector pst ~wire   *mlb -anc  -45   20
   connector pbs ~wire   *mlb -anc  -90   20
   connector pbb ~wire   *mlc -anc  -90   20
   connector pbo ~wire   *mlc -anc -135   20
end
&connecto @ -a_tension 400
hydro
   g_mdrift tbrg tbrg -md_type form
end
&env -sea issc 90 40 6
&status env
&status force
&status g_connector
&status f_connector
&status config
&status force
&instate -move 0 20 -lines
hydro
   g_mdrift tbrg tbrg -md_type form
end
&status spread
&type force   &connector(sst -force)
&type anchor  &connector(sst -anchor)
&type tension &connector(@ -tension)
&type length  &connector(@ -length)
&type horiz   &connector(@ -horiz)
&type head    &connector(@ -headi)
&type g_head  &connector(@ -g_hea)
&type ratio   &connector(@ -ratio)
&conne @ -set_st nominal
&status g_connector
&status f_connector
&status config
&status force
&status lines
&instate -move 0 20 -lines @  @ 200
&status g_connector
&status f_connector
&status config
&status force
&status lines
&instate -locat 0 0 100
&env
&status env
medit
   ~tight h_cat 2  -len 400
   connector hsst ~tight   *mla
   connector hsbb ~tight   *mld
   connector hpst ~tight   *mlb
   connector hpbb ~tight   *mlc
end
&connecto @   -inact  h@ -active
&connecto h@  -anchor  200 0 350
&connector h@ -l_tension 4000
&weight -define 8000 201 0 10 32 129 129
&status force
&status g_connector
&status f_connector
&status config
&status force
&instate -lines
&status g_connector
&status f_connector
&status config
&status force
$
$*********************************************      all done
$
&fini
