0
IF
if &unifor('IMAIN,DBEK1,')=''then '1' else '0' fi 
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
if val(&unifor('JIBIS,',ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))))>0 then 'IBIS' fi 
v210,'^3',f(mfn,1,0),'*^1',ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))
ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))
XXXXXXXXXXXXXXXXXXX
REP
606
F
(if p(v606) then if s('?',if v606:'^a' and v606^b='' and v606^G='' and v606^H='' and v606^9='' and v606^a*27=''then v606^a else v606^a.10, &unifor(|+B|v606^a*10)fi,if v606^d='' and v606^b*10='' and v606^b<>''then v606^b else v606^b.1,&unifor(|+B|v606^B*1) fi,&unifor(|+B|v606^c),&unifor(|+B|v606^d),&unifor(|+B|v606^G),&unifor(|+B|v606^E),&unifor(|+B|v606^O),&unifor(|B|v606^H),&unifor(|+B|v606^9))=&unifor('Av1001^1#1') then &unifor('G0*'&unifor('Av1001#1')) else v606 fi fi/)
XXXXXXXXXXXXXXXXXXX
REP
607
F
(if p(v607) then if s('?',if v607:'^a' and v607^b='' and v607^G='' and v607^H='' and v607^9='' and v607^a*27=''then v607^a else v607^a.10, &unifor(|+B|v607^a*10)fi,if v607^d='' and v607^b*10='' and v607^b<>''then v607^b else v607^b.1,&unifor(|+B|v607^B*1) fi,&unifor(|+B|v607^c),&unifor(|+B|v607^d),&unifor(|+B|v607^G),&unifor(|+B|v607^E),&unifor(|+B|v607^O),&unifor(|B|v607^H),&unifor(|+B|v607^9))=&unifor('Av1001^1#1') then &unifor('G0*'&unifor('Av1001#1')) else v607 fi fi/)
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if &unifor('IMAIN,DBEK1,')<>''then '1' else '0' fi 
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
if val(&unifor('J',&unifor('IMAIN,DBEK1,'),',',ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))))>0 then &unifor('IMAIN,DBEK1,') fi 
v210,'^3',f(mfn,1,0),'*^1',ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))
ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))
XXXXXXXXXXXXXXXXXXX
REP
606
F
(if p(v606) then if s('?',if v606:'^a' and v606^b='' and v606^G='' and v606^H='' and v606^9='' and v606^a*27=''then v606^a else v606^a.10, &unifor(|+B|v606^a*10)fi,if v606^d='' and v606^b*10='' and v606^b<>''then v606^b else v606^b.1,&unifor(|+B|v606^B*1) fi,&unifor(|+B|v606^c),&unifor(|+B|v606^d),&unifor(|+B|v606^G),&unifor(|+B|v606^E),&unifor(|+B|v606^O),&unifor(|B|v606^H),&unifor(|+B|v606^9))=&unifor('Av1001^1#1') then &unifor('G0*'&unifor('Av1001#1')) else v606 fi fi/)
XXXXXXXXXXXXXXXXXXX
REP
607
F
(if p(v607) then if s('?',if v607:'^a' and v607^b='' and v607^G='' and v607^H='' and v607^9='' and v607^a*27=''then v607^a else v607^a.10, &unifor(|+B|v607^a*10)fi,if v607^d='' and v607^b*10='' and v607^b<>''then v607^b else v607^b.1,&unifor(|+B|v607^B*1) fi,&unifor(|+B|v607^c),&unifor(|+B|v607^d),&unifor(|+B|v607^G),&unifor(|+B|v607^E),&unifor(|+B|v607^O),&unifor(|B|v607^H),&unifor(|+B|v607^9))=&unifor('Av1001^1#1') then &unifor('G0*'&unifor('Av1001#1')) else v607 fi fi/)
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if &unifor('IMAIN,DBEK2,')<>''then '1' else '0' fi 
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
if val(&unifor('J',&unifor('IMAIN,DBEK2,'),',',ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))))>0 then &unifor('IMAIN,DBEK2,') fi 
v210,'^3',f(mfn,1,0),'*^1',ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))
ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))
XXXXXXXXXXXXXXXXXXX
REP
606
F
(if p(v606) then if s('?',if v606:'^a' and v606^b='' and v606^G='' and v606^H='' and v606^9='' and v606^a*27=''then v606^a else v606^a.10, &unifor(|+B|v606^a*10)fi,if v606^d='' and v606^b*10='' and v606^b<>''then v606^b else v606^b.1,&unifor(|+B|v606^B*1) fi,&unifor(|+B|v606^c),&unifor(|+B|v606^d),&unifor(|+B|v606^G),&unifor(|+B|v606^E),&unifor(|+B|v606^O),&unifor(|B|v606^H),&unifor(|+B|v606^9))=&unifor('Av1001^1#1') then &unifor('G0*'&unifor('Av1001#1')) else v606 fi fi/)
XXXXXXXXXXXXXXXXXXX
REP
607
F
(if p(v607) then if s('?',if v607:'^a' and v607^b='' and v607^G='' and v607^H='' and v607^9='' and v607^a*27=''then v607^a else v607^a.10, &unifor(|+B|v607^a*10)fi,if v607^d='' and v607^b*10='' and v607^b<>''then v607^b else v607^b.1,&unifor(|+B|v607^B*1) fi,&unifor(|+B|v607^c),&unifor(|+B|v607^d),&unifor(|+B|v607^G),&unifor(|+B|v607^E),&unifor(|+B|v607^O),&unifor(|B|v607^H),&unifor(|+B|v607^9))=&unifor('Av1001^1#1') then &unifor('G0*'&unifor('Av1001#1')) else v607 fi fi/)
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
IF
if &unifor('IMAIN,DBEK3,')<>''then '1' else '0' fi 
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
CORREC
if val(&unifor('J',&unifor('IMAIN,DBEK3,'),',',ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))))>0 then &unifor('IMAIN,DBEK3,') fi 
v210,'^3',f(mfn,1,0),'*^1',ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))
ref((mfn),'?',if v210:'^a' and v210^b='' and v210^G='' and v210^H='' and v210^9='' and v210^a*27=''then v210^a else v210^a.10, &unifor("+B"v210^a*10)fi,if v210^d='' and v210^b*10='' and v210^b<>''then v210^b else v210^b.1,&unifor("+B"v210^B*1) fi,&unifor("+B"v210^c),&unifor("+B"v210^d),&unifor("+B"v210^G),&unifor("+B"v210^E),&unifor("+B"v210^O),&unifor("B"v210^H),&unifor("+B"v210^9))
XXXXXXXXXXXXXXXXXXX
REP
606
F
(if p(v606) then if s('?',if v606:'^a' and v606^b='' and v606^G='' and v606^H='' and v606^9='' and v606^a*27=''then v606^a else v606^a.10, &unifor(|+B|v606^a*10)fi,if v606^d='' and v606^b*10='' and v606^b<>''then v606^b else v606^b.1,&unifor(|+B|v606^B*1) fi,&unifor(|+B|v606^c),&unifor(|+B|v606^d),&unifor(|+B|v606^G),&unifor(|+B|v606^E),&unifor(|+B|v606^O),&unifor(|B|v606^H),&unifor(|+B|v606^9))=&unifor('Av1001^1#1') then &unifor('G0*'&unifor('Av1001#1')) else v606 fi fi/)
XXXXXXXXXXXXXXXXXXX
REP
607
F
(if p(v607) then if s('?',if v607:'^a' and v607^b='' and v607^G='' and v607^H='' and v607^9='' and v607^a*27=''then v607^a else v607^a.10, &unifor(|+B|v607^a*10)fi,if v607^d='' and v607^b*10='' and v607^b<>''then v607^b else v607^b.1,&unifor(|+B|v607^B*1) fi,&unifor(|+B|v607^c),&unifor(|+B|v607^d),&unifor(|+B|v607^G),&unifor(|+B|v607^E),&unifor(|+B|v607^O),&unifor(|B|v607^H),&unifor(|+B|v607^9))=&unifor('Av1001^1#1') then &unifor('G0*'&unifor('Av1001#1')) else v607 fi fi/)
XXXXXXXXXXXXXXXXXXX
DEL
1001
*
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
510
F
(v500/)
XXXXXXXXXXXXXXXXXXX
ADD
510
F
(v520/)
XXXXXXXXXXXXXXXXXXX
ADD
510
F
(v550/)
XXXXXXXXXXXXXXXXXXX
DEL
500
F
(if p(v510) then '1' else '0' fi/)
XXXXXXXXXXXXXXXXXXX
DEL
520
F
(if p(v510) then '1' else '0' fi/)
XXXXXXXXXXXXXXXXXXX
DEL
550
F
(if p(v510) then '1' else '0' fi/)
XXXXXXXXXXXXXXXXXXX
IF
if s(v510)<>''then '1' else '0' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
1002
XXXXXXXXXXXXXXXXXXX
rubr
XXXXXXXXXXXXXXXXXXX
REPEAT
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
NEWMFN
if &unifor('Av1002#1'):'^a'then if &unifor('JATHRS,','!',if &unifor('Av1002#1'):'^a' and &unifor('Av1002^b#1')='' and &unifor('Av1002^G#1')='' and &unifor('Av1002^H#1')='' and &unifor('Av1002^9#1')='' and &unifor('Av1002^a*27#1')=''then &unifor('Av1002^a#1') else &unifor('Av1002^a.10#1'),&unifor('+B'&unifor('Av1002^a*10#1'))fi,if &unifor('Av1002^B#1')<>''then if &unifor('Av1002^d#1')='' and &unifor('Av1002^b*10#1')='' then &unifor('Av1002^b#1') else &unifor('Av1002^b.1#1'),&unifor('+B'&unifor('Av1002^B*1#1')) fi fi,if &unifor('Av1002^C#1')<>''then &unifor('+B'&unifor('Av1002^C#1')) fi,if &unifor('Av1002^D#1')<>''then &unifor('+B'&unifor('Av1002^d#1')) fi,if &unifor('Av1002^G#1')<>''then &unifor('+B'&unifor('Av1002^G#1')) fi,if &unifor('Av1002^E#1')<>''then &unifor('+B'&unifor('Av1002^E#1')) fi,if &unifor('Av1002^O#1')<>''then &unifor('+B'&unifor('Av1002^O#1')) fi,if &unifor('Av1002^H#1')<>''then &unifor('B'&unifor('Av1002^H#1')) fi,if &unifor('Av1002^9#1')<>''then &unifor('+B'&unifor('Av1002^9#1')) fi)=''then 'ATHRS' else fi fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
210
XXXXXXXXXXXXXXXXXXX
if &unifor('Av1002#1'):'^A' then '^A'&unifor('Av1002^a#1'),if &unifor('Av1002#1'):'^B'then '^B',&unifor('Av1002^b#1')fi,if &unifor('Av1002#1'):'^C'then '^C',&unifor('Av1002^c#1')fi,if &unifor('Av1002#1'):'^D'then '^D',&unifor('Av1002^d#1') fi,if &unifor('Av1002#1'):'^G'then '^G',&unifor('Av1002^G#1') fi,if &unifor('Av1002#1'):'^E'then '^E',&unifor('Av1002^E#1') fi,if &unifor('Av1002#1'):'^O'then '^O',&unifor('Av1002^O#1') fi,if &unifor('Av1002#1'):'^H'then '^H',&unifor('Av1002^H#1') fi,if &unifor('Av1002#1'):'^9'then '^9',&unifor('Av1002^9#1') fi,if &unifor('Av1002#1'):'^1'then '^1',&unifor('Av1002^1#1') fi,if &unifor('Av1002#1'):'^2'then '^2',&unifor('Av1002^2#1') fi,if &unifor('Av1002#1'):'^3'then '^3',&unifor('Av1002^3#1') fi,if &unifor('Av1002#1'):'^4'then '^4',&unifor('Av1002^4#1') fi,if &unifor('Av1002#1'):'^5'then '^5',&unifor('Av1002^5#1') fi,if &unifor('Av1002#1'):'^6'then '^6',&unifor('Av1002^6#1') fi fi
XXXXXXXXXXXXXXXXXXX
ADD
801
XXXXXXXXXXXXXXXXXXX
'^A',&unifor('Korg.mnu|1'),'^B',&unifor('Korg.mnu|2'),'^10','^C',&unifor('3')
XXXXXXXXXXXXXXXXXXX
ADD
920
XXXXXXXXXXXXXXXXXXX
'ATHRS'
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
NEWMFN
if &unifor('Av1002#1'):'^X' or (&unifor('Av1002#1'):'^Z' and  &unifor('Av1002^X#1')='' and  &unifor('Av1002^I#1')='')then if &unifor('JATHRS,','!',if &unifor('Av1002^X*23.1#1')<>''then &unifor('B'&unifor('Av1002^X#1')) else &unifor('Av1002^X#1'),if &unifor('Av1002^?#1')='' then &unifor('Av1002^Y#1') else &unifor('B'&unifor('Av1002^?#1'))fi,if &unifor('Av1002^1#1')<>''then &unifor('Av1002^=#1') fi,if &unifor('Av1002^F#1')<>'' then &unifor('Av1002^F#1') fi,if &unifor('Av1002^K#1')<>'' then &unifor('+B'&unifor('Av1002^K#1')) fi,if &unifor('Av1002^M#1')<>'' then &unifor('+B'&unifor('Av1002^M#1')) fi,if &unifor('Av1002^6#1')<>'' then &unifor('+B'&unifor('Av1002^6#1')) fi,if &unifor('Av1002^Q#1')<>'' then &unifor('+B'&unifor('Av1002^Q#1')) fi,if &unifor('Av1002^T#1')<>'' then &unifor('+B'&unifor('Av1002^T#1')) fi,if &unifor('Av1002^O#1')<>'' then &unifor('+B'&unifor('Av1002^O#1')) fi,if &unifor('Av1002^J#1')<>'' then &unifor('+B'&unifor('Av1002^J#1')) fi,if &unifor('Av1002^0#1')<>'' then &unifor('B'&unifor('Av1002^0#1')) fi,if &unifor('Av1002^Z#1')<>'' then &unifor('+B'&unifor('Av1002^Z#1')) fi,if &unifor('Av1002^5#1')<>'' then &unifor('+B'&unifor('Av1002^5#1')) fi,if &unifor('Av1002^+#1')<>'' then &unifor('+B'&unifor('Av1002^+#1')) fi fi)=''then 'ATHRS' else fi fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
210
XXXXXXXXXXXXXXXXXXX
if &unifor('Av1002#1'):'^X'then '^A',&unifor('Av1002^X#1'),if &unifor('Av1002#1'):'^Y'then '^B',&unifor('Av1002^Y#1')fi,if &unifor('Av1002#1'):'^1'then '^1',&unifor('Av1002^1#1')fi,if &unifor('Av1002#1'):'^/'then '^C',&unifor('Av1002^/#1')fi,if &unifor('Av1002#1'):'^='then '^D',&unifor('Av1002^=#1') fi,if &unifor('Av1002#1'):'^?'then '^G',&unifor('Av1002^?#1') fi,if &unifor('Av1002#1'):'^F'then '^F',&unifor('Av1002^F#1') fi,if &unifor('Av1002#1'):'^K'then '^K',&unifor('Av1002^K#1') fi,if &unifor('Av1002#1'):'^M'then '^M',&unifor('Av1002^M#1') fi,if &unifor('Av1002#1'):'^6'then '^6',&unifor('Av1002^6#1') fi,if &unifor('Av1002#1'):'^Q'then '^T',&unifor('Av1002^T#1') fi,if &unifor('Av1002#1'):'^O'then '^O',&unifor('Av1002^O#1') fi,if &unifor('Av1002#1'):'^J'then '^J',&unifor('Av1002^J#1') fi,if &unifor('Av1002#1'):'^0'then '^0',&unifor('Av1002^0#1') fi,if &unifor('Av1002#1'):'^J'then '^J',&unifor('Av1002^J#1') fi,if &unifor('Av1002#1'):'^Z'then '^Z',&unifor('Av1002^Z#1') fi,if &unifor('Av1002#1'):'^:'then '^:',&unifor('Av1002^:#1') fi, if &unifor('Av1002#1'):'^2'then '^2',&unifor('Av1002^2#1') fi,if &unifor('Av1002#1'):'^.'then '^.',&unifor('Av1002^.#1') fi,if &unifor('Av1002#1'):'^+'then '^+',&unifor('Av1002^+#1') fi,if &unifor('Av1002#1'):'^;'then '^;',&unifor('Av1002^;#1') fi,if &unifor('Av1002#1'):'^,'then '^,',&unifor('Av1002^,#1') fi, if &unifor('Av1002#1'):'^<'then '^<',&unifor('Av1002^<#1') fi, if &unifor('Av1002#1'):'^>'then '^>',&unifor('Av1002^>#1') fi, if &unifor('Av1002#1'):'^7'then '^7',&unifor('Av1002^7#1') fi,if &unifor('Av1002#1'):'^:'then '^8',&unifor('Av1002^8#1') fi fi,
XXXXXXXXXXXXXXXXXXX
ADD
801
XXXXXXXXXXXXXXXXXXX
'^A',&unifor('Korg.mnu|1'),'^B',&unifor('Korg.mnu|2'),'^10','^C',&unifor('3')
XXXXXXXXXXXXXXXXXXX
ADD
920
XXXXXXXXXXXXXXXXXXX
'ATHRA'
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
NEWMFN
if &unifor('Av1002#1'):'^I'then if &unifor('JATHRS,',if &unifor('Av1002^N#1')='' and &unifor('Av1002^W#1')='' and &unifor('Av1002^P#1')='' and  &unifor('Av1002#1'):'^4' then '!',&unifor('Av1002^4#1'),if &unifor('Av1002^I*6.1#1')<>''then &unifor('B',&unifor('Av1002^I#1')) else &unifor('Av1002^I#1') fi,if &unifor('Av1002^S*6.1#1')<>''then &unifor('B'&unifor('Av1002^S#1')) else &unifor('Av1002^S#1') fi, else if &unifor('Av1002#1'):'^N' or &unifor('Av1002#1'):'^W' or &unifor('Av1002#1'):'^P' then '!',&unifor('Av1002^N#1'),&unifor('Av1002^W#1'),&unifor('Av1002^P#1'),if &unifor('Av1002^I*6.1#1')<>''then &unifor('B'&unifor('Av1002^I#1'))else &unifor('Av1002^I#1') fi fi fi,if &unifor('Av1002^K#1')<>'' then &unifor('+B'&unifor('Av1002^K#1')) fi,if &unifor('Av1002^M#1')<>'' then &unifor('+B'&unifor('Av1002^M#1')) fi,if &unifor('Av1002^6#1')<>'' then &unifor('+B'&unifor('Av1002^6#1')) fi,if &unifor('Av1002^Q#1')<>'' then &unifor('+B'&unifor('Av1002^Q#1')) fi,if &unifor('Av1002^T#1')<>'' then &unifor('+B'&unifor('Av1002^T#1')) fi,if &unifor('Av1002^O#1')<>'' then &unifor('+B'&unifor('Av1002^O#1')) fi,if &unifor('Av1002^J#1')<>'' then &unifor('+B'&unifor('Av1002^J#1')) fi,if &unifor('Av1002^0#1')<>'' then &unifor('+B'&unifor('Av1002^0#1')) fi,if &unifor('Av1002^Z#1')<>'' then &unifor('+B'&unifor('Av1002^Z#1')) fi,if &unifor('Av1002^5#1')<>'' then &unifor('+B'&unifor('Av1002^5#1')) fi,if &unifor('Av1002^+#1')<>'' then &unifor('+B'&unifor('Av1002^+#1')) fi)=''then 'ATHRS' else fi fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
210
XXXXXXXXXXXXXXXXXXX
if &unifor('Av1002#1'):'^I'then '^A',&unifor('Av1002^I#1'),if &unifor('Av1002#1'):'^S'then '^B',&unifor('Av1002^S#1')fi,if &unifor('Av1002#1'):'^N'then '^D',&unifor('Av1002^N#1')fi,if &unifor('Av1002#1'):'^W'then '^F',&unifor('Av1002^W#1') fi,if &unifor('Av1002#1'):'^P'then '^E',&unifor('Av1002^E#1') fi,if &unifor('Av1002#1'):'^4'then '^C',&unifor('Av1002^4#1') fi,if &unifor('Av1002#1'):'^K'then '^K',&unifor('Av1002^K#1') fi,if &unifor('Av1002#1'):'^M'then '^M',&unifor('Av1002^M#1') fi,if &unifor('Av1002#1'):'^6'then '^6',&unifor('Av1002^6#1') fi,if &unifor('Av1002#1'):'^Q'then '^T',&unifor('Av1002^T#1') fi,if &unifor('Av1002#1'):'^O'then '^O',&unifor('Av1002^O#1') fi,if &unifor('Av1002#1'):'^J'then '^J',&unifor('Av1002^J#1') fi,if &unifor('Av1002#1'):'^0'then '^0',&unifor('Av1002^0#1') fi,if &unifor('Av1002#1'):'^J'then '^J',&unifor('Av1002^J#1') fi,if &unifor('Av1002#1'):'^Z'then '^Z',&unifor('Av1002^Z#1') fi,if &unifor('Av1002#1'):'^:'then '^:',&unifor('Av1002^:#1') fi, if &unifor('Av1002#1'):'^2'then '^2',&unifor('Av1002^2#1') fi,if &unifor('Av1002#1'):'^.'then '^.',&unifor('Av1002^.#1') fi,if &unifor('Av1002#1'):'^+'then '^+',&unifor('Av1002^+#1') fi,if &unifor('Av1002#1'):'^;'then '^;',&unifor('Av1002^;#1') fi,if &unifor('Av1002#1'):'^,'then '^,',&unifor('Av1002^,#1') fi, if &unifor('Av1002#1'):'^<'then '^<',&unifor('Av1002^<#1') fi, if &unifor('Av1002#1'):'^>'then '^>',&unifor('Av1002^>#1') fi, if &unifor('Av1002#1'):'^7'then '^7',&unifor('Av1002^7#1') fi,if &unifor('Av1002#1'):'^:'then '^8',&unifor('Av1002^8#1') fi fi,
XXXXXXXXXXXXXXXXXXX
ADD
801
XXXXXXXXXXXXXXXXXXX
'^A',&unifor('Korg.mnu|1'),'^B',&unifor('Korg.mnu|2'),'^10','^C',&unifor('3')
XXXXXXXXXXXXXXXXXXX
ADD
920
XXXXXXXXXXXXXXXXXXX
'ATHRC'
XXXXXXXXXXXXXXXXXXX
END
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
DEL
1002
1
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
UNTIL
if p(v1002) then '1' else '' fi
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
FI
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXX
ADD
907
XXXXXXXXXXXXXXXXXXX
if rsum((if p(v907) then if v907^a = &unifor(|3|d907) and v907^b = &unifor('IPRIVATE,FIO,') then '1;'else'0;'fi fi))> 0 then else '^A',&unifor('3'),'^B',&unifor('IPRIVATE,FIO,') fi
XXXXXXXXXXXXXXXXXXX