*The Museum of HP Calculators*

#
Cows and Bulls (Mastermind) for the HP-35s/33s

This program is by Bill Harrington and is used here by permission.

This program is supplied without representation or warranty of any kind.
Bill Harrington and The Museum of HP Calculators therefore assume no responsibility
and shall have no liability, consequential or otherwise, of any kind arising
from the use of this program material or any part thereof.

##
Overview

Cows and Bulls is a games where the player trys to guess an x digit random integer with feedback for each guess indicting how many correct digits in the correct location (Bulls) and correct digits in the wrong location (Cows). The score is given as Bulls.Cows, eg. If the secret number is 12325, a guess of 43321 would score 2.1
To play, enter the length of the number 'L' in digits and then successive guesses 'G'. Your score 'S' is calculated for each guess.

##
Listing

Number = N (eg. 0.nnnn), M, V, A
Length = L (eg. 4)
Guess = G, U, B
Score = S
C001 Lbl C
C002 INPUT L
C003 RAND; STO N
C005 INPUT G
C006 RCL L; STO X; 10x; STO / G
C010 0; STO S,T,U,V
C015 RCL N; STO M
C017 10; STO * M; STO * G
C020 RCL M; IP; STO A
C023 RCL M; FP; STO M
C026 RCL G; IP; STO B
C029 RCL G; FP; STO G
C032 RCL A; RCL B;
C034 X=Y; GTO C043
C036 STO + U; Rv; STO + V
C039 10; STO / V; STO / U
C042 GTO C045
C043 1; STO + S
C045 Dse X; GTO C017
C047 RCL U; STO G
C049 RCL L; RCL S; -; STO X
C053 X=0; GTO C101
C055 RCL V; STO M; 0; STO V
C059 10; STO * G; RCL G;
C062 IP; STO B
C064 RCL G; FP; STO G
C067 RCL L,S,-;T; -; STO Y
C073 10; STO * M
C075 RCL M; IP; STO A
C078 RCL M; FP; STO M
C081 RCL B; RCL A
C083 X=Y; GTO C089
C085 STO + V; 10; STO / V
C088 GTO C093
C089 1; STO + T; -/+; STO B
C093 Dse Y; GTO C073
C095 Dse X; GTO C055
C097 RCL T; 10; /; STO + S
C101 VIEW S; GTO C005
To run XEQ C001
L? <enter the length for the number, eg 4 digits>
<R/S>
G? <enter you guess for the number>
<R/S>
S= <your score Bulls.Cows, eg 1.2 means one digit in the correct location and 2 digits in the wrong location>
<R/S>
G? <enter you next guess>
Notes:
IP = Integer Part of a number.
FP = Fraction Part of a number
O; STO S,T,U,V means: 0; STO S; STO T; STOU; STO U; STO v.

Go back to the software library

Go
back to the main exhibit hall