&device   -g_default device
&dimen -dimen feet kips
inmodel
&name load
&instat -con 15
&weight -compute 0
medit
   ~wire tensel 1 -len 1000
   connec ~wire -anch 180 1000 *m
end
&conne @ -l_ten 1
hydro
    g_press
end
&env -sea regular 180 24.6  12  -time 1200 .125 find
&stat sea
tdom
&type slams &slam(check)
prcpost
    traj -even 0 9000 1
       report loca accel
       plot 1 5 6 7 -rax 8 9 10 -n
       end
    ldg ldg *1 -force @ -even 0 9000 1.
       report
       vl
       stat 1 93 94 95
       stat 1 44 45 46
       plot 1 44 45 46 -rax 79 80 81 -n
end
&fini