' -----------------------------------------------
' - Récupération d'une touche Fléché du clavier -
' -----------------------------------------------

Rem ***********************************************  
Rem * Auteur  ....... Jean Monos                  *
Rem * Langage ....... Amiga Amos                  *
Rem * Licence ....... CC0, Pas besoin de "crédit" *
Rem * Version ....... Version 1.0                 *
Rem * Date    ....... 21/09/2016                  *
Rem ***********************************************


Rem -----------------------
Rem - Boucle du programme -
Rem -----------------------

' Trois fonctions :  
'  1) Récupération des entrées du clavier
'  2) Afficher les données à l'écran 
'  3) Attendre la fin du balayage de l'écran pour continuer  

Do 
   
   Gosub ENTRER
   Gosub AFFICHAGE
   Wait Vbl 
   
Loop 

End 

Rem ------------------------ 
Rem - Sous Routiner ENTRER - 
Rem ------------------------ 

ENTRER:

' - Condition pour les touches fléchés du clavier -  

If Key State(76)=True : Rem tester si la touche Haut est enfoncée. 
   VDIRECTION=8
Else If Key State(77)=True : Rem Tester si la touche Bas est enfoncée.
   VDIRECTION=2
Else If Key State(78)=True : Rem Tester si la touche Droite est enfoncée. 
   VDIRECTION=6
Else If Key State(79)=True : Rem Tester si la touche Gauche est enfoncée. 
   VDIRECTION=4
Else : Rem si aucune de ses 4 touches est enfoncée. 
   VDIRECTION=0
End If 

' - Condition pour la touche Echape -

If Key State(69)=True Then End 

Return 

Rem ---------------------------- 
Rem - Sous Routine d'affichage - 
Rem ---------------------------- 

AFFICHAGE:
Locate 0,4
Cline 
Print "Valeur de la variable : "+Str$(VDIRECTION)
Return 

Rem ==================== Fin ================================