5000 REM SUBROUTINE TO FIND COLORS›5010 REM * USE THIS TO ADJUST COLORS›5020 REM * TO YOUR MONITOR OR TV›5030 REM * INSERT LINE "505 GOTO 5000"›5040 REM * PLACE NEW VALUES IN BAND(A)›5050 GOSUB 1020›5060 REM * UP/DOWN FOR SMALL CHANGE›5070 REM * LEFT/RIGHT FOR LARGE CHANGE›5080 REM * BUTTON FOR EXTRA BIG CHANGE›5090 REM * VALUE FOR COLOR WILL APPEAR›5100 REM * IN THE WINDOW›5110 ? "}"›5120 S=STICK(0)›5130 IF STRIG(0)=0 THEN BC=BC+50:GOTO 5190›5140 IF S=15 THEN 5120›5150 IF S=14 THEN BC=BC+1›5160 IF S=13 THEN BC=BC-1›5170 IF S=11 THEN BC=BC+10›5180 IF S=7 THEN BC=BC-10›5190 IF BC<0 THEN BC=255›5200 IF BC>255 THEN BC=0›5210 POKE COL1,BC›5220 ? :? :? BC›5230 GOTO 5120›