$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$   This is an example of generating tank capacities and defining
$   a sounding tube.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$***************************************         basic stuff
$
$
$*********************************************      set devices
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
$
$*********************************************      set conditions
$
&instat -con 20
&weig -comp 0
$
$*********************************************      set conditions
$
hstat
$
$*********************************************      sounding tube status
$
    &stat
    &stat s_comp
$
$*********************************************      tank cap
$
    tank leg 2.5
       report
       end
$
$*********************************************      tank cap with roll
$
    tank leg 2.5 -roll 5
       report
       end
$
$*********************************************      all done
$
&fini