;@ map d BUT004
;@ map d BUT002


opcode shpStatic, 0, i
  iTable xin 
  a1 zar 1 ; CHANGE
  if (iTable == 0) then 
  	aout = 1/(a1*a1*a1)
  elseif (iTable == 1) then
  	aout = 1/(a1*a1)
  elseif (iTable == 2) then
  	aout = a1*a1
  elseif (iTable == 3) then
  	aout = a1*a1*a1
  endif
  zaw aout, 2 ; CHANGE
endop
