Back to main page

I've had a lot of visitors but few comments! Let me hear from you! **Email me at:**
Genewright143@hotmail.com

This program originally appeared in the January 1980 PPC Journal V7N1 and was written by Sergio Liberman, a resident in Tel-Aviv, Israel at the time. Thanks to Sergio!

**Description.** This game is the classic digit guessing game. The calculator will
generate a 4 digit number and you input guesses to figure it out. The program will provide
clues as to how many of the digits you have guessed correctly, and how many you have
guessed correctly but put in the wrong position within the four digit number. These clu
es will be in the form of X.Y, where X will be the number of correctly guessed positions,
and Y will be the number of correctly guessed but wrongly placed locations. When you
would achieve a score of 4.0 (meaning you correctly guessed the 4 digit number, the
calculator will display the number of guesses you took as a flashing negative number. If y
our thinking cap is on, you should be able to guess any number within 7 guesses or so.

**Instructions.** 1) Enter a decimal seed and press f a. 2) Generate the 4 digit random
number by pressing A. The display will show 0.00. 3) Try a guess by entering your 4 digits
and pressing B. A clue in the form X.Y (described above) will be shown if you haven't solved
it yet or the number of guesses you took will be flashed as a negative num
ber. 4) Continue guessing until you have solved the puzzle. 5) For a new 4 digit game, go
back to step 2.

**Program Listing.** The listing presented below
follows the same standards I've used to list other
programs on this site. RDN is roll down, X NE Y or 0 is X
not equal to. I have again changed the program's original
random number generator. Be sure to enter a 6-9 digit
decimal seed to start the game. Don't use 0!

Line Instruction 01 LBL A 02 RCL 9 03 CLREG 04 STO 9 05 LBL 9 06 1 07 STO+ 5 08 LBL 8 09 RCL 5 10 ST I 11 RCL 9 12 9 13 9 14 7 15 * 16 FRAC 17 STO 9 18 1 19 0 20 * 21 INT 22 LBL 7 23 RCL i 24 X <> Y 25 X=Y? 26 GTO 8 27 DSZ 28 GTO 7 29 RCL 5 30 ST I 31 RDN 32 STO i 33 RCL 5 34 4 35 X NE Y? 36 GTO 9 37 0 38 DSP 1 39 RTN 40 LBL f a 41 STO 9 42 RTN 43 LBL B 44 STO 6 45 4 46 STO 5 47 LBL 6 48 4 49 ST I 50 1 51 0 52 ST/ 6 53 RCL 6 54 FRAC 55 STO- 6 56 * 57 LBL 5 58 RCL i 59 X <> Y 60 X=Y? 61 GTO 4 62 DSZ 63 GTO 5 64 GTO 3 65 LBL 4 66 RC I 67 RCL 5 68 X NE Y? 69 . 70 1 71 ST0+ 8 72 LBL 3 73 1 74 STO- 5 75 RCL 5 76 X NE 0? 77 GTO 6 78 1 79 STO- 7 80 4 81 RCL 8 82 STO- 8 83 X NE Y? 84 RTN 85 LBL 2 86 RCL 7 87 PAUSE 88 GTO 2 89 R/S

Visitors since 6/12/97