100 REM MASTERMIND
110 REM WRITTEN BY HM (HARDMATH123)
111 REM G() - GUESS ARRAY
112 REM R() - RANDOM ARRAY
113 REM B - BLACK HITS
114 REM W - WHITE HITS
115 GOTO 480
119 LET M = 0
120 DIM G(4)
130 DIM R(4)
140 LET R(0) = INT(10*RND(1))
150 LET R(1) = INT(10*RND(1))
160 LET R(2) = INT(10*RND(1))
170 LET R(3) = INT(10*RND(1))
180 PRINT "Enter your guess (4 numbers)"
185 LET M = M + 1
190 INPUT G(0)
200 INPUT G(1)
210 INPUT G(2)
220 INPUT G(3)
230 LET B = 0
240 IF G(0) = R(0) THEN LET B = B + 1
250 IF G(1) = R(1) THEN LET B = B + 1
260 IF G(2) = R(2) THEN LET B = B + 1
270 IF G(3) = R(3) THEN LET B = B + 1
275 IF B = 4 THEN GOTO 460
280 IF B = 1 THEN PRINT "YOU HAVE 1 BLACK HIT."
290 IF B < 1 THEN PRINT "YOU HAVE NO BLACK HITS."
300 IF B > 1 THEN PRINT "YOU HAVE"; B; "BLACK HITS."
310 LET W = 0
320 LET C = 0
330 IF C = 4 THEN GOTO 419
340 IF G(C) = R(0) THEN GOTO 390
350 IF G(C) = R(1) THEN GOTO 390
360 IF G(C) = R(2) THEN GOTO 390
370 IF G(C) = R(3) THEN GOTO 390
380 GOTO 400
390 LET W = W + 1
400 LET C = C + 1
410 GOTO 330
419 LET W = W - B
420 IF W = 1 THEN PRINT "YOU HAVE 1 WHITE HIT."
430 IF W < 1 THEN PRINT "YOU HAVE NO WHITE HITS."
440 IF W > 1 THEN PRINT "YOU HAVE"; W; "WHITE HITS."
450 GOTO 180
460 PRINT "YOU WIN! IT ONLY TOOK YOU"; M; "MOVES."
470 END
480 PRINT "*** MASTERMIND ***"
490 PRINT " BY ~HARDMATH123"
500 PRINT "ZOLTAR IS THINKING OF A 4-DIGIT NUMBER. HE "
510 PRINT "GRADES YOUR GUESSES IN TWO WAYS:"
520 PRINT " - YOU GET A 'BLACK' HIT FOR EACH DIGIT IN "
530 PRINT " THE CORRECT PLACE."
540 PRINT " - YOU GET A 'WHITE' HIT FOR EACH DIGIT "
550 PRINT " THAT IS IN ZOLTAR'S NUMBER, BUT IN THE "
560 PRINT " WRONG PLACE."
570 PRINT "CAN YOU GUESS HIS NUMBER?"
990 GOTO 119
