dMASTER n 1100L x" MASTERMIND" #T=4:1400x:2800 A(3) B(3) Y1=0:T1=255 M=0:I=1 3 N=9 :1300 A(I)=R I-1=0 240 !F=0:J=1 I-1 A(I)=A(J) F=1 J:F=1 190 M=10 *M+A(I):I I=1 20  2800 :"GUESS NUMBER ";(I) :"ENTER GUESS "; " 21004 ,&K<111o K>999 260 6B(1)=(K/100d) @5B(2)=((K-100d*(K/100d))/10 ) J%B(3)=K-10 *(K/10 ) TC=0:D=0 ^J=1 2 hA(J)B(J+1) 380| r C=C+1 |A(J+1)B(J) 400  C=C+1 J #A(1)B(3) 430  C=C+1 #A(3)B(1) 450  C=C+1 J=1 3 A(J)B(J) 480  D=D+1 J D=3 610b C=0 520 :(C);" WRONG POSITION" D=0 540 :(D);" CORRECT" C+D0 5600 &:"NOTHING CORRECT" 0T=2:1400x :I D:"THAT'S 20 GUESSES" N:"NUMBER WAS ";(M) X 620l b:"YOU GOT IT !" l SPECTRUM SUBROUTINES L1W=32 :D=22:F=8:1200: :8,0;: R=(N*+1): xZ=1 200*T:Z: ""1500 =""1510 G$=: @K$=:  Y,X;:  (X);: l(11 );: (9 );: 42200:K=("0"+K$): K$="" !1500:(G$)=13 : ,(G$)12 K$=K$+G$:G$;:2210 (K$)=0 2210 @(8);" ";(8);:K$=K$( ̱(K$)-1):2210 : `.1}L,Z/10 -6: R$=(R+64@): ( P$=K$(P): 2600( :A=(P$): : TV$(26): W$(60<,26):  GG=(G$):