Program Redefinir_teclas;
Global
   derecha;
   izquierda;
   
Begin
   // Se inicializa el modo gráfico
   Graph_mode = mode_16bits;
   set_mode (m320x240);

   // Se define la tecla para ir a la derecha
   write(0,0,0,0,"Pulse tecla para derecha");
   Repeat
      derecha=scan_code;
      Frame;
   Until (derecha<>0);
   
   // Se define la tecla para ir a la izquierda
   delete_text(all_text);
   write(0,0,0,0,"Pulse una tecla para izquierda");
   Frame(500);

   Repeat
      izquierda=scan_code;
      Frame;
   Until (izquierda<>0);
   
   delete_text(all_text);
   write(0,0,0,0,"Pulse esc para terminar");

   // Se pone el gráfico en pantalla   
   x=160; y=120;
   graph=load_png("raton.png");
   
   Loop
      // Se mueve el gráfico
      If (key(derecha)) x++; End
      If (key(izquierda)) x--; End
      
      // Se sale del programa
      If (key(_esc)) exit("",0); End
      Frame;
   End
End