GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));
GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));
GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));
A:=BArslAST(crOSS(50,GJTJ1)) AND BARSLAST(CROSS(50,GJTJ2)) AND BARSLAST(CROSS(50,GJTJ3))
AND BARSLAST(CROSS(50,GJTJ4));
B:=BARSLAST(CROSS(GJTJ1,GJTJ4)) AND GJTJ1=100 AND GJTJ2=100;
D:=GJTJ1 GJTJ4 AND GJTJ3 GJTJ4 AND GJTJ3 GJTJ1;
TX:=COUNT(A,10)
ENTERLONG:COUNT(TX,1)=1 AND B AND D;