500   cls :poke 1,0:for x=0 to 63:poke $D900+(x*8)+1,0:poke $D900+(x*8)+2,$79
510   poke $D900+(x*8)+3,0:poke $D900+(x*8),65:next :poke $D000,63:cursor off 
520   poke $D6E0,1:poke $D6E2,70:poke $D6E4,70
530   for x=0 to 255:read y:poke $7900+x,y:next 
540   :
550   x=80:y=80:for n=0 to 63
560   poke $D900+(n*8)+6,y
570   poke $D900+(n*8)+7,0
580   poke $D900+(n*8)+4,x
590   poke $D900+(n*8)+5,0
600   x=x+20:if x>230:x=80:y=y+20:endif 
610   next 
620   :
630   poke 1,1
640   poke $D000+4,0:poke $D000+5,0:poke $D000+6,0
650   poke $D000+16,64:poke $D000+17,64:poke $D000+18,64
660   poke $D000+28,255:poke $D000+29,255:poke $D000+30,255:poke 1,0
670   :
680   lc=c:mouse a,b,c,a1,b1,c1
690   a=a*2:poke $D6E2,a:b=b*2:poke $D6E4,b
700   :
710   if a>511 poke $D6E3,2
720   else if a>255 poke $D6E3,1
730   else poke $D6E3,0
740   endif 
750   endif 
760   :
770   if b>255 poke $D6E5,1
780   else poke $D6E5,0
790   endif 
800   :
810   if lc<>c
820   x=0:y=c:for n=0 to 63
830   poke $D900+(n*8)+6,y
840   x=x+1:if x>7:x=0:y=y+20:endif 
850   next 
860   endif 
870   :
880   if a1=-1:poke 1,1:poke $D01E,(peek($D01E)+1):upd_rgb():endif 
890   if b1=-1:poke 1,1:poke $D01C,(peek($D01C)+1):upd_rgb():endif 
900   if c1=-1:poke 1,1:poke $D01D,(peek($D01D)+1):upd_rgb():endif 
910   goto 680
920   :
930   proc upd_rgb()
940   print "                     ";
950   for x=1 to 21:print chr$(2);:next 
960   print "r:";peek($D01E),"g:";peek($D01D),"b:";peek($D01C);
970   for x=1 to 21:print chr$(2);:next :poke 1,0
980   endproc 
990   :
2000  data 0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,1,7,7,1,0,0,1,1,7,7,7,1,0,0,0,0
2010  data 1,7,7,7,1,1,7,7,7,1,4,7,1,0,0,0,1,4,7,7,7,7,1,4,7,7,7,7,1,0,0,0
2020  data 0,1,4,7,7,7,7,7,7,7,1,7,7,1,0,0,0,0,1,4,7,7,7,7,1,7,7,1,7,1,0,0
2030  data 0,0,1,1,4,7,7,7,7,1,7,7,7,1,1,0,0,0,1,4,1,4,7,7,7,7,7,7,1,7,7,1
2040  data 0,0,1,4,4,4,7,7,7,7,7,7,7,7,7,1,0,0,0,1,4,4,4,7,7,7,7,7,7,4,1,0
2050  data 0,0,0,0,1,4,4,4,4,1,7,7,4,1,0,0,0,0,0,0,0,1,1,1,1,4,7,4,1,0,0,0
2060  data 0,0,0,0,0,0,0,1,4,4,4,1,0,0,0,0,0,0,0,0,0,0,0,1,4,4,1,0,0,0,0,0
2070  data 0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0