Jive Turkey for the HP-67!

Back to main page | Email me at: Gene!

The program presented below will play the game of Jive Turkey on the HP- 67. I'm not sure who wrote the HP-67 version, but it appeared in the V5N1P10 issue of PPC Journal (January 1978). It is a translation of a TI-59 program (which is present on my main page). If the instructions below are not clear enough, see the write-up for the TI-59 game (or even the SR-52 translation of the game also on this site).

This is a hi-lo number guessing game with a twist: TRUTH, it seems, can be programmed. Basically, the HP-67 generates a "secret" number between 0 and 99. You try to guess what it is and the HP-67 shows if your guess was too high (1) or too low (-1). It isn't always honest about it though and the same guess can bring two results.

Another twist causes your first guess to appear to be too high if in fact it was correct. This is because a 1 appears in the display. Here it actually means you got the number the first time (it's showing how many guesses you took to find it). If you don't see that the running program looked slightly different (as to how the display was flashing), you'll interpret the 1 as meaning your guess was too high. When you do find the number, the display shows the number of guesses you took to find it. Any number other than -1 or 1 means you found it.

Record the program onto cards or change prior to running it: DSP 0, FIX, and flag 3 clear.

Instructions:
1) Enter the truth percentage and press A.
2) Store a seed as an INTEGER between 0 and 199017 and press B.
3) Enter your guess and press C.
4) To check how many guesses you've made, press D.

Program Listing: The prefix keys are for the HP-67 (a prefix key is the little f, g, or h that is in front of a program instruction). For example the f LBL A instruction is keyed that way on the HP-67, but on the HP-97, you would just push LBL A.

Line      Instruction
01         f LBL A
02         f CLRG
03         STO 3
04         h RTN
05         f LBL B
06         STO 4
07         f GSB 4
08         STO 1
09         f LBL D
10         RCL 0
11         h RTN
12         f LBL C
13         STO 2
14         g ISZi
15         f GSB 1
16         g X > Y?
17         h CF 3
18         RCL 2
19         RCL 1
20         g X = Y?
21         GTO D
22         g X > Y?
23         GTO 0
24         h F? 3
25         h F? 3
26         h SF 3
27         f LBL 0
28         1
29         h F? 3
30         CHS
31         h RTN
32         f LBL 1
33         2
34         4
35         2
36         9
37         8
38         RCL 4
39         *
40         5
41         g 10^X
42         9
43         -
44         +
45         1
46         9
47         9
48         0
49         1
50         7
51         /
52         h LSTX
53         h X <> Y
54         g FRC
55         *
56         STO 4
57         RCL 3
58         h LSTX
59         EEX
60         2
61         *
62         f INT
63         h RTN

That's it. Enjoy!