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

---

Back to previous page