ΠΡΟΓΡΑΜΜΑ DEAL
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ:Κ[26],ΤΕΜΠ,ΠΕΒΑ,ΣΥ,ΠΡ,ΔΕΠ,ΜΑΧΠΡ,ΣΥΝΤ,,ΛΑΓ
ΑΚΕΡΑΙΕΣ: X,Ι,ΕΠ,Ο,ΒΑ,Λ,ΤΕΛΚΟΥ,Π,Ξ
ΧΑΡΑΚΤΗΡΕΣ: ΔΕ
ΑΡΧΗ
Κ[1] <-- 0.1
Κ[2] <-- 0.2
Κ[3] <-- 1
Κ[4] <-- 5
Κ[5] <-- 10
Κ[6] <-- 50
Κ[7] <-- 100
Κ[8] <-- 200
Κ[9] <-- 500
Κ[10] <-- 1000
Κ[11] <-- 2000
Κ[12] <-- 5000
Κ[13] <-- 10000
Κ[14] <-- 20000
Κ[15] <-- 30000
Κ[16] <-- 50000
Κ[17] <-- 75000
Κ[18] <-- 100000
Κ[19] <-- 200000
Κ[20] <-- 300000
Κ[21] <-- 500000
Κ[22] <-- 750
Κ[23] <-- 20
Κ[24] <-- 25000
Κ[25] <-- 300
Κ[26] <-- 3000
!ΑΝΑΚΑΤΩΜΑ ΤΩΝ ΤΙΜΩΝ
ΓΡΑΨΕ '!!!!!!!!!!!!!!!!!!!!!!!ΠΡΟΣΟΧΗ!!!!!!!!!!!!!!!!!!!!!!!'
ΓΡΑΨΕ '!!!ΒΑΛΤΕ ΤΟ ΠΛΗΚΤΡΟΛΟΓΙΟ ΣΤΑ ΕΛΛΗΝΙΚΑ ΚΑΙ ΚΕΦΑΛΑΙΑ!!!'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Χ <-- ΤΥΧΑΙΟΣ(9999999)
ΜΕΧΡΙΣ_ΟΤΟΥ Χ>100
Ι <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΜΠ <-- Κ[1]
Κ[1] <-- Κ[25]
Κ[25] <-- Κ[2]
Κ[2] <-- Κ[9]
Κ[9] <-- Κ[12]
Κ[12] <-- Κ[16]
Κ[16] <-- Κ[14]
Κ[14] <-- Κ[3]
Κ[3] <-- Κ[7]
Κ[7] <-- Κ[22]
Κ[22] <-- Κ[19]
Κ[19] <-- Κ[11]
Κ[11] <-- Κ[6]
Κ[6] <-- Κ[8]
Κ[8] <-- Κ[24]
Κ[24] <-- Κ[17]
Κ[17] <-- Κ[20]
Κ[20] <-- Κ[13]
Κ[13] <-- Κ[5]
Κ[5] <-- Κ[23]
Κ[23] <-- Κ[18]
Κ[18] <-- Κ[4]
Κ[4] <-- Κ[10]
Κ[10] <-- Κ[15]
Κ[15] <-- Κ[21]
Κ[21] <-- Κ[26]
Κ[26] <-- ΤΕΜΠ
Ι <-- Ι + 1
ΜΕΧΡΙΣ_ΟΤΟΥ Ι=Χ
!ΑΡΧΗ ΤΟΥ ΠΑΙΧΝΙΔΙΟΥ
!ΕΠΙΛΟΓΗ ΚΟΥΤΙΟΥ
ΓΡΑΨΕ 'ΠΟΙΑ ΒΑΛΙΤΣΑ ΘΕΣ; (ΓΡΑΨΕ ΕΝΑ ΑΡΙΘΜΟ ΑΠΟ ΤΟ 1 ΕΩΣ ΤΟ 26)'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΒΑ
ΜΕΧΡΙΣ_ΟΤΟΥ ΒΑ>0 ΚΑΙ ΒΑ<=26
ΠΕΒΑ <-- Κ[ΒΑ]
Κ[ΒΑ] <-- 0
!ΠΑΙΧΝΙΔΙ
ΔΕ <-- 'Ο'
ΓΡΑΨΕ 'ΑΣ ΑΡΧΙΣΟΥΜΕ ΛΟΙΠΟΝ'
ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 9
ΑΝ Λ>1 ΤΟΤΕ
ΓΡΑΨΕ'ΥΠΕΝΘΙΜΙΖΩ ΟΤΙ ΕΧΟΥΝ ΜΕΙΝΕΙ ΟΙ ΒΑΛΙΤΣΕΣ:'
ΓΙΑ Ο ΑΠΟ 1 ΜΕΧΡΙ 13
Π <-- Ο+13
ΑΝ Κ[Ο]>0 ΚΑΙ Κ[Π]>0 ΤΟΤΕ
ΑΝ Ο < 10 ΤΟΤΕ
ΓΡΑΨΕ Ο,' |',Π
ΑΛΛΙΩΣ
ΓΡΑΨΕ Ο,'|',Π
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ Κ[Π]>0 ΚΑΙ Κ[Ο]=0 ΤΟΤΕ
ΓΡΑΨΕ ' |', Π
ΑΛΛΙΩΣ_ΑΝ Κ[Ο]>Ο ΚΑΙ Κ[Π]=0 ΤΟΤΕ
ΑΝ Ο <10 ΤΟΤΕ
ΓΡΑΨΕ Ο,' |'
ΑΛΛΙΩΣ
ΓΡΑΨΕ Ο,'|'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΝ Λ = 1 ΤΟΤΕ
ΓΡΑΨΕ 'ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 6 ΒΑΛΙΤΣΕΣ'
Χ <-- 6
ΣΥΝΤ <-- 500
ΑΛΛΙΩΣ_ΑΝ Λ=2 ΤΟΤΕ
ΓΡΑΨΕ ' ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 5 ΒΑΛΙΤΣΕΣ'
Χ <-- 5
ΣΥΝΤ <-- 70
ΑΛΛΙΩΣ_ΑΝ Λ=3 ΤΟΤΕ
ΓΡΑΨΕ 'ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 4 ΒΑΛΙΤΣΕΣ'
Χ <-- 4
ΣΥΝΤ <-- 35
ΑΛΛΙΩΣ_ΑΝ Λ=4 ΤΟΤΕ
ΓΡΑΨΕ 'ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 3 ΒΑΛΙΤΣΕΣ'
Χ <-- 3
ΣΥΝΤ <-- 25
ΑΛΛΙΩΣ_ΑΝ Λ=5 ΤΟΤΕ
ΓΡΑΨΕ 'ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 2 ΒΑΛΙΤΣΕΣ'
Χ <-- 2
ΣΥΝΤ <-- 15
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΠΡΕΠΕΙ ΝΑ ΔΙΑΛΕΞΕΙΣ 1 ΒΑΛΙΤΣΑ'
Χ <-- 1
ΑΝ Λ=6 ΤΟΤΕ
ΣΥΝΤ <-- 9
ΑΛΛΙΩΣ_ΑΝ Λ=7 ΤΟΤΕ
ΣΥΝΤ <-- 6
ΑΛΛΙΩΣ_ΑΝ Λ=8 ΤΟΤΕ
ΣΥΝΤ <-- 3.6
ΑΛΛΙΩΣ
ΣΥΝΤ <-- 3.1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
Ι <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΔΙΑΛΕΞΕ ΜΙΑ ΒΑΛΙΤΣΑ '
ΔΙΑΒΑΣΕ ΕΠ
ΑΝ ΕΠ>0 ΚΑΙ ΕΠ<=26 ΚΑΙ Κ[ΕΠ]<>0 ΤΟΤΕ
ΓΡΑΨΕ
ΓΡΑΨΕ 'Η ΒΑΛΙΤΣΑ ',ΕΠ,' ΠΕΡΙΕΧΕΙ ',Κ[ΕΠ], 'ΕΥΡΩ'
ΓΡΑΨΕ '__________________'
ΓΡΑΨΕ '| ----- |'
ΓΡΑΨΕ ' ',ΕΠ
ΓΡΑΨΕ '| ----- |'
ΓΡΑΨΕ '| |'
ΓΡΑΨΕ '| |'
ΓΡΑΨΕ ' ',Κ[ΕΠ],'ΕΥΡΩ'
ΓΡΑΨΕ '| |'
ΓΡΑΨΕ '|________________|'
ΑΝ Κ[ΕΠ]>=75000 ΤΟΤΕ
ΓΡΑΨΕ 'ΤΡΑΠΕΖΙΤΗΣ: ΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑΧΑ'
ΤΕΛΟΣ_ΑΝ
Κ[ΕΠ] <-- 0
Ι <-- Ι+1
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΛΑΘΟΣ ΑΡΙΘΜΟΣ Ή ΗΔΗ ΕΠΙΛΕΓΜΕΝΗ ΒΑΛΙΤΣΑ'
ΤΕΛΟΣ_ΑΝ
ΑΝ Ι/2=1 Ή Ι/2 =2 Ή Ι/2 = 3 ΤΟΤΕ
ΓΡΑΨΕ'ΥΠΕΝΘΥΜΙΖΩ ΟΤΙ ΕΧΟΥΝ ΜΕΙΝΕΙ ΟΙ ΒΑΛΙΤΣΕΣ:'
ΓΙΑ Ο ΑΠΟ 1 ΜΕΧΡΙ 13
Π <-- Ο+13
ΑΝ Κ[Ο]>0 ΚΑΙ Κ[Π]>0 ΤΟΤΕ
ΑΝ Ο < 10 ΤΟΤΕ
ΓΡΑΨΕ Ο,' |',Π
ΑΛΛΙΩΣ
ΓΡΑΨΕ Ο,'|',Π
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ Κ[Π]>0 ΚΑΙ Κ[Ο]=0 ΤΟΤΕ
ΓΡΑΨΕ ' |', Π
ΑΛΛΙΩΣ_ΑΝ Κ[Ο]>Ο ΚΑΙ Κ[Π]=0 ΤΟΤΕ
ΑΝ Ο <10 ΤΟΤΕ
ΓΡΑΨΕ Ο,' |'
ΑΛΛΙΩΣ
ΓΡΑΨΕ Ο,'|'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Ι=Χ
!ΤΡΑΠΕΖΙΤΗΣ
ΣΥ <-- Ο
ΓΙΑ Ο ΑΠΟ 1 ΜΕΧΡΙ 26
ΣΥ <-- ΣΥ + Κ[Ο]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΝΤΡΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ, ΝΤΡΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ'
ΠΡ <-- (ΣΥ+ΠΕΒΑ)/ΣΥΝΤ
ΠΡ <-- ΣΤΡΟΓΓ(ΠΡ)
ΓΡΑΨΕ' Ο ΤΡΑΠΕΖΙΤΗΣ ΠΡΟΣΦΕΡΕΙ ', ΠΡ, 'ΕΥΡΩ ΓΙΑ ΝΑ ΠΑΡΕΙ ΤΗ ΒΑΛΙΤΣΑ ΣΟΥ'
ΑΝ Λ=1 ΤΟΤΕ
ΜΑΧΠΡ <-- ΠΡ
ΑΛΛΙΩΣ
ΑΝ ΠΡ>ΜΑΧΠΡ ΤΟΤΕ
ΜΑΧΠΡ <-- ΠΡ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
!ΑΠΟΔΟΧΗ ΠΡΟΣΦΟΡΑΣ Η ΟΧΙ
ΑΝ ΔΕ='Ο' ΤΟΤΕ
ΓΡΑΨΕ 'ΔΕΧΕΣΑΙ ΤΗΝ ΠΡΟΣΦΟΡΑ;(ΑΠΑΝΤΑ ΜΕ Ν ΓΙΑ ΝΑΙ ΚΑΙ Ο ΓΙΑ ΟΧΙ)'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Ι <-- 0
ΔΙΑΒΑΣΕ ΔΕ
ΑΝ ΔΕ='Ο' ΤΟΤΕ
Ι <-- 1
ΑΛΛΙΩΣ_ΑΝ ΔΕ= 'Ν'ΤΟΤΕ
ΓΡΑΨΕ 'Ο ΤΡΑΠΕΖΙΤΗΣ ΑΓΟΡΑΣΕ ΤΗ ΒΑΛΙΤΣΑ ΣΟΥ ΓΙΑ',ΠΡ, 'ΕΥΡΩ'
ΓΡΑΨΕ 'ΑΣ ΔΟΥΜΕ ΤΙ ΘΑ ΚΕΡΔΙΖΕΣ ΑΝ ΣΥΝΕΧΙΖΕΣ'
ΔΕΠ <-- ΠΡ
Ι <-- 1
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Ι=1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ο ΑΠΟ 1 ΜΕΧΡΙ 26
ΑΝ Κ[Ο]>0 ΤΟΤΕ
ΤΕΛΚΟΥ <-- Ο
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΕΧΟΥ ΜΕΙΝΕΙ ΔΥΟ ΚΟΥΤΙΑ'
ΓΡΑΨΕ 'ΤΟ ΔΙΚΟ ΣΟΥ ΚΑΙ ΤΟ ΚΟΥΤΙ ', ΤΕΛΚΟΥ
ΓΡΑΨΕ 'ΑΣ ΑΝΟΙΞΟΥΜΕ ΛΟΙΠΟΝ ΤΑ ΚΟΥΤΙΑ'
Χ <-- 0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 9999995
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 0
ΓΙΑ Ο ΑΠΟ 1 ΜΕΧΡΙ 64
ΑΝ Χ=0 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 1
ΑΛΛΙΩΣ_ΑΝ Χ=1 ΤΟΤΕ
ΓΡΑΨΕ' Ο ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
ΓΡΑΨΕ' Ο ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 2
ΑΛΛΙΩΣ_ΑΝ Χ=2 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
ΓΡΑΨΕ' ΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 3
ΑΛΛΙΩΣ_ΑΝ Χ=3 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟΟ'
ΓΡΑΨΕ' ΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 4
ΑΛΛΙΩΣ_ΑΝ Χ=4 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟ'
ΓΡΑΨΕ' ΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 5
ΑΛΛΙΩΣ_ΑΝ Χ=5 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟ'
ΓΡΑΨΕ' ΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 6
ΑΛΛΙΩΣ_ΑΝ Χ=6 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟ'
ΓΡΑΨΕ' ΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 7
ΑΛΛΙΩΣ_ΑΝ Χ=7 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟ'
ΓΡΑΨΕ' ΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 8
ΑΛΛΙΩΣ_ΑΝ Χ=8 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟ'
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 9
ΑΛΛΙΩΣ_ΑΝ Χ=9 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟ'
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 10
ΑΛΛΙΩΣ_ΑΝ Χ=10 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟ'
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 11
ΑΛΛΙΩΣ_ΑΝ Χ=11 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟ'
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 12
ΑΛΛΙΩΣ_ΑΝ Χ=12 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟ'
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 13
ΑΛΛΙΩΣ_ΑΝ Χ=13 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟ'
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 14
ΑΛΛΙΩΣ_ΑΝ Χ=14 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟ'
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟΟΟ ΟΟ'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 15
ΑΛΛΙΩΣ_ΑΝ Χ=15 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ Ο'
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ Ο'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 16
ΑΛΛΙΩΣ_ΑΝ Χ=16 ΤΟΤΕ
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ '
ΓΡΑΨΕ' ΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟΟ '
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 999999
ΑΝ Χ>=0 ΤΟΤΕ
ΛΑΓ <-- 54868.35 + 48884.689*45788.4578/78786543.45458
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Χ <-- 0
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ 'ΤΟ ΔΙΚΟ ΣΟΥ ΚΟΥΤΙ ΠΕΡΙΕΧΕΙ ',ΠΕΒΑ,'ΕΥΡΩ'
ΓΡΑΨΕ 'ΕΝΩ ΤΟ ΚΟΥΤΙ ', ΤΕΛΚΟΥ ,' ΠΕΡΙΕΧΕΙ' , Κ[ΤΕΛΚΟΥ] , 'ΕΥΡΩ'
ΑΝ ΔΕ= 'Ο' ΤΟΤΕ
ΑΝ ΜΑΧΠΡ>ΠΕΒΑ ΤΟΤΕ
ΓΡΑΨΕ' ΔΕΝ ΕΚΑΝΕΣ ΤΟ ΚΑΛΥΤΕΡΟ DEAL'
ΓΡΑΨΕ 'ΘΑ ΜΠΟΡΟΥΣΕΣ ΝΑ ΕΙΧΕΣ ΠΑΡΕΙ', ΜΑΧΠΡ, 'ΕΥΡΩ ΑΠΟ ΤΟΝ ΤΡΑΠΕΖΙΤΗ'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΕΚΑΝΕΣ ΤΟ ΚΑΛΥΤΕΡΟ DEAL'
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ ΔΕ= 'Ν' ΤΟΤΕ
ΓΡΑΨΕ 'ΚΕΡΔΙΣΕΣ' ,ΔΕΠ ,'ΕΥΡΩ'
ΑΝ ΔΕΠ < ΜΑΧΠΡ Ή ΔΕΠ< ΠΕΒΑ ΤΟΤΕ
ΑΝ ΜΑΧΠΡ>ΠΕΒΑ ΤΟΤΕ
ΓΡΑΨΕ 'ΔΕΝ ΕΚΑΝΕΣ ΤΟ ΚΑΛΥΤΕΡΟ DEAL'
ΓΡΑΨΕ 'ΘΑ ΜΟΡΟΥΣΕΣ ΝΑ ΕΙΧΕΣ ΠΑΡΕΙ ΤΑ', ΜΑΧΠΡ, ' ΕΥΡΩ ΤΟΥ ΤΡΑΠΕΖΙΤΗ'
ΑΛΛΙΩΣ_ΑΝ ΠΕΒΑ>ΜΑΧΠΡ ΤΟΤΕ
ΓΡΑΨΕ 'ΔΕΝ ΕΚΑΝΕΣ ΤΟ ΚΑΛΥΤΕΡΟ DEAL'
ΓΡΑΨΕ 'ΘΑ ΜΠΡΟΥΣΕΣ ΝΑ ΕΙΧΕΣ ΠΑΡΕΙ ΤΑ ', ΠΕΒΑ,' ΕΥΡΩ ΠΟΥ ΠΕΡΙΕΙΧΕ ΤΟ ΚΟΥΤΙ ΣΟΥ'
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΕΚΑΝΕΣ ΤΟ ΚΑΛΥΤΕΡΟ DEAL'
ΓΡΑΨΕ'ΚΕΡΔΙΣΕΣ' , ΔΕΠ , ' ΕΥΡΩ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ' ======================================'
ΓΡΑΨΕ' ============================================='
ΓΡΑΨΕ' ==== ΑΠΟ TON BULUBA89 ===='
ΓΡΑΨΕ' ============================================='
ΓΡΑΨΕ' ======================================'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ