$
$**************************************     set devices
$
&title Test of Different Ways to Flood
&dimen -dimen feet kips
&device   -oecho no
$
$**************************************     read model
$
inmodel
&instate -con 10 0 1
$
$**************************************     loop percentages
$
&loop pf ( 10 80 100 )
$
$**************************************     loop types
$
   &loop type ( correct approximate )
      &instate -con 10 0 1
      &cutype Setting Type To %type %pf Percent Full
      &compartment -%type -percen @ %pf
      &if %type .eq. correct &then
         &weight -compute
      &endif
       &status config
       &status cg_compart
       &instate -move 0 0 0 30 
       &status config
       &status cg_compart
   &endloop
$
$**************************************     end loops
$
&endloop
$
$**************************************     all done
$
&fini
