; GraphicsHeight Example
; ----------------------

Graphics 640,480,0,2
SetBuffer BackBuffer()

y#=100
vy#=4

While Not KeyDown(1)

    Cls

    ; The ball bounces off the edges reported by GraphicsHeight
    y=y+vy
    If y<0 Or y>GraphicsHeight()-40 Then vy=-vy
    Color 0,255,128
    Oval 300,y,40,40,1

    Color 255,255,255
    Text 0,0,"Esc: exit"
    Text 0,20,"GraphicsHeight() = "+GraphicsHeight()+" - the ball turns round at that y"

    Flip

Wend

End