$
$*********************************************      set devices
$
&title Test of Basic Compartment Commands
&dimen -dimen feet kips
&device   -oecho no
$
$*********************************************      read model
$
inmodel
&instate -con 10
$
$*********************************************      test string function
$
&weight  -compute 25 50 50 50
$
$*********************************************      normal
$
&type No Downflooding
&subtitle No Downflooding
&stat
&status compartment
&status down
hstatic
   rarm 1 20
   report
   end
end
&instate -move 0 0 0 15
&type Vent Location &point(coord *down -g)
&status compart -hard
&instate -con 10
$
$*********************************************      vent open
$
&type Now with Downflooding
&subtitle Now with Downflooding
&compart -down @
&stat
&status compartment
hstatic
   rarm 1 20
   report
   end
end
&instate -move 0 0 0 15
&type Vent Location &point(coord *down -g)
&status compart -hard
$
$*********************************************      all done
$
&fini
