16) MASTERMIND (442 B)
To use: LOAD 6, RUN

10 REM
20 REM MASTERMIND
30 REM
40 PRINT "ENTER NUMBER OF DIGITS (3-7)"
50 INPUT N
60 LET N=N-1
70 DIM A(N)
80 FOR I=0 TO N
90 LET X=RND(10)-1
100 FOR J=0 TO I
110 IF X=A(J) THEN GOTO 90
120 NEXT J
130 LET A(I)=X
140 NEXT I
150 LET G=0
160 GOTO 360
170 INPUT B$
180 IF B$="" THEN STOP
190 CLS
200 PRINT B$
210 LET R=0
220 LET C=0
230 LET G=G+1
240 FOR I=0 TO N
250 LET X=CODE(B$)-28
260 IF X=A(I) THEN LET C=C+1
270 FOR J=0 TO N
280 IF X=A(J) THEN LET R=R+1
290 NEXT J
300 LET B$=TL$(B$)
310 NEXT I
320 IF C=N+1 THEN GOTO 380
330 PRINT "NUMBERS RIGHT=";R
340 PRINT "CORRECT POSITIONS=";C
350 PRINT
360 PRINT "ENTER ";N+1;"-DIGIT GUESS"
370 GOTO 170
380 PRINT "YOU DID IT IN ";G;" GUESSES"
390 STOP