Re: another lost password - addendum: TS2000i NOT 4.0

[KD <debkow@xxxxxxxxxx>]

William Brower wrote:

>Hi KD:
>I attach testprot.els which has the BK:4H/4L indicator.  This was
written
>by me and has a short message at the top of the code.  If you can open
it,
>please copy the code and message to an email and post it to the Omega
>List.  Thanks.



Surprise!!  ;-))

I'm sorry that I use this list, but it is response for  William Brower's
message.

K

{This is a test of the TS2000 password protection
Password !@#}

Inputs: LookBack(8), Count(4);

Vars: cntH(0),cntL(0), MaxH(0),MinL(0);

cntH = 0;
cntL = 0;
MaxH = 0;
MinL = 999999;

For value1 = lookback downto 0 begin
 If H[value1] > MaxH then begin
  cntH = CntH+1;
  MaxH = H[value1];
 end;

 If L[value1] < MinL then begin
  cntL = cntL+1;
  MinL = L[value1];
 end;

end;
If cntH = count+1 then Plot1(H,"4H");
If cntL = count+1 then Plot2(L,"4L");