;@ map LVLlev LVLpos
;@ outs k
opcode Constant, 0, kkk
    kLev, kPolSw, kout xin

    if kPolSw != 0 goto Uni
      kLev table kLev, giLVLlev
      goto Over
Uni:
      kLev table kLev, giLVLpos
Over:
      zkw kLev/64, kout
endop
