Progmation jeux

Bonjour,

Voila j'essaye d'apprendre quelque base de programmation pour me divertir, et j'ai essayer de faire un petit jeux d'arcade, c'est un tuto que j'ai trouver sur le net...
j'ai tout bien vérifier mais rien ne ce passe je comprend pas si quelqu'un pourrait me donner la solution :)
voici le code :

'
'ETAPE 1: Mettre en place la fenêtre graphique
'
'Donner les dimensions de la fenetre
WindowWidth=400
WindowHeight=430
'La fenetre doit apparaitre au centre de l'ecran
UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
UpperLeftY=Int((DisplayHeight-WindowHeight)/2)
'Ouvrir la fenetre et attendre
open "Space War I" for graphics_nsb as #game
#game, "trapclose [quit]"
'
'ETAPE 2: Afficher Background et Sprites dans la fenêtre
'
'charger tout les bitmap en memoire
loadbmp "bg", "space.bmp"
loadbmp "explo1", "explo1.bmp"
loadbmp "explo2", "explo2.bmp"
loadbmp "explo3", "explo3.bmp"
loadbmp "explo4", "explo4.bmp"
loadbmp "explo5", "explo5.bmp"

#game, "background bg"
#game, "addsprite explo explo1 explo2 explo3 explo4 explo5"
'Afficher l'explosion a peu prés au centre de la fenêtre
#game, "spritexy explo 500 500"
'Cycler la liste d'explosions
#game, "cyclesprite explo 1"
'
'ETAPE 3: Animer l'explosion
'
'Initialiser d'abord toutes les variables
exploactive=0
explocount=0

'Régler le timer a 100 millisecondes
timer 100, [Timer_routines]
'
'ETAPE 4: Contrôler le clavier
'
#game, "setfocus"
#game, "when characterInput [control_touche]"
wait

[control_touche]
if Inkey$="" then gosub [exploser]

'Toutes les routines qui doivent être exécutées
'tous les dixièmes de seconde
[Timer_routines]
gosub [control_explo]
gosub [draw]
wait
'
'ETAPE 5: Terminer le programme
'
[quit]
close #game
end
'
'ROUTINES
'
'
'Afficher une explosion si il n'y en a pas deja une en cours
[exploser]
if exploactive = 0 then
#game, "spritexy explo 180 190"
'indiquer maintenant qu'une explosion est en cours
exploactive=1
playwave "explosion.wav",async
end if
return

'Controler la duree de l'explosion
'
[control_explo]
if exploactive = 1 then explocount= explocount + 1
if explocount > 20 then
exploactive=0
explocount=0
#game, "spritexy explo 500 500"
end if
return
'
'Dessiner tout les sprites dans la fenêtre
[draw]
#game, "drawsprites";
return