3 0 if v920:'DISC'then"DISCN="v3^a/if p(v3^b) then"DISCN="v3^b" ("v3^0")" fi/"IDD="v3^0/if v83: '^L' then "DISCF="v3^a fi fi 
3 0 if v920:'GLOB'then 'GLOB' fi
4 0 if v920:'disc' then"DiscCKL="v4 fi
5 0 if v920:'Disc'then"KAFCH="v5 fi
5 0 if v920:'Disc'then"DISCKH="v5 fi
5 0 if v920:'FAK'then (|KAFCH=|v5/)/"FAK="v93/"FFO="v93,v91,,"-"v98 fi
6 0 if v920:'disc' then"DiscUK="v6 fi
83 0 if v920:'DISC' then (if p(v83) then if p(v83^L) then |DFAKF=|v83^A else |DFAK=|v83^A fi fi/)
83 0 if v920:'DISC' then (if p(v83) then |DFIL=|v83^L,,fi/)
83 0 if v920:'disc' then (|DiscFak=|v83^a/) fi
83 0 if v920:'disc' then (|DiscNPR=|v83^n/) fi
83 0 if v920:'disc' then (|DiscS=|v83^c/) fi
83 0 if v920:'disc' then (|DiscFO=|v83^o/) fi
83 0 if v920:'disc' then (|DiscVO=|v83^v/) fi
83 0 if v920:'disc' then (|DiscUP=|v83^U/) fi
83 0 if v920:'disc' then (|GR=|v83^E/) fi
83 0 if v920:'disc' then (if v83^f='1' or v83^f:'1/'then 'DUPSS=',v83^U,'-1' fi/if v83^f='2' or v83^f:'2/'or v83^f:'/2'then 'DUPSS=',v83^U,'-2' fi/if v83^f='3' or v83^f:'3/'or v83^f:'/3'then 'DUPSS=',v83^U,'-3' fi/if v83^f='4' or v83^f:'4/'or v83^f:'/4'then 'DUPSS=',v83^U,'-4' fi/if v83^f='5' or v83^f:'5/'or v83^f:'/5'then 'DUPSS=',v83^U,'-5' fi/if v83^f='6' or v83^f:'6/'or v83^f:'/6'then 'DUPSS=',v83^u,'-6' fi/if v83^f='7' or v83^f:'6/'or v83^f:'/7'then 'DUPSS=',v83^u,'-7' fi/if v83^f='8' or v83^f:'6/'or v83^f:'/8'then 'DUPSS=',v83^u,'-8' fi/if v83^f='9' or v83^f:'6/'or v83^f:'/9'then 'DUPSS=',v83^u,'-9' fi/if v83^f='10' or v83^f:'10/'or v83^f:'/10'then 'DUPSS=',v83^u,'-10' fi/if v83^f='11' or v83^f:'11/'or v83^f:'/11'then 'DUPSS=',v83^u,'-11' fi/if v83^f='12' or v83^f:'12/'or v83^f:'/12'then 'DUPSS=',v83^u,'-12' fi/)fi
83 0 if v920:'disc' then (if v83^f='0' or v83^f:'0/'then 'DSS= 0'/'DKS=0'fi/if v83^f='1' or v83^f:'1/'then 'DSS= 1'/'DKS=1'fi/if v83^f='2' or v83^f:'2/'or v83^f:'/2'then 'DSS= 2'/'DKS=1'fi/if v83^f='3' or v83^f:'3/'or v83^f:'/3'then 'DSS= 3'/'DKS=2'fi/if v83^f='4' or v83^f:'4/'or v83^f:'/4'then 'DSS= 4'/'DKS=2'fi/if v83^f='5' or v83^f:'5/'or v83^f:'/5'then 'DSS= 5'/'DKS=3'fi/if v83^f='6' or v83^f:'6/'or v83^f:'/6'then 'DSS= 6'/'DKS=3'fi/if v83^f='7' or v83^f:'6/'or v83^f:'/7'then 'DSS= 7'/'DKS=4'fi/if v83^f='8' or v83^f:'6/'or v83^f:'/8'then 'DSS= 8'/'DKS=4'fi/if v83^f='9' or v83^f:'6/'or v83^f:'/9'then 'DSS= 9'/'DKS=5'fi/if v83^f='10' or v83^f:'10/'or v83^f:'/10'then 'DSS=10'/'DKS=5'fi/if v83^f='11' or v83^f:'11/'or v83^f:'/11'then 'DSS=11'/'DKS=6'fi/if v83^f='12' or v83^f:'12/'or v83^f:'/12'then 'DSS=12'/'DKS=6'fi/)fi
68 0 if v920: 'VUZ' then "!"d68,v68^a,if p(v68^c) then v68^c, else v68^n fi,,v68^v,,v68^o,'-S'v68^f fi/(if p(v69) then |DUNS=|v69^W,if &uf('Av68^F#1')<>'' then '-S',&uf('Av68^F#1') fi fi/)
68 0 if v920: 'VUZ' then if v68^L<>'' then 'VFAKF=' else 'VFAK=' fi,if v68^A<>'' then v68^A else 'ΒΡΕ' fi/,,"VSPEC="v68^C/,"VNAPR="v68^N/,"VVO="v68^V/,'VFO=',if v68^O<>'' then v68^O else 'ΒΡΕ' fi/,"VSEM="v68^F/,"VFIL="v68^L/,"VKAFV="v68^H/"VGR="v68^E fi
68 0 if v920: 'VUZ' then (|VKAF=|v69^B/)/(|VKD=|v69^B,v69^D/)/(if p(v69) then if v69^B<>'' and &uf('Av68^C#1')<>'' then 'VKS=',v69^B,&uf('Av68^C#1') else 'VKS=',v69^B,&uf('Av68^N#1') fi fi/) fi
68 0 if v920: 'VUZ' then "?"d68,v68^a"-",,If &uf('IMAIN,KATKO,0')='1' then v68^n"-",v68^c"-" else if p(v68^c) then v68^c"-" else v68^n"-" fi fi,v68^v"-",v68^o"-",v68^f"-" fi
68 0 if v920: 'VUZ' then If &uf('IMAIN,KATKO,0')='1' then  "!"d68,v68^a, v68^n,v68^c ,v68^v,v68^o,'-S'v68^f fi fi
69 0 if v920: 'VUZ' then (if p(v69) then 'VUZU=',&uf('D,?IDD='v69^d,'?,v3^a'),|(|v69^d|)|,'-'v69^b,'-'&uf('Av68^a#1'),'-'&uf('Av68^L#1'),'-'&uf('Av68^n#1'),'-'&uf('Av68^c#1'),'-'&uf('Av68^v#1'),'-'&uf('Av68^o#1'),'-S'&uf('Av68^f#1') fi,|%|d69/) fi
69 0 (|IDV=|v69^d,|%|d69/)
99 0 (|ID=|v99^d,|%|d99/)
95 0 if 'dunik upl':v920 then 'ssr='f(val(v95),2,0) fi
95 0 if 'dunik upl':v920 then if &unifor("Kkurs.mnu|"v95)<>''then'KSR='f(val(&unifor('Kkurs.mnu|'v95)),2,0) fi fi
91 0 if v920='UPLVV'then v920,"="v91,"-S"v95 fi 
91 0 if v920='UPL'then"UPL="v91/"UPS="v91,"-S"v95/"UPSS="v91"-S",f(val(v95),2,0) fi
911 0 if v920='UPL'then if p(v99) then (if p(v99)then'UPSD=', &unifor('Av91#1'),'-S'&unifor('Av95#1'),|-|v99^d,|-|v99^b,|-|v99^s /'VUZU=', &unifor('Av91#1'),'-S'&unifor('Av95#1'),|-|v99^d,|-|v99^b,|-|v99^s fi,|%|d99/) else "UPSD="v91,"-S"v95 fi fi
91 0 if v920='UPL'then"UPK="v91,if &unifor("Kkurs.mnu|"v95)<>''then'-K'&unifor('Kkurs.mnu|'v95) fi fi
92 0 if v920='UPL'then"USP="v92^c/"UNP="v92^n fi
93 0 if v920='UPL'then"UFak="v93 fi
93 0 if v920:'DUNIK'then"DUNFak="v93 fi
94 0 if v920='UPL'then"UKV="v94 fi
96 0 if v920='UPL'then"UVO="v96 fi
98 0 if v920='UPL'then"UFO="v98 fi
3 0 if v920='DUNIK'then"DISCU="v3^a/"DISCU="v3^b/"IDU="v3^0 fi
3 0 if v920='UPL'then (|DISCU=|v99^d,|%|d99/) fi 
97 0 if v920:'DUNIK'then"NDUN="v97/"DUNS="v97,"-S"v95/"DUNSS="v97"-S",f(val(v95),2,0) fi
97 0 if v920:'DUNIK'then"DUNK="v97,if &unifor('Kkurs.mnu|'v95)<>''then'-K'&unifor('Kkurs.mnu|'v95) fi fi
92 0 if v920:'DUNIK'then"DUNSP="v92^c/"DUNNP="v92^n fi
93 0 if v920:'DUNIK'then"DUNFak="v93 fi
94 0 if v920:'DUNIK'then"DUNkv="v94 fi
96 0 if v920:'DUNIK'then"DUNVO="v96 fi
98 0 if v920:'DUNIK'then"DUNfO="v98 fi
5 0 if v920:'Dunik'then"DUNKH="v5 fi
2 0 "SPECN="v2^a/"SPECN="v2^b
12 0 "SPECK="v12
1 0 "NAPRN="v1^a/"NAPRN="v1^b
11 0 "NAPRK="v11
7 0 "GOSN="v7^a/"GOSN="v7^b
17 0 "GOSK="v17
920 0 "VD="v920
621 0 (|BBK=|v621/)
97 0 if v920:'DUNIK'then"DUNIKP="v3^a," ("v3^0")"," - "v93," - "v94," - "v96," - "v92^n," - "v92^c," - "v98," -S"v95 fi/
69 0 if v920: 'VUZ' then (if p(v69) then if v69^d:':'then if &unifor('Kjzko.mnu|'&unifor('G2:'v69^d))<>''then &unifor('Kjzko.mnu|'&unifor('G2:'v69^d)),,&uf('Av68^a#1'),if &uf('Av68^c#1')<>'' then &uf('Av68^c#1'), else &uf('Av68^n#1') fi,&uf('Av68^v#1'),,&uf('Av68^o#1'),'-S'&uf('Av68^f#1') fi fi fi/) fi
68 0 if v920: 'VUZ' then if v68^L<>'' then else if p(v68^o) then if &uf('Ksemo.mnu\'v68^f)<>''then 'FOSO='v68^o else if &uf('Ksemv.mnu\'v68^f)<>''then 'FOSV='v68^o fi fi fi fi fi/
69 0 (if p(v69) then 'Z='v69^d,'-'&uf('Av68^a#1'),if &uf('Av68^c#1')<>'' then &uf('Av68^c#1'), else &uf('Av68^n#1') fi,&uf('Av68^v#1'),&uf('Av68^o#1'),'-S'&uf('Av68^f#1') fi/)
68 0 if v920:'VUZ' then &uf('+7W68#'),if p(v68) then &uf('+7U68#',(if p(v68^f) then v68^a,v68^n,v68^c,v68^v,v68^o,'-S'v68^f/v68^a,v68^n,v68^c,v68^v,'-S'v68^f/v68^a,v68^n,v68^c,v68^o,'-S'v68^f/v68^a,v68^n,v68^v,v68^o,'-S'v68^f/v68^a,v68^c,v68^v,v68^o,'-S'v68^f/v68^n,v68^c,v68^v,v68^o,'-S'v68^f/v68^a,v68^n,v68^c,'-S'v68^f/v68^a,v68^n,v68^v,'-S'v68^f/v68^a,v68^n,v68^o,'-S'v68^f/v68^a,v68^c,v68^v,'-S'v68^f/v68^a,v68^c,v68^o,'-S'v68^f/v68^a,v68^v,v68^o,'-S'v68^f/v68^n,v68^c,v68^v,'-S'v68^f/v68^n,v68^c,v68^o,'-S'v68^f/v68^n,v68^v,v68^o,'-S'v68^f/v68^c,v68^v,v68^o,'-S'v68^f/v68^a,v68^n,'-S'v68^f/v68^a,v68^c,'-S'v68^f/v68^a,v68^v,'-S'v68^f/v68^a,v68^o,'-S'v68^f/v68^n,v68^c,'-S'v68^f/v68^n,v68^v,'-S'v68^f/v68^n,v68^o,'-S'v68^f/v68^c,v68^v,'-S'v68^f/v68^c,v68^o,'-S'v68^f/v68^v,v68^o,'-S'v68^f/v68^a,'-S'v68^f/v68^n,'-S'v68^f/v68^c,'-S'v68^f/v68^v,'-S'v68^f/v68^o,'-S'v68^f/'-S'v68^f/fi/)) fi,&uf('+7G68'),(|kk0=|g68/) fi