Internal Procedure

En un mismo trozo de editor… podemos poner un procedure que se invoque varias veces sin tener que crearnos un procedimiento general en la aplicación.

Mira este código:

nCont is int
 // A veces, tenemos cierto código que se repite en distintos bloques de código del mismo proceso
IF True THEN
 Trace("Muestra texto "+nCont)
 nCont++
END
 // A veces, tenemos cierto código que se repite en distintos bloques de código del mismo proceso
IF True THEN
 Trace("Muestra texto "+nCont)
 nCont++
END
 // A veces, tenemos cierto código que se repite en distintos bloques de código del mismo proceso
IF True THEN
 Trace("Muestra texto "+nCont)
 nCont++
END
 // A veces, tenemos cierto código que se repite en distintos bloques de código del mismo proceso
IF True THEN
 Trace("Muestra texto "+nCont)
 nCont++
END
  //////////////
// Podemos simplificarlos haciendo uso de los INTERNAL PROCEDURE
//////////////
nCont2 is int
MyTrace()
MyTrace()
MyTrace()
MyTrace()

INTERNAL PROCEDURE MyTrace()
    Trace("Muestra texto "+nCont2)
    nCont2++
END