Re : Programme graphique

' Déclaration des variables.
      dim x,y,n
' Déclaration des étiquettes.
 label key_down
 caption 0," Gauche <.Droite >.Espace pour tirer.Escape pour terminer"

 border_small 0
  color 0,0,0,0
 
 ' Déclaration de la mire pictures
  picture 2
    width 2,50
    height 2,10
      2d_target_is 2
      2d_fill_color 255,0,0
        2d_rectangle 0,0,50,10
        left 2,250
          top 2,420

' Initialisation des variables
  x=250
  y=500
 
 ' Déclaration de la Balle
  scene2d 3
    width 3,5
    height 3,5
      left 3,275
      top 3,410
 
' déclaration de l'évènement de frappe d'une touche
  on_key_down 0,key_down
  end

' Branchement sur l'étiquette key_down
key_down:

' code 37 de la touche flêche à gauche du clavier.
 if key_down_code=37 then  x=x-10
    if left(2)<10  then x=11
            left 2,x
              left 3,x +25
 ' code 39 de la touche flêche à droite du clavier.
 if key_down_code=39 then  x=x+10
    if left(2)>525 then x=524
                left 2,x
                    left 3,x +25

  ' code 32 de la touche Espace
  if key_down_code  = 32
              for n = 410 to 0  step -1
              top 3,N
              next n
              top 3,410

    end_if

 ' code 27 fermeture programme.
    if key_down_code  = 27 then terminate
return