if v1001='1' then ''/, ''/#, ''/, fi, ' '/ ' '/, " "v2""/, (if p(v3) then ' '/, | |v3^*||/, | |v3^a||/, | |v3^b||/, | |v3^c||/, ' '/ fi), ' '/,(| |v4||/),' '/ (if p(v8) then ' '/, | |v8^*||/, | |v8^i||/, ' '/ fi), " "v777""/, ' '/ select v5*0.1 case 'S': ' ', case 'M': ' ', case 'T': ' ', case 'N': ' ', endsel,/, (| |v7||/), if p(v23) or p(v24) then ' '/, ' '/, (if p(v23) then ' ', if p(v23^r) then ' Role="'v23^r'"' fi,'>'/, | |v23^*||/, if p(v23^1) or p(v23^a) then ' '/, if p(v23^1) then | |v23^1||/ | |v23^2||/, | |v23^3||/, | |v23^p||/, | |v23^c||/, else | |v23^a||/ fi, ' '/ fi, ' '/ fi), (if p(v24) then ' 'v24^*''/ fi), ' '/, (| |v25||/), " "v27""/, ' '/ fi, if p(v30) then ' <',if v5*0.1='M' or v5*0.1='T' then 'Monog' fi,'SerialInfo>'/, " "v30""/, " "v35""/, if p(v31) or p(v32) then ' '/, " "v31""/, " "v32""/, ' '/ fi, ' '/ fi, if p(v16) or p(v17) then ' <',if v5*0.1='T' then 'Thesis' fi,'MonogInfo>'/, ' <',if v5*0.1='T' then 'Thesis' fi,'AuthorList>'/, (if p(v16) then ' <',if v5[1]*0.1='T' then 'Thesis' fi,'Author', if p(v16^r) then ' Role="'v16^r'"' fi,'>'/, | |v16^*||/, if (p(v16^1) or p(v16^a)) and v5[1]*0.1<>'T' then ' '/, if p(v16^1) then | |v16^1||/ | |v16^2||/, | |v16^3||/, | |v16^p||/, | |v16^c||/, else | |v16^a||/ fi, ' '/ fi, ' '/ fi), (if p(v17) then ' 'v17^*''/ fi), if v5*0.1='T' then ' ' else ' ' fi/, (| |v18||/), " "v19""/, " "v20""/, " "v21""/, ' '/ fi, if p(v10) or p(v11) then ' <',if v5*0.1='T' then 'Thesis' else if v5*0.1='S' then 'Serial' fi fi,'AnalyticalInfo>'/, ' <',if v5*0.1='T' then 'Thesis' else if v5*0.1='S' then 'Serial' fi fi,'AuthorList>'/, (if p(v10) then ' <',if v5[1]*0.1='T' then 'Thesis' else if v5[1]*0.1='S' then 'Serial' fi fi,'Author', if p(v10^r) then ' Role="'v10^r'"' fi,'>'/, | |v10^*||/, if (p(v10^1) or p(v10^a)) and v5[1]*0.1<>'T' then ' '/, if p(v10^1) then | |v10^1||/ | |v10^2||/, | |v10^3||/, | |v10^p||/, | |v10^c||/, else | |v10^a||/ fi, ' '/ fi, ' '/ fi), (if p(v11) then ' 'v11^*''/ fi), ' '/, (| |v12||/), " "v13""/, if p(v14) then (' ',if p(v14^f) and p(v14^l) then ""v14^f"", ""v14^l"" else ''v14'', fi, ''/), fi, ' '/ fi, if p(v40) then ' '/, (| |/), (| |/), (| |/), ' '/ fi, if p(v50) or p(v51) then ' '/, " "v50""/, " "v51""/, ' '/, fi, " "v61""/, if p(v62) or p(v64) then select v5*0.1 case 'S': ' ', case 'T': ' ', elsecase ' ', endsel,/, " "v62""/, " "v63""/, ' 'v64''/, " "v66""/, " "v67""/, (| |v68||/), " "v69""/, select v5*0.1 case 'S': ' ', case 'T': ' ', elsecase ' ', endsel,/, fi, " "v72""/, " "v83""/, if p(v53) then ' '/, (| |v52||/), ' 'v53''/, ' 'v54''/, " "v56""/, " "v57""/, ' '/ fi, if p(v59) then ' '/, (| |v58||/), " "v59""/, " "v60""/, ' '/ fi, select v5*0.1 case 'S': ' ', case 'M': ' ', case 'T': ' ', case 'N': ' ', endsel,/, ' '/, if p(v71) then ' '/, (| |v71||/) ' '/, fi, ' '/, if p(v76) then ' '/, (| |v76||/) ' '/, fi, if p(v87) then ' '/, (if p(v87^d) or p(v87^s) then ' '/, if p(v87^d) then ' 'v87^d''/ fi, if p(v87^s) then ' 'v87^s''/ fi, ' '/ fi), ' '/, fi, if p(v88) then ' '/, (if p(v88^d) or p(v88^s) then ' '/, if p(v88^d) then ' 'v88^d''/ fi, if p(v88^s) then ' 'v88^s''/ fi, ' '/ fi), ' '/, fi, ' '/, if p(v74) or p(v75) then ' '/, " "v74""/, " "v75""/, ' '/, fi, if p(v78) then ' '/, (| |v78||/), ' '/ fi, if p(v82) then ' '/, (| |v82||/), ' '/ fi, ' '/, (| |v92||/), " "v91""/, " "v1""/, ' 'v84''/, | |v70||, ' '/# if v1001=v1002 then ''/ fi