(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