10 REM THE FLUID BRUSH ›20 REM ›30 REM ›40 REM GO SET UP CONDITI0NS›50 REM ›60 GOSUB 1000›120 REM ›140 REM ›150 COLOR 4:PLOT X,Y›160 S=100*STRIG(0)›170 FOR I=1 TO 5:NEXT I›180 COLOR R:PLOT X,Y›190 REM ›200 IF S=0 THEN COLOR 4:PLOT X,Y:COLOR R›220 REM ›230 REM MOVE DOT IF JOYSTICK MOVED›240 REM ›250 J=STICK(0)›260 Y=Y+YD(J)›270 X=X+XD(J)›280 TRAP 3000›290 PLOT X,Y›300 IF PEEK(764)<>255 THEN GOSUB 4000›310 GOTO 150›970 REM ›980 REM SET UP CONDITIONS ›990 REM ›1000 GRAPHICS 7›1010 X=90›1020 Y=48›1030 C=0›1040 L=10›1050 R=1›1060 SETCOLOR R-1,C,L›1070 COLOR 1›1080 PLOT X,Y›1090 OPEN #1,4,0,"K:"›1100 DIM XD(15),YD(15)›1110 FOR I=1 TO 15›1120 READ N:XD(I)=N›1130 READ N:YD(I)=N›1140 NEXT I›1150 RETURN ›2000 DATA 0,0,0,0,0,0,0,0›2010 DATA 1,1,1,-1,1,0,0,0›2020 DATA -1,1,-1,-1,-1,0,0,0›2030 DATA 0,1,0,-1,0,0›2970 REM ›2980 REM CATCH MOTION OFF THE SCREEN ›2990 REM ›3000 Y=Y+(Y<0)-(Y>79)›3010 X=X+(X<0)-(X>159)›3020 GOTO 280›3970 REM ›3980 REM CHANGE COLOR ›3990 REM ›4000 GET #1,R›4010 IF (R<49)+(R>51) THEN 4000›4020 R=R-48›4030 COLOR R›4040 POKE 656,2›4050 PRINT "COLOR    <-<-<-<-"›4060 INPUT C›4070 SETCOLOR R-1,C,L›4080 RETURN ›