ΠΡΟΓΡΑΜΜΑ move
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: χ,υ,S,ι, J
  ΧΑΡΑΚΤΗΡΕΣ: κατ_αν, δεξ_αρ

ΑΡΧΗ
  κατ_αν <-- 'κατ'
  δεξ_αρ <-- 'δεξ'
  υ <-- 2
  χ <-- 2

  ΓΙΑ S ΑΠΟ 1 ΜΕΧΡΙ 1000 ΜΕ ΒΗΜΑ 0

    ΑΝ υ=2 και δεξ_αρ='δεξ'  ΤΟΤΕ
      κατ_αν <-- 'κατ'
      δεξ_αρ <-- 'δεξ'
      ΟΣΟ  χ<73 και υ<22 ΕΠΑΝΑΛΑΒΕ
        χ <-- χ+1
        υ <-- υ+1
        ΚΑΛΕΣΕ πλαισιο
        ΚΑΛΕΣΕ μπαλα
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ

    ΑΝ υ=2 και δεξ_αρ='αρ'  ΤΟΤΕ
      κατ_αν <-- 'κατ'
      δεξ_αρ <-- 'αρ'
      ΟΣΟ χ>2 και υ<22 ΕΠΑΝΑΛΑΒΕ
        χ <-- χ-1
        υ <-- υ+1
        ΚΑΛΕΣΕ πλαισιο
        ΚΑΛΕΣΕ μπαλα
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ

    ΑΝ υ=22 και δεξ_αρ='δεξ' ΤΟΤΕ
      κατ_αν <-- 'αν'
      δεξ_αρ <-- 'δεξ'
      ΟΣΟ χ<73 και υ>2 ΕΠΑΝΑΛΑΒΕ
        χ <-- χ+1
        υ <-- υ-1
        ΚΑΛΕΣΕ πλαισιο
        ΚΑΛΕΣΕ μπαλα
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ

    ΑΝ υ=22 και δεξ_αρ='αρ' ΤΟΤΕ
      κατ_αν <-- 'αν'
      δεξ_αρ <-- 'αρ'
      ΟΣΟ χ>2 και υ>2 ΕΠΑΝΑΛΑΒΕ
        χ <-- χ-1
        υ <-- υ-1
        ΚΑΛΕΣΕ πλαισιο
        ΚΑΛΕΣΕ μπαλα
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ

    ΑΝ χ=73 και κατ_αν='κατ' ΤΟΤΕ
      κατ_αν <-- 'κατ'
      δεξ_αρ <-- 'αρ'
      ΟΣΟ υ<22 και χ>2 ΕΠΑΝΑΛΑΒΕ
        χ <-- χ-1
        υ <-- υ+1
        ΚΑΛΕΣΕ πλαισιο
        ΚΑΛΕΣΕ μπαλα
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ

    ΑΝ χ=73 και κατ_αν='αν' ΤΟΤΕ
      κατ_αν <-- 'αν'
      δεξ_αρ <-- 'αρ'
      ΟΣΟ υ>2 και χ>2 ΕΠΑΝΑΛΑΒΕ
        χ <-- χ-1
        υ <-- υ-1
        ΚΑΛΕΣΕ πλαισιο
        ΚΑΛΕΣΕ μπαλα
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ

    ΑΝ χ=2 και κατ_αν='κατ' ΤΟΤΕ
      κατ_αν <-- 'κατ'
      δεξ_αρ <-- 'δεξ'
      ΟΣΟ υ<22 και χ<73 ΕΠΑΝΑΛΑΒΕ
        χ <-- χ+1
        υ <-- υ+1
        ΚΑΛΕΣΕ πλαισιο
        ΚΑΛΕΣΕ μπαλα
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ

    ΑΝ χ=2 και κατ_αν='αν' ΤΟΤΕ
      κατ_αν <-- 'αν'
      δεξ_αρ <-- 'δεξ'
      ΟΣΟ υ>2 και χ<73 ΕΠΑΝΑΛΑΒΕ
        χ <-- χ+1
        υ <-- υ-1
        ΚΑΛΕΣΕ πλαισιο
        ΚΑΛΕΣΕ μπαλα
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

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

ΔΙΑΔΙΚΑΣΙΑ μπαλα
ΑΡΧΗ
  ΠΗΓΑΙΝΕ_ΧΥ χ,υ
  ΓΡΑΨΕ '//\\'
  ΠΗΓΑΙΝΕ_ΧΥ χ,υ+1
  ΓΡΑΨΕ '\\//'
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 300000
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ πλαισιο
ΑΡΧΗ
  ΓΡΑΨΕ '##############################################################################' !78
  ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 22
    ΓΡΑΨΕ '#                                                                            #'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ '##############################################################################'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ