*set,_in_wnd
  *dim,_in_wnd,,12
  _in_wnd(1)=ax_clear,coil_w,coil_h,180/nsp,maxslotr,nsp
  *set,_in_wndc
  *dim,_in_wndc,char,2
  _in_wndc(1)=w_file,'s_iron'
  !b_wndsc,w_file,'s_iron',ax_clear,coil_w,coil_h,180/nsp,maxslotr,nsp !  builds the winding
  _n_prom=1
  b_wndsc
  _n_prom=0