(15C) Memory Game

[Gamo]

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

[Dieter]

(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

[Carsen]

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.

[Carlos CM (Mexico)]

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...

[Gamo]

Hello Carlos
Grad to know that your kid like this game
You should try another game called Hi-Lo is very addictive game especially the program from Dieter that this game can be challenge from both human and from calculator itself.

Gamo

[pinkman]

Excellent game, I love it.
I made 9 at first try. So proud!