Programar con Textos: Programas Modelo

El siguiente es un procedimiento recursivo que utiliza busca y encontrada? para reemplazar una palabra por otra cada vez que aparece en un texto:

para reemplazar :palabra :nueva
busca :palabra
si no encontrada? [alto]
inserta :nueva
reemplazar :palabra :nueva
fin


principio
reemplazar "yo "tú

Existe un problema. "Yo" será reemplazado cada vez que aparece, incluso cuando sea una sílaba dentro de otra palabra. De la misma forma, "tú" será insertado sin incluir el espacio en blanco. Las barras verticales se utilizan para reemplazar una palabra seguida de un espacio por otra también seguida de un espacio.

principio
replazar "|yo | "|tú |

Podemos también utilizar busca y encontrada? para borrar ciertos caracteres o letras en un texto. Como borra borra la letra a la derecha de la posición del cursor, después de utilizar busca debemos mover el cursor hacia atrás con cuat, para recién después borrar.

para deshacer :letra
busca :letra
si no encontrada? [alto]
cuat borra
deshacer :letra
fin


principio deshacer "a