setscreen ("nobuttonbar")
var chars : array char of boolean
var x, y : int := 10
var direction : string := "up"
var change : int := 0
var foodx : int := 325
var foody : int := 205
var count : int := 0
var lvl, speed : int
put "Enter the level of difficulty"
get lvl
if lvl = 1 then
    speed := 90
elsif lvl = 2 then
    speed := 60
elsif lvl = 3 then
    speed := 30
end if
setscreen ("graphics,offscreenonly,nobuttonbar")
loop
    drawfillbox (x, y, x + 10, y + 10, black)
    View.Update
    cls
    exit when hasch
end loop
loop
    locate (1, 40)
    put "Score ", count
    Input.KeyDown (chars)
    if chars (KEY_UP_ARROW) and not direction = "down" then
        direction := "up"
    elsif chars (KEY_DOWN_ARROW) and not direction = "up" then
        direction := "down"
    elsif chars (KEY_RIGHT_ARROW) and not direction = "left" then
        direction := "right"
    elsif chars (KEY_LEFT_ARROW) and not direction = "right" then
        direction := "left"
    end if
    if x = 0 or x = maxx + 1 then
        exit
    end if
    if y = 0 or y = maxy + 1 then
        exit
    end if
    if direction = "up" then
        y := y + 10
    elsif direction = "down" then
        y := y - 10
    elsif direction = "right" then
        x := x + 10
    elsif direction = "left" then
        x := x - 10
    end if
    drawfilloval (foodx, foody, 5, 5, brightred)
    drawfillbox (x, y, x + 10, y + 10, black)
    if whatdotcolor (foodx, foody) not= brightred then
        count := count + 10 * (lvl)
        randint (foodx, 1, maxx)
        randint (foody, 1, maxy)
    end if
    delay (speed)
    View.Update
    cls
end loop
put "Game Over"

var NAME : flexible array 1 .. 0 of string
loop
    cls
    new NAME, upper (NAME) + 1
    get NAME (upper (NAME))
    put upper (NAME), ": ", NAME (upper (NAME))
end loop