home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 December
/
1993-12.d64
/
mastermind.pp
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
338b
|
9 lines
5 print"[147]":poke53280,6:poke53281,6
10 l=4:r=6:for i=1tol:d(i)=int(rnd(0)*r+1): d=d*10+d(i):next:z=1:goto30
20 z=z+1:print"b="b"w="w
30 print"guess="z:input x:print"[145]",:fori=lto1step-1:y=int(x/10):g(i)=x-y*10:x=y
40 next:w=0:b=0:for i=1tol:f(i)=d(i):if g(i)=f(i)then f(i)=0:g(i)=-1:b=b+1
50 next:for j=1tol:for i=1tol:if f(j)=g(i)then f(j)=0: g(i)=-1:w=w+1
60 next:next:if b<l then 20
70 print"correct!":end