$
$*********************************************      set basics
$
&device -oecho no
&dimen -DIMEN FEET KIPS
&title Test of the MOVE command
$
$*********************************************      read model
$
inmodel
$
$*********************************************      Set Initial Condition
$
&instate -CONDITION 9
$
$*********************************************      Define Mooring Lines
$
medit
   *MLA 400    50   20
   *MLB 400   -50   20
   *MLC   0   -50   20
   *MLD   0    50   20
   ~WIRE b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .0125
   CONNECTOR a -ANC  -45   20 ~WIRE   *MLB
   CONNECTOR b -ANC  -90   20 ~WIRE   *MLB
   CONNECTOR c -ANC  -90   20 ~WIRE   *MLC
   CONNECTOR d -ANC -135   20 ~WIRE   *MLC
   CONNECTOR e -ANC  135   20 ~WIRE   *MLD
   CONNECTOR f -ANC   90   20 ~WIRE   *MLD
   CONNECTOR g -ANC   90   20 ~WIRE   *MLA
   CONNECTOR h -ANC   45   20 ~WIRE   *MLA
end
$
$*********************************************      Move Anchors
$
&connector @ -a_tension 100
&dcptime Time to Connect
$
$*********************************************      Mooring Tables
$
CONN_DESIGN
   TABLE A
      REPORT
   end
   MOVE TBRG 90
      REPORT
   end
   MOVE TBRG -rotate 25
      REPORT
   end
   MOVE TBRG -rotate 12 5
      REPORT
   end
   MOVE TBRG -line 90
      REPORT
   end
end
$
$*********************************************      all done
$
&FINI
