$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&dimen -dimen meters tonnes
&loop hei ( 10  20 30 40 50 60 )
   &loop type ( abs api npd power )
      &if %type .eq. power &then
         &set type = power 1/8
      &endif
      &instate -loc area 0 0 %hei -loc piece 0 0 %hei
      &env -wind 100 90 -w_profile %type
      &type Height = %hei, type = %type
      &status force
   &endloop
&endloop
$
$*********************************************      all done
$
&fini
