-----------------------------------

josh_65665

Sun Mar 09, 2008 3:45 pm


snake game

-----------------------------------

View.Set ("graphics:800;600")

var KEY : string (1)
var XPOS, YPOS : int := 300
var XDIR, YDIR : int := 0
var LOSE : int := 0
var SCORE : int := 0
var ss : int := 0
var HARDNESS : int := 0



put "enter difficulty level 1 to 5 "
get HARDNESS
if HARDNESS > 5 then
    HARDNESS := 5
elsif HARDNESS