PROGRAM ejemplo_barra;
GLOBAL
   energia=300;
   
BEGIN
   // Se inicializa el modo gráfico
   graph_mode=mode_16bits;
   set_mode(m320x240);

   // Se carga el gráfico y se asigna
   graph=load_png("barra.png");
   
   // Se asignan las coordenadas
   x=160; y=120;
   
   // Se asigna la región
   region=1;
   
   LOOP
      // Se varía la amplitud de la barra
      IF (key(_left)) energia--; END
      IF (key(_right)) energia++; END

      // Se comprueban los límites
      IF (energia>300) energia=300; END
      IF (energia<0) energia=0; END

      // Se define la región
      define_region(1,10,105,energia,10);
      
      // Se sale del programa
      IF (key(_esc)) exit("",0); END
     
      FRAME;
   END
END

PROCESS barra();
BEGIN

   

   region=1;
   
   LOOP FRAME; END
END