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

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

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

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

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

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