/com, defines the table that defines the current form to be used
/com, for the loading of currents for a winding. This shape turns
/com, A on for 120, off for 120-240  and opposite for 240-360
   *set,amp_a
     *dim,amp_a,table,7
     amp_a(1,0)=0,.0001,119.99,120.001,239.99,240.01,359.99   !  angle  (index)
     amp_a(1,1)=0,  1,    1,     0,     0,    -1,     -1      !  form   (value)