HP Forums
Modify HP48SX program. - Printable Version

+- HP Forums (https://archived.hpcalc.org/museumforum)
+-- Forum: HP Museum Forums (https://archived.hpcalc.org/museumforum/forum-1.html)
+--- Forum: Old HP Forum Archives (https://archived.hpcalc.org/museumforum/forum-2.html)
+--- Thread: Modify HP48SX program. (/thread-4246.html)



Modify HP48SX program. - tal - 04-13-2000

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