1 REM * USING COLOR & LOCATE *›2 REM * MICHAEL A. GREENSPAN *›10 S=51:GRAPHICS 3›20 A=35:B=10:X=0:Y=INT(RND(0)*19)+1:C=INT(RND(0)*15)+1›25 REM PLOT THE PADDLE›30 COLOR 1:SETCOLOR 0,C,8:PLOT A,B:PLOT A,B+1›35 REM MOVE THE PADDLE UP?›40 IF STICK(0)=14 THEN COLOR 4:PLOT A,B:PLOT A,B+1:B=B-1:IF B<0 THEN B=0›50 IF STICK(0)=14 THEN GOTO 30›55 REM MOVE THE PADDLE DOWN?›60 IF STICK(0)=13 THEN COLOR 4:PLOT A,B:PLOT A,B+1:B=B+1:IF B>19 THEN B=19›70 IF STICK(0)=13 THEN GOTO 30›75 REM PLOT THE BALL AND HOLD IT AT THAT LOCATION WHILE THE COMPUTER COUNTS FROM 1 TO S›80 COLOR 2:PLOT X,Y:FOR D=1 TO S:NEXT D›85 REM CHECK IF THE BALL HIT THE PADDLE›90 LOCATE X+1,Y,Z›95 REM MOVE BALL TO THE RIGHT IF IT HAS NOT REACHED THE END OF THE ROW›100 IF Z<>1 THEN IF X<=35 THEN COLOR 4:PLOT X,Y:X=X+1:GOTO 30›105 REM IT'S A MISS›110 IF Z<>1 THEN IF X>35 THEN MISS=MISS+1:? "HITS-";HIT;"  MISSES-";MISS:COLOR 4:FOR B=0 TO 19:PLOT 35,B:PLOT 36,B›120 IF Z<>1 THEN NEXT B:S=S+10:GOTO 20›125 REM IT'S A HIT›130 HIT=HIT+1:? "HITS-";HIT;"  MISSES-";MISS:S=S-10:COLOR 4:FOR B=0 TO 19:PLOT 35,B:PLOT 34,B:NEXT B:GOTO 20›