'$DYNAMIC
SCREEN 13
CLS
DIM Image(1 TO 17000)
Cote = 0
DO
      DO
        A$ = INKEY$
         IF A$ = CHR$(27) THEN END
         IF A$ = CHR$(0) + CHR$(75) THEN Cote = 2
         IF A$ = CHR$(0) + CHR$(77) THEN Cote = 1
      LOOP WHILE A$ = ""

      DEF SEG = VARSEG(Image(1))
         BLOAD "LOURD01.GRH", VARPTR(Image(1))
      DEF SEG
      PUT (0, 0), Image, PSET

      IF Cote = 1 THEN
         'Ici je put mon personnage qui se dirige vers la gauche.
      END IF

      IF Cote = 2 THEN
         'Ici je put mon personnage qui se dirige vers la droite.
      END IF
LOOP