&dimen -dimen feet kips
inmodel
&apply @ 0 tbrg 100
&status b_w
&status force
&status loadg
$**************************************
$
&apply -perc one 100 -force @ 100
&status b_w
&status force
&status loadg
$
$**************************************
$
&apply -perc two 100 -force @ 100
&status b_w
&status force
&status loadg
$
$**************************************
$
&fini