The Museum of HP Calculators

HP Forum Archive 02

[ Return to Index | Top of Index ]

Modify HP48SX program.
Message #1 Posted by Tal on 13 Apr 2000, 4:24 a.m.

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


[ Return to Index | Top of Index ]

Go back to the main exhibit hall