10 REMDIVProgname MODXMIND
   20 REM Originally a One-Liner (from a  TAU disc I think) but I can't find it   again to credit the author. However,
   30 REM all text, colours, and twiddly  bits added by Paul Clucas (K6X) Oct.95
   40 MODE7
   50 *KEY10*EX. !BOOT|M
   60 PRINT'CHR$130"        * * * * * * * * * * *"
   70 PRINTCHR$131"         M A S T E R M I N D"
   80 PRINTCHR$130"        * * * * * * * * * * *"
   90 PRINT''CHR$131;"Find the four numbers. The"CHR$129"right-hand"'CHR$131"column shows how many are correct but"'CHR$131"in the wrong place, and the"CHR$130"left-hand"'CHR$131"column shows how many are correct and"
  100 PRINTCHR$131"in the correct place.  Sometimes, two"'CHR$131"or more numbers can be the same!"
  110 PRINT:PRINTCHR$133"  See how quickly you can find them":PRINT
  120 DIMa 4,g 4,t 4:FORI=1TO4:a?I=RND(10)+47:NEXT
  130 S%=1:REPEATPRINT,S%":"CHR$134" ";:B=0:FORI=1TO4:A=GET
  140 VDUA:E=A=a?I:g?I=-A*(E=0):t?I=-(E=0)*a?I
  150 B=B-E:NEXT:W=0:FORG=1TO4:FORT=1TO4:V=g?G
  160 E=(V=t?T)*(V>0):W=W+E:g?G=-V*(E=0)
  170 t?T=-(E=0)*t?T:NEXT,
  180 PRINTCHR$130B;" "CHR$129W:S%=S%+1:UNTILB=4
  190 IF B=4 AND S%<12 GOSUB 220 ELSE IF B=4 GOSUB 250
  200 GOTO110
  210 :
  220 PRINT'CHR$129CHR$136" AMAZING!"CHR$134CHR$137"You only took";CHR$129CHR$136S%-1CHR$134CHR$137"goes"'CHR$134"Call everyone else to see or they"'CHR$134"just won't believe it. Bet you won't"'CHR$134"find the next numbers so easily!"
  230 RETURN
  240 :
  250 PRINT'CHR$134"    Well done. You took ";S%-1" goes."''CHR$134"Press BREAK to return to the Menu or"'CHR$134"have another go and try to find the"'CHR$134"answer sooner this time."
  260 RETURN