&title test of lowering & deballasting
&dimen -dimen feet kips
&device    -oecho no -g_default device
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 
    t-h boom sling1 
end
&instate -loc  *s 200 0 0 
&stat config
&stat tip
&stat f_c
&status force
&instate -mov  *s 0 0 -1
&stat config
&stat tip
&status f_c
&status force
&pict side 
&fini