1 REM MASTERMIND
2 REM PROGRAMMING BY DON SIEBER
3 REM PUBLISHED BY UPTIME
4 :
10 POKE53280,3:POKE53281,3:PRINT"[147]"CHR$(8)CHR$(14)
15 PRINTTAB(9)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
20 PRINTTAB(9)" [205] [193] [211] [212] [197] [210] [205] [201] [206] [196] "
30 PRINTSPC(7)"[164][144]                  [164][154][146]
40 [153][166]7)"RIGHT$STOPWAITNSTRUCTIONS       (null)STOPWAITP(null)IME
42 PRINTTAB(12)"[210][197][212][213][210][206] FOR GAME"
45 PRINTSPC(5)"[195]64 [208]ROGRAMMING BY [196]ON [211]IEBER"
50 PRINT" [208]UBLISHED BY [214]IKING [212]ECHNOLOGIES, [201]NC.";
55 POKE 198,0
60 GETA$:IFA$=""THEN60
70 IFA$="I"THEN640
80 IFA$="U"THENSYS(8*4096)+4
85 IF A$<>CHR$(13) THEN60
90 PRINT"[147]";:POKE53281,0:PRINT"[158]"
100 PRINTTAB(9)"                     "
110 PRINTTAB(9)" [205] [193] [211] [212] [197] [210] [205] [201] [206] [196] "
120 PRINTTAB(9)"                     "
130 FORN=1TO25:T=INT(RND(0)*16+1)
140 POKE53280,T/2:FORE=1TO50:NEXT:NEXT
150 PRINT"[147]":POKE53281,0
160 FORN=1TO5
170 X(N)=INT(RND(0)*5+3)
180 NEXT:POKE53280,0
190 FORN=1TO21:PRINTCHR$(17);:NEXT
195 PRINT"[158]---------------------------------------"
200 PRINTCHR$(18);CHR$(28);"    ";CHR$(159);"    ";CHR$(156);"    ";
210 PRINT"";CHR$(30);"    ";CHR$(31);"    ";
220 PRINTCHR$(5);"     ";
230 W=0:FORQ=1TO5:Y(Q)=8:NEXTQ
235 POKE 198,0
240 FORJ=1TO5
250 GETK$:IFK$=""THEN250
255 IF K$=CHR$(140) THEN SYS(8*4096)+4
260 IFVAL(K$)<3ORVAL(K$)>7THEN250
270 IFK$="3"THEND=28:Y(J)=3
280 IFK$="4"THEND=159:Y(J)=4
290 IFK$="5"THEND=156:Y(J)=5
300 IFK$="6"THEND=30:Y(J)=6
310 IFK$="7"THEND=31:Y(J)=7
320 PRINTCHR$(18);CHR$(D);"    ";
330 NEXTJ
340 PRINT"[157]";
350 FORT=1TO5:P(T)=X(T):NEXT
360 FORN=1TO5
370 IFY(N)=P(N)THENPRINTCHR$(18);CHR$(5);" ";
380 IFY(N)=P(N)THENY(N)=8:P(N)=9:W=W+1
390 NEXTN
400 FORN=1TO5
410 IFY(N)<8ANDY(N)=P(1)THENY(N)=8:P(1)=9:GOSUB500
420 IFY(N)<8ANDY(N)=P(2)THENY(N)=8:P(2)=9:GOSUB500
430 IFY(N)<8ANDY(N)=P(3)THENY(N)=8:P(3)=9:GOSUB500
440 IFY(N)<8ANDY(N)=P(4)THENY(N)=8:P(4)=9:GOSUB500
450 IFY(N)<8ANDY(N)=P(5)THENY(N)=8:P(5)=9:GOSUB500
460 NEXTN
470 IFW=5THEN530
480 R=R+1:IFR=10THEN520
490 PRINT:PRINT:GOTO230
500 PRINTCHR$(18);CHR$(158);" ";
510 RETURN
520 PRINT:POKE53280,11:PRINT"[211]ORRY.....[208]RESS [210][197][212][213][210][206]":GOTO540
530 PRINT:POKE53280,11:PRINT"[195]ONGRADULATIONS!-[208]RESS [210][197][212][213][210][206]"
540 POKE198,0:PRINT"";
550 FORN=1TO5:PRINT"";
560 IFX(N)=3THENPRINTCHR$(28);"    ";
570 IFX(N)=4THENPRINTCHR$(159);"    ";
580 IFX(N)=5THENPRINTCHR$(156);"    ";
590 IFX(N)=6THENPRINTCHR$(30);"    ";
600 IFX(N)=7THENPRINTCHR$(31);"    ";
610 NEXT
620 GETK$:IFK$<>CHR$(13)THEN620
630 RUN
640 POKE53281,11:PRINT"[147]          *** [201][206][211][212][210][213][195][212][201][207][206][211] ***[155]"
650 PRINT"  [212]HERE ARE 5 COLORS USED IN THIS"
660 PRINT"  GAME--RED,CYAN,PURPLE,GREEN,AND BLUE."
670 PRINT"  [212]HE KEYS MARKED WITH THESE COLORS"
680 PRINT"  WILL PRINT A COLORED BLOCK ON THE"
690 PRINT"  SCREEN. [193]FTER YOU HAVE SELECTED 5"
700 PRINT"  OF ANY OF THESE COLORS IN A ROW,THE"
710 PRINT"  COMPUTER WILL PRINT ITS RESPONSE."
720 PRINT"  [206]O PRINT MEANS NO CORRECT COLORS"
730 PRINT"  WERE ENTERED. [217]ELLOW BLOCKS MEAN"
740 PRINT"  THAT NUMBER OF COLORS ARE CORRECT,"
750 PRINT"  BUT IN THE WRONG PLACE. [204]ITTLE WHITE"
760 PRINT"  BLOCKS MEAN YOUR COLORS ARE CORRECT"
770 PRINT"  AND IN THE RIGHT PLACE.
780 [153]"  ATNFTER 10 TRIES, THE COMPUTER WILL"
790 [153]"  PRINT ITS SECRET COLOR CODE."
800 [153]"PRINT        (null)RESS '(null)VAL(null)(null)(null)(null)' TO BEGIN"
805 [153]"PRINT         (null)RESS 'ASC8' FOR (null)P(null)IME"
810 [161]A$:[139]A$[178]""[167]810
820 [139]A$[179][177][199](13)[167]810
830 [138]90