var xx, yy, xd, yd, size, xxx, yyy, dir, mx, my, mb : int
var g : boolean := true
var chars : array char of boolean


xd := 0
yd := 0

xx := 20
yy := 20

size := 4
dir := 2

var x, y :  array 1 .. size of int


x (1) := 10
y (1) := 10








View.Set ("offscreenonly;graphics:600;400")
loop

    Input.KeyDown (chars)
    Mouse.Where (mx, my, mb)


    for decreasing i : size .. 2

        x (i) := x (1)
        y (i) := y (1)

% area that doesn't work---------------------------------

            x (i) := x (i - 1)
            y (i) := y (i - 1)


        put size

        put i
        View.Update
        Text.Locate (1, 1)
        drawfillbox (x (i), y (i), x (i) + 20, y (i) + 20, green)



    end for
    %keys for control
    if chars ('w') then
        dir := 1

    elsif chars ('a') then
        dir := 4


    elsif chars ('s') then

        dir := 3

    elsif chars ('d') then

        dir := 2


    end if

    if dir = 1 then
        y (1) := y (1) + 20
    elsif dir = 2 then
        x (1) := x (1) + 20
    elsif dir = 3 then
        y (1) := y (1) - 20
    elsif dir = 4 then
        x (1) := x (1) - 20
    end if

    drawfillbox (x (1), y (1), x (1) + 20, y (1) + 20, black)
    View.Update
    cls
    delay (100)
end loop