View.Set ("offscreenonly")
View.Set ("graphics:600;800,position:centre;center,nobuttonbar")
procedure bacground
    %Border1
    drawfillbox (90, 0, 100, maxy, grey)
    %Border2
    drawfillbox (500, 0, 510, maxy, grey)


    %Background
    drawfillbox (100, 0, 500, maxy, black)

    %Perfect Target Zone
    drawfillbox (100, 80, 500, 90, red)


    %Control 1
    drawfillbox (100, 20, 200, 40, yellow)
    %Control 2
    drawfillbox (200, 20, 270, 40, blue)
    %Control 3
    drawfillbox (330, 20, 400, 40, blue)
    %Control 4
    drawfillbox (400, 20, 500, 40, yellow)
    %Spacebar
    drawfillbox (100, 1, 500, 20, green)
    %spacebar mid filler
    drawfillbox (270, 20, 330, 40, green)


    %Border separating controls
    drawfillbox (100, 40, 500, 43, grey)

    %control 1 border
    drawbox (100, 20, 200, 40, black)
    %control 2 border
    drawbox (200, 20, 270, 40, black)
    %control 3 border
    drawbox (330, 20, 400, 40, black)
    %Control 4 border
    drawbox (400, 20, 500, 40, black)

    %Top of space bar
    %Right side
    drawfillbox (100, 0, 100, 20, black)
    %Left Side
    drawfillbox (500, 0, 500, 20, black)
    %bottom of space bar
    drawfillbox (100, 1, 500, 1, black)
    %bottom
    drawfillbox (100, 0, 500, 0, grey)
end bacground

for decreasing y : 801 .. -20 by 25
    drawfillbox (100, y, 500, y + 19, green)
    View.Update
    delay (70)
    bacground
end for



loop
for decreasing y : 800 .. -20 by 25
    drawfillbox (100, y + 20, 200, y + 40, yellow)
    View.Update
    delay (70)
    bacground
end for


for decreasing y1 : 800 .. -20 by 25

    drawfillbox (200, y1 + 20, 270, y1 + 40, blue)
    View.Update
    delay (70)
    bacground
end for



for decreasing y2 : 800 .. -20 by 25
    drawfillbox (330, y2 + 20, 400, y2 + 40, blue)
    View.Update
    delay (70)
    bacground
end for



for decreasing y2: 800.. -20 by 25
    drawfillbox (400, y2 + 20, 500, y2 + 40, yellow)
    View.Update
    delay (70)
    bacground
end for

end loop