> ###### Μετακίνηση του δρομέα: Παράδειγμα προγράμματος

> Στο παράδειγμα αυτό, μια αναδρομική διαδικασία μεγεθύνει διαδοχικά κάθε γράμμα ενός πλαισίου κειμένου και αλλάζει το χρώμα του.

> `για μεγέθυνση :μέγεθος :χρώμα
> αν ΤέλοςΚ? [στοπ]
> επιλογή ΔρΜ
> ΘέσεΜέγεθοςΓραμματοσειράς :μέγεθος
> ΘέσεΧρώμαΚειμένου :χρώμα
> ΑκύρωσηΕπιλογής
> μεγέθυνση :μέγεθος + 1 :χρώμα + 5
> τέλος`

> Παρατηρήστε πως η εντολή ΤέλοςΚ? χρησιμοποιείται στον κανόνα διακοπής για τον εντοπισμό του τέλους του κειμένου. Οι εντολές επιλογή, ΔρΜ επιλέγουν κάθε γράμμα. Η εντολή ΑκύρωσηΕπιλογής ακυρώνει την επιλογή του γράμματος αφού μεταβληθεί το μέγεθος και το χρώμα του. Το μέγεθος γραμματοσειράς αυξάνεται κατά 1 και το χρώμα κειμένου κατά 5, σε κάθε αναδρομική κλήση.

> Μπορείτε να χρησιμοποιήσετε μια υπερδιαδικασία για την εκτέλεση της διαδικασίας μεγέθυνση:

> `για ΜεγέθυνσηΚειμένου
> μεγέθυνση ΜέγεθοςΓραμματοσειράς ΧρώμαΚειμένου
> τέλος
> ΑρχήΚειμένου
> ΜεγέθυνσηΚειμένου`