setscreen ("graphics:630;420, Title: Pong?")
var x, y, x1, y1, a, b, a1, b1,oy,ox,os: int
var chars : array char of boolean
var nx,ny:int:=1 % changes direction of ball and checks boundries
colorback (255)
x := 10
y := 10
x1 := 20
y1 := 100
a := 10
b := 10
a1 := 20
b1 := 100
oy:=200
ox:=170
os:=10
ox := Rand.Int (10, 100) %set the x quadrant for the 1st oval
oy := Rand.Int (10, 100) %set the y quadrant for the 1st oval


loop
   
   
    /* omit if ox <= 0 then %check to see if it goes off to the left
        nx := +1 %chages the direction */
    if oy <= 0 then %check to see if it goes off the top
        ny := +1 %chages the direction
    end if

    /* omitif ox >= maxx then %check to see if it goes off to the right
        nx := - 1 %chages the direction */
    if oy >= maxy then %check to see if it goes off the bottom
        ny := - 1 %chages the direction
    end if
   
        if ox <= a then
        nx := +1
    elsif oy <= b then
        nx:= +1
        end if

    Input.KeyDown (chars)
   

    if chars ('w') then
        y := y + 5
        y1 := y1 + 5
    end if
    if chars ('s') then
        y := y - 5
        y1 := y1 - 5
    end if

    drawfillbox (x, y, x1, y1, brightgreen)
    drawfillbox (a + 600, b, a1 + 600, b1, brightred)
    drawfilloval (ox,oy,os,os,brightblue)
    delay (10)
    cls


    Input.KeyDown (chars)

    if chars (KEY_UP_ARROW) then
        b := b + 5
        b1 := b1 + 5
    end if
    if chars (KEY_DOWN_ARROW) then
        b := b - 5
        b1 := b1 - 5
    end if
    ox += nx
    oy += ny
 
end loop