&device  -oecho no  -g_default device
&dimen -dimen meters k-nts
inmodel
&instat -con 32.5
medit
   &set exact =
   &describ body fl
   ~cl5 b_cat 120 %exact -len 430 -dep -2 -slope -1e5  -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   ~cl6 b_cat 120 %exact -len 430 -dep -2 -slope -1e5  -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   ~cl7 b_cat 120 %exact -len 430 -dep -2 -slope -.185  -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   ~cl8 b_cat 120 %exact -len 430 -dep -2 -slope -1 -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   connec line5 ~cl5 -anch -000 430*.9 *fairl8
   connec line6 ~cl6 -anch -000 430*.9 *fairl8
   connec line7 ~cl7 -anch -000 430*.9 *fairl8
   connec line8 ~cl8 -anch -000 430*.9 *fairl8
end
&stat cl_flex
&loop ten ( 900 800 700 600 500 )
   &cutype Tension = %ten
   &connec line5 -l_hor %ten
   &connec line6 -l_ten %ten
   &connec line7 -l_hor %ten
   &connec line8 -l_ten %ten
   &stat f_c
   &stat dg_con -hard
   con
      table line5
          report
          end
   end
   &picture
&endloop
&fini