&dimen -dimen feet kips inmodel medit lleg *db2 *db1 barge 0 25 20 -tpin 0 300 25 20 -frict .05 lleg *db4 *db3 barge 0 -25 20 -tpin 0 300 -25 20 -frict .05 end &instate jacket -loc 180 0 10 barge -loc 0 0 -10 &status &status config &status f_lway &equi &finish