var x1, y1: int := 0

View.Set ("graphics;offscreenonly")

drawfillbox (0, 150, maxx, maxy, 100)

drawfillarc (330, 100, 350, 150, 0, 180, green)

drawfillbox (0, 40, 12, 50, white)
drawfillbox (0, 0, maxx, 100, grey)
drawfillbox (74, 40, 170, 50, white)
drawfillbox (250, 40, 346, 50, white)
drawfillbox (430, 40, 526, 50, white)
drawfillbox (610, 40, 706, 50, white)

var background : int := Pic.New (0, 0, maxx, maxy)

drawfilloval (100, 300, 200, 5, white)
drawfilloval (110, 306, 100, 2, white)
drawfilloval (120, 290, 100, 3, white)
drawfilloval (200, 350, 100, 5, white)

var clouds : int := Pic.New (0, 280, 306, 363)

var xpos1 : int := 1

for count : 1 .. maxx
    cls
    if xpos1 > maxx then
        xpos1 := 1
    end if

    Pic.Draw (background, 0, 0, picCopy)
    Pic.Draw (clouds, xpos1, 306, picMerge)

    delay (200)

    drawbox (xpos1, 280, 306, 363, 100)

    xpos1 := xpos1 + 2

    View.Update
end for
Pic.Free (clouds)