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