rem MASTERMIND
DIM B$(6):DIM C(6): DIM N(6):S$=""
1 S$="":A$="":M=0:X=0:Y=0:Z=0:G=0 
CLS:BOX 2,13,6,24,1:LOCATE 3,14
PRINT "**********" :LOCATE 4,14
PRINT "MASTERMIND" :LOCATE 5,14
PRINT "**********"
LOCATE 8,1
PRINT "HILFE J/N?"
10 A$=INKEY$:IF A$=""THEN GOTO 10
IF A$="J" OR A$="j" THEN GOTO 100
CLS: GOTO 105
100 CLS: PRINT "ICH DENKE MIR EINE FOLGE"
PRINT "DER BUCHSTABEN VON A BIS G"
PRINT "SIE HABEN 10 VERSUCHE,SIE ZU RATEN"
GOSUB 1000
PRINT "JEDER RICHTIGE BUCHSTABE AN DER"
PRINT "RICHTIGEN STELLE WIRD DURCH"
PRINT CHR$ (2) ; " ANGEZEIGT"
GOSUB 1000
PRINT "JEDER RICHTIGE BUCHSTABE AN EINER"
PRINT "ANDEREN STELLE WIRD DURCH"
PRINT CHR$ (79) ; " ANGEZEIGT"
PRINT "GROSSBUCHSTABEN EINGEBEN!!!"
GOSUB 1000
105 MC = MENU(3,12,3,0,0,4,"SCHWIERIGK.","LEICHT", "MITTEL", "SCHWER")
D = MC%256
D = D+1
CLS
RANDOMIZE
CLS
FOR A=1 TO 3+D
X=RAND(8):IF X=0 THEN X=X+1
A$=CHR$(64+X)
S$=S$+A$: NEXT A
G=0
300 INCR(G):IF G>10 THEN GOTO 600
M=0
LOCATE 7,1
PRINT "RATEN SIE ";3+D;" BUCHSTABEN",
350 INPUT G$ : IF LEN(G$)=3+D THEN GOTO 370
LOCATE 7,27:PRINT"      "
LOCATE 7,1: PRINT "NEIN,  ";3+D;" BUCHSTABEN",:alarm:GOTO 350
370 IF G$=S$ THEN GOTO 640
FOR Y=1 TO 3+D
B$(Y)=MID$(S$,Y,1)
IF B$(Y)=MID$(G$,Y,1) THEN M=M+1:N(M)=2:B$(Y)=" ":C(Y)=1
NEXT Y
Y=0
400 INCR(Y):IF Y>3+D THEN GOTO 500
x=0
450 INCR(X):IF X>3+D THEN GOTO 470
IF B$(X)=MID$(G$,Y,1) AND C(Y)=0 THEN M=M+1 : N(M)=79:B$(X)=" ":GOTO 470 
GOTO 450
470 GOTO 400
500 IF G>5 THEN LOCATE G-5,20 ELSE LOCATE G,2
PRINT G$
FOR A=1 TO 3+D
IF G>5 THEN LOCATE G-5,26+A ELSE LOCATE G,8+A
PRINT CHR$(N(A))
NEXT A
FOR B=1 TO 3+D: C(B)=0:NEXT B
FOR B=1 TO 3+D: N(B)=0:NEXT B
LOCATE 7,27:PRINT "          "
GOTO 300
600 PRINT " SIE HABEN VERSAGT"
PRINT "ES WAR : "S$;"  TASTE!":WAIT
GOTO 650
640 PRINT "RICHTIG! ES WAR ";S$;"!";"  -TASTE DRCKEN!":WAIT
650 CLS
MC = MENU(3,12,3,0,0,3,"SPIEL?","JA","NEIN")
Q = MC%256
Q = Q+1
IF Q=1 THEN GOTO 1
CLS: END
1000 LOCATE 7,1:PRINT"WEITER - TASTE DRCKEN"
WAIT: CLS: RETURN