70 PRINT"[147]":POKE53280,6:POKE53281,12
80 GOSUB1210
90 PRINT:PRINT"[147]INSTRUCTIONS ?  Y/N[146]"
100 GETA$:IFA$=""THEN100
110 IFA$="Y"THENGOTO1060
120 IFA$<>"N"THEN100
130 PRINT"[147]":DIMA(5),Z(5),S(5),RC(8),GC(8)
140 GLOC=1039:CGLOC=55311:ANS=1024:A$="":POKE54296,15
150 HF=54273:LF=54272:HP=54275:LP=54274:AD=54277:SR=54278:WF=54276
160 CANS=55296:SLOC=1053:X=0
170 POKE649,1
180 FORK=1TO12
190 FORI=1TO6
200 POKEGLOC,81:POKECGLOC,11
210 GLOC=GLOC+2:CGLOC=CGLOC+2
220 NEXTI
230 GLOC=GLOC+68:CGLOC=CGLOC+68
240 NEXTK
250 GLOC=1039:CGLOC=55311
260 FORL=0TO5
270 B=INT(RND(1)*8)
280 RC(B)=RC(B)+1
290 A(L)=B
300 POKEANS,90:POKECANS,2:GOSUB1510:ANS=ANS+2:CANS=CANS+2
310 NEXTL
320 ANS=1024:CANS=55296
330 FORI=0TO5
340 GETZ$:IFZ$=""THEN340
350 IFASC(Z$)=20THENGOTO1020
360 IFASC(Z$)<49ORASC(Z$)>57THEN340
370 Z(I)=VAL(Z$)
380 Z(I)=Z(I)-1
390 IFZ(I)=8THEN800
400 GC(Z(I))=GC(Z(I))+1
410 POKECGLOC,Z(I)
420 GOSUB1330
430 CGLOC=CGLOC+2
440 NEXTI
450 FORI=0TO7
460 IFGC(I)<=RC(I)THENQ=Q+GC(I)
470 IFGC(I)>RC(I)THENQ=Q+RC(I)
480 NEXTI
490 FORK=0TO5
500 IFZ(K)=A(K)THENF=F+1
510 NEXTK
520 IFQ=0THEN610
530 IFF=0THEN580
540 FORK=0TOF-1
550 S(K)=91
560 NEXTK
570 IFF=QTHEN610
580 FORK=FTOQ-1
590 S(K)=87
600 NEXTK
610 FORK=0TO5
620 POKESLOC,S(K)
630 POKESLOC+54272,0
640 SLOC=SLOC+2
650 NEXTK
660 SLOC=SLOC+68
670 CGLOC=CGLOC+68
680 I=0
690 X=X+1
700 IFF=6THEN800
710 IFX=12GOTO800
720 FORK=0TO5
730 S(K)=0
740 NEXTK
750 Q=0:F=0
760 FORK=0TO7
770 GC(K)=0
780 NEXTK
790 GOTO330
800 FORT=0TO5
810 POKEANS,81
820 POKECANS,A(T)
830 GOSUB1420
840 ANS=ANS+2:CANS=CANS+2
850 NEXT
860 IFZ(I)=8OR(X=12ANDF<6)GOTO910
870 PRINT"":PRINT"":PRINT""
880 PRINT"[144] YOU WON!!":PRINT"[144] MOVES:"X
890 GOTO920
910 PRINT"[144] YOU LOSE!!"
920 PRINT:PRINT
930 PRINT" PRESS ANY KEY"
940 GETC$:IFC$=""THEN940
960 PRINT"[147]  WOULD YOU LIKE TO TRY AGAIN ?  Y/N[146]"
970 GETA$
980 IFA$=""THEN970
990 IFA$="Y"THENRUN90
1000 IFA$<>"N"THEN970
1009 PRINT"[147]":POKE54296,0
1010 POKE53280,14:POKE53281,6:PRINT"[154]":POKE649,10:END
1020 FORDE=I*2TO1STEP-1:POKECGLOC-DE,12:GOSUB1510:NEXTDE
1030 FORRE=0TO8:GC(RE)=0:NEXTRE
1040 CGLOC=CGLOC-(I*2)
1050 GOTO330
1060 PRINT"[147]THIS IS A CODE BREAKING GAME. SIX OF  "
1065 PRINT"EIGHT RANDOM COLORS WILL BE CHOSEN."
1070 PRINT"A COLOR MAY BE CHOSEN MORE THAN ";
1075 PRINT"ONCE.   AFTER THE SIX DIAMONDS[160]COVERING THE"
1080 PRINT"CODE APPEAR, ENTER YOUR GUESS WITH THE  COLOR KEYS."
1090 PRINT"AFTER YOUR SIX COLORS ARE ENTERED YOUR  SCORE WILL APPEAR."
1100 PRINT"":PRINT"SCORING IS:"
1110 PRINT"+=CORRECT COLOR CORRECT LOCATION"
1120 PRINT"0=CORRECT COLOR WRONG LOCATION"
1130 PRINT"@=WRONG COLOR":PRINT""
1140 PRINT"THE SCORING MARKER LOCATIONS DON'T"
1145 PRINT"RELATE TO THE GUESS LOCATIONS."
1150 PRINT"":PRINT"YOU HAVE 12 TURNS, IF YOU WISH TO SEE "
1160 PRINT"THE CODE AND QUIT THAT GAME ENTER 9.":PRINT""
1170 PRINT"IF 5 OR LESS COLORS HAVE BEEN GUESSED"
1175 PRINT"ENTER 'DEL' TO REMOVE THE GUESS."
1180 PRINT"[144]PRESS ANY KEY[146]"
1190 GETR$:IFR$=""THEN1190
1200 GOTO130
1210 PRINT"[147]   [146]  [146]  [146]    [146]  [146]  [146]    [146]    [146]"
1220 PRINTSPC(9)" [146]      [146]  [146]  [146]  [146][185] [146]  [146][185][185]  [146]  [146]"
1230 PRINTTAB(9)" [146]     [146]    [146]   [185] [146]  [185][185][146]    [223][146]"
1240 FORD=1TO9:PRINT" ";:NEXTD
1250 PRINT"   [146]   [146]    [146]   [146]  [146]    [146]  [146]   [146]"
1310 FORD=1TO2000:NEXT
1320 RETURN
1330 IFZ(I)=0THENHI=34:LO=75:GOTO1520
1340 IFZ(I)=1THENHI=38:LO=126:GOTO1520
1350 IFZ(I)=2THENHI=43:LO=52:GOTO1520
1360 IFZ(I)=3THENHI=45:LO=198:GOTO1520
1370 IFZ(I)=4THENHI=51:LO=97:GOTO1520
1380 IFZ(I)=5THENHI=57:LO=172:GOTO1520
1390 IFZ(I)=6THENHI=64:LO=188:GOTO1520
1400 IFZ(I)=7THENHI=68:LO=149:GOTO1520
1410 RETURN
1420 IFA(T)=0THENHI=34:LO=75:GOTO1520
1430 IFA(T)=1THENHI=38:LO=126:GOTO1520
1440 IFA(T)=2THENHI=43:LO=52:GOTO1520
1450 IFA(T)=3THENHI=45:LO=198:GOTO1520
1460 IFA(T)=4THENHI=51:LO=97:GOTO1520
1470 IFA(T)=5THENHI=57:LO=172:GOTO1520
1480 IFA(T)=6THENHI=64:LO=188:GOTO1520
1490 IFA(T)=7THENHI=68:LO=149:GOTO1520
1500 RETURN
1510 HI=45:LO=198
1520 POKEHF,HI:POKELF,LO
1530 POKEHP,0:POKELP,255
1540 POKEAD,9:POKESR,0
1550 POKEWF,65
1560 FORSO=1TO150:NEXTSO
1570 POKEWF,64
1580 RETURN