0 print"{clr}"
    2 poke59468,12
    5 zr$=chr$(13)+"{up}                                      {up} "
   10 gosub5000
   20 print
   30 print"the colours are:
   40 print"red,blue,green,yellow,orange,purple
   50 print:print"the rules are as for {rvon}mini mastermind{rvof} by 'invicta'"
   60 print:print"{rvon}Z{rvof} =black pegs,Z =white."
   63 print:print:print
   65 print"(use ";chr$(34);"r,b,g,y,o,p";chr$(34)" for the colours)"
   70 print"                  e.g.:-  rbop"
   80 forb=1to4
   90 c=int(rnd(b)*6)+1
  100 on c gosub200,300,400,500,600,700
  110 next
  111 print
  120 goto800
  200 c$(b)="r":return
  300 c$(b)="b":return
  400 c$(b)="g":return
  500 c$(b)="y":return
  600 c$(b)="o":return
  700 c$(b)="p":return
  800 print"what is guess ";:n=n+1:printn"   ";
 1000 inputc$:print"{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1005 iflen(c$)>4orlen(c$)<4thenprintzr$:n=n-1:goto800
 1010 fora=1to4
 1020 a$(a)=mid$(c$,a,1)
 1021 q$=a$(a)
 1025 ifasc(q$)<64orasc(q$)>910thenprintzr$:n=n-1:goto800
 1030 next
 1040 fora=1to4
 1050 ifa$(a)=c$(a)thenprint"{rvon}Z{rvof}";:g=g+1:f(a)=1:g(a)=1
 1060 next
 1090 gosub3000
 1091 ifg=4then1100
 1092 g=0:goto800
 1100 print"{down}{down}you got it;you took "n" try";:ifn<>1thenprint"{left}ies
 2000 print
 2010 print"type 1 to go again
 2015 n=0
 2020 geta$:ifa$=""then2020
 2030 ifa$="1"thenprint"{clr}":goto20
 2040 end
 3000 fora=1to4
 3010 forb=1to4
 3020 ifa$(a)=c$(b)andf(a)=0andg(b)=0andh<4thenprint"Z";:h=h+1:f(a)=1:g(b)=1
 3030 nextb
 3040 nexta
 3050 h=0:fora=1to4:f(a)=0:g(a)=0:next
 3190 print
 4000 return
 5000 print"       ****mastermind****"
 5005 print"           {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 5010 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}by d.j.wylie"
 5020 print"{down}{down}"
 5040 return