90 POKE36879,232:GOSUB1210:PRINT:PRINT"[147][144]   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=7688:CGLOC=38408:ANS=7680:A$="":POKE36878,15
150 HF=36876:LF=36875
160 CANS=38400:SLOC=7695:X=0:FORK=1TO12:FORI=1TO6
210 POKEGLOC,81:POKECGLOC,1:GLOC=GLOC+1:CGLOC=CGLOC+1:NEXTI
230 GLOC=GLOC+38:CGLOC=CGLOC+38:NEXTK:GLOC=7688:CGLOC=38408
260 FORL=0TO5:B=INT(RND(1)*8):RC%(B)=RC%(B)+1:A%(L)=B
300 POKEANS,90:POKECANS,2:GOSUB1510:ANS=ANS+1:CANS=CANS+1:NEXTL
320 ANS=7680:CANS=38400
330 FORI=0TO5
340 GETZ$:IFZ$=""THEN340
350 IFASC(Z$)=20THENGOTO1020
360 IFASC(Z$)<49ORASC(Z$)>57THEN340
370 Z%(I)=VAL(Z$):Z%(I)=Z%(I)-1
390 IFZ%(I)=8THEN800
400 GC%(Z%(I))=GC%(Z%(I))+1
410 POKECGLOC,Z%(I):GOSUB1330:CGLOC=CGLOC+1:NEXT:FORI=0TO7
460 IFGC%(I)<=RC%(I)THENQ=Q+GC%(I)
470 IFGC%(I)>RC%(I)THENQ=Q+RC%(I)
480 NEXTI:FORK=0TO5
500 IFZ%(K)=A%(K)THENF=F+1
520 NEXTK:IFQ=0THEN620
530 IFF=0THEN580
540 FORK=0TOF-1
550 S%(K)=91:NEXTK
570 IFF=QTHEN620
580 FORK=FTOQ-1
590 S%(K)=87:NEXTK
620 FORK=0TO5:POKESLOC,S%(K):POKESLOC+30720,0
640 SLOC=SLOC+1
650 NEXTK
660 SLOC=SLOC+38
670 CGLOC=CGLOC+38
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+1:CANS=CANS+1
850 NEXTT
860 POKE198,0:IFZ%(I)=8OR(X=12ANDF<6)GOTO910
880 PRINT"[147]  YOU WON IN"X"MOVES":PRINT"        ";
890 GOTO930
910 PRINT"[144]YOU LOSE"
930 PRINT" PRESS[157][157][157][157]ANY[157][157][157]KEY"
940 GETC$:IFC$=""THEN940
960 PRINT"[147][144]WOULD YOU LIKE TO TRY AGAIN ?  Y/N[146]"
980 GETA$:IFA$=""THEN980
990 IFA$="Y"THENRUN130
1000 IFA$<>"N"THEN980
1010 PRINT"[147]":END
1020 FORDE=ITO1STEP-1:POKECGLOC-DE,12:GOSUB1510:NEXTDE
1030 FORRE=0TO8:GC%(RE)=0:NEXTRE
1040 CGLOC=CGLOC-(I*1)
1050 GOTO330
1060 PRINT"[147]THIS IS A CODE BREAK- ING GAME. SIX OF EIGHTRANDOM COLORS WILL BE"
1070 PRINT"CHOSEN. A COLOR MAY BECHOSEN MORE THAN ONCE.AFTER THE SIX DIAMONDS";
1080 PRINT"COVERING THE CODE     APPEAR, ENTER YOUR    GUESS WITH THE COLOR  KEYS."
1090 PRINT"AFTER YOUR SIX COLORS ARE ENTERED YOUR SCOREWILL APPEAR."
1092 PRINT"     PRESS ANY KEY"
1095 GETA$:IFA$=""THEN1095
1100 PRINT"[147]SCORING IS:"
1110 PRINT"+=CORRECT COLOR         CORRECT LOCATION"
1120 PRINT"0=CORRECT COLOR WRONG   LOCATION"
1130 PRINT"@=WRONG COLOR"
1140 PRINT"THE SCORING MARKER    LOCATIONS DON'T RELATETO THE GUESS LOCATIONS"
1150 PRINT"YOU HAVE 12 TURNS, IF YOU WISH TO SEE "
1160 PRINT"THE CODE AND QUIT THATGAME ENTER '9'."
1170 PRINT"IF 5 OR LESS COLORS   HAVE BEEN GUESSED"
1175 PRINT"ENTER 'DEL' TO REMOVE THE GUESS."
1180 PRINT"     PRESS ANY KEY[146]"
1190 GETR$:IFR$=""THEN1190
1200 GOTO130
1210 PRINT"[156][147]  [146]  [146]  [146]    [146]  [146]  [146]    [146]    [146]";
1220 PRINT" [146]     [146]  [146]  [146]  [146][185] [146]  [146][185][185]  [146]  [146]";
1230 PRINT" [146]    [146]     [146]  [185] [146]  [185][185][146]   [223][146]";
1250 PRINT"  [146]   [146]   [146]    [146]  [146]    [146]  [146]  [146]";
1310 FORD=1TO2000:NEXTD
1320 RETURN
1330 IFZ%(I)=0THENHI=130:LO=130:GOTO1520
1340 IFZ%(I)=1THENHI=175:LO=175:GOTO1520
1350 IFZ%(I)=2THENHI=183:LO=183:GOTO1520
1360 IFZ%(I)=3THENHI=191:LO=191:GOTO1520
1370 IFZ%(I)=4THENHI=195:LO=195:GOTO1520
1380 IFZ%(I)=5THENHI=201:LO=201:GOTO1520
1390 IFZ%(I)=6THENHI=207:LO=207:GOTO1520
1400 IFZ%(I)=7THENHI=209:LO=209:GOTO1520
1410 RETURN
1420 IFA%(T)=0THENHI=130:LO=130:GOTO1520
1430 IFA%(T)=1THENHI=175:LO=175:GOTO1520
1440 IFA%(T)=2THENHI=183:LO=183:GOTO1520
1450 IFA%(T)=3THENHI=191:LO=191:GOTO1520
1460 IFA%(T)=4THENHI=195:LO=195:GOTO1520
1470 IFA%(T)=5THENHI=201:LO=201:GOTO1520
1480 IFA%(T)=6THENHI=207:LO=207:GOTO1520
1490 IFA%(T)=7THENHI=209:LO=209:GOTO1520
1500 RETURN
1510 HI=45:LO=198
1520 POKEHF,HI:POKELF,LO
1560 FORSO=1TO150:NEXTSO
1570 POKEHF,0:POKELF,0
1580 RETURN