TEXT TO mycode noshow
PARAMETERS myPar
 ? m.myPar
 myPar = 3
 RETURN 'ok'
ENDTEXT

CLEAR

LOCAL locvar
locvar = 0
SET UDFPARMS TO REFERENCE
? EXECSCRIPT(m.mycode,m.locvar),m.locvar
? locproc(m.locvar),m.locvar

PROCEDURE locproc
PARAMETERS myPar
 ? m.myPar
 myPar = 3
 RETURN 'ok'