var checkLeft, checkRight, checkUp, checkDown : boolean := false
var x, xp1, xp2, xp3, xp4, xp5 : int := 345
var y, yp1, yp2, yp3, yp4, yp5 : int := 210

var wacky : int
var chars : array char of boolean
View.Set ("offscreenonly")
wacky := Pic.FileNew ("Wacky Background.jpg")


loop
Pic.Draw (wacky, 0, 0, picCopy)
    if x > maxx - 2 then
        exit
    elsif x < 2 then
        exit
    end if
    if y > maxy - 2 then
        exit
    elsif y < 2 then
        exit
    end if
    drawline (0, 0, 0, 399, 7)
    drawline (0, 0, 639, 0, 7)
    drawline (0, 399, 639, 399, 7)
    drawline (639, 0, 639, 399, 7)

    drawline (50, 50, 150, 50, 3)
    drawline (50, 50, 50, 150, 3)
    drawline (50, 150, 150, 150, 3)
    drawline (150, 150, 150, 50, 3)

    Input.KeyDown (chars)



    if chars (KEY_UP_ARROW) and checkUp = true then
        xp1 := x
        xp2 := x
        yp1 := y
        yp2 := y - 5
        y := y + 5
        checkLeft := false
        checkRight := false
        checkDown := false

    end if
    if chars (KEY_RIGHT_ARROW) and checkRight = true then
        yp1 := y
        yp2 := y
        xp1 := x
        xp2 := x - 5
        x := x + 5
        checkLeft := false
        checkUp := false
        checkDown := false
    end if
    if chars (KEY_LEFT_ARROW) and checkLeft = true then
        yp1 := y
        yp2 := y
        xp1 := x
        xp2 := x + 5
        x := x - 5
        checkRight := false
        checkUp := false
        checkDown := false
    end if
    if chars (KEY_DOWN_ARROW) and checkDown = true then
        xp1 := x
        xp2 := x
        yp1 := y
        yp2 := y + 5
        y := y - 5
        checkLeft := false
        checkUp := false
        checkRight := false
    end if
    if x > 49 and x < 151 and y > 49 and y < 151 then
        exit
    end if


    drawfilloval (x, y, 4, 4, blue)
    drawfilloval (xp1, yp1, 4, 4, blue)
    drawfilloval (xp2, yp2, 4, 4, blue)
    delay (30)
View.Update
    cls

    checkDown := true
    checkUp := true
    checkRight := true
    checkLeft := true

end loop

loop
    loop
        %Game code
        exit when gamefinish = true
    end loop
    put "Continue?"
    if answer = 'y' then
        %Reset code
    elsif answer = 'n' then
        exit
    end if
end loop