/com, sq-form.mac
 *set,amp_a
 *dim,amp_a,table,8
 amp_a(1,0)=0, 120,120,180,180,300,300,360   !  angle  (index)
 amp_a(1,1)=1,  1,  0,  0, -1, -1,  0,  0    !  form   (value)
 /grid,1
 /axlab,x,Electrical Angle (D)
 /axlab,y,Current Form
 /gthk,curve,3
 /title,Idealized Phase Current-Square Form
 /num,-1
 /xran,0,360
 *vplo,amp_a(1,0),amp_a(1,1)         !  plots current vs angle
 /num,1
 /xran