AL KODU.....
X1:=1000;
A:=MOV(C,10,VAR);
CROSS(A,REF(HHV(H,X1),-30)) OR
CROSS(A,REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.854),-30)) OR
CROSS(A,REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.764),-30)) OR
CROSS(A,REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.618),-30)) OR
CROSS(A,REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.5),-30)) OR
CROSS(A,REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.382),-30)) OR
CROSS(A,REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.236),-30)) OR
CROSS(A,REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.146),-30)) OR
CROSS(A,REF(LLV(L,X1),-30))
SAT KODU
X1:=1000;
A:=MOV(C,10,VAR);
CROSS(REF(HHV(H,X1),-30),A) OR
CROSS(REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.854),-30),A) OR
CROSS(REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.764),-30),A) OR
CROSS(REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.618),-30),A) OR
CROSS(REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.5),-30),A) OR
CROSS(REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.382),-30),A) OR
CROSS(REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.236),-30),A) OR
CROSS(REF(LLV(L,X1)+((HHV(H,X1)-LLV(L,X1))*0.146),-30),A) OR
CROSS(REF(LLV(L,X1),-30),A)
SYSTEM TESTERDA NEREDE HATA YAPIYORUM