select, case, end_select

' Utilisation de la fonction select, case,endselect
' -------------------------------------------------

' Déclaration des variables.
      dim code,x,y,a,b ,i
' Déclaration des étiqettes.
 ' label debut
 ' Temporisation en 1000ieme de seconde.
  wait 1000
 ' Etiquette de retour du programme.
  debut:
 ' Compteur de boucle.
    i=i+1
 ' Augmentation de la taille des caractères à 14 sur la fenêtre 0.
 ' La fenêtre 0 est crée par défaut à la mise en route du programme.
    font_size 0,14
 ' Définition de la position de l'affichage sur la fenêtre active.
    print_locate 10,10
 ' Affichage du contu de la variable I
    print i
 ' Test sur la valeur de la touche désirée dans ce cas le code 37 de la
 ' touche flêche a gauche du clavier.
 ' Si c'est la touche 37 alors on d'écrémente la variable X de -1
 
  code=scancode
  print code
 select code
 
 case 37
 x=x-1
 print_locate 100,200
 print x
 ' code 39 de la touche flêche à droite du clavier.
 case 39
 a=a+1
 print_locate 100,220
 print a
 ' code 38 de la touche flêche vers le haut du clavier.
 Case 38
 y=y-1
 print_locate 100,240
 print y
 ' code 40 de la touche flêche vers le bas du clavier.
 Case 40
  b=b+1
 print_locate 100,260
 print b
 
 end_select
 ' Attente de 650 millisecondes
  wait 650
  ' Fin du programme si le compteur est arrivé à 100
  if i=100 then terminate
  ' Retour a l'étiquette top:
  goto debut