&dimen -dimen feet kips
inmodel
&instate -loc 0 0 0
medit
   ~cmp  sl_elem .18741 compe -len 4000 -tab_lim 700 -b_ten 300
   ~tie  sl_elem .18741 tense -len 4000 -tab_lim 700 -b_ten 200
   ~bot  sl_elem .18741 both  -len 4000 -tab_lim 700 -b_ten 100
   connector bs ~bot *bs -anc  90 20
   connector ss ~cmp *ss -anc  90 20
   connector sp ~cmp *sp -anc  -90 20
   connector bp ~tie *bp -anc  -90 20
   &connector @ -l_tension  0
end
conn_design
  table bs
     report
     end
  table sp
     report
     end
  table bp
     report
     end
end
&status cl_flex
&status connector
&status f_connector
&instat -loc 0 10 0
&status f_connector
&instate -loc 0 -10 0
&status f_connector
&fini