ΠΡΟΓΡΑΜΜΑ ΡΟΜΒΟΣ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: I
ΑΡΧΗ
! ΜΕ ΑΥΤΟ ΤΟ ΠΡΟΓΡΑΜΜΑ ΕΦΤΙΑΞΑ ΕΝΑ BUG ΤΗΣ ΣΥΝΑΡΤΗΣΗΣ ΠΑΡΕΜΒΟΛΗ (ΔΕΣ ΤΟ -2)
ΓΡΑΨΕ_ ΠΑΡΕΜΒΟΛΗ(ΠΑΡΕΜΒΟΛΗ(ΜΟΤΙΒΟ('_',80),'ΡΟΜΒΟΣ ΜΕ ΑΞΟΝΕΣ',1),'[BUGMAN]',73)
ΓΡΑΨΕ ΠΑΡΕΜΒΟΛΗ('','*',30)
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 9
ΓΡΑΨΕ ΠΑΡΕΜΒΟΛΗ(ΠΑΡΕΜΒΟΛΗ('',ΠΑΡΕΜΒΟΛΗ('*','*',I*2+1),30-Ι),'*',30)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΠΑΡΕΜΒΟΛΗ(ΠΑΡΕΜΒΟΛΗ(' ',ΜΟΤΙΒΟ('* ',10)+'*',20),'*',30)
ΓΙΑ Ι ΑΠΟ 9 ΜΕΧΡΙ 1 ΜΕ ΒΗΜΑ -1
ΓΡΑΨΕ ΠΑΡΕΜΒΟΛΗ(ΠΑΡΕΜΒΟΛΗ('',ΠΑΡΕΜΒΟΛΗ('*','*',I*2+1),30-Ι),'*',30)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ_ ΠΑΡΕΜΒΟΛΗ('','*',30)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ ΠΑΡΕΜΒΟΛΗ(Χ,Ψ,Ι):ΧΑΡΑΚΤΗΡΑΣ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Χ, ΑΧ, Ψ
ΑΚΕΡΑΙΕΣ: Ι, Κ
ΑΡΧΗ
ΑΝ Ψ='' ΤΟΤΕ
Ψ <-- ' '
ΤΕΛΟΣ_ΑΝ
ΑΝ Χ='' ΤΟΤΕ
Χ <-- ' '
ΤΕΛΟΣ_ΑΝ
ΑΝ ΜΗΚΟΣ_ΧΑΡ(Χ)< (Ι+ΜΗΚΟΣ_ΧΑΡ(Ψ)+1) ΤΟΤΕ
ΓΙΑ Κ ΑΠΟ ΜΗΚΟΣ_ΧΑΡ(Χ) ΜΕΧΡΙ Ι+ΜΗΚΟΣ_ΧΑΡ(Ψ)-2
Χ <-- Χ+' '
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΧ <-- Χ
ΓΙΑ Κ ΑΠΟ Ι ΜΕΧΡΙ ΜΗΚΟΣ_ΧΑΡ(ΑΧ)
ΑΝ (Κ-Ι)<ΜΗΚΟΣ_ΧΑΡ(Ψ) ΤΟΤΕ
Χ[Κ] <-- Ψ[Κ-Ι+1]
ΑΛΛΙΩΣ
Χ[Κ] <-- ΑΧ[Κ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΑΡΕΜΒΟΛΗ <-- Χ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ ΜΟΤΙΒΟ(Χ,Ι):ΧΑΡΑΚΤΗΡΑΣ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι, Υ
ΧΑΡΑΚΤΗΡΕΣ: Χ, Μ
ΑΡΧΗ
Μ <-- ''
Υ <-- Ι*ΜΗΚΟΣ_ΧΑΡ(Χ)
ΑΝ (Υ>0) ΚΑΙ (Υ<255) ΤΟΤΕ
ΓΙΑ Ι ΑΠΟ Ι ΜΕΧΡΙ 1 ΜΕ ΒΗΜΑ -1
Μ <-- Μ+Χ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ_ΑΝ Υ<=0 ΤΟΤΕ
Μ <-- ''
ΑΛΛΙΩΣ
Μ <-- '?'
ΤΕΛΟΣ_ΑΝ
ΜΟΤΙΒΟ <-- Μ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ