&device -g_default file
&dimen -dimen meters m-tons
&device  -oecho n
inmodel
&insta -loc 0 0  5
medit
    &describe part ground
    *mainhk   0     0.   70.
    ~main sling 100      -emodulus  100000  -length  60
    ~A2  sling 100       -emodulus  100000  -length  15
    connector  mainln   ~main  *mainhk
    connector  sling1  ~A2  *n1
    connector  sling2  ~A2  *n2
    t-h_definition  assembly  mainln  sling1 sling2
end_medit
&insta -sl_set
&equi
&stat tip
&conn assembly ainln -l_dynami -0.5 30
&env still -time 20 0.15 0
tdom
 prcpost
    tip-hook
    view 1 3
    plot 1 3 -n
&fini