Κώδικας:
ΠΡΟΓΡΑΜΜΑ λεζάντα
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: κειμ,ψ
ΑΚΕΡΑΙΕΣ: ι,χ
ΑΡΧΗ
!αφηστε ένα κενό μπροστά από το κείμενο σας!
ΓΡΑΨΕ 'Δώσε το κείμενο λεζάντας:'
ΔΙΑΒΑΣΕ κειμ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
χ <-- 0
ΓΙΑ ι από 1 μέχρι 79
ΠΗΓΑΙΝΕ_ΧΥ 0+χ,22
ΓΡΑΨΕ_ '='
χ <-- χ+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
χ <-- 0
ΓΙΑ ι από 1 μέχρι 79
ΠΗΓΑΙΝΕ_ΧΥ 0+χ,24
ΓΡΑΨΕ_ '='
χ <-- χ+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
χ <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
χ <-- μήκος_χαρ(κειμ)
ΓΙΑ ι από 1 μέχρι 80
ΠΗΓΑΙΝΕ_ΧΥ 80-χ,23
ΓΡΑΨΕ_ κειμ
κάλεσε καθ
χ <-- χ+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
χ <-- 0
ΓΙΑ ι από 80- μηκος_χαρ(κειμ) μέχρι 0 με Βήμα -1
ΠΗΓΑΙΝΕ_ΧΥ χ,23
ΓΡΑΨΕ_ κειμ
κάλεσε καθ
χ <-- χ+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΕΧΡΙΣ_ΟΤΟΥ χ=1000
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ καθ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: α
ΑΡΧΗ
ΓΙΑ α από 1 μέχρι 10000000
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ