ΠΡΟΓΡΑΜΜΑ ΜΠΑΛΟΝΙ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Κ, Λ, Θ, ΠΛ1, ΜΕΤΡ[255], ΜΑΧ, FRONT, REAR
  ΧΑΡΑΚΤΗΡΕΣ: ΜΑΠ[255, 9], ΔΕΔ[10000], ΕΓΓΡ[8], Χ

ΑΡΧΗ
! ΔΙΑΒΑΣΜΑ ΤΟΥ ΜΑΠ
  ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 255
    ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 9
      ΔΙΑΒΑΣΕ ΜΑΠ[Κ, Λ] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

! ΕΙΣΑΓΩΓΗ ΣΤΟΝ ΔΕΔ --> ΑΡΧΗ
! ΕΙΣΑΓΩΓΗ ΠΟΛΛΩΝ ΣΤΟΙΧΕΙΩΝ ΜΕΧΡΙ Η ΣΥΝΑΡΤΗΣΗ ΜΕΤ
! ΝΑ ΦΕΡΕΙ ΣΑΝ ΑΠΟΤΕΛΕΣΜΑ ΤΟ ~ ΠΟΥ ΕΙΝΑΙ
! Η ΜΕΤΑΦΡΑΣΗ ΤΩΝ 8 ΣΥΝΕΧΟΜΕΝΩΝ 1

  FRONT <- 0
  REAR <- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
! ΕΙΣΑΓΩΓΗ ΣΤΝ ΕΓΓΡ --> ΑΡΧΗ
    ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 8
      ΔΙΑΒΑΣΕ ΕΓΓΡ[Κ] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    Χ <- ΜΕΤ(ΕΓΓΡ, ΜΑΠ) 
! ΕΙΣΑΓΩΓΗ ΣΤΝ ΕΓΓΡ --> ΤΕΛΟΣ
    ΑΝ Χ <> '~' ΤΟΤΕ
      ΑΝ FRONT = 0 ΚΑΙ REAR = 0 ΤΟΤΕ
        FRONT <- 1
        REAR <- 1
        ΔΕΔ[REAR] <- Χ
      ΑΛΛΙΩΣ_ΑΝ REAR < 10000 ΤΟΤΕ
        REAR <- REAR + 1
        ΔΕΔ[REAR] <- Χ
      ΤΕΛΟΣ_ΑΝ
      ΑΝ REAR = 10000 ΤΟΤΕ
        ΓΡΑΨΕ 'ΟΥΡΑ ΓΕΜΑΤΗ'
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ REAR = 10000 Η Χ = '~'
!ΕΙΣΑΓΩΓΗ ΣΤΟΝ ΔΕΔ --> ΤΕΛΟΣ

! Εμφάνιση του ΔΕΔ
  ΑΝ FRONT = 0 ΚΑΙ REAR = 0 ΤΟΤΕ
    ΓΡΑΨΕ 'ΟΥΡΑ ΑΔΕΙΑ'
  ΑΛΛΙΩΣ_ΑΝ FRONT = REAR ΤΟΤΕ
    ΓΡΑΨΕ ΔΕΔ[FRONT] 
    FRONT <- 0
    REAR <- 0
  ΑΛΛΙΩΣ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ ΔΕΔ[FRONT] 
      FRONT <- FRONT + 1
    ΜΕΧΡΙΣ_ΟΤΟΥ FRONT > REAR
    FRONT <- 0
    REAR <- 0
  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 



ΣΥΝΑΡΤΗΣΗ ΜΕΤ(ΕΓΓΡ, ΜΑΠ): ΧΑΡΑΚΤΗΡΑΣ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Κ, Λ, Χ, Θ
  ΧΑΡΑΚΤΗΡΕΣ: ΕΓΓΡ[8], ΜΑΠ[255, 9] 
ΑΡΧΗ
  Θ <- 0
  ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 255
    Χ <- 0
    ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 8
      ΑΝ ΕΓΓΡ[Λ] = ΜΑΠ[Κ, Λ] ΤΟΤΕ
        Χ <- Χ + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ Χ = 8 ΤΟΤΕ
      Θ <- Κ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΜΕΤ <- ΜΑΠ[Θ, 9] 
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ