Draw.Line (0, 320, 66, 320, blue)
Draw.Line (65, 320, 65, 220, blue)
Draw.Line (66, 220, 200, 220, blue)
Draw.Line (199, 220, 199, 100, blue)
Draw.Line (200, 100, 340, 100, blue)
Draw.Line (339, 44, 339, 100, blue)
Draw.Line (200, 100, 340, 100, blue)
Draw.Line (44, 400, 44, 400, blue)
Draw.Line (390, 44, 340, 44, blue)
Draw.Line (390, 44, 390, 0, blue)

Draw.Line (50,0,50,50)
Draw.Line (50,50,100,50)
Draw.Line (100,50,100,100)

%Stairs
Draw.Line (50,0,50,50,1)
Draw.Line (50,50,100,50,1)
Draw.Line (100,50,100,100,1)
Draw.Line (100,100,150,100,1)
Draw.Line (150,150,150,100,1)
Draw.Line (200,150,150,150,1)
Draw.Line (200,200,200,150,1)
Draw.Line (200,200,300,200,1)

%Bouncing Ball
for i: 1..30
Draw.FillOval (800 +i,400 + i,9,9,blue)
delay(10)
Draw.FillOval (100 + i,400 + i,9,9,0)
end for

for i: 1..50
Draw.FillOval (150 +i,300 +i,9,9,blue)
delay(10)
Draw.FillOval (150 + i,300 + i,9,9,0)
end for

for i: 1..50
Draw.FillOval (350 +i,200 +i,9,9,blue)
delay(10)
Draw.FillOval (350 + i,200 + i,9,9,0)
end for
for decreasing i: 50..1
Draw.FillOval (550 +i,100 +i,9,9,blue)
delay(10)
Draw.FillOval (350 + i,100 + i,9,9,0)
end for

setscreen ("graphics")
%Stairs
proc drawstairs  % calls a draw procedure so stairs don't get wiped by cls
Draw.Line (50,0,50,50,1)
Draw.Line (50,50,100,50,1)
Draw.Line (100,50,100,100,1)
Draw.Line (100,100,150,100,1)
Draw.Line (150,150,150,100,1)
Draw.Line (200,150,150,150,1)
Draw.Line (200,200,200,150,1)
Draw.Line (200,200,300,200,1)
end drawstairs
%Bouncing Ball
for decreasing i : 200..155
drawstairs
drawfilloval (1 + i,1 + i, 9, 9, blue)
delay (20)
cls
View.Update
end for

for j : 1..5
drawstairs
drawfilloval (155 - j,155 + j, 9, 9, blue)
delay (20)
cls
View.Update
end for

for decreasing i : 165..115
drawstairs
drawfilloval (-15 + i,1 + i, 9, 9, blue)
delay (20)
cls
View.Update
end for

setscreen ("graphics,offscreenonly")
%Stairs
var x, y, vy, vx : real := 0
var number_of_stairs := 8
var platform : boolean := false % checks to see if the ball is hitting stairs
const grav := 0.098
const bounce := 0.65
x := 300
y := 400
vx := -0.5
proc drawstairs
    for a : 1 .. number_of_stairs
        Draw.ThickLine (50 * a, 50 * a, 50 + 50 * a, 50 * a, 10, black)
        Draw.ThickLine (50 * a, 0 + 50 * (a - 1), 50 * a, 50 * a, 10, black)
    end for
end drawstairs
proc drawball
    Draw.FillOval (round (x), round (y), 5, 5, red)
end drawball
proc collision
    if whatdotcolor (round (x + 5), round (y - 5)) not= black and platform = false then
        vy -= grav
    end if
    if whatdotcolor (round (x + 5), round (y - 5)) = black then

        vy := -vy
        vy *= bounce
    end if
    if whatdotcolor (round (x + 5), round (y - 7)) = black then
        y += 0.5 % makes sure ball doesn't fall into the stairs
        platform := true
    else
        platform := false
    end if
end collision
proc moveball
    y += vy
    x += vx
end moveball
%Bouncing Ball
loop
    cls
    drawstairs
    drawball
    collision
    moveball
    View.Update
    delay (10)
end loop