Fw: Conversion Metastock in AFL

["Inwind" <pibotto@xxxx>]

Can someone please 
convert this Metastock's formula into AFL - Thanks<FONT 
face="Courier New" size=3>ENTER LONG 
 
<FONT face="Courier New" 
size=3>L1:=ValueWhen(1,Ref(L,-2)=LLV(L,5),Ref(L,-2));L2:=ValueWhen(2,Ref(L,-2)=LLV(L,5),Ref(L,-2));L3:=ValueWhen(3,Ref(L,-2)=LLV(L,5),Ref(L,-2));L4:=ValueWhen(4,Ref(L,-2)=LLV(L,5),Ref(L,-2));L5:=ValueWhen(5,Ref(L,-2)=LLV(L,5),Ref(L,-2));L6:=ValueWhen(6,Ref(L,-2)=LLV(L,5),Ref(L,-2));L1M:= 
Max(0,Min(1,Int(L1/C)));L2M:= Max(0,Min(1,Int(L2/C)));L3M:= 
Max(0,Min(1,Int(L3/C)));L4M:= Max(0,Min(1,Int(L4/C)));L5M:= 
Max(0,Min(1,Int(L5/C)));L6M:= 
Max(0,Min(1,Int(L6/C)));WSO:=100*(1-(L1M+L2M+L3M+L4M+L5M+L6M)/6);WSO>Mov(WSO,20,S)
 
CLOSE 
LONG
 
<FONT face="Courier New" 
size=3>L1:=ValueWhen(1,Ref(L,-2)=LLV(L,5),Ref(L,-2));L2:=ValueWhen(2,Ref(L,-2)=LLV(L,5),Ref(L,-2));L3:=ValueWhen(3,Ref(L,-2)=LLV(L,5),Ref(L,-2));L4:=ValueWhen(4,Ref(L,-2)=LLV(L,5),Ref(L,-2));L5:=ValueWhen(5,Ref(L,-2)=LLV(L,5),Ref(L,-2));L6:=ValueWhen(6,Ref(L,-2)=LLV(L,5),Ref(L,-2));L1M:= 
Max(0,Min(1,Int(L1/C)));L2M:= Max(0,Min(1,Int(L2/C)));L3M:= 
Max(0,Min(1,Int(L3/C)));L4M:= Max(0,Min(1,Int(L4/C)));L5M:= 
Max(0,Min(1,Int(L5/C)));L6M:= 
Max(0,Min(1,Int(L6/C)));WSO:=100*(1-(L1M+L2M+L3M+L4M+L5M+L6M)/6);WSO<Mov(WSO,20,S)
Thanks 
Peter