;@ map s 2 LVLlev LVLpos
;@ map d BUT002

;@ args ii,k,k
opcode LevAdd, 0, k   ; MULTIMODE support a/k?
; Need to check..
  kVal xin
  k1 zkr 1 ; CHANGE 
  kVal xin
  zkw k1+kVal, 2 ; CHANGE
endop
