04-13-2000, 04:24 AM
Hello everybody,
I wrote this "NUM LOCK" program (HP48SX), I wonder if someone can modify it by using local variable so it works faster (the sequence is 1 2 3 4).
%%HP: T(1)A(D)F(.); « " Enter the password" CLLCD 1 DISP 0 'A' STO 0 'B' STO 0 'C' STO 0 'D' STO 82 'E' STO 83 'F' STO 84 'G' STO 72 'H' STO WHILE 1 1 ==
REPEAT
DO UNTIL KEY END
'Z' STO
0 'N' STO
'B' RCL 'A' STO
'C' RCL 'B' STO
'D' RCL 'C' STO
'Z' RCL 'D' STO
IF 'A' RCL 'E' RCL ==
THEN
'N' INCR
END
IF 'B' RCL 'F' RCL ==
THEN
'N' INCR
END
IF 'C' RCL 'G' RCL ==
THEN
'N' INCR
END
IF 'D' RCL'H' RCL ==
THEN
'N' INCR
END
IF 'N' RCL 4 ==
THEN
" GOOD" CLLCD 3 DISP 1 WAIT
" Enter the password" CLLCD 1 DISP
END END »
Thank you in advance. Best regards, Tal email: td@chem.ch.huji.ac.il