$
$*********************************************      set basics
$
$
&set demo = .false.
&if %demo &then
   &device -g_default screen
&else
   &device -g_default device
&endif
&device   -oecho no
&dimen -DIMEN METERS M-TONS
&default -depth 31
&macro move del
  &instate -move %del
  &pltmo
     pi
     end
&endmacr
$
$*********************************************      GEN. DATABASE
$
inmodel
$
$*********************************************      SET INIT. CONDITIONS
$
&INSTATE -LOC   0 0 -3 0 0 0
&weight -compute 1 10 10 10
$
$*********************************************      DEFINE LINES
$
MEDIT
    ~norma b_cat 50 -tab_lim 300  -len 200 -clum -20
    ~norma b_cat 50 -tab_lim 300  -len 156 -dep 31
    ~sunk  b_cat 50 -tab_lim 300  -len 200 -clum -20 10
    ~sunk  b_cat 50 -tab_lim 300  -len 156 -dep 31
    CONNECTOR  normal  ~norma  *avant   -ANC 180 350
    CONNECTOR  sunk    ~sunk   *avant   -ANC 180 350
END
&status f_connector
&pict
conn
   &loop line ( normal sunk )
      table %line
         report
         end
      geometry %line
         plot 3 5 -n
         report
         end
   &endloop
$
$*********************************************      all done
$
&fini
