XProfan

 {$cleq}
 {$compiler c:\dev\xprofan11\11}
 {$runtime c:\dev\xprofan11\11}
declare interpreteProc&
interpreteProc&=procAddr(interpreteProc,5)
print test(1)
print test(2)
waitinput
end

nProc test(long test){

    global interpreteProc&
    case test==1 : return call(interpreteProc&,1,2,3,4,5)
    case test==2 : return call(interpreteProc&,2,2,3,4,5)

}

interpreteProc(long procID,p2,p3,p4,p5){

    select procID

        caseof 1 : return 55

        caseof 2 : return p2*p3

    endSelect