1000 : "M" : CLS : RANDOM : WAIT 59
1002 : CURSOR 3,0 : PRINT "-- Master Mind --"
1004 : CURSOR 7,2 : PRINT "by Yoshi"
1010 : REM INIT
1012 : GOSUB 1200
1020 : REM 7 ROUNDS
1022 : FOR R=0 TO 6
1024 : REM INPUT NUMBER
1026 : GOSUB 1300
1028 : REM CHECK NUMBER
1030 : GOSUB 1400
1032 : REM DISPLAY RESULT
1034 : GOSUB 1500
1036 : IF Y$ = "AAAA" THEN LET R=7
1038 : NEXT R
1050 : IF Y$ = "AAAA" THEN WAIT : CURSOR 12,3 : PRINT "* :-)  WON"
1052 : IF Y$ <> "AAAA" THEN WAIT : CURSOR 12,3 : PRINT "* ";S$;" LOST"
1054 : GOTO 1010

1200 : REM INIT
1202 : CLS : WAIT 0 : CLEAR
1204 : DIM MZ$(3)*1
1206 : DIM MI$(3)*1
1208 : DIM MS$(3)*1
1210 : DIM MR$(6)*12
1212 : FOR I=0 to 3
1214 : MZ$(I)=STR$ ((RND 10)-1) : MS$(I)=MZ$(I) : S$=S$+MZ$(I)
1216 : NEXT I
1218 : RETURN

1300 : REM INPUT NUMBER
1302 : CURSOR 12,3 : INPUT "NUM(4) ";X$
1304 : IF LEN (X$) <> 4 THEN GOSUB 1500 : GOTO 1300
1306 : RETURN

1400 : REM CHECK NUMBER
1402 : FOR I=0 TO 3
1404 : MZ$(I)=MS$(I)
1406 : NEXT I
1408 : Y$=""
1420 : FOR I=0 TO 3
1422 : MI$(I)=MID$ (X$,I+1,1)
1424 : IF MI$(I)=MZ$(I) THEN LET Y$=Y$+"A" : MI$(I)="*" : MZ$(I)="#"
1426 : NEXT I
1430 : FOR I=0 TO 3
1432 : FOR J=0 TO 3
1434 : IF MI$(I)=MZ$(J) THEN LET Y$=Y$+"G" : MI$(I)="*" : MZ$(J)="#"
1436 : NEXT J
1438 : NEXT I
1440 : MR$(R)=STR$ (R+1)+" "+X$+" "+Y$
1442 : RETURN

1500 : REM DISPLAY RESULT
1502 : CLS
1504 : FOR I=R TO 0 STEP -1
1506 : H=0 : V=I
1508 : IF I > 3 THEN LET H=12 : V=V-4
1510 : CURSOR H,V : PRINT MR$(I)
1512 : NEXT I
1514 : RETURN