DEFINE nombre_de_procedimiento texto

Define un procedimiento cuyo nombre es nombre_de_procedimiento y cuya definición es texto. Si existe un procedimiento con el mismo nombre, la nueva definición reemplaza a la antigua. El argumento texto debe ser una lista de sublistas. La primera sublista contiene los parámetros y se parece a la línea PARA, pero sin la palabra PARA, sin el nombre del procedimiento y sin los dos puntos delante de los nombres de los parámetros. En otras palabras, los elementos de la primera sublista son palabras que indican los nombres de los parámetros requeridos, seguidos por listas con los nombres de los parámetros opcionales, seguidos por una lista con el nombre del parámetro restante. Las demás sublistas del argumento texto forman el cuerpo del procedimiento, con una sublista por cada línea de instrucción. (No hay una línea FIN en el argumento texto.)

No se puede redefinir un procedimiento, a no ser que la variable REDEFP tenga el valor CIERTO.

DEFINE "ABC [[a b] [ESCRIBE :a] [ESCRIBE :b]]
ABC "Hola "Adiós
Hola
Adiós