$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$            ---------    incline command file   --------
$
$.d This command file is used to collect and reduce the data during an
$.d inclining experiment. To use it, you should also fill out the
$.d accompanying incline.dat template.
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$****************************************          basic parameters
$
&device -oecho no -g_default screen
$
$****************************************          read model
$
inmodel
$
$****************************************          set up
$
incl_init ready
$
$****************************************          initial cond
$
init_con pf 7 sf 7 pa 9 sa 9 -tanks cp1 8 cp2 8 cs1 8 cs2 8
mv one 75 10  16 two 150 10  16 three 225 10  16
sound cp1 10 cp2 10 cs1 6 cs2 6
p_read one .5 two .6 three .4
event next
mv one 75 20  16 two 150 20  16 three 225 20  16
sound cp1 12 cp2 12 cs1 4 cs2 4
p_read one 1.0 two 1.2 three .8
event next
report kg -hard
report pend -hard
report weight -hard
report sound -hard
$
$****************************************          all done
$
&fini