$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel -process cat
&instate -con -1.61 0 0
hstat
    cform -10 0 0 1 20
       report
    end
end
&status
&summary
   class
   point_sum
   beam
   plate
   categ
end
&equi
&status
medit
   ~wire b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .008
   connector bs ~wire *bs -anc  135 20
   connector bp ~wire *bp -anc -135 20
   connector sp ~wire *sp -anc  -45 20
   connector ss ~wire *ss -anc   45 20
end
&connector @ -a_tension 300
&status g_connector -hard
&status spread -hard
&status cl_flex -hard
&equi
&status config
&status f_connector
&status force
&env -time 5 .2
tdom
&status process
prcpost
   traj
      vlist
      report
   end
end
struct
   lcase -process 1
   ssolve
end
strpost
   joint dis
   restraint
end
$
$*********************************************      all done
$
&fini
