var x, y, x1, y1 : int := 40
var key : array char of boolean


procedure hi
    loop
        Input.KeyDown (key)
        if key (KEY_TAB) then %shooting
            for g : 1 .. 60
                drawfilloval (x1, y1, 5, 5, purple)
                delay (10)
                drawfilloval (x1, y1, 5, 5, white)
                x1 := x1 + 5
                drawfilloval (x, y, 10, 10, black) %keeps the object on screen when while shooting
            end for
            drawfilloval (x, y, 10, 10, white) %removes the black left overs of the user decides to move around while shooting
            x1 := x %ray goes back to the position where it got shoot from or to the object
        end if
        %
        if key (KEY_UP_ARROW) then %up arrow
            y := y + 10
            y1 := y1 + 10
        end if

        if key (KEY_DOWN_ARROW) then %down arrow
            y := y - 10
            y1 := y1 - 10
        end if

        if key (KEY_LEFT_ARROW) then %left arrow
            x := x - 10
            x1 := x1 - 10
        end if

        if key (KEY_RIGHT_ARROW) then %right arrow
            x := x + 10
            x1 := x1 + 10
        end if
        drawfilloval (x, y, 10, 10, black) %object
        delay (50)
        drawfilloval (x, y, 10, 10, white) %clears the screen so it seems that the 'object' is moving
    end loop
end hi
process j
    var m, n : int := 200
    for i : 1 .. 3
        drawfilloval (m, n, 5, 5, yellow)
        m := m + 20
    end for
    loop
        if whatdotcolor (m, n) = purple then
            delay (50)
            drawfilloval (m, n, 5, 5, yellow)
        end if
    end loop
end j
fork j
hi