ΠΡΟΓΡΑΜΜΑ ΤΡΕΝΟ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι, Θ, ΠΛ, Β, ΜΗΝΥΜΑ[10]
ΧΑΡΑΚΤΗΡΕΣ:ΕΙΔΟΣ[30], ΟΝΟΜΑ[10]
ΛΟΓΙΚΕΣ:ΔΙΑΘΕΣΙΜΟΤΗΤΑ[10]
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΔΙΑΘΕΣΙΜΟΤΗΤΑ[Ι] <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ΟΝΟΜΑ ΤΟΥ', Ι,'ΟΥ ΤΑΞΙΔΙΩΤΗ'
ΔΙΑΒΑΣΕ ΟΝΟΜΑ[Ι]
ΟΣΟ ΟΝΟΜΑ[Ι]<'Α' Η ΟΝΟΜΑ[Ι]>'Ω' ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'ΛΑΘΟΣ ΟΝΟΜΑ, ΔΩΣΕ ΝΕΟ'
ΔΙΑΒΑΣΕ ΟΝΟΜΑ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ'ΔΩΣΕ ΕΙΔΟΣ ΕΙΣΙΤΗΡΙΟΥ, Κ ΓΙΑ ΚΑΝΟΝΙΚΟ ΚΑΙ Μ ΓΙΑ ΜΕΙΩΜΕΝΟ'
ΔΙΑΒΑΣΕ ΕΙΔΟΣ[Ι]
ΟΣΟ ΕΙΔΟΣ[Ι]<>'Κ' ΚΑΙ ΕΙΔΟΣ[Ι]<>'Μ' ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ' ΛΑΘΟΣ ΔΕΔΟΜΕΝΑ, ΕΙΣΑΓΕΤΕ ΝΕΑ'
ΔΙΑΒΑΣΕ ΕΙΔΟΣ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ'ΕΙΣΑΓΕΤΕ ΤΟΝ ΑΡΙΘΜΟ ΤΗΣ ΘΕΣΗΣ ΠΟΥ ΕΠΙΘΥΜΕΙΤΕ ΝΑ ΔΕΣΜΕΥΣΕΤΕ'
ΔΙΑΒΑΣΕ Θ
ΟΣΟ Θ<0 ΚΑΙ Θ>10 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ'ΛΑΘΟΣ ΔΕΔΟΜΕΝΑ, ΕΙΣΑΓΕΤΕ ΝΕΑ'
ΔΙΑΒΑΣΕ Θ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΔΙΑΘΕΣΙΜΟΤΗΤΑ[Θ]=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ'ΕΠΙΤΥΧΗΣ ΚΡΑΤΗΣΗ'
ΔΙΑΘΕΣΙΜΟΤΗΤΑ[Θ] <-- ΨΕΥΔΗΣ
ΑΛΛΙΩΣ
ΓΡΑΨΕ'ΘΕΣΗ ΚΡΑΤΗΜΕΝΗ, ΞΑΝΑΠΡΟΣΠΑΘΗΣΕ'
ΠΛ <-- 0
ΓΙΑ Β ΑΠΟ 1 ΜΕΧΡΙ 10
ΑΝ ΔΙΑΘΕΣΙΜΟΤΗΤΑ[Β]=ΑΛΗΘΗΣ ΤΟΤΕ
ΠΛ <-- ΠΛ + 1
ΜΗΝΥΜΑ[ΠΛ] <-- Β
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΔΙΑΘΕΣΙΜΕΣ ΘΕΣΕΙΣ'
ΓΙΑ Β ΑΠΟ 1 ΜΕΧΡΙ ΠΛ
ΓΡΑΨΕ ΜΗΝΥΜΑ[Β]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ'ΤΩΡΑ ΔΩΣΕ ΝΕΑ ΕΠΙΘΥΜΗΤΗ ΘΕΣΗ ΚΡΑΤΗΣΗΣ'
ΔΙΑΒΑΣΕ Θ
ΟΣΟ ΔΙΑΘΕΣΙΜΟΤΗΤΑ[Θ]=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ'Η ΘΕΣΗ ΑΥΤΗ ΔΕΝ ΒΡΙΣΚΕΤΑΙ ΜΕΤΑΞΥ ΑΥΤΩΝ ΠΟΥ ΕΙΝΑΙ ΔΙΑΘΕΣΙΜΕΣ'
ΓΡΑΨΕ 'ΔΙΑΘΕΣΙΜΕΣ ΘΕΣΕΙΣ'
ΓΙΑ Β ΑΠΟ 1 ΜΕΧΡΙ ΠΛ
ΓΡΑΨΕ ΜΗΝΥΜΑ[Β]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ'ΤΩΡΑ ΔΩΣΕ ΝΕΑ ΕΠΙΘΥΜΗΤΗ ΘΕΣΗ ΚΡΑΤΗΣΗΣ'
ΔΙΑΒΑΣΕ Θ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ