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.

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.

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!