HP Forums

Full Version: Modify HP48SX program.
You're currently viewing a stripped down version of our content. View the full version with proper formatting.

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