1 ' ** REBOUNDER ** By Robert Surridge COMPUTING WITH THE AMSTRAD August 1987 2 ' 10 CLS:PRINT "** REBOUNDER **":PRINT:PRINT"Hit the 'O' with the 'X' to score":PRINT:PRINT "Use: CURSOR KEYS= left/right/up/down":PRINT:PRINT"ANY KEY TO PLAY":CALL &BB18 20 MODE 1:WINDOW #1,2,39,2,22:FOR f=0 TO 999:PRINT CHR$(206);:NEXT:LOCATE 2,24:PRINT "Score       Hi-Score "h"  Time":CLS #1:y=4:x=4:t=9:u=9:c=999:s=0:w=1:z=1 30 IF x>38 THEN w=-INT(RND*2) ELSE IF x<3 THEN w=INT(RND*2) 40 IF y>21 THEN z=-INT(RND*2) ELSE IF y<3 THEN z=INT(RND*2) 50 LOCATE x,y:PRINT " ":x=x+w:y=y+z:LOCATE x,y:PRINT CHR$(230):FOR r=0 TO 9:NEXT:LOCATE u,t:PRINT " ":IF u=x AND y=t THEN s=s+10:SOUND 1,40:LOCATE 8,24:PRINT s 60 IF INKEY(2)=0 THEN t=t+1 ELSE IF INKEY(0)=0 THEN t=t-1 ELSE IF INKEY(8)=0 THEN u=u-1 ELSE IF INKEY(1)=0 THEN u=u+1 70 IF t=2 THEN t=t+1 ELSE IF t=22 THEN t=t-1 ELSE IF u=2 THEN u=u+1 ELSE IF u=39 THEN u=u-1 80 LOCATE u,t:PRINT CHR$(203):LOCATE 35,24:PRINT c:c=c-1:SOUND 1,c+9,9:IF c>0 THEN 30 90 SOUND 1,99,65:LOCATE 16,9:PRINT "GAME OVER":LOCATE 16,16:PRINT"space to play":IF s>h THEN h=s:LOCATE 23,24:PRINT h 100 IF INKEY(47)=0 THEN 20 ELSE 100