$
$*********************************************      set basics
$
&title test of lowering & deballasting
&dimen -dimen feet kips
&device    -oecho no -g_default device
$
$*********************************************      read model
$
inmodel
medit
    ~sling sling 3 -len 100
    ~boom sling 3  -len 200
    &describe body ground
    *boom 200 0.00 300.00
    connector boom ~boom *boom
    connector sling1 ~sling *s
    assembly t-h boom sling1
end
&instate -loc  *s 200 0 0
&status config
&status tip
&status f_connector
&status force
&instate -mov  *s 0 0 -1
&status config
&status tip
&status f_connector
&status force
&pict side
$
$*********************************************      all done
$
&fini
