opcode Delay1k,k,k
kmem init 0
kin xin
xout kmem
kmem = kin
endop