主题：想写一个ATR止损，但怎么改也不行，求教。

VARIABLE:f=0;
Coeficient:=2;
variable:mode1=0;
ll:=REF(l,1);
hh:=REF(h,1);
variable:up=drawnull,dn=drawnull;

TR1 := HIGH-LOW;
atrr := MA(TR1,20);
rez:= Coeficient * REF(atrr,1);
if barpos>20 then begin  
IF c>0 and f=0 THEN BEGIN   
   dn:=h + rez;
   mode1:=-1;
   f:=f+1;
END
  
If mode1 =  -1 and  ll > dn THEN BEGIN   
 up :=ll  - rez;
 mode1: = 1;   
END
  
If mode1 = 1 and hh < up  THEN BEGIN   
  
 dn:= hh  + rez;
 mode1:= -1;
END
  
If ll >= up + rez and mode1 =  1  THEN BEGIN   
  
 up:=ll - rez;
 dn:= drawnull;
END

If ll <up + rez and mode1 =  1  THEN BEGIN   
 up:= up;
 dn:= drawnull;   
END
  
If  hh < dn - rez and mode1 = -1  THEN BEGIN   
   
 dn:= hh   + rez;
 up:= drawnull;
end
  
If  hh  >= dn - rez  and  mode1 = -1 THEN BEGIN   
 dn:= dn;
 up:=  drawnull;
end 
end
up1:up,colorred;
dn1:dn,colorgreen;