4
a-z()b()b()>cl"E""H"cof"f"co"e"; a(,)()"Y"( )( )(( ({) clcofJ2choic"0123456789"
()(choic,,)y<Bzzzzz zzzz aFtitl"* * * * * M A S T E R M I N D * * * * *" a(,(Z(titl)))titlP V DDraw boxes'Z fPrint initial instructionsd u""8n V `Clear box and ask for choice of levelxan"45" 0( coun coun' V XClear box, draw gridrgoecom"" coun(}
)c()()comcom()B> coun a(,)"*"1 a(,)"The computer has picked its3 a(,)"numbers and hidden them under, a(,)"the stars on the grid.: a(
,)"Now type your choice. Your numbers; a(,)"will appear in sequence on the grid.5Your choice is made and put in the right place>you""? counanchoic 0()? a(,)youyouA a(
,)"You have picked "you". Do you "? a(,)"want to change your mind? (Y/N) ""an"YN" 0!, 6goegoe@scor""MJComparison of your choice with the computer's, and allocation of score:T youcom scor(coun,b) ^ coun>h()(you,,)()(com,,)Tr ()() scorscorb()"#"()"#"| coun ()"#" counb ()() scorscorb()"#"()"#"coun. scor"" scor(coun,"-") a(,I)scor) scor(coun,b) ; goe scor(coun,b) 0 scor(coun,b) 8 T> coun a(,)c()) a(,)"Another go? (Y/N)%an"YN" 0 n clco"menu&Inkey routine20"" ""%(u):w(an,)#D9N 'X : Bb a(,)" ?" a(,)*l v^ a(,)b" - right number, right place"(
)b" - right number, wrong placeDraw Mastermind board'=b()() coun b()()bbbb() () b()()bbb() ()b()" "| coun b()" "bbbb() () b()" "bbb() ()b()() coun b()()bbbb() () b()()bbb() ()b()() coun b()()bbbb() () b()()bbb() () a(,)b a(,)b a(,)b a(,)b O () a(,)b a(,)b a(,)b Draw box1*l(z)(,(z))(z)14l(z)(,(z))(z)1>l(z)(,(z))(z)H a(,)l>R a(,)l!\ a(,)l4f a(,)"The computer will put together0p a(,)"a sequence of four or five5z a(,)"numbers, depending on the level) a(,)"of play you select.: a(,)"Your job is to guess that sequence.6 a(
,)"The computer will assist you by4 a(,)"giving you a score of '' for8 a(,)"a right number in the right place8 a(,)"and '' for a right number in the# a(,)"wrong place./ a(,)"You will have eight goes+ a(,)"in which to succeed.0 a(,)"Press any key to play."G> coun a(,)" "; a(
,)"OK. Pick another sequence. " a(,) (#); a(
,)"OK. The computer has given you "= a(,)"your score. Please try again. "; a(
,)"You have run out of goes. Press ";$ a(,)"a key to see what the numbers were.". u"">8 a(
,)"You got it right in"goe"goes. ";B a(,)"Press a key to check. "L u""+V( 8` a(,)"How would you like your sequence -4j a(
,)"four or five characters long?4t a(
,)"(Type a 4 or a 5, please.)"like your sequence -4j a(
,)"four o