1 DIM S$(7),A(4),TE(4),Q(4,10)
2 K=1
3 DIMG(6,10)
5 GOTO 9000
100 REM MASTER MIND
110 FOR I = 1 TO 4
120 A(I)=INT(1+6*RND(1)) 
121 REM ONLY 6 COLORS(SKIP BLANK FOR NOW)
130 NEXT I
1000 INPUT "GUESS";G$(1),G$(2),G$(3),G$(4)
1010 FOR I=1 TO 4
1020 FOR J=1 TO 6
1030 IF LEFT$(G$(I),3)=LEFT$(C$(J),3)THEN G(I,K)=J:GOTO1045
1040 NEXT J
1043 PRINT"I DONT UNDERSTAND "G$(I):GOTO 1000
1045 NEXT I
1050 PRINT"CONFIRM  ";:FOR I=1 TO 4:PRINTC$(G(I,K));"  ";:NEXT I
1060 INPUT Q$:IF LEFT$(Q$,1)<>"Y"THEN 1000
1065 GOTO 1990
1070 PRINT CHR$(4);
1100 FOR I=1 TO K:PRINTI;:FOR J=1 TO 4
1110 PRINT"  ";C$(G(J,I));
1120 NEXT J:PRINT"  ";G(5,I);"  "G(6,I)
1130 NEXT I
1140 K=K+1:GOTO 1000
1990 G1=0:G2=0
1995 FOR I = 1 TO 4:F(I)=0:NEXT I
2000 FOR I = 1 TO 4
2010 FOR J = 1 TO 4
2020 IF G(I,K)=A(J)ANDF(J)=0THEN G1=G1+1:F(J)=1:J=4
2030 NEXT J,I
2031 FOR I = 1 TO 4
2032 IF G(I,K)=A(I) THEN G2=G2+1
2033 NEXT I
2040 G(5,K)=G1:G(6,K)=G2
2050 IF G2=4 THEN PRINT"A WINNER!":STOP
2080 GOTO 1070
9000 REM INITIALIZATION
9001 FOR I = 1 TO 7: READ C$(I): NEXT I
9002 GOTO 100
9010 DATA "BLACK ","WHITE ","RED   ","GREEN ","BLUE  "
9011 DATA "YELLOW","      "