(antb)

      MEMBER('ANT')
!      
S     PROCEDURE
M     GROUP
M1    REAL,DIM(79,14)                     !T17
MK    REAL,DIM(8,14)
MG    REAL,DIM(350,14).
      CODE
      CLEAR(M)
      BUFFER(LIC,0.9)
      SET(LIC)
      LOOP UNTIL EOF(LIC)
      NEXT(LIC)
           CLEAR(T17:RECORD)
      T17:PNOMBER=LIC:PNOMBER
      GET(T17,T17:C)
      IF ~ERRORCODE()
      M1[LIC:NREGION,1]+=T17:F001/1000       MG[LIC:NCITY,1]+=T17:F001/1000
      M1[LIC:NREGION,2]+=T17:F004/1000       MG[LIC:NCITY,2]+=T17:F004/1000
      M1[LIC:NREGION,3]+=T17:F010/1000       MG[LIC:NCITY,3]+=T17:F010/1000
      IF T17:F018>0
      THEN
      M1[LIC:NREGION,4]+=T17:F018/1000       MG[LIC:NCITY,4]+=T17:F018/1000
      ELSE
      IF T17:F020>0
      M1[LIC:NREGION,4]-=T17:F020/1000
      MG[LIC:NCITY,4]-=T17:F020/1000...
      CLEAR(T67:RECORD)
      T67:PNOMBER=LIC:PNOMBER
      GET(T67,T67:C)
      IF ~ERRORCODE()
           M1[LIC:NREGION,5]+=T67:A400N/1000
      MG[LIC:NCITY,5]+=T67:A400N/1000
                                          M1[LIC:NREGION,6]+=T67:A400K/1000
MG[LIC:NCITY,6]+=T67:A400K/1000           M1[LIC:NREGION,7]+=T67:A495N/1000
MG[LIC:NCITY,7]+=T67:A495N/1000           M1[LIC:NREGION,8]+=T67:A495K/1000
MG[LIC:NCITY,8]+=T67:A495K/1000.
       CLEAR(F92:RECORD)
      F92:PNOMBER=LIC:PNOMBER
       GET(F92,F92:FC)
      IF ~ERRORCODE()
          M1[LIC:NREGION,9]+=F92:F1/1000       MG[LIC:NCITY,9]+=F92:F1/1000
M1[LIC:NREGION,10]+=F92:F7/1000               MG[LIC:NCITY,10]+=F92:F7/1000
M1[LIC:NREGION,11]+=F92:F10/1000  MG[LIC:NCITY,11]+=F92:F10/1000
      IF F92:F19>0
      THEN
      M1[LIC:NREGION,12]+=F92:F19/1000       MG[LIC:NCITY,12]+=F92:F19/1000
      ELSE
      IF F92:F21>0
      M1[LIC:NREGION,12]-=F92:F21/1000
      MG[LIC:NCITY,12]-=F92:F21/1000...
      CLEAR(SVV:RECORD)
      SVV:PNOM=LIC:PNOMBER
      SVV:KZ=2
      GET(SVV,SVV:K)
      IF ~ERRORCODE()
      M1[LIC:NREGION,13]+=SVV:CR2
      MG[LIC:NCITY,13]+=SVV:CR2.
      CLEAR(DF:RECORD)
      DF:PNOMBER=LIC:PNOMBER
      GET(DF,DF:C)
      IF ~ERRORCODE()
      M1[LIC:NREGION,14]+=DF:S750N     MG[LIC:NCITY,14]+=DF:S750N.
      .
      LOOP N#=24 TO 31
      TER:KODT=N#
      SET(TER:K,TER:K)
      LOOP UNTIL EOF(TERR)
      NEXT(TERR)
      IF TER:KODT<>N# THEN BREAK.
      LOOP M#=1 TO 14 MK[N#-23,M#]+=M1[TER:NREGION,M#]...
      LOOP I#=1 TO 8
      F:NKUST=I#+23
      F:F1=MK[I#,5]
      F:F2=MK[I#,6]
      F:F3=MK[I#,7]
      F:F4=MK[I#,8]
      F:F5=MK[I#,12]
      F:F6=MK[I#,4]
      F:F9=MK[I#,10]
      F:F10=MK[I#,2]
      F:F11=MK[I#,9]
      F:F12=MK[I#,1]
      F:F13=MK[I#,11]
      F:F14=MK[I#,3]
      F:F15=MK[I#,13]
      F:F16=MK[I#,14]
      ADD(F).
      LOOP I#=1 TO 79
      F:NKUST=0
      F:NREGION=I#
      F:F1=M1[I#,5]
      F:F2=M1[I#,6]
      F:F3=M1[I#,7]
      F:F4=M1[I#,8]
      F:F5=M1[I#,12]
      F:F6=M1[I#,4]
      F:F9=M1[I#,10]
      F:F10=M1[I#,2]
      F:F11=M1[I#,9]
      F:F12=M1[I#,1]
      F:F13=M1[I#,11]
      F:F14=M1[I#,3]
      F:F15=M1[I#,13]
      F:F16=M1[I#,14]
      ADD(F).
      LOOP I#=1 TO 350
      F:NKUST=0
      F:NREGION=0
      F:NGOR=I#
      F:F1=MG[I#,5]
      F:F2=MG[I#,6]
      F:F3=MG[I#,7]
      F:F4=MG[I#,8]
      F:F5=MG[I#,12]
      F:F6=MG[I#,4]
      F:F9=MG[I#,10]
      F:F10=MG[I#,2]
      F:F11=MG[I#,9]
      F:F12=MG[I#,1]
      F:F13=MG[I#,11]
      F:F14=MG[I#,3]
      F:F15=MG[I#,13]
      F:F16=MG[I#,14]
      ADD(F).
!     PUT(F).
!       -----    ------
AT2   PROCEDURE
YU    DOS,ASCII,NAME('YU.YU')
      RECORD
ST    STRING(140)..
      GROUP,OVER(ST)
      STRING(1)
ST2   STRING(32)
      STRING(4)
ST3   STRING(@N-_8.2)
      STRING(1)
ST4   STRING(@N_10.2)
      STRING(1)
ST5   STRING(@N_8.2)
      STRING(1)
ST6   STRING(@N_9.2)
      STRING(1)
ST7   STRING(@N_8.2)
      STRING(1)
ST8   STRING(@N_10.2)
      STRING(1)
ST9   STRING(@N-_10.2)
      STRING(1)
ST10  STRING(@N_10.2)
      STRING(1)
ST11  STRING(@N-_9.2)
      STRING(1)
ST12  STRING(@N_8.2)
      .
YU1   DOS,ASCII,NAME('YU1.YU')
      RECORD
STT   STRING(130)..
      GROUP,OVER(STT)
      STRING(1)
ST02  STRING(32)
      STRING(5)
ST13  STRING(@N_8.2)
      STRING(3)
ST14  STRING(@N_9.2)
      STRING(3)
ST15  STRING(@N_7.2)
      STRING(3)
ST16  STRING(@N_9.2)
      STRING(3)
ST17  STRING(@N_9.2)
      STRING(3)
ST18  STRING(@N_8.2)
      STRING(3)
ST19  STRING(@N-_8.2)
      STRING(3)
ST20  STRING(@N_9.2)
      .
M     GROUP
M1    REAL,DIM(79,14)                     !T17
MK    REAL,DIM(8,14)
MG    REAL,DIM(350,14).
      CODE
      PN#=0
      CREATE(YU)
                         ST='   
'
                         ST=CENTER(ST)
                         ADD(YU)
                         CLEAR(ST)
                         ST='                          ..   '
                         ADD(YU)
CLEAR(ST)                                                              ST='
                           ' ADD(YU)
CLEAR(ST)
ST='                                     (       
                 (  )  %     '
ADD(YU)
CLEAR(ST)
ST='                         ()         
        

'
ADD(YU)
CLEAR(ST)
ST='                                                                    
                            '
ADD(YU)
CLEAR(ST)
ST='          
                                                                '
ADD(YU)
CLEAR(ST)
ST='                                     1994       1995       1994   
1995     1994    1995       1994     1995          1992    1993  '
ADD(YU)
CLEAR(ST) ST='

          '
ADD(YU)
CLEAR(ST)
ST='                  1                    2       3         4       5
       6       7          8              9                10       11
 '
ADD(YU)
CLEAR(ST) ST='

           '
ADD(YU)
CLEAR(ST)
CREATE(YU1)
STT='     '
STT=CENTER(STT)
ADD(YU1)
CLEAR(STT)
STT='      ()'
ADD(YU1)
CLEAR(STT) STT='
                                                                    '
ADD(YU1)
CLEAR(STT)
STT='                                                   
-         - - -  %     '
ADD(YU1)
CLEAR(STT)
STT='                                                
 - '
ADD(YU1)
CLEAR(STT)
STT='                                                              
               '
ADD(YU1)
CLEAR(STT)
STT='          
                                                    '
ADD(YU1)
CLEAR(STT)
STT='                                      1994      1995     1994    
 1995        1994      1995      1994      1995    '
 ADD(YU1)
CLEAR(STT)                                                            STT='
                
ADD(YU1)
CLEAR(STT)
STT='                  1                    12        13       14     
  15          16        17        18           19     '
ADD(YU1)
CLEAR(STT)STT='
ADD(YU1)
CLEAR(STT)
INS:NTER=0
SET(INS:K1,INS:K1)
LOOP UNTIL EOF(INSP)                  ! 1
NEXT(INSP)
PN#=0
if ins:nter>23                                     ! 2
THEN
ST2=CLIP(INS:NAME)&' '
ST02=CLIP(INS:NAME)&' '
ELSE
ST2=' '
ADD(yu)
ST2=INS:NAME
ST02=' '
ADD(YU1)
ST02=INS:NAME.                             ! 2
TER:KODT=INS:NTER
SET(TER:K1,TER:K1)
LOOP UNTIL EOF(TERR)                 ! 3
NEXT(TERR)
IF TER:KODT<>INS:NTER THEN BREAK.
IF INS:NTER>23 AND PN#=0            ! 4
F:NKUST=INS:NTER
GET(F,F:K1)
IF F:F5>0
ST3=F:F5.
IF F:F6>0
ST4=F:F6.
IF F:F1>0
ST5=F:F1.
IF F:F2>0
ST6=F:F2.
IF F:F11>0
ST7=F:F11.
IF F:F12>0
ST8=F:F12.
IF ST3>0 AND ST5>0
ST9=ST3/ST5*100.
IF ST4>0 AND ST6>0
ST10=ST4/ST6*100.
IF ST3>0 AND ST7>0
ST11=ST3/ST7*100.
IF ST4>0 AND ST8>0
ST12=ST4/ST8*100.
IF F:F3>0
ST13=F:F3.
IF F:F4>0
ST14=F:F4.
IF F:F9>0
ST15=F:F9.
IF F:F10>0
ST16=F:F10.
IF ST15>0 AND ST13>0
ST17=ST15/ST13*100.
IF ST16>0 AND ST14>0
ST18=ST16/ST14*100.
IF ST15>0 AND ST3>0
ST19=ST15/ST3*100.
IF ST16>0 AND ST4>0
ST20=ST16/ST4*100.
PN#=1
ADD(YU)
CLEAR(ST)
ADD(YU1)
CLEAR(STT)
ADD(YU1)
ADD(YU).
           ! 4
XRE:NREGION=TER:NREGION
SET(XRE:K1,XRE:K1)
LOOP                            UNTIL                             EOF(XREG)
! 5
NEXT(XREG)
IF XRE:NREGION<>TER:NREGION THEN BREAK.
 IF INS:NTER>23
ST2=XRE:IREG.
ST02=ST2
F:NREGION=XRE:NREGION
GET(F,F:K2)
IF F:F5>0
ST3=F:F5.
IF F:F6>0
ST4=F:F6.
IF F:F1>0
ST5=F:F1.
IF F:F2>0
ST6=F:F2.
IF F:F11>0
ST7=F:F11.
IF F:F12>0
ST8=F:F12.
IF ST3>0 AND ST5>0
ST9=ST3/ST5*100.
IF ST4>0 AND ST6>0
ST10=ST4/ST6*100.
IF ST3>0 AND ST7>0
ST11=ST3/ST7*100.
IF ST4>0 AND ST8>0
ST12=ST4/ST8*100.
IF F:F3>0
ST13=F:F3.
IF F:F4>0
ST14=F:F4.
IF F:F9>0
ST15=F:F9.
IF F:F10>0
ST16=F:F10.
IF ST15>0 AND ST13>0 ST17=ST15/ST13*100.
IF ST16>0 AND ST14>0 ST18=ST16/ST14*100.
IF ST15>0 AND ST3>0
ST19=ST15/ST3*100.
IF ST16>0 AND ST4>0
ST20=ST16/ST4*100.
ADD(YU)
CLEAR(ST)
ADD(YU1)
CLEAR(STT)
ADD(YU)
ADD(YU1)
GOR:GOROD='    '
SET(GOR:CGOR,GOR:CGOR)
LOOP UNTIL EOF(GOR)                     ! 6
NEXT(GOR)
IF GOR:NREGION<>XRE:NREGION THEN CYCLE.
F:NGOR=GOR:KG
GET(F,F:K3)
IF F:F5>0
ST3=F:F5.
IF F:F6>0
ST4=F:F6.
IF F:F1>0
ST5=F:F1.
IF F:F2>0
ST6=F:F2.
IF F:F11>0
ST7=F:F11.
IF F:F12>0
ST8=F:F12.
IF ST3>0 AND ST5>0 ST9=ST3/ST5*100.
IF ST4>0 AND ST6>0 ST10=ST4/ST6*100.
IF ST3>0 AND ST7>0 ST11=ST3/ST7*100.
IF ST4>0 AND ST8>0 ST12=ST4/ST8*100.
IF F:F3>0
ST13=F:F3.
IF F:F4>0
ST14=F:F4.
IF F:F9>0
ST15=F:F9.
IF F:F10>0
ST16=F:F10.
IF ST15>0 AND ST13>0
ST17=ST15/ST13*100.
IF ST16>0 AND ST14>0
ST18=ST16/ST14*100.
IF ST15>0 AND ST3>0
ST19=ST15/ST3*100.
IF ST16>0 AND ST14>0
ST20=ST16/ST4*100.
IF ~ST AND ~STT THEN CYCLE.
ST2=GOR:GOROD
ST02=GOR:GOROD
ADD(YU)
CLEAR(ST)
ADD(YU1)
CLEAR(STT)
ADD(YU)
ADD(YU1)
LIC:NREGION=XRE:NREGION
LIC:KNAM='  '
SET(LIC:CNREG,LIC:CNREG)
LOOP                             UNTIL                             EOF(LIC)
                  ! 7
NEXT(LIC)
IF LIC:NREGION<>XRE:NREGION THEN BREAK.
IF LIC:NCITY<>GOR:KG THEN CYCLE.
(T67:RECORD)
T67:PNOMBER=LIC:PNOMBER
GET(T67,T67:C)
IF ~ERRORCODE()
IF T67:A400N>0
ST5=T67:A400N/1000.
IF T67:A400K>0
ST6=T67:A400K/1000.
IF T67:A495N>0
ST13=T67:A495N/1000.
IF T67:A495K>0
ST14=T67:A495K/1000..
CLEAR(T17:RECORD)
T17:PNOMBER=LIC:PNOMBER
GET(T17,T17:C)
IF                                                             ~ERRORCODE()
                    ! 8
IF                                                               T17:F018>0
                          ! 9
THEN
ST4=T17:F018/1000
ELSE
IF                                                               T17:F020>0
                           ! 10
ST4=-T17:F020/1000..
                        ! 9, 10
IF T17:F001>0
ST8=T17:F001/1000.
IF T17:F004>0
ST16=T17:F004/1000..
                         ! 8
CLEAR(F92:RECORD)
F92:PNOMBER=LIC:PNOMBER
GET(F92,F92:FC)
IF                                                             ~ERRORCODE()
                       ! 11
IF F92:F19>0
      THEN
      ST3=F92:F19/1000
      ELSE
      IF F92:F21>0
      ST3=-F92:F21/1000..
      IF F92:F1>0
      ST7=F92:F1/1000.
      IF F92:F7>0
                                                         ST15=F92:F7/1000..
                             ! 11
                         IF ST3<>0 AND ST5>0
      ST9=ST3/ST5*100.
      IF ST4>0 AND ST6>0
      ST10=ST4/ST6*100.
      IF ST3<>0 AND ST7>0
      ST11=ST3/ST7*100.
      IF ST4>0 AND ST8>0
      ST12=ST4/ST8*100.
      IF ST13>0 AND ST15>0
      ST17=ST15/ST13*100.
      IF ST14>0 AND ST16>0
      ST18=ST16/ST14*100.
      IF ST15>0 AND ST3<>0
      ST19=ST15/ST3*100.
      IF ST16>0 AND ST4>0
      ST20=ST16/ST4*100.
      IF ST OR STT                                 ! 12
       PN#+=1
      ST2='  '&LIC:KNAM
      ST02='  '&LIC:KNAM
      ADD(YU)
      CLEAR(ST)
      ADD(YU1)
      CLEAR(STT).                                 ! 12
      CLEAR(ST)
      CLEAR(STT).                                 ! 7
      ADD(YU)
      ADD(YU1)...                                  ! 6, 5, 3
      .                                                   ! 1
!     --------      --------
AT1   PROCEDURE
YU    DOS,ASCII,NAME('YU.YU')
      RECORD
ST    STRING(210)..
      GROUP,OVER(ST)
      STRING(1)
ST2   STRING(32)
      STRING(2)
ST3   STRING(@N_8.1)
      STRING(1)
ST4   STRING(@N_9.1)
      STRING(1)
ST5   STRING(@N-_9.1)
      STRING(1)
ST6   STRING(@N_9.1)
      STRING(1)
ST7   STRING(@N_8.1)
      STRING(1)
ST8   STRING(@N_9.1)
      STRING(1)
ST9   STRING(@N-_9.1)
      STRING(1)
ST10  STRING(@N_9.1)
      STRING(1)
ST11  STRING(@N_7.1)
      STRING(1)
ST12  STRING(@N_9.1)
      STRING(1)
ST13  STRING(@N-_10.1)
      STRING(1)
ST14  STRING(@N_9.1)
      STRING(1)
ST15  STRING(@N_8.1)
      STRING(1)
ST16  STRING(@N_10.1)
      STRING(1)
ST17  STRING(@N-_11.1)
      STRING(1)
ST18  STRING(@N_10.1)
      .
T     REAL
      CODE
      PN#=0
      CREATE(YU)
       ST='             
 '
      ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST)
      ST='


                                       '
      ADD(YU)
      CLEAR(ST)
      ST='                                      
                
()     ( )'
      ADD(YU)
      CLEAR(ST)
      ST='                       (   )  
   (    )                    
 -    (  )    '
      ADD(YU)
      CLEAR(ST)
      ST='                                                          (+/-
)                                (+/-)                            
                                            '
      ADD(YU)
      CLEAR(ST)
      ST='       o  ________________________
____________________________________________________________________________
____________________________________________________________________________
______________________________ 
      ADD(YU)
      CLEAR(ST)
      ST='                                    1994    1995      
  %     1994     1995          %    1994    1995      
    %     1994     1995             %   '
      ADD(YU)
      CLEAR(ST)
      ST='

                                                    '
      ADD(YU)
      CLEAR(ST)
      ST='                   1                  2      3        4     
  5        6       7        8        9       10        11         12
    13      14       15        16         17    '
      ADD(YU)
      CLEAR(ST)
      ST='

                                                    '
      ADD(YU)
      CLEAR(ST)
      INS:NTER=0
      SET(INS:K1,INS:K1)
      LOOP UNTIL EOF(INSP)
      NEXT(INSP)
      PN#=0
      if ins:nter>23
      THEN
      ST2=CLIP(INS:NAME)&' '
      ELSE
      ST2=' '
      ADD(yu)=INS:NAME.
TER:KODT=INS:NTER
SET(TER:K1,TER:K1)
LOOP UNTIL EOF(TERR)
NEXT(TERR)
IF TER:KODT<>INS:NTER THEN BREAK.
IF INS:NTER>23 AND PN#=0
F:NKUST=INS:NTER
GET(F,F:K1)
IF F:F1>0
ST3=F:F1.
IF F:F2>0
ST4=F:F2.
IF F:F3>0
ST7=F:F3.
IF F:F4>0
ST8=F:F4.
IF F:F11>0
ST11=F:F11.
IF F:F12>0
ST12=F:F12.
IF ST3 OR ST4
ST5=ST4-ST3.
IF ST3>0 AND ST4>0
ST6=ST4/ST3*100.
IF ST7 OR ST8
ST9=ST8-ST7.
IF ST7>0 AND ST8>0
ST10=ST8/ST7*100.
IF ST12 OR ST11
ST13=ST12-ST11.
IF ST12>0 AND ST11>0
ST14=ST12/ST11*100.
IF F:F13>0
ST15=F:F13.
IF F:F14>0
ST16=F:F14.
IF ST15 OR ST16
ST17=ST16-ST15.
IF ST15>0 AND ST16>0
ST18=ST16/ST15*100.
PN#=1
ADD(YU)
CLEAR(ST)
ADD(YU). XRE:NREGION=TER:NREGION SET(XRE:K1,XRE:K1)
LOOP UNTIL EOF(XREG)
NEXT(XREG)
IF XRE:NREGION<>TER:NREGION THEN BREAK.
IF INS:NTER>23
ST2=XRE:IREG.
F:NREGION=XRE:NREGION
GET(F,F:K2)
IF F:F1>0
ST3=F:F1.
IF F:F2>0
ST4=F:F2.
IF F:F3>0
ST7=F:F3.
IF F:F4>0
ST8=F:F4.
IF F:F11>0
ST11=F:F11.
IF F:F12>0
ST12=F:F12.
IF ST3 OR ST4
ST5=ST4-ST3.
IF ST3>0 AND ST4>0
ST6=ST4/ST3*100.
IF ST7 OR ST8
ST9=ST8-ST7.
IF ST7>0 AND ST8>0
ST10=ST8/ST7*100.
IF ST12 OR ST11
ST13=ST12-ST11.
IF ST12>0 AND ST11>0
ST14=ST12/ST11*100.
IF F:F13>0
ST15=F:F13.
IF F:F14>0
ST16=F:F14.
IF ST15 OR ST16
ST17=ST16-ST15.
IF ST15>0 AND ST16>0
ST18=ST16/ST15*100.
ADD(YU)
CLEAR(ST)
GOR:GOROD='    '
SET(GOR:CGOR,GOR:CGOR)
LOOP UNTIL EOF(GOR)
NEXT(GOR)
IF GOR:NREGION<>XRE:NREGION THEN CYCLE.
F:NGOR=GOR:KG
GET(F,F:K3)
IF F:F1>0
ST3=F:F1.
IF F:F2>0
ST4=F:F2.
IF F:F3>0
ST7=F:F3.
IF F:F4>0
ST8=F:F4.
IF F:F11>0
ST11=F:F11.
IF F:F12>0
ST12=F:F12.
IF ST3 OR ST4
ST5=ST4-ST3.
IF ST3>0 AND ST4>0
ST6=ST4/ST3*100.
IF ST7 OR ST8
ST9=ST8-ST7.
IF ST7>0 AND ST8>0
ST10=ST8/ST7*100.
IF ST12 OR ST11
ST13=ST12-ST11.
IF ST12>0 AND ST11>0
ST14=ST12/ST11*100.
IF F:F13>0
ST15=F:F13.
IF F:F14>0
ST16=F:F14.
IF ST15 OR ST16
ST17=ST16-ST15.
IF ST15>0 AND ST16>0
ST18=ST16/ST15*100.
IF ~ST THEN CYCLE.
ST2=' '&GOR:GOROD
ADD(YU)
CLEAR(ST)
ADD(YU)
LIC:NREGION=XRE:NREGION
LIC:KNAM='  '
SET(LIC:CNREG,LIC:CNREG)
LOOP UNTIL EOF(LIC)
NEXT(LIC)
IF LIC:NREGION<>XRE:NREGION THEN BREAK.
IF LIC:NCITY<>GOR:KG THEN CYCLE.
CLEAR(T67:RECORD)
T67:PNOMBER=LIC:PNOMBER
GET(T67,T67:C)
IF ERRORCODE() THEN CYCLE.
T=0
IF T67:A400N>=100
ST3=T67:A400N/1000.
IF T67:A400K>=100
ST4=T67:A400K/1000.
T=T67:A400K-T67:A400N
IF T>=100 OR T<=-100 THEN ST5=T/1000.
T=0
IF ST4>0 AND ST3>0 THEN ST6=ST4/ST3*100.
IF T67:A495N>=100
ST7=T67:A495N/1000.
IF T67:A495K>=100
T=0
ST8=T67:A495K/1000.
T=T67:A495K-T67:A495N
IF T>=100 OR T<=-100 THEN ST9=T/1000.
T=0
IF ST8>0 AND ST7>0 THEN ST10=ST8/ST7*100.
 CLEAR(T17:RECORD)
T17:PNOMBER=LIC:PNOMBER
GET(T17,T17:C)
IF T17:F001>=100
ST12=T17:F001/1000.
IF T17:F010>=100
ST16=T17:F010/1000.
CLEAR(F92:RECORD)
F92:PNOMBER=LIC:PNOMBER
GET(F92,F92:FC)
IF F92:F1>=100
ST11=F92:F1/1000.
      IF F92:F10>=100
ST15=F92:F10/1000.
T=0
T=T17:F001-F92:F1
IF T>=100 OR T<=-100 THEN ST13=T/1000.
T=0
IF ST12>0 AND ST11>0 THEN ST14=ST12/ST11*100.
T=0
T=T17:F010-F92:F10
IF T<=-100 OR T>=100 THEN ST17=T/1000.
T=0
IF ST16>0 AND ST15>0 THEN ST18=ST16/ST15*100.
ST2='  '&LIC:KNAM
ADD(YU)
      CLEAR(ST).
      CLEAR(ST).
      ADD(YU)...
      ADD(YU).
!     ------      1  -------
AT3   PROCEDURE
YU    DOS,ASCII,NAME('YU.YU')
      RECORD
ST    STRING(150)..
      GROUP,OVER(ST)
      STRING(1)
ST2   STRING(33)
      STRING(2)
ST3   STRING(@N_9.2)
      STRING(1)
ST4   STRING(@N_10.2)
      STRING(1)
ST5   STRING(@N_9.2)
      STRING(2)
ST6   STRING(@N_10.2)
      STRING(3)
ST7   STRING(@N_6)
      STRING(5)
ST8   STRING(@N_9.2)
      STRING(4)
ST9   STRING(@N_8.2)
      STRING(4)
ST10  STRING(@N_8.2)
      STRING(2)
ST11  STRING(@N_8.2)
      STRING(1)
ST12  STRING(@N_8.2)
      .
T     REAL
      CODE
      PN#=0
      CREATE(YU)
      ST='     1   '
      ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST)
      ADD(YU)
      CLEAR(ST)
      ST='

                                         ..   '

                                         


        '

      ADD(YU)

      CLEAR(ST)
        ST='                                                
                   1          1
  '
      ADD(YU)
      CLEAR(ST)
      ST='               '

                                '
      ADD(YU)
      CLEAR(ST)
      ST='                                     1994     1995       1994
   1995       1994      1995       1994         1995         1994   
1995  '


      ADD(YU)
      CLEAR(ST)
ST='              1                   2        3         4           5
      6         7          8          9         10      11   '
ADD(YU)
CLEAR(ST) ST='

                    
ADD(YU)
CLEAR(ST)
INS:NTER=0
SET(INS:K1,INS:K1)
LOOP UNTIL EOF(INSP)
NEXT(INSP)
PN#=0
if ins:nter>23
THEN
ST2=CLIP(INS:NAME)&' '
ELSE
ST2=' '
ADD(yu)
ST2=INS:NAME.
TER:KODT=INS:NTER
SET(TER:K1,TER:K1)
LOOP UNTIL EOF(TERR)
NEXT(TERR)
IF TER:KODT<>INS:NTER THEN BREAK.
IF INS:NTER>23 AND PN#=0
F:NKUST=INS:NTER
GET(F,F:K1)
IF F:F11>0
ST3=F:F11.
IF F:F12>0
ST4=F:F12.
IF F:F13>0
ST5=F:F13.
IF F:F14>0
ST6=F:F14.
IF F:F15>0
ST7=F:F15.
IF F:F16>0
ST8=F:F16.
IF ST3>0 AND ST7>0
ST9=ST3/ST7.
IF ST4>0 AND ST8>0
ST10=ST4/ST8.
IF ST5>0 AND ST7>0
ST11=ST5/ST7.
IF ST6>0 AND ST8>0
ST12=ST6/ST8.
PN#=1
ADD(YU)
CLEAR(ST)
ADD(YU).
XRE:NREGION=TER:NREGION
SET(XRE:K1,XRE:K1)
LOOP UNTIL EOF(XREG)
NEXT(XREG)
IF XRE:NREGION<>TER:NREGION THEN BREAK.
IF INS:NTER>23
ST2=' '&XRE:IREG.
F:NREGION=XRE:NREGION
GET(F,F:K2)
IF F:F11>0
ST3=F:F11.
IF F:F12>0
ST4=F:F12.
IF F:F13>0
ST5=F:F13.
IF F:F14>0
ST6=F:F14.
IF F:F15>0
ST7=F:F15.
IF F:F16>0
ST8=F:F16.
IF ST3>0 AND ST7>0
ST9=ST3/ST7.
IF ST4>0 AND ST8>0
ST10=ST4/ST8.
IF ST5>0 AND ST7>0
ST11=ST5/ST7.
IF ST6>0 AND ST8>0
ST12=ST6/ST8.
ADD(YU)
CLEAR(ST)
ADD(YU)
CLEAR(ST)
GOR:GOROD='    '
SET(GOR:CGOR,GOR:CGOR)
LOOP UNTIL EOF(GOR)
NEXT(GOR)
IF GOR:NREGION<>XRE:NREGION THEN CYCLE.
F:NGOR=GOR:KG
GET(F,F:K3)
IF F:F11>0
ST3=F:F11.
IF F:F12>0
ST4=F:F12.
IF F:F13>0
ST5=F:F13.
IF F:F14>0
ST6=F:F14.
IF F:F15>0
ST7=F:F15.
IF F:F16>0
ST8=F:F16.
IF ST3>0 AND ST7>0
ST9=ST3/ST7.
IF ST4>0 AND ST8>0
ST10=ST4/ST8.
IF ST5>0 AND ST7>0
ST11=ST5/ST7.
IF ST6>0 AND ST8>0
ST12=ST6/ST8.
IF ~ST THEN CYCLE.
ST2=' '&GOR:GOROD
ADD(YU)
CLEAR(ST)
LIC:NREGION=XRE:NREGION
LIC:KNAM='  '
SET(LIC:CNREG,LIC:CNREG)
LOOP UNTIL EOF(LIC)
NEXT(LIC)
IF LIC:NREGION<>XRE:NREGION THEN BREAK.
IF LIC:NCITY<>GOR:KG THEN CYCLE.
CLEAR(F92:RECORD)
F92:PNOMBER=LIC:PNOMBER
GET(F92,F92:FC)
IF F92:F1>100
ST3=F92:F1/1000.
IF F92:F10>100
ST5=F92:F10/1000.
CLEAR(T17:RECORD)
T17:PNOMBER=LIC:PNOMBER
GET(T17,T17:C)
IF T17:F001>100
ST4=T17:F001/1000.
IF T17:F010>100
ST6=T17:F010/1000.
CLEAR(SVV:RECORD)
SVV:PNOM=LIC:PNOMBER
SVV:KZ=2
GET(SVV,SVV:K)
IF SVV:CR2>0
ST7=SVV:CR2.
CLEAR(DF:RECORD)
DF:PNOMBER=LIC:PNOMBER
GET(DF,DF:C)
IF DF:S750N<>0
ST8=DF:S750N.
IF F92:F1>100 AND SVV:CR2<>0
THEN ST9=F92:F1/SVV:CR2/1000.
IF T17:F001>100 AND DF:S750N<>0
THEN ST10=T17:F001/DF:S750N/1000.
IF F92:F10>100 AND SVV:CR2<>0
THEN ST11=F92:F10/SVV:CR2/1000.
IF T17:F010>100 AND DF:S750N<>0
THEN ST12=T17:F010/DF:S750N/1000.
      IF ST
      PN#+=1
      ST2='   '&LIC:KNAM
      ADD(YU)
      CLEAR(ST).
      CLEAR(ST).
      ADD(YU)...
      ADD(YU).
!     ------     -------
UK    PROCEDURE
YU    DOS,ASCII,NAME('YU.YU')
      RECORD
ST    STRING(56)..
      GROUP,OVER(ST)
      STRING(1)
ST1   STRING(@N4)
      STRING(1)
ST2   STRING(30)
      STRING(5)
ST3   STRING(@N_8.2)
      .
T     REAL
      CODE
      PN#=0
      CREATE(YU)
         ST='  ,   '
      ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST)
ST=' '&MEM:NG/1000&'   '&MEM:VG/1000&'  ..    '&MEM:GOD&'  '
ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST)
      IF MEM:PR=2
      ST=XRE:IREG
      ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST).
                                                                       ST='
       '
      ADD(YU)
      CLEAR(ST)
      ST='                         '
       ADD(YU)
      CLEAR(ST)
      ST=' N                              '
      ADD(YU)
      CLEAR(ST)
                                                                       ST='
      '

      ADD(YU)

      CLEAR(ST)
      ST='  1               2                       3         '
      ADD(YU)

                                CLEAR(ST)                           ST='
                   
      ADD(YU)
      CLEAR(ST)
      IF MEM:PR=2
      THEN
      LIC:NREGION=XRE:NREGION
      SET(LIC:CNREG,LIC:CNREG)
      ELSE
      SET(LIC:CLIC,LIC:CLIC).
      LOOP UNTIL EOF(LIC)
      NEXT(LIC)
      IF MEM:PR=2
      IF LIC:NREGION<>XRE:NREGION THEN BREAK..
      T67:PNOMBER=LIC:PNOMBER
      GET(T67,T67:C)
      IF ~ERRORCODE()
      THEN
      IF MEM:GOD=1992
      THEN
      IF T67:A400N<=MEM:NG OR T67:A400N>MEM:VG THEN CYCLE.
      ELSE
      IF T67:A400K<=MEM:NG OR T67:A400K>MEM:VG THEN CYCLE..
      PN#+=1
      ST1=PN#
      ST2=LIC:KNAM
      IF MEM:GOD=1992 AND T67:A400N>0 THEN ST3=T67:A400N/1000.
             IF MEM:GOD=1993 AND T67:A400K>0 THEN ST3=T67:A400K/1000.
      ADD(YU)
      CLEAR(ST)..
      CLOSE(YU)
!     ------     -------
SVZ   PROCEDURE
YU    DOS,ASCII,NAME('YU.YU')
      RECORD
ST    STRING(56)..
      GROUP,OVER(ST)
      STRING(1)
ST1   STRING(@N4)
      STRING(1)
ST2   STRING(30)
      STRING(5)
ST3   STRING(@N_8.2)
      .
T     REAL
      CODE
      PN#=0
      CREATE(YU)
            ST='  ,   '
      ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST)
      ST='  '
      ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST)
ST=' '&MEM:NG/1000&'   '&MEM:VG/1000&'  ..    '&MEM:GOD&'  '
ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST)
      IF MEM:PR=2
      ST=XRE:IREG
      ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST). ST='+------------------------------------------------------
+'
      ADD(YU)
      CLEAR(ST)
      ST='                             '
      ADD(YU)
      CLEAR(ST)
      ST=' N              '
       ADD(YU)
      CLEAR(ST) ST='+----+------------------------------+------------------
'
      ADD(YU)
      CLEAR(ST)
      ST='  1               2                       3         '
      ADD(YU)
      CLEAR(ST) ST='+----+------------------------------+------------------
'
      ADD(YU)
      CLEAR(ST)
      IF MEM:PR=2
      THEN
      LIC:NREGION=XRE:NREGION
      SET(LIC:CNREG,LIC:CNREG)
      ELSE
      SET(LIC:CLIC,LIC:CLIC).
      LOOP UNTIL EOF(LIC)
      NEXT(LIC)
      IF MEM:PR=2
      IF LIC:NREGION<>XRE:NREGION THEN BREAK..
      IF MEM:GOD=1993
      T17:PNOMBER=LIC:PNOMBER
      GET(T17,T17:C)
      IF ~ERRORCODE()
      THEN
                      IF T17:F001<=MEM:NG OR T17:F001>MEM:VG THEN CYCLE.
      ELSE
      CYCLE..
      IF MEM:GOD=1992
      F92:PNOMBER=LIC:PNOMBER
      GET(F92,F92:FC)
      IF ~ERRORCODE()
      THEN
                     IF F92:F1<=MEM:NG OR F92:F1>MEM:VG THEN CYCLE.
      ELSE
      CYCLE..
      PN#+=1
      ST1=PN#
      ST2=LIC:KNAM
                    IF MEM:GOD=1992 AND F92:F1>0 THEN ST3=F92:F1/1000.
                            IF    MEM:GOD=1993    AND    T17:F001>0    THEN
ST3=T17:F001/1000.
      ADD(YU)
      CLEAR(ST).
      CLOSE(YU)
!     ------     -------
SR    PROCEDURE
YU    DOS,ASCII,NAME('YU.YU')
      RECORD
ST    STRING(56)..
      GROUP,OVER(ST)
      STRING(1)
ST1   STRING(@N4)
      STRING(1)
ST2   STRING(30)
      STRING(5)
ST3   STRING(@N_8.2)
      .
T     REAL
      CODE
      PN#=0
      CREATE(YU)
ST='  ,   ' ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST)
ST=' '&MEM:NG/1000&'   '&MEM:VG/1000&'  ..    '&MEM:GOD&'  '
ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST)
      IF MEM:PR=2
      ST=XRE:IREG
      ST=CENTER(ST)
      ADD(YU)
CLEAR(ST). ST='+------------------------------------------------------+'
ADD(YU)
      CLEAR(ST)
ST='                        ' ADD(YU)
      CLEAR(ST)
ST=' N                              '
ADD(YU)
CLEAR(ST) ST='+----+------------------------------+------------------'
ADD(YU)
      CLEAR(ST)
ST='  1               2                       3         '
ADD(YU)
CLEAR(ST) ST='+----+------------------------------+------------------'
ADD(YU)
      CLEAR(ST)
      IF MEM:PR=2
      THEN
      LIC:NREGION=XRE:NREGION
      SET(LIC:CNREG,LIC:CNREG)
      ELSE
      SET(LIC:CLIC,LIC:CLIC).
      LOOP UNTIL EOF(LIC)
      NEXT(LIC)
      IF MEM:PR=2
      IF LIC:NREGION<>XRE:NREGION THEN BREAK..
      T67:PNOMBER=LIC:PNOMBER
      GET(T67,T67:C)
           IF ~ERRORCODE()
      IF MEM:GOD=1992
      THEN
                        IF T67:A495N<=MEM:NG OR T67:A495N>MEM:VG THEN CYCLE.
      ELSE
                            IF T67:A495K<=MEM:NG OR T67:A495K>MEM:VG THEN
                                   CYCLE..
      PN#+=1
      ST1=PN#
      ST2=LIC:KNAM
      IF MEM:GOD=1992 AND T67:A495N>0 THEN ST3=T67:A495N/1000.
      IF MEM:GOD=1993 AND T67:A495K>0 THEN ST3=T67:A495K/1000.      ADD(YU)
      CLEAR(ST)..
      CLOSE(YU)
!     ------     -------
SVP   PROCEDURE
YU    DOS,ASCII,NAME('YU.YU')
      RECORD
ST    STRING(56)..
      GROUP,OVER(ST)
      STRING(1)
ST1   STRING(@N4)
      STRING(1)
ST2   STRING(30)
      STRING(5)
ST3   STRING(@N_8.2)
      .
T     REAL
      CODE
      PN#=0
      CREATE(YU)
ST='  ,   '
      ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST)
ST=' '&MEM:NG/1000&'   '&MEM:VG/1000&'  ..    '&MEM:GOD&'  '
ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST)
      IF MEM:PR=2
      ST=XRE:IREG
      ST=CENTER(ST)
      ADD(YU)
      CLEAR(ST).  ST='+----------------------------------------------------
+'
       ADD(YU)
      CLEAR(ST)
      ST='                        '
      ADD(YU)
      CLEAR(ST)
      ST=' N                              '
      ADD(YU)
      CLEAR(ST)  ST='+----+------------------------------+-----------------
'
      ADD(YU)
      CLEAR(ST)
      ST='  1               2                       3         '
      ADD(YU)
      CLEAR(ST)  ST='+----+------------------------------+-----------------
'
      ADD(YU)
      CLEAR(ST)
      IF MEM:PR=2
      THEN
      LIC:NREGION=XRE:NREGION
      SET(LIC:CNREG,LIC:CNREG)
      ELSE
      SET(LIC:CLIC,LIC:CLIC).
      LOOP UNTIL EOF(LIC)
      NEXT(LIC)
      IF MEM:PR=2
      IF LIC:NREGION<>XRE:NREGION THEN BREAK..
      IF MEM:GOD=1993
      T17:PNOMBER=LIC:PNOMBER
      GET(T17,T17:C)
      IF ~ERRORCODE()
      THEN
      IF T17:F010<=MEM:NG OR T17:F010>MEM:VG THEN CYCLE.
      ELSE
      CYCLE..
      IF MEM:GOD=1992
      F92:PNOMBER=LIC:PNOMBER
      GET(F92,F92:FC)
      IF ~ERRORCODE()
      THEN
      IF F92:F10<=MEM:NG OR F92:F10>MEM:VG THEN CYCLE.
      ELSE CYCLE..
      PN#+=1
      ST1=PN#
      ST2=LIC:KNAM
      IF MEM:GOD=1992 AND F92:F10>0 THEN ST3=F92:F10/1000.
      IF MEM:GOD=1993 AND T17:F010>0 THEN ST3=T17:F010/1000.  ADD(YU)
      CLEAR(ST).
      CLOSE(YU)
      CLEAR(ST)