function C2I takes code c returns integer
 return c
 return 0
endfunction

function I2C takes integer i returns code
 return i
 return null
endfunction

function Test takes nothing returns nothing
 call BJDebugMsg("!")
endfunction

function Run takes nothing returns nothing
 local integer i=C2I(function Test)
 local code c=I2C(i)
 call BJDebugMsg(I2S(i))
 call TimerStart(CreateTimer(), 1., false, c)
endfunction