# HP Forums

Full Version: (15C) Memory Game
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
This game first appeared in the V6N5P10 PPC Journal in August 1979 by Bill Derrick.
This program originally for HP-25/33 series.
I make some correction to work for HP-15C

User Instructions:
1) Enter a non-zero seed and press LBL A
2) See memory number displayed for just an instant
3) Calculator will stop and display a zero
4) Enter your guess as to what the number was and press R/S again
5) Steps 4 and 5 will be repeated 10 times
6) After 10 times, your score is displayed
7) To repeat the game, go back to step 1

Code:
``` LBL A FIX 0 REG STO 0 10 STO 1 LBL 3 1 STO 2 0 STO 3 LBL 1 RCL 0 π x FRAC STO 0 RCL 2 RCL 1 X<Y (TEST 8) GTO 2 X<>Y RCL 3 - Y^x x INT X=0 GTO 1 PSE 0 R/S + ÷ 1 STO+2 X=Y (Test 5) 0 STO+3 GTO 1 LBL 2 RCL 3 - R/S GTO 3```

Number correct indicates how good your memory is.
1-5 Correct = senile to poor memory
6 = average
7 = good
8 = superior
9 or 10 = why are you wasting your time doing this?

The best I can do so far is 7

Gamo
(01-19-2018 11:32 AM)Gamo Wrote: [ -> ]This game first appeared in the V6N5P10 PPC Journal in August 1979 by Bill Derrick.

It is also mentioned on one of Gene's rskey.org pages.

(01-19-2018 11:32 AM)Gamo Wrote: [ -> ]This program originally for HP-25/33 series.
I make some correction to work for HP-15C

The 15C and 11C have their own random number generators, so you don't have to program your own. Entering a seed is not required. Also both calculators feature loop control commands via DSE and ISG. All this allows a more compact version with merely 30 steps:

Code:
```LBL A FIX 0 CLX STO 1     // initialize n with 0 1 0 STO I     // set loop counter to 10 LBL 1 RAN# 9 x 1 +         // number between 1 and 9,999999999 RCL 1     // n 10^x x         // shift number by n digits INT       // (n+1)-digit number between 100... and 999... STO 0 PSE CLX R/S       // enter memorized number here RCL 0 / 1 x=y?      // is input : number = 1, i.e. was input correct? STO+1     // then increment n DSE I     // decrement loop counter GTO 1 RCL 1     // after 10 loops show success level n RTN Registers: R0  (n+1)-digit number R1  n = 0, 1, 2, 3... RI  counter (10...0)```

This version also fixes a problem with the original program where it is possible that a number is followed by one with less (!) digits. This happens because the RNG generates numbers between 0 (!) and 999... etc.

The instructions for the above version are the same as for the original one, of course without the seed which is not required (use the calculator's SEED function it you want to). And on the 11C the DSE I near the end is simply DSE.

(01-19-2018 11:32 AM)Gamo Wrote: [ -> ]The best I can do so far is 7

I once got 8, but this was a number with four zeros in the middle. ;-)

Dieter
This is a fun program. I pilfered my Father's HP-15C and programmed this. I got a 7 on my first try. I'll see if I can do better. I really like programming the 15C better than the 12C. The back arrow to erase instructions is SO useful. Programming and non programming alike.

Just got a 8. This is fun.
Wow, what a beauty!

Today, we fun, my little son and me, for 50 minutes playing this game.

7 fue el número máximo de veces que pudimos memorizar...
Hello Carlos