$
$*********************************************      SET BASIC PARAMETERS
$
&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