RUNDEF programa
   SELECTION ALL

TABLE H1 
AS CROSSTABS OF POBLACIO.TAMANOHAB BY  POBLACIO.TAMANOANT
FOR  POBLACIO.CANRES5ANO>0 AND POBLACIO.EDAD>4 AND POBLACIO.SEXO=1

TABLE M1 
AS CROSSTABS OF POBLACIO.TAMANOHAB BY  POBLACIO.TAMANOANT
FOR  POBLACIO.CANRES5ANO>0 AND POBLACIO.EDAD>4 AND POBLACIO.SEXO=2

TABLE IM 
AS TABOP  
OF (H1/M1)*100

OUTPUTFILE "CR84CTIM" OVERWRITE