&dimen -dimen feet kips
inmodel
&instat -con 10
&apply @ 0 tbrg 100
$
$**************************************
$
medit
   ~wire b_cat  1 -dep 500  -len 4000 -wtplen 8 -tab_lim 800
   connector a ~wire   *mla -anc   45   20
   connector b ~wire   *mlb -anc  -45   20
   connector c ~wire   *mlc -anc -135   20
   connector d ~wire   *mld -anc  135   20
end
&connec @ -a_tension 300
&describe proces cat
&dcptime time to gen new process
$
$**************************************
$
&connector a -inactive
&status config
&status f_connec
&status connector
&dcptime
$
$**************************************
$
&apply -perc one 100 -force @ 100
&connector @ -active
&equi
&stat force -hard
&status f_connec
&status g_connec
&event_store 1
$
$**************************************
$
&connector @ -inactive
&instat -loc 10 0 -10
&equi
&stat force -hard
&event_store 2
$
$**************************************
$
&instat -loc 00 0 -10
&equi
&stat force -hard
&event_store 3
$
$**************************************
$
&apply -perc two 100 -force @ 100
&equi
&stat force -hard
&event_store 4
$
$**************************************
$
struct
    lcase -process 1 2 3 4
    s_rest ~fix
    ssolve
end
strpost
   rest load -detail
end
$
$**************************************
$
prcpost
  traj
    report
  end
  confor
    report
  end
end
$
$**************************************
$
&fini