El Movimiento del Cursor: Un Modelo de Programa

En el siguiente ejemplo, un procedimiento recursivo hace que, en forma sucesiva, cada letra dentro de una caja de texto sea más grande y tenga diferente color.

para crecer :tamaño :color
si fdt? [alto]
marca cuad
ftamañoletra :tamaño
fcolortexto :color
desmarca
crecer :tamaño + 1 :color + 5
fin

Observe que se utiliza fdt? para controlar el final del texto. Marca cuad marca cada letra. Desmarca desmarca la letra después de cambiar su tamaño y su color. En cada llamada recursiva el tamaño de la letra se incrementa en uno y el color en 5.

Se puede utilizar un superprocedimiento para ejecutar crecer:

para crecertexto
crecer tamañoletra ct
fin

principio
crecertexto