HP-67 4 Digit Bagels/Mastermind

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