10    WIDTH 80
20    PRINT CHR$(27);"[2J";CHR$(27);"[1;1H"
30    PRINT CHR$(7)
40    PRINT "..... MASTER MIND ....."
50    PRINT "DER COMPUTER HAT SICH 4 ZAHLEN AUSGEDACHT"
60    PRINT "DIESE ZAHLEN STEHEN ZUGLEICH IN BESTIMMTER REIHENFOLGE"
70    PRINT "SIE SOLLEN DIESE ZAHLEN ERRATEN"
80    DIM A(4) ,B(4)
90    PRINT
100   LET N=0
110   FOR I=1 TO 4
120   LET A(I)=INT(9*RND(1))+1
130   NEXT I
140   FOR J=1 TO 3
150   FOR K=J+1 TO 4
160   IF A(J)=A(K) THEN 110
170   NEXT K
180   NEXT J
190   PRINT "EINGABE 4 ZAHLEN (1-9)";
200   INPUT B(1) ,B(2) ,B(3) ,B(4)
210   LET N=N+1
220   LET C=0
230   LET D=0
240   FOR K=1 TO 4
250   FOR I=1 TO 4
260   IF A(K)<>B(I) THEN 280
270   LET C=C+1
280   NEXT I
290   IF A(K)<>B(K) THEN 310
300   LET D=D+1
310   NEXT K
320   IF D=4 THEN 360
330   PRINT "SIE HABEN ";C;" ZAHL(EN) ERRATEN ";
340   PRINT "VON DENEN ";D;" AUF DER RICHTIGEN STELLE SIND "
350   GOTO 190
360   PRINT "ERRATEN NACH ";N;" MAL ! !  NOCHMALS (J/N)"
370   INPUT V$
380   IF V$="J" THEN 90
390   IF V$="N" THEN CHAIN "CSPIEL"
400   END
