programa:
    tPROGRAMA tIDENTIFICADOR ';'
    {
      nivel = 0;
 
      DEBUGA("programa:tPROGRAMA tIDENTIFICADOR';'-antes de inicializar_tabla",DPROGRAMA,debug);
 
       inicializar_tabla (tabsim);
      DEBUGA("programa:tPROGRAMA tIDENTIFICADOR';'-despues de inicializar_tabla",DPROGRAMA,debug);
 
 
      /*El identificador del programa
      Es el primer símbolo y por lo tanto seguro
      que no va a exixtir, por lo que no lo buscamos*/
 
      introducir_programa(tabsim,$2.NId,0);
 
      AbreTag(xmlin,$2.NId,nivel-1);
 
      /*MRM No se muy bien el tercer parámetro, de momento pongo 0*/
    }
    declaracion_variables 
    declaracion_acciones
    bloque_instrucciones
    {
      eliminar_variables (tabsim, nivel);
      eliminar_parametros_ocultos(tabsim,nivel+1);
      eliminar_acciones (tabsim, nivel);
      eliminar_programa(tabsim);
      CierraTag(xmlin,$2.NId,nivel-1);
    }
;