$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
medit
~fix fix
conn fix  ~fix *qb00
end
&apply -categ @ #dead 0 -categ @ #buoy 0 -force #forc1 100 -force #forc2 100
&summary
   point
end
&env still
struc
   lcase -static still still
   ssolve
end
strpost
  cases -combine lr still 1.33
  joint code -detail  -code api 21
  joint code -detail  -code api
  joint code -detail  -code iso
  joint code -detail  -code nor
end
$
$*********************************************      all done
$
&fini
