10 CLS: CURSOR 0: DELAY(100) 

30 GOSUB 4000

40 GOSUB 6000

50 A=3: B=1: X=30: Y=100

100 ' main loop

110 FOR I=1 TO 2

120 G=INT(AREAD(27)*4/107)

130 Z=INT(AREAD(26)*8/214)

140 IF F!=G GOSUB 5000

150 IF W!=Z GOSUB 6000

180 X=X+A: Y=Y+B: F=G: W=Z

190 IF Y<15 B=-B: Y=Y+2*B

200 IF Y>182 B=-B: Y=Y+2*B

220 N=GET(X+8,Y+2)+GET(X+8,Y-2)

230 M=GET(X-8,Y+2)+GET(X-8,Y-2)

240 IF N+M!=60 GOSUB 1000

250 ELIPSE 15,P,Q,16,6,15

260 ELIPSE 10,X,Y,16,6,10

262 IF R>0 TONE 880,10: GOSUB 5000

264 IF L>0 TONE 1000,10: GOSUB 6000 

270 'point 0,x+8,y+2: point 0,x+8,y-2: 'POINT 2,X,Y+4

280 'point 1,x-8,y+2: point 1,x-8,y-2: 'POINT 2,X,Y-4

290 P=X: Q=Y: F=G: W=Z

300 I=1

310 NEXT I

990 ' end of main loop 

1000 ' check for ball hitting something 

1030 IF X<29 A=-A: GOSUB 4000

1040 IF X>606 A=-A: GOSUB 4000

1050 IF N=11 A=-A: R=2

1060 IF N=22 A=-A: R=2

1070 IF M=9 A=-A: L=2

1080 IF M=18 A=-A: L=2

2990 RETURN 

4000 ' draw border

4010 LINE 8,10,9,626,9,4

4020 LINE 8,14,8,14,187,8

4030 LINE 8,622,8,622,187,8

4040 LINE 8,10,187,626,187,4

4050 RETURN 

5000 ' draw right pad

5010 RECTANGLE 15,15,606,F+12,616,F+32,1

5020 RECTANGLE 11,11,606,G+12,616,G+32,1

5030 R=R-1

5040 RETURN

6000 ' draw left pad 

6010 RECTANGLE 15,15,18,W+12,28,W+32,1

6020 RECTANGLE 9,9,18,Z+12,28,Z+32,1

6030 L=L-1

6040 RETURN