%draw procs
proc drawObject1 (z, w : int)
    drawfillbox  (500 + z, 260 + w, 505 +z, 50 +w,yellow)

drawfilloval (500 + z, 270 + w, 10, 10, yellow)
drawfilloval (500 + z, 260 + w, 20, 10, grey)
end drawObject1

proc drawObject2 (z, w : int)
    drawfilloval(105 + (z + 2), 370 +(z + 2), 10, 10, grey)
end drawObject2

proc drawObject3 (z, w : int)
    drawoval (496 + z, 30 + w, 6, 4, white)
    drawline (495 + z, 25 + w, 495 + z, 18 + w, white)
    drawline (495 + z, 23 + w, 506 + z, 22 + w, white)
    drawline (495 + z, 23 + w, 506 + z, 22 + w, white)
    drawline (495 + z, 18 + w, 501 + z, 10 + w, white)
    drawline (495 + z, 18 + w, 486 + z, 10 + w, white)

end drawObject3

%use a buffer so it doesn't flicker like mad
setscreen ("offscreenonly")
var z, w := 0
loop
    %wipe screen
    drawfillbox (400, 50, 700, 280, black)
     drawfillbox (70, 400, 150, 600, black)
      drawfillbox (450, 0, 700, 50, white)


    z += 1
    w += 1
    if (z > maxx) then
        z := 0
    end if
    if (w > maxy) then
        w := 0
    end if

    %draw them in sequence
    drawObject1 (z, w)
    drawObject2 (z - z div 2, w + w div 4)
    drawObject3 (z + z div 4, w - w div 2)

    %view.update
    View.Update
end loop