Kase PeaK
Pk:=Mov((RWIH(10,30)- RWIL(10,30)),3,W); 
PK;Ref(PK,-1);