Kod:
a1:=Mov(C,7,S); a2:=If(ROC(a1,1,%)>0,1,If(ROC(a1,1,%)<0,2,0));
a3:=ValueWhen(1,a2=1,a1); a4:=ValueWhen(1,a2=2,a1);
a5:=ValueWhen(1,Cross(ref(ZIG(a3,1,%),-1),ZIG(a3,1,%)),ref(a3,-1));
a6:=ValueWhen(1,Cross(ZIG(a4,1,%),ref(ZIG(a4,1,%),-1)),ref(a4,-1));
a7:=ValueWhen(2,Cross(ref(ZIG(a3,1,%),-1),ZIG(a3,1,%)),ref(a3,-1));
a8:=ValueWhen(2,Cross(ZIG(a4,1,%),ref(ZIG(a4,1,%),-1)),ref(a4,-1));
a9:=If(a1>a4,1,0);
a10:=ValueWhen(2, a9=1,HHV(H,14));
If(Cross(H,a10) AND a3=a1 AND C>a4 AND a5>a4 AND a6<a4 AND a7>a5 AND a7>a8 ,1,0)
Yer İmleri