colourback (grey)
cls
var ch:string (1)
var cx,cy,x,y:int :=0
var s,g:int := 0
var e,m,d,l:string
e:="Easy"
m:="Medium"
d:="Hard"
Text.Locate (10,30)
put ("Select Difficulty:")
Text.Locate (11,35)
put e
Text.Locate (11,39)
put (" - 1")
Text.Locate (12,35)
put m
Text.Locate (12,41)
put (" - 2")
Text.Locate (13,35)
put d
Text.Locate (13,39)
put (" - 3")
Text.Locate (14,28)
put ("Enter Difficulty Number:")
Text.Locate (15,39)
get g

cls
Text.Locate (8,20)
put ("Instructions: Use the arrow keys to direct your snake")
Text.Locate (9,20)
put ("to the GREEN apples, but watch out for the poisnous")
Text.Locate (10,20)
put ("RED apples. Eat a red apple and its game over for you")
delay (5000)
cls

for i: 1 .. maxx by 20
    drawline (i,0,i,400,white)
end for
for h: 1 .. maxy by 20
    drawline (0,h,750,h,white)
end for

randint (cx,1,120)
randint (cy,1,75)

proc screen
if
    g = 1
    then l := e
end if
if
    g = 2
    then l := m
end if
if
    g = 3
    then l := d
 end if

put ("Score:")
Text.Locate (1,8)
put s
Text.Locate (1,65)
put ("Level:")
Text.Locate (1,73)
put l
drawfilloval (cx * 5, cy * 5, 5, 5,green)
end screen
screen

proc snake
for x: 293 .. 321 by 14
    drawfilloval (x,y+200,7,7,black)
end for
end snake
snake

View.Set ("offscreenonly")

var input : array char of boolean
var x, y : int := 200
var direction : string := "right"

loop
    Input.KeyDown (input)
    if input (KEY_RIGHT_ARROW) then
        direction := "right"
    elsif input (KEY_LEFT_ARROW) then
        direction := "left"
    elsif input (KEY_UP_ARROW) then
        direction := "up"
    elsif input (KEY_DOWN_ARROW) then
        direction := "down"
    end if
    if direction = "right" then
        x += 1
    elsif direction = "left" then
        x -= 1
    elsif direction = "up" then
        y += 1
    elsif direction = "down" then
        y -= 1
    end if
    Draw.FillOval (x, y, 10, 10, 7)
    delay (5)
    View.Update
    cls
end loop

View.Set ("offscreenonly")

const UP := 0
const DOWN := 1
const LEFT := 2
const RIGHT := 3

var input : array char of boolean
var x, y := 200
var dir := RIGHT
var dirs : array 0 .. 3 of char
dirs (UP) := KEY_UP_ARROW
dirs (DOWN) := KEY_DOWN_ARROW
dirs (LEFT) := KEY_LEFT_ARROW
dirs (RIGHT) := KEY_RIGHT_ARROW

loop
    Input.KeyDown (input)
    for i : 0 .. upper (dirs)
        if input (dirs (i)) then
            dir := i
            exit
        end if
    end for
    if dir = UP then
        %action for going right
        y += 1
    elsif dir = DOWN then
        %action for going left
        y -= 1
    elsif dir = LEFT then
        %action for going up
        x -= 1
    elsif dir = RIGHT then
        %action for going down
        x += 1
    end if
    Draw.FillOval (x, y, 10, 10, 7)
    Time.DelaySinceLast (5)
    View.Update
    cls
end loop

if dir = UP then
    %action for going up
    y += 1
elsif dir = DOWN then
    %action for going down
    y -= 1
elsif dir = LEFT then
    %action for going left
    x -= 1
elsif dir = RIGHT then
    %action for going right
    x += 1
end if