List stats_joueur
Str nom_joueur
Var xp
Var x(X), y(Y)
Var key
Var play
Mat map

x = 11
y = 4
play = 1 #true

While(play)
  key = Getkey()
  If key == KEY_EXIT Then play = 0 IfEnd 
WhileEnd