% Mr. M

% January 9, 2000

% Bouncing ball with paddle (classic Pong)

setscreen("graphics:vga")

randomize

var cdfx,cdfy:int:=15

var x,y,mx,my,b,lx,ly:int

lx:=200

ly:=125

randint(x,100,539)

randint(y,10,379)

loop

x:=x+cdfx

y:=y+cdfy

drawoval(x,y,10,10,14)

delay(10)

drawoval(x,y,10,10,0)

if x < 100 or x > 539 then

cdfx:=cdfx * -1

end if

if y < 10 or y > 379 then

cdfy:=cdfy * -1

end if

if ((x>lx-20 and x<lx+20) and y<ly+10) then

cdfy:=cdfy * -1

end if

drawline(lx+20,ly,lx-20,ly,0)

mousewhere(mx,my,b)

lx:=mx

drawline(lx+20,ly,lx-20,ly,4)

end loop