var chars : array char of boolean
var x1 : int := 1
var x2 : int := x1 + 10
var y1 : int := 1
var y2 : int := y1 + 10
var xv : real := 0
var yv : real := 0
var g : real := 1
var ground : boolean := true
setscreen ("graphics:450;450,offscreenonly,nobuttonbar,title:Testing Screen")
loop
    Input.KeyDown (chars)
    if chars ('w') and y2 < maxy and ground = true then
	yv += 8
    end if
    if chars ('a') and x1 > 0 then
	xv -= 1
    elsif chars ('d') and x2 < maxx then
	xv += 1
    elsif chars (KEY_ESC) then
	exit
    end if
    if y1 > 0 then
	yv -= g
    elsif y1 < 0 then
	yv := 0
	y1 := 0
    end if
    if xv > 0 then
	xv -= 0.5
    elsif xv < 0 then
	xv += 0.5
    end if
    if x1 < 0 then
	x1 := 0
	xv := 0
    elsif x2 > maxx then
	x1 := maxx - 10
	xv := 0
    end if
    if y2 > maxy then
	y1 := maxy - 10
	yv := 0
    end if
    if y1 = 0 then
	ground := true
    else
	ground := false
    end if
    x1 += round(xv)
    y1 += round(yv)
    x2 := x1 + 10
    y2 := y1 + 10
    Draw.FillBox (x1, y1, x2, y2, black)
    Draw.FillBox (0, 0, 450, 450, cyan)
    Draw.FillBox (70, 0, 120, 80, black)
    Draw.FillBox (200, 0, 250, 100, black)
    Draw.FillBox (320, 0, 450, 100, blue)
    var font : int
    font := Font.New("serif:18")
    Draw.Text ("FINISH", 350, 35, font, white)
    Font.Free(font)
    Draw.FillBox (x1 - 1, y1 - 1, x2 + 1, y2 + 1, white)
    locate(1, 1)
    View.Update
    delay (10)
    cls
end loop