1 0 (|NC=|v1/)/(v1/)

1 4 mpu,(v1/)

1 0 'NI='v1

5 0 (|FE=|v5^*[1]/)/(|FE=|v5^*[1].4/)/(|FE=|v5^*[1].6/)

5 0 mpu,(|}L|v5^b[1]/)/(v5^b[1]/)

8 0 if p(v8) then if val(v8*7.4)<>0 then 'FD='v8*7.4/v8*7.4 fi, fi,

20 0 mpu,(|!H|v20^a|%|/)/(v20^a)

20 4 mpu,(v20^a/)

22 0 mpu,(|!G|v22^a|%|/)/(v22^a)

30 0 "FE="V30/"FE="V30.6/"FE="V30.4

41 0 mpu,(|!S|v41^a|%|/)/(v41^a/)

43 0 mpu,(|}V|v43^a|%|/)/(v43^a/)

44 0 mpu,(|!X|v44^a|%|/)/(v44^a/)

84 0 mpu,if p(v84^k) then "!Z"v84^k,"."v84^a,"."v84^b,"."v84^c else "!Z"v84^a,"."v84^b,"."v84^c fi/if p(v84^k) then v84^k,"."v84^a,"."v84^b,"."v84^c else v84^a,"."v84^b,"."v84^c fi/
845 0 mpu, if v84^a.1='K' then '!ADerecho' else if v84^a.1='B' then '!AFilosofia' else if v84^a.1='P' then '!ALiteratura' else if v84^a.1='M' then '!AMusica' else if v84^a.1='N' then '!AArte' else if v84^a.1='H' then '!ACiencias Sociales'  fi,fi,fi,fi,fi,fi/ if v84^a.1='K' then 'Derecho' else if v84^a.1='B' then 'Filosofia' else if v84^a.1='P' then 'Literatura' else if v84^a.1='M' then 'Musica' else if v84^a.1='N' then 'Arte' else if v84^a.1='H' then 'Ciencias Sociales' fi,fi,fi,fi,fi,fi
845 0 mpu, if v84^a.1='L' then '!AEducacion' else if v84^a.1='Q' then '!ACiencias Puras' else if v84^a.1='R' then '!AMedicina' else if v84^a.1='T' then '!ATecnologia' else if v84^a.1='D' then '!AHistoria' else if v84^a.1='E' then '!AHistoria'  fi,fi,fi,fi,fi,fi/ if v84^a.1='L' then 'Educacion' else if v84^a.1='Q' then 'Ciencias Puras' else if v84^a.1='R' then 'Medicina' else if v84^a.1='T' then 'Tecnologia' else if v84^a.1='U' then 'Ciencias y Artes Militares' else if v84^a.1='V' then 'Ciencias y Artes Militares'  fi,fi,fi,fi,fi,fi
845 0 mpu, if v84^a.1='D' then '!AHistoria' else if v84^a.1='E' then '!AHistoria' else if v84^a.1='F' then '!AHistoria' else if v84^a.2='BL' then '!AReligion' else if v84^a.2='BQ' then '!AReligion' else if v84^a.2='BR' then '!AReligion' else if v84^a.2='BX' then '!AReligion' else if v84^a.2='' then '!ANo tiene area' fi, fi,fi,fi,fi,fi,fi,fi/ if v84^a.1='D' then 'Historia' else if v84^a.1='E' then 'Historia' else if v84^a.1='F' then 'Historia' else if v84^a.2='BL' then 'Religion' else if v84^a.2='BQ' then 'Religion' else if v84^a.2='BR' then 'Religion' else if v84^a.2='BX' then 'Religion' else if v84^a.2='' then 'No tiene area' fi, fi,fi,fi,fi,fi,fi,fi



99 0 mpu, (|]W|v99|%|)/(v99/)



100 0 mpu,(|!B|v100^a|%|/)

600 0 mpu,(|!B|v600^a|%|/)

700 0 mpu,(|!B|v700^a|%|/)

100 0 (if p(v100^a) then '|B'v100^a.1|%|/ fi), /* Indice de autores personales */

600 0 (if p(v600^a) then '|B'v600^a.1|%|/ fi), /* Indice de autores personales */

700 0 (if p(v700^a) then '|B'v700^a.1|%|/ fi), /* Indice de autores personales */

100 4 mpu,(v100^a|%|/)/(v600^a|%|/)(v700^a|%|/)

100 0 mpu,(v100^a|%|/)/(v600^a|%|/)/(v700^a|%|/)/


110 0 mpu,(if p(v110^a) then '!C' replace(replace(v110^a,'(',''),')',''), '%'/ fi)

610 0 mpu,(if p(v610^a) then '!C' replace(replace(v610^a,'(',''),')',''), '%'/ fi)

710 0 mpu,(if p(v710^a) then '!C' replace(replace(v710^a,'(',''),')',''), '%'/ fi)

110 0 (if p(v110^a) then '|C'v110^a.1|%|/ fi), /* Indice de autores institucionales */

610 0 (if p(v610^a) then '|C'v610^a.1|%|/ fi), /* Indice de autores institucionales */

710 0 (if p(v710^a) then '|C'v710^a.1|%|/ fi), /* Indice de autores institucioanles */

110 0 mpu,(replace(replace(v110^a,'(',''),')','')/)/(replace(replace(v610^a,'(',''),')','')/)/(replace(replace(v710^a,'(',''),')','')/)

110 4 mpu,(v110^a|%|/)/(v610^a|%|/)/(v710^a|%|/)



111 0 mpu,(|!D|v111^a|%|/)                    /* Reunión */

711 0 mpu,(|!D|v711^a|%|/)

111 0 mpu,(v111^a/)/(v611^a/)/(v711^a/)

111 4 mpu,(v111^a|%|/)/(v711^a|%|/)



245 4 mpu,(v245^a,| |v245^b/)/(v240^a/)/(v242^a/)/(v773^t/)/(v740^a/)

245 0 if v4='s' then v245^a fi

245 0 mpu,if v4='s' then "\C"v245^a fi

245 8 '|?C|',if v4='s' then v245^a fi 

245 0 (if p(v245^a) then '|A', if instr(` <('¿?¡![."`,v245^a*0.1)=0 then v245^a*0.1 else if instr(` <('¿?¡![."`,v245^a*1.1)=0 then v245^a*1.1  else if instr(` ('¿?¡![."`,v245^a*2.1)=0 then v245^a*2.1 else if instr(` ('¿?¡![."`,v245^a*3.1)=0 then v245^a*3.1 else v245^a*4.1 fi fi fi fi fi/)

245 0 (if p(v245^a) then '!T', if instr(` <('¿?¡![."`,v245^a*0.1)=0 then v245^a else if instr(` <('¿?¡![."`,v245^a*1.1)=0 then v245^a*1  else if instr(` ('¿?¡![."`,v245^a*2.1)=0 then v245^a*2 else if instr(` ('¿?¡![."`,v245^a*3.1)=0 then v245^a*3 else v245^a*4 fi fi fi fi '%' fi/)

997 0 mpu,if v245^a='Temas de coyuntura' then (|!I|v361^n|%|/) fi/
997 0 (if v245^a='Temas de coyuntura' and p(v361^n) then '|I'v361^n.4|%|/ fi), /* Indice de numeros de la revista */
997 4 mpu,(v361^n|%|/)/

997 0 mpu,(v361^n|%|/)/


998 0 mpu,if v245^a='Revista de relaciones industriales y laborales' then (|]P|v361^n|%|/) fi/
998 0 (if v245^a='Revista de relaciones industriales y laborales' and p(v361^n) then '|P'v361^n.4|%|/ fi), /* Indice de numeros de la revista */
998 4 mpu,(v361^n|%|/)/

998 0 mpu,(v361^n|%|/)/  





260 0 mpu,(|!E|v260^a|%|/)/(v260^a/)

260 0 mpu,(|!F|v260^b|%|/)/(v260^b/)

260 0 if p(v260^c) then if val(v260^c)<>0 then 'FD='v260^c/v260^c fi fi

260 4 mpu,(v260^a|%|/)/(v260^b/)



270 0 mpu,(|}R|v270^b|%|/)/(v270^b/)          /* Proveedor */

270 0 mpu,(|}S|v270^c|%|/)/(v270^c/)

270 0 mpu,(|}O|v270^d|%|/)/(v270^d/)

270 0 mpu,(|!T|v270^z|%|/)/(v270^z/)



440 4 mpu,(v440^a/)

440 0 mpu,"!O"v440^a



502 0 mpu,(|]T|v502^a|%|/)/(v502^a/)         /* Nota Tesis */

502 4 mpu,(v502^a/)

502 0 mpu,(|}G|v502^b|%|/)
502 0 mpu,(|}I|v502^c|%|/)
502 0 mpu,(|]A|v502^d|%|/)
502 0 mpu,(|]B|v502^e|%|/)
502 0 mpu,(|}E|v502^f|%|/)
502 0 mpu,(|}F|v502^g|%|/)
502 0 mpu,(|]H|v502^h|%|/)
502 0 mpu,(|}M|v502^i|%|/)
512 0 mpu,(|}G|v502^b|%|/)/(v502^b/)

512 4 mpu,(v502^b/)

513 0 mpu,(|}I|v502^c|%|/)/(v502^c/)

513 4 mpu,(v502^c/)

514 0 mpu,(|]A|v502^d|%|/)/(v502^d/)

514 4 mpu,(v502^d/)

515 0 mpu,(|]B|v502^e|%|/)/(v502^e/)

515 4 mpu,(v502^e/)

516 0 mpu,(|}E|v502^f|%|/)/(v502^f/)

516 4 mpu,(v502^f/)

517 0 mpu,(|}F|v502^g|%|/)/(v502^g/)

517 4 mpu,(v502^g/)

518 0 mpu,(|]H|v502^h|%|/)/(v502^h/)

518 4 mpu,(v502^h/)

519 0 mpu,(|}M|v502^i|%|/)/(v502^i/)

519 4 mpu,(v502^i/)



650 0 (if p(v650^a) then ']K' replace(replace(v650^a,'(',''),')','') '%' /fi)  /* Indice Alfabético de materias */

650 0 (if p(v650^a) then  replace(replace(v650^a,'(',''),')','') '%'/ fi)

650 0 mpu,(if p(v650^a) then '!K',replace(replace(v650^a,'(',''),')','') '%'/ fi),

6501 0 mpu,(if p(v650^x) then '!K',replace(replace(v650^x,'(',''),')','') '%'/ fi),

6502 0 mpu,(if p(v650^z) then '!K',replace(replace(v650^z,'(',''),')','') '%'/ fi),

650 1 mpu,(replace(replace(v650,'(',''),')','') '%'/)

650 4 mpu,(v650/)
650 0 mpu,(v650/)
650 4 mpu,(v650^a|%|/)
650 4 mpu,(v650^x|%|/)
650 4 mpu,(v650^y|%|/)
650 4 mpu,(v650^z|%|/)
650 0 mpu,(v650^a|%|/)
650 0 mpu,(v650^x|%|/)
650 0 mpu,(v650^y|%|/)
650 0 mpu,(v650^z|%|/)

650 0 (if p(v650^a) then '|K'v650^a.1|%|/ fi), /* Indice de temas */



651 0 (if p(v651^a) then ']L' replace(replace(v651^a,'(',''),')','') '%'/ fi)

651 0 (if p(v651^a) then  replace(replace(v651^a,'(',''),')','') '%' / fi)

651 0 mpu,(if p(v651^a) then '!L',replace(replace(v651^a,'(',''),')','') '%'/ fi),

6511 0 mpu,(if p(v651^x) then '!L',replace(replace(v651^x,'(',''),')','') '%'/ fi),

6512 0 mpu,(if p(v651^z) then '!L',replace(replace(v651^z,'(',''),')','') '%'/ fi),

651 1 mpu,(replace(replace(v651,'(',''),')',''),/)

651 4 mdu,(v651/)

651 0 mpu (if p(v651^a) then '|L'v651^a.1/ fi ) /* países y regiones  agregado nuevo motor */

600 0 mpu,(|}Z|v600^a|%|/)/(v600^a|%|/)
610 0 mpu,(|{Z|v610^a|%|/)/(v610^a|%|/)
630 0 mpu,(|TU=|v630^a|%|/)/(v630^a|%|/)


773 0 mpu,(|}T|v773^t|%|/)/(v773^t|%|/)



750 0 mpu,if p(v750)then "Kardex:"v750 fi



842 0 mpu,(|!N|v842^a|%|/)/(v842^a/)           /* Tipo de material */

842 4 mpu,(v842^a/)
852 0 mpu, if p(v852^a) then '[W'v100^a.1|%|/ fi
852 0 mpu, if p(v852^a) then '}W'v100^a|%|,f(mfn,1,0)/ fi/
852 0 mpu,(|!W|v852^a|%|/)/(v852^a/)
852 4 mpu,(v852^a|%|/)


920 0 if p(v920) then 'MaterialDigitalizado' fi



901 0 mpu,(if iocc<100 then |!M|v900^o|%|/ else break  fi)/(if iocc<100 then v900^o|%|/  else break fi)

902 0 mpu,(if iocc<100 then |!Y|v900^r|%|/ else break  fi)

935 0 mpu,"]X"v935/v935 

995 0 (|FA=|v995^*.4/|FA=|v995^*.6/|FA=|v995^*/)

999 0 'N:',f(mfn,1,0)