Στην άσκηση Ε7 του βιβλίου των Λύσεων:
μηδενίζει τους δείκτες εμπρός και πίσω έξω από τη Αν. Αυτό είναι πλεονασμός διότι στην πρωτη περίπτωση της Αν όταν η ουρα είναι άδεια, οι δείκτες είναι ήδη μηδέν, και στη δεύτερη όπου το στοιχείο είναι ένα, μετά την εξαγωγή του μηδενίζονται .
ΑΝ επ = 'Ε' ΤΟΤΕ
αθρ <- 0
ΑΝ (αρχ = 0 ΚΑΙ τελος = 0) ΤΟΤΕ
ΓΡΑΨΕ ' Δεν υπάρχει αρχείο για εκτύπωση...'
ΑΛΛΙΩΣ_ΑΝ αρχ = τελος ΤΟΤΕ
ΓΡΑΨΕ 'Εκτύπωση ', πίνακας_αρχειων[αρχ]
πίνακας_αρχειων[αρχ] <- "" !για παρακ/θηση των τιμών του πίνακα
τελος <- 0
αρχ <- 0
αθρ <- αθρ + 1
ΑΛΛΙΩΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Εκτύπωση ', πίνακας_αρχειων[αρχ]
πίνακας_αρχειων[αρχ] <- "" !για παρακ/θηση των τιμών του πίνακα
αρχ <- αρχ + 1
αθρ <- αθρ + 1
ΜΕΧΡΙΣ_ΟΤΟΥ (αρχ > τελος)
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Εκτυπώθηκαν συνολικά ', αθρ, ' αρχεία'
τελος <- 0
αρχ <- 0
ΤΕΛΟΣ_ΑΝ
Οπότε ο μηδενισμός των δεικτών θα έπρεπε να μπει αμέσως μετά την επανάληψης και εντος την τρίτης περίπτωσης της αν.
ΑΝ επ = 'Ε' ΤΟΤΕ
αθρ <- 0
ΑΝ (αρχ = 0 ΚΑΙ τελος = 0) ΤΟΤΕ
ΓΡΑΨΕ ' Δεν υπάρχει αρχείο για εκτύπωση...'
ΑΛΛΙΩΣ_ΑΝ αρχ = τελος ΤΟΤΕ
ΓΡΑΨΕ 'Εκτύπωση ', πίνακας_αρχειων[αρχ]
πίνακας_αρχειων[αρχ] <- "" !για παρακ/θηση των τιμών του πίνακα
τελος <- 0
αρχ <- 0
αθρ <- αθρ + 1
ΑΛΛΙΩΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Εκτύπωση ', πίνακας_αρχειων[αρχ]
πίνακας_αρχειων[αρχ] <- "" !για παρακ/θηση των τιμών του πίνακα
αρχ <- αρχ + 1
αθρ <- αθρ + 1
ΜΕΧΡΙΣ_ΟΤΟΥ (αρχ > τελος)
τελος <- 0
αρχ <- 0
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Εκτυπώθηκαν συνολικά ', αθρ, ' αρχεία'
ΤΕΛΟΣ_ΑΝ