&device  -oecho y
&dimen -dimen feet kips
inmodel
&instate -loc carl 0 0 .1
&set ldgname = table area_wind
&loop ldgrp (%ldgname%)
   &apply -load -perc @ 0 %ldgrp% 100
   &title Load Group %ldgrp%
   &type Appling load group %ldgrp%
   &loop dir 0 360 45
      &subt  Wind Direction %dir%
      &type  Wind Direction %dir%
      &env w%dir% -wind 1 %dir%
      &status force -hard
   &endloop
&endloop
&instate -loc carl 0 0 -.1
&set ldgname = table area_cur
&loop ldgrp (%ldgname%)
   &apply -load -perc @ 0 %ldgrp% 100
   &title Load Group %ldgrp%
   &type Appling load group %ldgrp%
   &loop dir 0 360 45
      &subt  Current Direction %dir%
      &type  Current Direction %dir%
      &env c%dir% -current 1 %dir%
      &status force -hard
   &endloop
&endloop
&fini