2 REM ****************************** 4 REM ** MASTER ** 6 REM ** (MASTERMIND) ** 8 REM ** 84-01-06 ** 10 REM ** UMEG]RD ** 12 REM ** V[STER]S ** 14 REM ****************************** 16 ; CHR$(12) 18 ; " INSTRUKTIONER ST]R SOM REM-SATSER" 20 ; " I B\RJAN AV PROGRAMMET" 22 ; " TRYCK RETURN F\R START" 24 GET Q$ 26 GOTO 66 28 REM SPELET SIMULERAR MASTERMIND. 30 RESTORE 32 REM 34 REM MAN SKALL LISTA UT VILKA FYRA 36 REM SIFFROR SOM [R DOLDA.ENDAST 38 REM SIFFRORNA 0-5 ANV[NDS,MEN DE 40 REM F]R VARA LIKA.RESULTATET AV 42 REM GISSNING ANGES MED ANTALET 44 REM TR[FF PLUS ANTALET \VRIGA R[TT. 46 REM (MED KOMMA EMELLAN)(+RETURN) 48 REM SVARET 2,1 BETYDER ALLTS] 2 50 REM TR[FF OCH EN R[TT ,DEN SENARE 52 REM ALLTS] P] FEL PLATS. 54 REM GISSNINGAR MATAS OCKS] IN MED 56 REM KOMMA EMELLAN EX. 2,3,4,5(RET) 58 REM 60 REM DU M]STE SVARA KORREKT ANNARS 62 REM SP]RAR PROGRAMMET UR.DET FINNS 64 REM M.A.O. INGA INBYGGDA KONTROLLER. 66 ; CHR$(12) 68 RANDOMIZE 70 R5%=INT(6*RND) : R6%=INT(6*RND) 72 U8%=0% 74 R7%=INT(6*RND) : R8%=INT(6*RND) 76 G2%=4% : G1%=4% 78 G3%=0% 80 ; "P] VILKEN NIV] (1-4) SKALL JAG SPELA"; : INPUT G4% 82 ; CHR$(12) 84 ; "MIN GISSNING T,R DIN GISSNING T,R" 86 U9%=0% 88 DIM O%(4) 90 DIM P%(4) 92 RESTORE 94 FOR I%=1% TO 4% 96 READ A%(I%),B%(I%),C%(I%),D%(I%) 98 NEXT I% 100 DATA 0,1,2,3 102 DATA 5,4,0,1 104 DATA 5,3,4,5 106 DATA 4,4,0,1 108 H1%=0% 110 FOR I%=0% TO 5% 112 FOR J%=0% TO 5% 114 FOR K%=0% TO 5% 116 FOR L%=0% TO 5% 118 M1%=I% : M2%=J% : M3%=K% : M4%=L% 120 R1%=M1% : R2%=M2% : R3%=M3% : R4%=M4% 122 FOR H%=1% TO H1% 124 F1%=A%(H%) : F2%=B%(H%) : F3%=C%(H%) : F4%=D%(H%) 126 GOSUB 192 128 IF T%<>T%(H%) THEN 172 130 IF R%<>R%(H%) THEN 172 132 NEXT H% 134 H1%=H1%+1% 136 IF H1%>G4% THEN 154 138 ; CUR(G1%,1%)A%(H1%);B%(H1%);C%(H1%);D%(H1%) 140 U9%=U9%+1% 142 ; CUR(G1%,13%); : INPUT T%(H1%),R%(H1%) 144 G1%=G1%+2% 146 IF T%(H1%)=4% THEN ; CUR(G1%,1%)"**************" : ; CUR(G1%+2%,1%)U9%" F\RS\K"; : G3%=1% : GOTO 244 148 GOSUB 244 150 L%=L%-1% 152 GOTO 172 154 A%(H1%)=I% : B%(H1%)=J% 156 C%(H1%)=K% : D%(H1%)=L% 158 U9%=U9%+1% 160 ; CUR(G1%,1%)I%;J%;K%;L%; 162 ; CUR(G1%,13%); : INPUT T%(H1%),R%(H1%) 164 G1%=G1%+2% 166 IF T%(H1%)=4% THEN ; CUR(G1%,1%)"******************" : ; CUR(G1%+2%,1%)U9%" F\RS\K " : G3%=1% : GOTO 244 168 GOSUB 244 170 GOTO 172 172 NEXT L% 174 NEXT K% 176 NEXT J% 178 NEXT I% 180 ; "DU M]STE HA SVARAT FEL P] N]GON" 182 ; "FR]GA.TRYCK TANGENT F\R OMSTART" 184 GET Q$ : GOTO 28 186 REM 188 REM KONTROLL AV GISSNING 190 REM 192 T%=0% 194 R%=0% 196 S1%=R1% : S2%=R2% : S3%=R3% : S4%=R4% 198 O%(1)=F1% : O%(2)=F2% 200 O%(3)=F3% : O%(4)=F4% 202 P%(1)=S1% : P%(2)=S2% 204 P%(3)=S3% : P%(4)=S4% 206 FOR M%=1% TO 4% 208 IF O%(M%)<>P%(M%) THEN 216 210 LET T%=T%+1% 212 O%(M%)=8% 214 P%(M%)=9% 216 NEXT M% 218 FOR N%=1% TO 4% 220 FOR O1%=1% TO 4% 222 IF O%(N%)<>P%(O1%) THEN 232 224 R%=R%+1% 226 O%(N%)=8% 228 P%(O1%)=9% 230 GOTO 234 232 NEXT O1% 234 NEXT N% 236 RETURN 238 REM 240 REM END KONTROLL 242 REM 244 R1%=R5% : R2%=R6% : R3%=R7% : R4%=R8% 246 ; CUR(G2%,20%); 248 U8%=U8%+1% 250 INPUT F1%,F2%,F3%,F4% 252 GOSUB 192 254 IF T%<>4% GOTO 264 256 ; CUR(G2%,20)"****************"; 258 ; CUR(G2%+2%,20)U8%-1%" F\RS\K " 260 ; CUR(23,1)"TRYCK TANGENT F\R NY OMG]NG"; 262 GET Q$ : GOTO 66 264 PRINT CUR(G2%,32)T%;R% 266 G2%=G2%+2% 268 IF G3%=1% GOTO 246 270 RETURN 272 END