10 COLOR15,12,1:SCREEN2:OPEN"GRP:"FOROUTPUTAS#1:DIMA(4),B(4),C(4):FOR X=1TO15STEP2:CIRCLE(30+(X*12),60),10,X:PAINT(30+(12*X),60),X:NEXT:FORT=65TO66:PSET(T+15,20):PRINT#1,"MICRO MIND":PSET(T,90):PRINT#1,"Nivel 1 / 2 / 3":NEXT:Z=0:L=1:R=1
20 A$=INKEY$:IFA$=""GOTO20ELSEIFVAL(A$)<1ORVAL(A$)>3GOTO20ELSEZ=VAL(A$):Z=(Z*2)+2:CLS:FORN=1TOZ:G=90+(N*18):PRESET(G-10,10):PRINT#1,N:CO=(N*2)-1:CIRCLE(G,30),5,CO:PAINT(G,30),CO:NEXT:PRESET(20,50):PRINT#1,"Adivina el cądigo de color":BEEP
30 FORN=1TO4:G=N*20:FORM=0TO1:PSET((G+M)-2,28):PRINT#1,"?":NEXTM:X=INT(RND(-TIME)*Z)+1:A(N)=X:CO=(X*2)-1:CIRCLE(G,30),10,6:NEXT:FORN=1TO4:FORM=70TO178STEP12:F=(N*14)+90:G=N*20:CIRCLE(G,M),5,1:CIRCLE(F,M),3,1:NEXTM,N:LINE(165,80)-(220,120),6,BF
40 IFL>10ANDR=1THENO=1:PU=820:GOTO80ELSEB$=INKEY$:IFB$=""GOTO40ELSEIFVAL(B$)<1ORVAL(B$)>ZGOTO40ELSEC=VAL(B$):B(R)=C:CO=(C*2)-1:Y=190-(12*L):CIRCLE(R*20,Y),5,CO:PAINT(R*20,Y),CO:IFR<4THENR=R+1:GOTO40ELSEL=L+1:R=1:PLAY"AB","EF","GA"
50 Q=0:W=0:IF B(1)=A(1)ANDB(2)=A(2)ANDB(3)=A(3)ANDB(4)=A(4)THENLINE(165,130)-(220,180),5,BF:FORO=0TO1:PSET(177+O,140),5:PRINT#1,"CODE":PSET(175+O,160),5:PRINT#1,"MATCH":NEXTO:GOTO80ELSEFORN=1TO4:IFA(N)=B(N)THENQ=Q+1:C(N)=1:B(N)=0:NEXTELSEQ=Q:NEXT
60 FORE=1TO4:FORX=1TO4:IF(B(E)=A(X))ANDC(X)=0THENW=W+1:H=(W*14)+90:C(X)=1:B(E)=0:CIRCLE(H,Y),3,15:PAINT(H,Y),15:NEXTX,EELSEW=W:NEXTX,E
70 IFQ>0THENFORN=1TOQ:H=((N+W)*14)+90:CIRCLE(H,Y),3,1:PAINT(H,Y),1:NEXTELSEGOTO 80
80 COLOR10:LINE(165,80)-(220,120),6,BF:FORN=0TO1:PSET(170+N,90),6:PRINT#1,"PUNTOS":PSET(175+N,100),6:PRINT#1,((Y+12)*10)-PU:NEXT:IFO<>0GOTO100
90 LINE(15,45)-(230,60),12,BF:PSET(50,50):COLOR15:PRINT#1,"Quedan";11-L;"intentos":FORN=1TO4:C(N)=0:NEXT:GOTO40
100 FORN=1TO4:G=N*20:X=A(N):CO=(X*2)-1:CIRCLE(G,30),5,CO:PAINT(G,30),CO:NEXT:LINE(15,45)-(230,60),12,BF:PSET(50,50):PRINT#1,"Otra partida?(S/N)":A$=INKEY$:IFA$=""THEN100ELSEIFA$="S"ORA$="s"THENRUNELSECOLOR 15,4,4:SCREEN0:PRINT"(c)XGIPE para KONAMITO.COM"