$
$***************************************         basic stuff
$
&dimen -dimen feet kips
$
$***************************************         read model
$
inmodel
$
$***************************************         start current
$
&env -curr 10 90 
$
$***************************************         loops
$
&loop type ( yes no )
   &loop z ( -101 -50 )
$
$***************************************         compute 
$
      &parameter -af_envir %type
      &instat -loc 0 0 %z
      &stat force
      &stat
$
$***************************************         end loops
$
   &endloop
&endloop 
$
$***************************************         all done 
$
&fini