$
$*********************************************      basics
$
&device -oecho n
&dimen -dimen FEET KIPS
$
$*********************************************      read model
$
inmodel
$
&apply -load -perc @ 100
$
&set DRAFT = 16.2
&set ROLL  = 0.0
&set TRIM  = 0.0
&instate -cond %DRAFT% %ROLL% %TRIM%
&comp -perc @FO 50, @PW 40, @FW 20, @FEED 15, @LAUN 65, @DRTYO 65 \
            @VO   0
$
&status compartment
&select :TANK1 -sele @WB 6/DVO 6/OVO
&select :TANK2 -sele @WB 1@VO
&select :TANK3 -sele WINCHFLT 1PVO
&cmp_bal HERCULES :TANK2
$
$ interest points and draft marks
$
&describe interest -associate *tp000 *ts000 *tp444 *ts444
&select :PNAME -sele @
$
&describe body hercules  \
  -dmark s1 *bp000 *tp000 \
  -dmark s2 *bs000 *ts000 \
  -dmark s3 *bp444 *tp444 \
  -dmark s4 *bs444 *ts444
  &select :DNAME -sele @
$
$ intact hydrastatics
$
hsta
  equi
  &event_st 1
  info
  moment
    report
  end
$
$ damaged hydrastatics
$
&comp -flood :TANK3
  equi
  &event_st 2
  info
end
$
prcpost
  draft :DNAME -events 1 2
    report
  end
end
$
$*********************************************      all done
$
&fini
