ΠΑΙΧΝΙΔΙ ΤΕΤΡΙΣ

Παίζεται με τα βελάκια αριστερά - δεξιά, μετακίνηση αριστερά δεξιά. άνω βελάκι περιστροφή, κάτω βελάκι άμεση τοποθέτηση κάτω. 

Με δεξί κλίκ στο ποντίκι τερματίζει, με αριστερό μπαίνει σε παύση και μετά πατάμε το διάστημα.

Δεν έχω βάλει ήχο!

Υπάρχει και σε αγγλική έκδοση (εντολές στα αγγλικά): https://rosettacode.org/wiki/Tetris#M2000_Interpreter

ΠΑΡΑΘΥΡΟ 15, 14000, 14000;
ΣΗΜ: ΕΠΙΦΑΝΕΙΑ 255, 0
ΟΘΟΝΗ
ΦΟΝΤΟ 7, 5
ΔΙΠΛΑ
ΠΕΝΑ 15{
	ΑΝΑΦΟΡΑ 2, "ΤΕΤΡΙΣ"	
}
ΚΑΝΟΝΙΚΑ
ΜΕΤΑΒΛΗΤΕΣ Χ=Υ.ΣΗΜΕΙΑ ΔΙΑ 25, ΧΡ1, ΧΡ2
ΜΕΤΑΒΛΗΤΕΣ ΜΕΤ1=(Χ.ΣΗΜΕΙΑ - Χ*12) ΔΙΑ 2, ΜΕΤ2=(Υ.ΣΗΜΕΙΑ ΥΠΟΛ Χ)/2
ΜΕΤΑΒΛΗΤΕΣ ΜΧ1=0, ΜΥ1=2
ΜΕΤΑΒΛΗΤΕΣ Χ = (Χ ΔΙΑ ΥΨΟΣ.ΣΗΜΕΙΟΥ)*ΥΨΟΣ.ΣΗΜΕΙΟΥ
ΠΙΣΤΑ()
ΚΡΑΤΗΣΕ
ΜΕΤΑΒΛΗΤΕΣ ΠΧ=1, ΠΥ=1, Τ=6, Κ=1, ΣΥ=9, ΣΥ1, Κ1
ΠΙΝΑΚΑΣ  Δ(1 ΕΩΣ 10, 2), Κ(1 ΕΩΣ 10, 2)
Δ(1,0)=4, 1, 3, 2, 3,2,2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2
Κ(1,0)=1, 4, 2, 3, 2,3,2, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3
ΣΥ=ΤΥΧΑΙΟΣ(1,10)
Κ=ΤΥΧΑΙΟΣ(0, 1)
ΣΥ1=ΤΥΧΑΙΟΣ(1,10)
Κ1=ΤΥΧΑΙΟΣ(0, 1)

ΠΧ=ΤΥΧΑΙΟΣ(1, 11-Δ(ΣΥ, Κ))
ΔΙΠΛΟΣ ΚΡ, ΣΚΟΡ, ΕΠ=1, ΓΡΑΜΜΕΣ
ΛΟΓΙΚΟΣ ΕΛΕΥΘΕΡΟ=ΑΛΗΘΕΣ, ΑΥΤΟΜΑΤΟ, ΑΥΤ1=ΑΛΗΘΕΣ
ΚΑΘΕ 1000/25 {		
	ΑΦΗΣΕ
	ΔΡΟΜΕΑΣ 0, ΥΨΟΣ-1
	ΤΥΠΩΣΕ ΠΑΝΩ $(3), "ΣΚΟΡ:"+ΓΡΑΦΗ$(ΣΚΟΡ,"00000000"), @(0), $(1), "ΕΠΙΠΕΔΟ:"+ΓΡΑΦΗ$(ΕΠ, "000"), @(0), $(2), ΓΡΑΜΜΕΣ	
ΠΑΛΙ:
	Τ--
	ΑΝ Τ<1 ΤΟΤΕ
		ΠΥ++: Τ=10
		ΔΡ(ΠΧ, ΠΥ)
		ΚΡ=@ΚΟΛ()
		ΑΝ ΚΡ ΤΟΤΕ ΠΥ-- : ΑΥΤΟΜΑΤΟ=ΨΕΥΔΕΣ
	ΤΕΛΟΣ ΑΝ	
	ΔΡ(ΠΧ, ΠΥ)
	ΑΝ ΟΧΙ ΚΡ ΤΟΤΕ
		ΑΝ ΟΧΙ ΑΥΤΟΜΑΤΟ ΤΟΤΕ	
			ΑΝ ΠΑΤΗΜΕΝΟ(0x26)ΤΟΤΕ
				ΑΝ ΕΛΕΥΘΕΡΟ ΤΟΤΕ
					ΕΛΕΥΘΕΡΟ=ΨΕΥΔΕΣ
					ΑΝ (ΣΥ=5 Η ΣΥ=7  Η ΣΥ=9) ΚΑΙ Κ=0 ΤΟΤΕ
						ΑΝ ΠΧ+Δ(ΣΥ+1, 1-Κ)<12 ΤΟΤΕ
							Κ=1-Κ:ΣΥ++
							ΑΝ @ΚΟΛ() ΤΟΤΕ Κ=1-Κ: ΣΥ--
						ΤΕΛΟΣ ΑΝ
					ΑΛΛΙΩΣ.ΑΝ (ΣΥ=6  Η ΣΥ=8 Η ΣΥ=10) ΚΑΙ Κ=0 ΤΟΤΕ
						ΑΝ ΠΧ+Δ(ΣΥ-1, 1-Κ)<12 ΤΟΤΕ
							Κ=1-Κ:ΣΥ--
							ΑΝ @ΚΟΛ() ΤΟΤΕ Κ=1-Κ: ΣΥ++
						ΤΕΛΟΣ ΑΝ
					ΑΛΛΙΩΣ.ΑΝ ΠΧ+Δ(ΣΥ, 1-Κ)<12 ΤΟΤΕ
						Κ=1-Κ
						ΑΝ @ΚΟΛ() ΤΟΤΕ Κ=1-Κ
					ΤΕΛΟΣ ΑΝ
				ΤΕΛΟΣ ΑΝ
			ΑΛΛΙΩΣ
					ΕΛΕΥΘΕΡΟ=ΑΛΗΘΕΣ
			ΤΕΛΟΣ ΑΝ       		
			ΑΝ ΠΑΤΗΜΕΝΟ(0Χ25) ΚΑΙ ΠΧ>1 ΤΟΤΕ
				ΠΧ--
				ΔΡ(ΠΧ, ΠΥ)
				ΑΝ @ΚΟΛ() ΤΟΤΕ ΠΧ++:ΔΡ(ΠΧ, ΠΥ)  
			ΑΛΛΙΩΣ.ΑΝ ΠΑΤΗΜΕΝΟ(0Χ27) ΚΑΙ ΠΧ+Δ(ΣΥ, Κ)<11 ΤΟΤΕ
				ΠΧ++
				ΔΡ(ΠΧ, ΠΥ)
				ΑΝ @ΚΟΛ() ΤΟΤΕ ΠΧ--:ΔΡ(ΠΧ, ΠΥ)
			ΑΛΛΙΩΣ.ΑΝ ΠΑΤΗΜΕΝΟ(0Χ28)  ΤΟΤΕ
				ΑΝ  ΑΥΤ1 ΤΟΤΕ
					ΑΥΤΟΜΑΤΟ=ΑΛΗΘΕΣ
					ΑΥΤ1=ΨΕΥΔΕΣ
				ΤΕΛΟΣ ΑΝ
			ΑΛΛΙΩΣ
				ΑΥΤ1=ΑΛΗΘΕΣ
			ΤΕΛΟΣ ΑΝ
		ΤΕΛΟΣ ΑΝ
	ΤΕΛΟΣ ΑΝ
	ΑΝ ΑΥΤΟΜΑΤΟ ΚΑΙ ΟΧΙ ΚΡ ΤΟΤΕ Τ=0 : ΠΡΟΣ ΠΑΛΙ
	ΑΝ ΠΑΤΗΜΕΝΟ(2) ΤΟΤΕ ΕΞΟΔΟΣ
	ΔΡ(ΠΧ, ΠΥ)	
	ΚΟΜΜΑΤΙ(ΣΥ, Κ)	
	
	ΑΝ ΚΡ ΚΑΙ ΠΥ=1 ΤΟΤΕ ΕΞΟΔΟΣ
	ΑΝ ΠΥ+Κ(ΣΥ, Κ)>20 Η ΚΡ ΤΟΤΕ
		ΑΝΑΝΕΩΣΗ 1000
		ΚΡ=0
		ΑΥΤΟΜΑΤΟ = ΨΕΥΔΕΣ
		ΓΡ=ΓΡΑΜΜΕΣ
		ΓΙΑ Ι=ΠΥ  ΕΩΣ ΠΥ+Κ(ΣΥ, Κ)-1		
			ΓΡΑΜΜΗ(Ι)
		ΕΠΟΜΕΝΟ
		ΣΚΟΡ+=ΑΝ(ΓΡΑΜΜΕΣ-ΓΡ+1-> 0, 40, 100, 300, 1200)*ΕΠ
		ΕΠ=(ΓΡΑΜΜΕΣ ΔΙΑ 10)+1
		ΚΡΑΤΗΣΕ
		ΣΥ=ΣΥ1
		Κ=Κ1
		ΣΥ1=ΤΥΧΑΙΟΣ(1, 10)
		Κ1=ΤΥΧΑΙΟΣ(0, 1)
		ΠΧ=ΤΥΧΑΙΟΣ(5, 10-Δ(ΣΥ, Κ))
		ΠΥ=1
	ΑΛΛΙΩΣ
		ΔΡ(14, 2)
		ΚΟΜΜΑΤΙ(ΣΥ1, Κ1)
		ΑΝΑΝΕΩΣΗ 1000
	ΤΕΛΟΣ ΑΝ
	ΑΝ ΠΑΤΗΜΕΝΟ(1) ΤΟΤΕ
		ΔΡΟΜΕΑΣ 0, ΥΨΟΣ -2
		ΠΕΝΑ 11 {
			ΑΝΑΦΟΡΑ 2, "ΠΑΤΑ ΔΙΑΣΤΗΜΑ ΓΙΑ ΝΑ ΣΥΝΕΧΙΣΕΙΣ"
		}
		ΑΝΑΝΕΩΣΗ 
		ΕΝΩ ΠΑΤΗΜΕΝΟ(1) {
			ΑΝΑΜΟΝΗ 10
		}
		ΕΝΩ ΟΧΙ ΠΑΤΗΜΕΝΟ(32) {
			ΑΝΑΜΟΝΗ 100
		}
	ΤΕΛΟΣ ΑΝ
}
ΑΝΑΝΕΩΣΗ 25
ΔΡΟΜΕΑΣ 0,0
ΡΟΥΤΙΝΑ ΚΟΜΜΑΤΙ(ΣΥ, Κ)
ΕΠΙΛΕΞΕ ΜΕ ΣΥ
	ΜΕ 1
		ΤΥΠΟΣ_Ι(Κ)
	ΜΕ 2
		ΤΥΠΟΣ_Σ(Κ)
	ΜΕ 3
		ΤΥΠΟΣ_Σ_ΑΝΑΠΟΔΟ(Κ)
	ΜΕ 4
		ΤΥΠΟΣ_ΜΠΛΟΚ(Κ)
	ΜΕ 5
		ΤΥΠΟΣ_ΕΛ(Κ)
	ΜΕ 6
		ΤΥΠΟΣ_ΕΛ_ΑΝΑΠΟΔΟ(Κ)
	ΜΕ 7
		ΤΥΠΟΣ_Γ(Κ)
	ΜΕ 8
		ΤΥΠΟΣ_Γ_ΑΝΑΠΟΔΟ(Κ)
	ΜΕ 9
		ΤΥΠΟΣ_Τ(Κ)
	ΜΕ 10
		ΤΥΠΟΣ_Τ_ΑΝΑΠΟΔΟ(Κ)	
	ΤΕΛΟΣ ΕΠΙΛΟΓΗΣ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΧΡ()
	ΔΙΑΒΑΣΕ ΧΡ1, ΧΡ2
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΠΙΣΤΑ()	
	ΔΡ(0, 0)
	ΧΡ(#BBAABB, #556655)
	ΤΥΠΟΣ_ΓΡΑΜΜΗ(1, 22)
	ΔΡ(11,0)
	ΤΥΠΟΣ_ΓΡΑΜΜΗ(1, 22)
	ΔΡ(1, 0)
	ΤΥΠΟΣ_ΓΡΑΜΜΗ(0, 10)
	ΔΡ(1, 21)
	ΤΥΠΟΣ_ΓΡΑΜΜΗ(0, 10)
	ΧΡ(0,0)
	ΓΙΑ Ι=1 ΕΩΣ 20
		ΔΡ(1, Ι)
		ΤΥΠΟΣ_ΓΡΑΜΜΗ(0, 10)
	ΕΠΟΜΕΝΟ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΣΥΝΑΡΤΗΣΗ ΚΟΛ()
	=0
	ΕΠΙΛΕΞΕ ΜΕ ΣΥ
	ΜΕ 1
		=@ΤΥΠΟΣ_Ι(Κ)
	ΜΕ 2
		=@ΤΥΠΟΣ_Σ(Κ)
	ΜΕ 3
		=@ΤΥΠΟΣ_Σ_ΑΝΑΠΟΔΟ(Κ)
	ΜΕ 4
		=@ΤΥΠΟΣ_ΜΠΛΟΚ(Κ)
	ΜΕ 5
		=@ΤΥΠΟΣ_ΕΛ(Κ)
	ΜΕ 6
		=@ΤΥΠΟΣ_ΕΛ_ΑΝΑΠΟΔΟ(Κ)
	ΜΕ 7
		=@ΤΥΠΟΣ_Γ(Κ)
	ΜΕ 8
		=@ΤΥΠΟΣ_Γ_ΑΝΑΠΟΔΟ(Κ)
	ΜΕ 9
		=@ΤΥΠΟΣ_Τ(Κ)
	ΜΕ 10
		=@ΤΥΠΟΣ_Τ_ΑΝΑΠΟΔΟ(Κ)
	ΤΕΛΟΣ ΕΠΙΛΟΓΗΣ
ΤΕΛΟΣ ΣΥΝΑΡΤΗΣΗΣ
ΡΟΥΤΙΝΑ ΓΡΑΜΜΗ(Ν)
	ΔΡ(1, Ν)
	ΒΗΜΑ 100, 100
	ΤΟΠΙΚΗ Ι, ΔΡ
	ΓΙΑ Ι=0 ΕΩΣ 9
		ΔΡ-=ΣΗΜΕΙΟ<>0
		ΒΗΜΑ Χ
	ΕΠΟΜΕΝΟ
	ΑΝ  ΔΡ=10 ΤΟΤΕ ΜΕΤΑΦΟΡΑ(Ν)
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΤΥΠΟΣ_ΓΡΑΜΜΗ(Κ, Π)
	ΕΝΩ Π>0
		ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
		ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
		Π--
	ΤΕΛΟΣ ΕΝΩ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΜΕΤΑΦΟΡΑ(Ν)
	ΔΡ(1,1)
	Ν--: ΑΝ Ν=0 ΤΟΤΕ ΕΞΟΔΟΣ
	ΓΡΑΜΜΕΣ++
	ΑΝΤΙΓΡΑΨΕ ΘΕΣΗ.Χ, ΘΕΣΗ.Υ+Χ, Χ*10, Χ*Ν
	ΒΑΨΕ Χ*10, Χ, 0, 0
ΚΡΑΤΗΣΕ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΔΡ(Α, Β)
	Α+=ΜΧ1
	Β+=ΜΥ1
	ΘΕΣΗ Α*Χ+ΜΕΤ1, Β*Χ+ΜΕΤ2
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΤΥΠΟΣ_Ι(Κ)
	ΧΡ(13,1)
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΣΥΝΑΡΤΗΣΗ ΤΥΠΟΣ_Ι(Κ)
	ΤΟΠΙΚΗ Α ΩΣ ΔΙΠΛΟΣ
	ΒΗΜΑ Χ-100 , Χ -100
	Α=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	=Α+ΣΗΜΕΙΟ
ΤΕΛΟΣ ΣΥΝΑΡΤΗΣΗΣ
ΡΟΥΤΙΝΑ ΤΥΠΟΣ_Σ(Κ)
	ΧΡ(11, 1)	
	ΑΝ Κ ΑΛΛΙΩΣ ΒΗΜΑ  , Χ	
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ ,-Χ ΑΛΛΙΩΣ ΒΗΜΑ -Χ,-Χ*2
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΣΥΝΑΡΤΗΣΗ ΤΥΠΟΣ_Σ(Κ)
	ΤΟΠΙΚΗ Α ΩΣ ΔΙΠΛΟΣ	
	ΑΝ Κ ΑΛΛΙΩΣ ΒΗΜΑ  , Χ	
	ΒΗΜΑ Χ-100 , Χ -100	
	Α=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ ,-Χ ΑΛΛΙΩΣ ΒΗΜΑ -Χ,-Χ*2
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	=Α+ΣΗΜΕΙΟ
ΤΕΛΟΣ ΣΥΝΑΡΤΗΣΗΣ
ΡΟΥΤΙΝΑ ΤΥΠΟΣ_Σ_ΑΝΑΠΟΔΟ(Κ)
	ΧΡ(12, 1)
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ Χ ΑΛΛΙΩΣ ΒΗΜΑ  Χ, Χ	
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ*2,-Χ ΑΛΛΙΩΣ ΒΗΜΑ -Χ*3,-Χ*2
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΣΥΝΑΡΤΗΣΗ ΤΥΠΟΣ_Σ_ΑΝΑΠΟΔΟ(Κ)
	ΤΟΠΙΚΗ Α ΩΣ ΔΙΠΛΟΣ		
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ Χ ΑΛΛΙΩΣ ΒΗΜΑ  Χ, Χ	
	ΒΗΜΑ Χ-100 , Χ -100	
	Α=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ*2,-Χ ΑΛΛΙΩΣ ΒΗΜΑ -Χ*3,-Χ*2
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	=Α+ΣΗΜΕΙΟ
ΤΕΛΟΣ ΣΥΝΑΡΤΗΣΗΣ
ΡΟΥΤΙΝΑ ΤΥΠΟΣ_ΜΠΛΟΚ(Κ)
	ΧΡ(9, 1)
	ΑΝ Κ ΤΟΤΕ ΑΛΛΑΞΕ ΧΡ1, ΧΡ2
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, 0
	ΒΗΜΑ -Χ
	ΒΑΨΕ Χ, Χ, ΧΡ2, ΧΡ1, 1
	ΒΗΜΑ ,-Χ*2
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, 1
	ΒΗΜΑ -Χ
	ΒΑΨΕ Χ, Χ, ΧΡ2, ΧΡ1, 0
	ΑΝ Κ ΤΟΤΕ ΑΛΛΑΞΕ ΧΡ1, ΧΡ2
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΣΥΝΑΡΤΗΣΗ ΤΥΠΟΣ_ΜΠΛΟΚ(Κ)
	ΤΟΠΙΚΗ Α ΩΣ ΔΙΠΛΟΣ			
	ΒΗΜΑ Χ-100 , Χ -100	
	Α=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΒΗΜΑ -Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΒΗΜΑ ,-Χ*2
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΒΗΜΑ -Χ
	=Α+ΣΗΜΕΙΟ	
ΤΕΛΟΣ ΣΥΝΑΡΤΗΣΗΣ
ΡΟΥΤΙΝΑ ΤΥΠΟΣ_ΕΛ(Κ)
	ΧΡ(14,1)
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ ,-Χ ΑΛΛΙΩΣ ΒΗΜΑ -Χ*3
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΣΥΝΑΡΤΗΣΗ ΤΥΠΟΣ_ΕΛ(Κ)
	ΤΟΠΙΚΗ Α ΩΣ ΔΙΠΛΟΣ		
	ΒΗΜΑ Χ-100 , Χ -100	
	Α=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ ,-Χ ΑΛΛΙΩΣ ΒΗΜΑ -Χ*3
	=Α+ΣΗΜΕΙΟ
ΤΕΛΟΣ ΣΥΝΑΡΤΗΣΗΣ
ΡΟΥΤΙΝΑ ΤΥΠΟΣ_Γ(Κ)
	ΧΡ(15,1)	
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ ,-Χ*3 ΑΛΛΙΩΣ ΒΗΜΑ -Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΣΥΝΑΡΤΗΣΗ ΤΥΠΟΣ_Γ(Κ)
	ΤΟΠΙΚΗ Α ΩΣ ΔΙΠΛΟΣ			
	ΒΗΜΑ Χ-100 , Χ -100	
	Α=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ ,-Χ*3 ΑΛΛΙΩΣ ΒΗΜΑ -Χ
	=Α+ΣΗΜΕΙΟ
ΤΕΛΟΣ ΣΥΝΑΡΤΗΣΗΣ
ΡΟΥΤΙΝΑ ΤΥΠΟΣ_Γ_ΑΝΑΠΟΔΟ(Κ)
	ΧΡ(15,1)		 
 	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ Χ ΑΛΛΙΩΣ ΒΗΜΑ , Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ*2,-Χ ΑΛΛΙΩΣ ΒΗΜΑ -Χ*3,-Χ*2
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΣΥΝΑΡΤΗΣΗ ΤΥΠΟΣ_Γ_ΑΝΑΠΟΔΟ(Κ)
 	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ Χ ΑΛΛΙΩΣ ΒΗΜΑ , Χ
	ΤΟΠΙΚΗ Α ΩΣ ΔΙΠΛΟΣ			
	ΒΗΜΑ Χ-100 , Χ -100	
	Α=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ*2,-Χ ΑΛΛΙΩΣ ΒΗΜΑ -Χ*3,-Χ*2
	=Α+ΣΗΜΕΙΟ
ΤΕΛΟΣ ΣΥΝΑΡΤΗΣΗΣ
ΡΟΥΤΙΝΑ ΤΥΠΟΣ_ΕΛ_ΑΝΑΠΟΔΟ(Κ)
	ΧΡ(14, 1)
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ Χ ΑΛΛΙΩΣ ΒΗΜΑ , Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ*2,-Χ*3 ΑΛΛΙΩΣ ΒΗΜΑ -Χ,-Χ*2
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΣΥΝΑΡΤΗΣΗ ΤΥΠΟΣ_ΕΛ_ΑΝΑΠΟΔΟ(Κ)
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ Χ ΑΛΛΙΩΣ ΒΗΜΑ , Χ
	ΤΟΠΙΚΗ Α ΩΣ ΔΙΠΛΟΣ		
	ΒΗΜΑ Χ-100 , Χ -100	
	Α=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ*2,-Χ*3 ΑΛΛΙΩΣ ΒΗΜΑ -Χ,-Χ*2
	=Α+ΣΗΜΕΙΟ
ΤΕΛΟΣ ΣΥΝΑΡΤΗΣΗΣ
ΡΟΥΤΙΝΑ ΤΥΠΟΣ_Τ(Κ)
       ΧΡ(10, 1)
 	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ ,-Χ*2 ΑΛΛΙΩΣ ΒΗΜΑ -Χ*2
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΣΥΝΑΡΤΗΣΗ ΤΥΠΟΣ_Τ(Κ)
	ΤΟΠΙΚΗ Α ΩΣ ΔΙΠΛΟΣ		
	ΒΗΜΑ Χ-100 , Χ -100	
	Α=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ ,-Χ*2 ΑΛΛΙΩΣ ΒΗΜΑ -Χ*2
	=Α+ΣΗΜΕΙΟ
ΤΕΛΟΣ ΣΥΝΑΡΤΗΣΗΣ
ΡΟΥΤΙΝΑ ΤΥΠΟΣ_Τ_ΑΝΑΠΟΔΟ(Κ)	 
 	ΧΡ(10, 1)
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ Χ ΑΛΛΙΩΣ ΒΗΜΑ , Χ	
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
	ΒΗΜΑ -Χ*2, -Χ*2
	ΒΑΨΕ Χ, Χ, ΧΡ1, ΧΡ2, Κ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΣΥΝΑΡΤΗΣΗ ΤΥΠΟΣ_Τ_ΑΝΑΠΟΔΟ(Κ)	 
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ Χ ΑΛΛΙΩΣ ΒΗΜΑ , Χ	
	ΤΟΠΙΚΗ Α ΩΣ ΔΙΠΛΟΣ		
	ΒΗΜΑ Χ-100 , Χ -100	
	Α=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΑΝ Κ ΤΟΤΕ ΒΗΜΑ -Χ ΑΛΛΙΩΣ ΒΗΜΑ ,-Χ
	Α+=ΣΗΜΕΙΟ:ΒΗΜΑ Χ, Χ
	ΒΗΜΑ -Χ*2, -Χ*2
	=Α+ΣΗΜΕΙΟ
ΤΕΛΟΣ ΣΥΝΑΡΤΗΣΗΣ