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

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