ZXTape! 0Created with Ramsoft MakeTZXMaster 4 ( H23658j\,8:7:7:0::236099\,502 (MaxColours=8:MinColours=3 -MaxPositions=20:MinPositions=4 ()MaxGuesses=15:MinGuesses=1 2A$="Master Mind" < F0,11 ;A$'11 ;"==========="''" The difficulty can be changed by the choice of the number of colours,postions and the number of guesses allowed." P6'"Number of Colours (";MinColours;"-";MaxColours;")" Z:"Colours ? (";(MinColours);"-";(MaxColours);") ";Colours d1ColoursMaxColours90Z nYColours;" Colours selected."''"Number of Positions (";MinPositions;"-";MaxPositions;")" xB"Positions ? (";(MinPositions);"-";(MaxPositions);") ";Positions :PositionsMaxPositions120x _Positions;" positions selected."''"Number of Guesses allowed (";MinGuesses;"-";MaxGuesses;")" :"Guesses ? (";(MinGuesses);"-";(MaxGuesses);") ";Guesses 2GuessesMaxGuesses150 6Guesses;" Guess";("es"Guesses1);" selected." B$="BNRMGCYW" C$(Positions) I=1Positions C$(I)=B$((*Colours)+1) I D$(MaxColours,7) D$(1)="Black " D$(2)="Navy " D$(3)="Red " D$(4)="Magenta" D$(5)="Green " "D$(6)="Cyan " ,D$(7)="Yellow " 6D$(8)="White " @321,0;" Press any key to continue", J""330J T=""340T ^ h0,11 ;A$;11 ;"==========="''"The available colours are :-"''"Letter Colour"'"====== ======"'' rI=1Colours | 2;B$(I);15;D$(I) I '"Remember - always enter your"'"Guess as a string of the above letters. If you want to give up,enter Q for quit.";21,3;"Press any key to continue" ""410 =""420  0,6;A$;1,5;"";:M=1Positions:"";:M:"";5;"";(Positions+6);"";5;""; -M=1Positions:"";:M:""'"Guess "; JM=1Positions:(M/10 );:M:27;"Pegs"'"No.";6; EM=1Positions:M-10 *(M/10 );:M:27;"B W" M=1Guesses T=120:T {21,0;"Enter your ";("first"M=1);("next"m>1);" guess";(31-Colours);1;B$(Colours) G$ 621,0;"Please Wait- Checking your entry" G$="Q"800  G$Positions500 &I=1Positions 0J=1Colours :G$(I)=B$(J)655 DJ N 500 I 3M+5,2;M;6;:S$=G$:2000 I$=G$ J$=C$  B=0  W=0 S=1Positions I$(S)J$(S)710  B=B+1  I$(S)="K"  J$(S)="L" S T=1Positions S=1Positions I$(T)J$(S)745  W=W+1  I$(T)="K"  J$(S)="L" S T 27;B;30;W 21,0,, B=Positions835C M  121,0;" You ran out of guesses", I=125 I  1000  QUIT %I=125 *I /621,0;" Quit the code will be revealed" 4 785 >WIN C621,0;" Well done you guessed the code " H 785 REVEAL THE CODE S$=C$:2,6; I=1Positions J=110 J  2010 I  M=125 M 621,0;"Play again on the same settings?" Z$= Z$="Y"180 $Z$"N"1050 )+21,0;"Another Game ? (Y/N)", .""1070. 3Z$= 8 Z$="Y" =Z$"N"10753 B G &I=1Positions:2010:I: k=18 )S$(I)=B$(k)(k-1);1;" "; k  ':"Master 4"0