var x, y, x2, y2, x22, y22, x222, y222, ballx, bally : int

x := 10
y := 270
x2 := 20
y2 := 175
x22 := 620
y22 := 270
x222 := 630
y222 := 175
ballx := maxx div 2
bally := maxy div 2
var rad1, rad2 : int := 6
var DX, DY : int := 4






colourback (black)

var chars : array char of boolean

loop

    ballx := ballx + DX    %w
    bally := bally + DY    %z
    Input.KeyDown (chars)

    if chars ('w') then
        y := y + 5
        y2 := y2 + 5
    end if

    if chars ('s') then
        y2 := y2 - 5
        y := y - 5
    end if

    if chars (KEY_UP_ARROW) then
        y22 := y22 + 5
        y222 := y222 + 5
    end if

    if chars (KEY_DOWN_ARROW) then
        y222 := y222 - 5
        y22 := y22 - 5
    end if

    if y > 395 then
        y := y - 5
        y2 := y - 95
    end if

    if y2 <= 1 then
        y := y2 + 95
        y2 := y2 + 5
    end if

    if y22 > 395 then
        y22 := y22 - 5
        y222 := y22 - 95
    end if

    if y222 <= 1 then
        y22 := y222 + 95
        y222 := y222 + 5
    end if

    if ballx + 6 >= 10 and ballx - 6 <= 20 and bally >= y - 85 and bally <= y + 85 then
        DX := (-1) * DX
    end if

    if ballx + 6 >= 620 and ballx - 6 <= 630 and bally >= y - 30 and bally <= y + 30 then
        DX := (-1) * DX
    end if

    if ballx >= maxx - 6 then
        DX := -3
    end if
    if bally >= maxy - 6 then
        DY := -3
    end if

    drawfilloval (ballx, bally, rad1, rad2, white)
    drawfillbox (x, y, x2, y2, 0)
    delay (10)
    cls
    drawfilloval (ballx, bally, rad1, rad2, black)
    drawfillbox (x22, y22, x222, y222, 0)




end loop