      INTEGER PSTATE
      CALL INITI0
      CALL RDP(PSTATE)
      CALL CLEAN0
      CALL SWT
      END
      SUBROUTINE RDP(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER STATE
      INTEGER AAAAA0
      INTEGER AAAAB0
      INTEGER AAAAC0(20)
      INTEGER AAAAD0
      INTEGER AAAAE0(13)
      DATA AAAAC0/240,242,239,228,245,227,244,233,239,238,160,229,248,24
     *0,229,227,244,229,228,0/
      DATA AAAAE0/197,207,198,160,229,248,240,229,227,244,229,228,0/
10000   CALL DECLA0(STATE)
        AAAAA0=STATE
        GOTO 10001
10002     GPST=2
          RETURN
10001   IF(AAAAA0.EQ.2)GOTO 10002
        IF((STATE.NE.1))GOTO 10003
          CALL PRODU0(STATE)
          AAAAB0=STATE
          GOTO 10004
10005       GPST=2
            RETURN
10006       IF((SYMBOL.EQ.-1))GOTO 10007
              CALL ERRMSG(AAAAC0,STATE)
10007       CONTINUE
10008       IF((SYMBOL.EQ.-1))GOTO 10009
            IF((SYMBOL.EQ.187))GOTO 10009
              CALL GETSYM
            GOTO 10008
10009       IF((SYMBOL.NE.187))GOTO 10011
              CALL GETSYM
10010     GOTO 10011
10004     GOTO(10006,10005),AAAAB0
10011   CONTINUE
10003 CONTINUE
      IF((STATE.EQ.3))GOTO 10000
      AAAAD0=STATE
      GOTO 10012
10013   STATE=3
      GOTO 10014
10012 IF(AAAAD0.EQ.1)GOTO 10013
10014 IF((STATE.NE.3))GOTO 10015
        STATE=1
        IF((SYMBOL.NE.-1))GOTO 10016
          STATE=3
          GOTO 10017
10016     CALL ERRMSG(AAAAE0,STATE)
10017   IF((STATE.EQ.3))GOTO 10018
          GPST=2
          RETURN
10018 CONTINUE
10015 GPST=STATE
      RETURN
      END
      SUBROUTINE DECLA0(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER STATE
      INTEGER AAAAF0
      INTEGER AAAAG0
      INTEGER AAAAH0(19)
      INTEGER AAAAI0(18)
      DATA AAAAH0/237,233,243,243,233,238,231,160,228,229,227,236,225,24
     *2,225,244,239,242,0/
      DATA AAAAI0/237,233,243,243,233,238,231,160,243,229,237,233,227,23
     *9,236,239,238,0/
      STATE=1
      IF((SYMBOL.NE.174))GOTO 10019
        STATE=3
        CALL GETSYM
10019 IF((STATE.NE.3))GOTO 10020
        STATE=1
        AAAAF0=SYMBOL
        GOTO 10021
10022     STATE=3
          CALL DECLT0(STATE)
        GOTO 10023
10024     STATE=3
          CALL DECLT0(STATE)
        GOTO 10023
10025     STATE=3
          CALL DECLT0(STATE)
        GOTO 10023
10021   AAAAG0=AAAAF0+1
        GOTO(10022,10024,10026,10026,10025),AAAAG0
10026   CONTINUE
10023   IF((STATE.NE.1))GOTO 10027
          CALL ERRMSG(AAAAH0,STATE)
10027   IF((STATE.EQ.3))GOTO 10028
          GPST=2
          RETURN
10028   STATE=1
        IF((SYMBOL.NE.187))GOTO 10029
          STATE=3
          CALL GETSYM
          GOTO 10030
10029     CALL ERRMSG(AAAAI0,STATE)
10030   IF((STATE.EQ.3))GOTO 10031
          GPST=2
          RETURN
10031 CONTINUE
10020 GPST=STATE
      RETURN
      END
      SUBROUTINE TERML0(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER STATE
      INTEGER I
      INTEGER CTOI
      INTEGER AAAAJ0
      INTEGER AAAAK0
10032   STATE=1
        AAAAJ0=SYMBOL
        GOTO 10033
10034     STATE=3
          CALL ODEFN(SYMBO0,NEXTT0)
          LASTT0=NEXTT0
          NEXTT0=NEXTT0+1
          CALL ENTER(SYMBO0,0,TERMT0)
          CALL GETSYM
        GOTO 10035
10036     STATE=3
          I=1
          NEXTT0=CTOI(SYMBO0,I)
          LASTT0=NEXTT0
          CALL GETSYM
        GOTO 10035
10037     STATE=3
          NEXTT0=LASTT0
          CALL GETSYM
        GOTO 10035
10033   GOTO(10034,10036),AAAAJ0
        IF(AAAAJ0.EQ.189)GOTO 10037
10035 CONTINUE
      IF((STATE.EQ.3))GOTO 10032
      AAAAK0=STATE
      GOTO 10038
10039   STATE=3
      GOTO 10040
10038 IF(AAAAK0.EQ.1)GOTO 10039
10040 GPST=STATE
      RETURN
      END
      SUBROUTINE EXTLI0(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER STATE
      INTEGER AAAAL0
10041   STATE=1
        IF((SYMBOL.NE.1))GOTO 10042
          STATE=3
          CALL ENTER(SYMBO0,0,TERMT0)
          CALL GETSYM
10042 CONTINUE
      IF((STATE.EQ.3))GOTO 10041
      AAAAL0=STATE
      GOTO 10043
10044   STATE=3
      GOTO 10045
10043 IF(AAAAL0.EQ.1)GOTO 10044
10045 GPST=STATE
      RETURN
      END
      SUBROUTINE PRODU0(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER STATE
      INTEGER NAME(102)
      INTEGER AAAAM0(13)
      INTEGER AAAAN0
      INTEGER AAAAO0
      INTEGER AAAAP0
      INTEGER AAAAQ0(24)
      INTEGER AAAAR0(18)
      INTEGER AAAAS0
      INTEGER AAAAT0
      DATA AAAAM0/237,233,243,243,233,238,231,160,167,173,190,167,0/
      DATA AAAAQ0/237,233,243,243,233,238,231,160,242,233,231,232,244,17
     *3,232,225,238,228,173,243,233,228,229,0/
      DATA AAAAR0/237,233,243,243,233,238,231,160,243,229,237,233,227,23
     *9,236,239,238,0/
      STATE=1
      IF((SYMBOL.NE.1))GOTO 10046
        STATE=3
        CALL SCOPY(SYMBO0,1,NAME,1)
        CALL GETSYM
10046 IF((STATE.NE.3))GOTO 10047
        STATE=1
        IF((SYMBOL.NE.3))GOTO 10048
          STATE=3
          CALL GETSYM
          GOTO 10049
10048     CALL ERRMSG(AAAAM0,STATE)
10049   IF((STATE.EQ.3))GOTO 10050
          GPST=2
          RETURN
10050   CALL ACTIO0(STATE)
        AAAAN0=STATE
        GOTO 10051
10052     GPST=2
          RETURN
10053     CALL OBEGI0(NAME)
        GOTO 10054
10051   AAAAO0=AAAAN0-1
        GOTO(10052,10053),AAAAO0
10054   IF((STATE.EQ.3))GOTO 10055
          GPST=2
          RETURN
10055   CALL RHS(STATE)
        AAAAP0=STATE
        GOTO 10056
10057     GPST=2
          RETURN
10058     CALL ERRMSG(AAAAQ0,STATE)
        GOTO 10059
10056   GOTO(10058,10057),AAAAP0
10059   IF((STATE.EQ.3))GOTO 10060
          GPST=2
          RETURN
10060   STATE=1
        IF((SYMBOL.NE.187))GOTO 10061
          STATE=3
          CALL GETSYM
          GOTO 10062
10061     CALL ERRMSG(AAAAR0,STATE)
10062   IF((STATE.EQ.3))GOTO 10063
          GPST=2
          RETURN
10063   CALL ACTIO0(STATE)
        AAAAS0=STATE
        GOTO 10064
10065     GPST=2
          RETURN
10066     CALL OACCE0
        GOTO 10067
10064   AAAAT0=AAAAS0-1
        GOTO(10065,10066),AAAAT0
10067   IF((STATE.EQ.3))GOTO 10068
          GPST=2
          RETURN
10068 CONTINUE
10047 IF((STATE.NE.3))GOTO 10069
        CALL OENDR0
10069 GPST=STATE
      RETURN
      END
      SUBROUTINE RHS(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER STATE
      INTEGER NUMAL0
      INTEGER AAAAU0
      INTEGER AAAAV0
      INTEGER AAAAW0
      INTEGER AAAAX0(32)
      INTEGER AAAAY0
      INTEGER AAAAZ0
      INTEGER AAABA0(15)
      INTEGER AAABB0
      INTEGER AAABC0(15)
      INTEGER AAABD0
      INTEGER AAABE0
      INTEGER AAABF0
      INTEGER AAABG0(20)
      INTEGER AAABH0
      DATA AAAAX0/170,233,186,160,160,225,227,244,233,239,238,243,160,22
     *5,242,229,160,233,236,236,229,231,225,236,160,232,229,242,229,170,
     *238,0/
      DATA AAABA0/237,233,243,243,233,238,231,160,227,232,239,233,227,22
     *9,0/
      DATA AAABC0/237,233,243,243,233,238,231,160,227,232,239,233,227,22
     *9,0/
      DATA AAABG0/237,233,243,243,233,238,231,160,225,236,244,229,242,23
     *8,225,244,233,246,229,0/
      NUMAL0=0
      CALL ACTIO0(STATE)
      AAAAU0=STATE
      GOTO 10070
10071   GPST=2
        RETURN
10072   CALL OACCE0
      GOTO 10073
10070 AAAAV0=AAAAU0-1
      GOTO(10071,10072),AAAAV0
10073 IF((STATE.NE.3))GOTO 10074
        STATE=1
        IF((SYMBOL.NE.164))GOTO 10075
          STATE=3
          CALL OSELE0
          CALL GETSYM
10075   IF((STATE.NE.3))GOTO 10076
          CALL ACTIO0(STATE)
          AAAAW0=STATE
          GOTO 10077
10078       GPST=2
            RETURN
10079       IF((NUMAC0.GT.0))GOTO 10081
            IF((NUMER0.GT.0))GOTO 10081
            GOTO 10082
10081         CALL PRINT(-15,AAAAX0,LINEN0)
10080     GOTO 10082
10077     AAAAY0=AAAAW0-1
          GOTO(10078,10079),AAAAY0
10082     IF((STATE.EQ.3))GOTO 10083
            GPST=2
            RETURN
10083     CALL CHOICE(STATE)
          AAAAZ0=STATE
          GOTO 10084
10085       GPST=2
            RETURN
10086       CALL ERRMSG(AAABA0,STATE)
          GOTO 10087
10084     GOTO(10086,10085),AAAAZ0
10087     IF((STATE.EQ.3))GOTO 10088
            GPST=2
            RETURN
10088     CONTINUE
10089       STATE=1
            IF((SYMBOL.NE.252))GOTO 10090
              STATE=3
              CALL GETSYM
10090       IF((STATE.NE.3))GOTO 10091
              CALL CHOICE(STATE)
              AAABB0=STATE
              GOTO 10092
10093           GPST=2
                RETURN
10094           CALL ERRMSG(AAABC0,STATE)
              GOTO 10095
10092         GOTO(10094,10093),AAABB0
10095         IF((STATE.EQ.3))GOTO 10096
                GPST=2
                RETURN
10096       CONTINUE
10091     CONTINUE
          IF((STATE.EQ.3))GOTO 10089
          AAABD0=STATE
          GOTO 10097
10098       STATE=3
          GOTO 10099
10097     IF(AAABD0.EQ.1)GOTO 10098
10099     IF((STATE.EQ.3))GOTO 10100
            GPST=2
            RETURN
10100     STATE=3
          CALL OSELF0
          IF((STATE.EQ.3))GOTO 10101
            GPST=2
            RETURN
10101   CONTINUE
10076   IF((STATE.NE.1))GOTO 10102
          CALL ALTER0(STATE)
          AAABE0=STATE
          GOTO 10103
10104       GPST=2
            RETURN
10103     IF(AAABE0.EQ.2)GOTO 10104
          IF((STATE.NE.3))GOTO 10105
10106         STATE=1
              IF((SYMBOL.NE.252))GOTO 10107
                STATE=3
                CALL OALT
                NUMAL0=NUMAL0+1
                CALL GETSYM
10107         IF((STATE.NE.3))GOTO 10108
                CALL ALTER0(STATE)
                AAABF0=STATE
                GOTO 10109
10110             GPST=2
                  RETURN
10111             CALL ERRMSG(AAABG0,STATE)
                GOTO 10112
10109           GOTO(10111,10110),AAABF0
10112           IF((STATE.EQ.3))GOTO 10113
                  GPST=2
                  RETURN
10113         CONTINUE
10108       CONTINUE
            IF((STATE.EQ.3))GOTO 10106
            AAABH0=STATE
            GOTO 10114
10115         STATE=3
              GOTO 10118
10116         NUMAL0=NUMAL0-1
10118         IF((NUMAL0.LE.0))GOTO 10119
                CALL OENDA0
              GOTO 10116
10121         NUMAL0=NUMAL0-1
10123         IF((NUMAL0.LE.0))GOTO 10119
                CALL OENDA0
              GOTO 10121
10114       GOTO(10115,10124,10123),AAABH0
10124       CONTINUE
10119       IF((STATE.EQ.3))GOTO 10125
              GPST=2
              RETURN
10125     CONTINUE
10105   CONTINUE
10102   IF((STATE.EQ.3))GOTO 10126
          GPST=2
          RETURN
10126 CONTINUE
10074 GPST=STATE
      RETURN
      END
      SUBROUTINE CHOICE(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER STATE
      LOGICAL MORET0
      INTEGER AAABI0
      INTEGER AAABJ0
      INTEGER AAABK0
      INTEGER AAABL0
      INTEGER AAABM0
      INTEGER AAABN0
      INTEGER AAABO0
      INTEGER AAABP0
      INTEGER AAABQ0
      INTEGER AAABR0
      STATE=1
      IF((SYMBOL.NE.0))GOTO 10127
        STATE=3
        CALL OCHOI0(SYMBO0)
        CALL GETSYM
10127 IF((STATE.NE.3))GOTO 10128
        STATE=1
        IF((SYMBOL.NE.174))GOTO 10129
          STATE=3
          ADVAN0=0
          CALL GETSYM
          GOTO 10130
10129     ADVAN0=1
10130   AAABI0=STATE
        GOTO 10131
10132     STATE=3
        GOTO 10133
10131   IF(AAABI0.EQ.1)GOTO 10132
10133   IF((STATE.EQ.3))GOTO 10134
          GPST=2
          RETURN
10134   CALL ACTIO0(STATE)
        AAABJ0=STATE
        GOTO 10135
10136     GPST=2
          RETURN
10137     CALL OCHOJ0
        GOTO 10138
10135   AAABK0=AAABJ0-1
        GOTO(10136,10137),AAABK0
10138   IF((STATE.EQ.3))GOTO 10139
          GPST=2
          RETURN
10139   CALL ELTPR0(STATE)
        AAABL0=STATE
        GOTO 10140
10141     GPST=2
          RETURN
10142     MORET0=.FALSE.
        GOTO 10143
10144     CALL OBEGJ0
          MORET0=.TRUE.
        GOTO 10143
10140   GOTO(10142,10141,10144),AAABL0
10143   AAABM0=STATE
        GOTO 10145
10146     STATE=3
        GOTO 10147
10145   IF(AAABM0.EQ.1)GOTO 10146
10147   IF((STATE.EQ.3))GOTO 10148
          GPST=2
          RETURN
10148   CONTINUE
10149     CALL TERM(STATE)
          AAABN0=STATE
          GOTO 10150
10151       GPST=2
            RETURN
10152       CALL OTEST0
          GOTO 10153
10150     AAABO0=AAABN0-1
          GOTO(10151,10152),AAABO0
10153     IF((STATE.NE.1))GOTO 10154
            CALL NONTE0(STATE)
            AAABP0=STATE
            GOTO 10155
10156         GPST=2
              RETURN
10157         CALL OTEST0
            GOTO 10158
10155       AAABQ0=AAABP0-1
            GOTO(10156,10157),AAABQ0
10158     CONTINUE
10154   CONTINUE
        IF((STATE.EQ.3))GOTO 10149
        AAABR0=STATE
        GOTO 10159
10160     STATE=3
        GOTO 10161
10159   IF(AAABR0.EQ.1)GOTO 10160
10161   IF((STATE.EQ.3))GOTO 10162
          GPST=2
          RETURN
10162 CONTINUE
10128 IF((.NOT.MORET0))GOTO 10163
        CALL OENDS0
10163 CALL OCHOK0
      GPST=STATE
      RETURN
      END
      SUBROUTINE ALTER0(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER STATE
      LOGICAL MORET0
      INTEGER AAABS0
      INTEGER AAABT0
      INTEGER AAABU0(21)
      INTEGER AAABV0
      INTEGER AAABW0
      INTEGER AAABX0
      INTEGER AAABY0
      INTEGER AAABZ0
      INTEGER AAACA0
      INTEGER AAACB0
      DATA AAABU0/233,236,236,229,231,225,236,160,244,229,242,237,175,23
     *8,239,238,244,229,242,237,0/
      CALL TERM(STATE)
      AAABS0=STATE
      GOTO 10164
10165   GPST=2
        RETURN
10164 IF(AAABS0.EQ.2)GOTO 10165
      IF((STATE.NE.1))GOTO 10166
        CALL NONTE0(STATE)
        AAABT0=STATE
        GOTO 10167
10168     GPST=2
          RETURN
10169     CALL ERRMSG(AAABU0,STATE)
        GOTO 10170
10167   GOTO(10169,10168),AAABT0
10170 CONTINUE
10166 IF((STATE.NE.3))GOTO 10171
        CALL ELTPR0(STATE)
        AAABV0=STATE
        GOTO 10172
10173     GPST=2
          RETURN
10174     MORET0=.FALSE.
        GOTO 10175
10176     CALL OBEGJ0
          MORET0=.TRUE.
        GOTO 10175
10172   GOTO(10174,10173,10176),AAABV0
10175   AAABW0=STATE
        GOTO 10177
10178     STATE=3
        GOTO 10179
10177   IF(AAABW0.EQ.1)GOTO 10178
10179   IF((STATE.EQ.3))GOTO 10180
          GPST=2
          RETURN
10180   CONTINUE
10181     CALL TERM(STATE)
          AAABX0=STATE
          GOTO 10182
10183       GPST=2
            RETURN
10184       CALL OTEST0
          GOTO 10185
10182     AAABY0=AAABX0-1
          GOTO(10183,10184),AAABY0
10185     IF((STATE.NE.1))GOTO 10186
            CALL NONTE0(STATE)
            AAABZ0=STATE
            GOTO 10187
10188         GPST=2
              RETURN
10189         CALL OTEST0
            GOTO 10190
10187       AAACA0=AAABZ0-1
            GOTO(10188,10189),AAACA0
10190     CONTINUE
10186   CONTINUE
        IF((STATE.EQ.3))GOTO 10181
        AAACB0=STATE
        GOTO 10191
10192     STATE=3
        GOTO 10193
10191   IF(AAACB0.EQ.1)GOTO 10192
10193   IF((STATE.EQ.3))GOTO 10194
          GPST=2
          RETURN
10194 CONTINUE
10171 IF((.NOT.MORET0))GOTO 10195
        CALL OENDS0
10195 GPST=STATE
      RETURN
      END
      SUBROUTINE ELTPR0(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER STATE
      INTEGER AAACC0
      INTEGER AAACD0
      STATE=1
      AAACC0=SYMBOL
      GOTO 10196
10197   STATE=3
      GOTO 10198
10199   STATE=3
      GOTO 10198
10200   STATE=3
      GOTO 10198
10201   STATE=3
      GOTO 10198
10202   STATE=3
      GOTO 10198
10203   STATE=3
      GOTO 10198
10196 AAACD0=AAACC0+1
      GOTO(10199,10197,10204,10204,10200),AAACD0
      IF(AAACC0.EQ.168)GOTO 10201
      IF(AAACC0.EQ.219)GOTO 10202
      IF(AAACC0.EQ.251)GOTO 10203
10204 CONTINUE
10198 GPST=STATE
      RETURN
      END
      SUBROUTINE TERM(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER STATE
      INTEGER TERMB0(102)
      INTEGER AAACE0(20)
      INTEGER AAACF0
      INTEGER AAACG0
      INTEGER AAACH0
      INTEGER AAACI0
      INTEGER AAACJ0
      INTEGER AAACK0
      DATA AAACE0/237,233,243,243,233,238,231,160,245,240,240,229,242,16
     *0,226,239,245,238,228,0/
      STATE=1
      IF((SYMBOL.NE.0))GOTO 10205
        STATE=3
        CALL SCOPY(SYMBO0,1,TERMB0,1)
        CALL GETSYM
10205 IF((STATE.NE.3))GOTO 10206
        STATE=1
        IF((SYMBOL.NE.186))GOTO 10207
          STATE=3
          CALL GETSYM
          GOTO 10208
10207     CALL OMATCH(TERMB0)
10208   IF((STATE.NE.3))GOTO 10209
          STATE=1
          IF((SYMBOL.NE.0))GOTO 10210
            STATE=3
            CALL OMATC0(TERMB0,SYMBO0)
            CALL GETSYM
            GOTO 10211
10210       CALL ERRMSG(AAACE0,STATE)
10211     IF((STATE.EQ.3))GOTO 10212
            GPST=2
            RETURN
10212   CONTINUE
10209   AAACF0=STATE
        GOTO 10213
10214     STATE=3
        GOTO 10215
10213   IF(AAACF0.EQ.1)GOTO 10214
10215   IF((STATE.EQ.3))GOTO 10216
          GPST=2
          RETURN
10216   STATE=1
        IF((SYMBOL.NE.174))GOTO 10217
          STATE=3
          ADVAN0=0
          CALL GETSYM
          GOTO 10218
10217     ADVAN0=1
10218   AAACG0=STATE
        GOTO 10219
10220     STATE=3
        GOTO 10221
10219   IF(AAACG0.EQ.1)GOTO 10220
10221   IF((STATE.EQ.3))GOTO 10222
          GPST=2
          RETURN
10222   CALL ACTIO0(STATE)
        AAACH0=STATE
        GOTO 10223
10224     GPST=2
          RETURN
10225     CALL OENDT0
        GOTO 10226
10223   AAACI0=AAACH0-1
        GOTO(10224,10225),AAACI0
10226   IF((STATE.EQ.3))GOTO 10227
          GPST=2
          RETURN
10227 CONTINUE
10206 IF((STATE.NE.1))GOTO 10228
        IF((SYMBOL.NE.4))GOTO 10229
          STATE=3
          CALL OEPSI0
          CALL GETSYM
10229   IF((STATE.NE.3))GOTO 10230
          CALL ACTIO0(STATE)
          AAACJ0=STATE
          GOTO 10231
10232       GPST=2
            RETURN
10233       CALL OACCE0
          GOTO 10234
10231     AAACK0=AAACJ0-1
          GOTO(10232,10233),AAACK0
10234     IF((STATE.EQ.3))GOTO 10235
            GPST=2
            RETURN
10235   CONTINUE
10230 CONTINUE
10228 GPST=STATE
      RETURN
      END
      SUBROUTINE NONTE0(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER STATE
      INTEGER AAACL0
      INTEGER AAACM0
      INTEGER AAACN0
      INTEGER AAACO0(27)
      INTEGER AAACP0(26)
      INTEGER AAACQ0
      INTEGER AAACR0
      INTEGER AAACS0
      INTEGER AAACT0(21)
      INTEGER AAACU0(22)
      INTEGER AAACV0
      INTEGER AAACW0
      INTEGER AAACX0
      INTEGER AAACY0(21)
      INTEGER AAACZ0(20)
      INTEGER AAADA0
      INTEGER AAADB0
      DATA AAACO0/237,233,243,243,233,238,231,160,242,232,243,160,233,23
     *8,160,240,225,242,229,238,244,232,229,243,229,243,0/
      DATA AAACP0/237,233,243,243,233,238,231,160,242,233,231,232,244,16
     *0,240,225,242,229,238,244,232,229,243,233,243,0/
      DATA AAACT0/237,233,243,243,233,238,231,160,239,240,244,233,239,23
     *8,225,236,160,242,232,243,0/
      DATA AAACU0/237,233,243,243,233,238,231,160,242,233,231,232,244,16
     *0,226,242,225,227,235,229,244,0/
      DATA AAACY0/237,233,243,243,233,238,231,160,242,229,240,229,225,24
     *4,229,228,160,242,232,243,0/
      DATA AAACZ0/237,233,243,243,233,238,231,160,242,233,231,232,244,16
     *0,226,242,225,227,229,0/
      STATE=1
      IF((SYMBOL.NE.1))GOTO 10236
        STATE=3
        CALL OCALL0(SYMBO0)
        CALL GETSYM
10236 IF((STATE.NE.3))GOTO 10237
        CALL ACTIO0(STATE)
        AAACL0=STATE
        GOTO 10238
10239     GPST=2
          RETURN
10240     CALL OENDN0
        GOTO 10241
10238   AAACM0=AAACL0-1
        GOTO(10239,10240),AAACM0
10241   IF((STATE.EQ.3))GOTO 10242
          GPST=2
          RETURN
10242 CONTINUE
10237 IF((STATE.NE.1))GOTO 10243
        IF((SYMBOL.NE.168))GOTO 10244
          STATE=3
          CALL GETSYM
10244   IF((STATE.NE.3))GOTO 10245
          CALL RHS(STATE)
          AAACN0=STATE
          GOTO 10246
10247       GPST=2
            RETURN
10248       CALL ERRMSG(AAACO0,STATE)
          GOTO 10249
10246     GOTO(10248,10247),AAACN0
10249     IF((STATE.EQ.3))GOTO 10250
            GPST=2
            RETURN
10250     STATE=1
          IF((SYMBOL.NE.169))GOTO 10251
            STATE=3
            CALL GETSYM
            GOTO 10252
10251       CALL ERRMSG(AAACP0,STATE)
10252     IF((STATE.EQ.3))GOTO 10253
            GPST=2
            RETURN
10253     CALL ACTIO0(STATE)
          AAACQ0=STATE
          GOTO 10254
10255       GPST=2
            RETURN
10256       CALL OENDP0
          GOTO 10257
10254     AAACR0=AAACQ0-1
          GOTO(10255,10256),AAACR0
10257     IF((STATE.EQ.3))GOTO 10258
            GPST=2
            RETURN
10258   CONTINUE
10245   IF((STATE.NE.1))GOTO 10259
          IF((SYMBOL.NE.219))GOTO 10260
            STATE=3
            CALL GETSYM
10260     IF((STATE.NE.3))GOTO 10261
            CALL RHS(STATE)
            AAACS0=STATE
            GOTO 10262
10263         GPST=2
              RETURN
10264         CALL ERRMSG(AAACT0,STATE)
            GOTO 10265
10262       GOTO(10264,10263),AAACS0
10265       IF((STATE.EQ.3))GOTO 10266
              GPST=2
              RETURN
10266       STATE=1
            IF((SYMBOL.NE.221))GOTO 10267
              STATE=3
              CALL GETSYM
              GOTO 10268
10267         CALL ERRMSG(AAACU0,STATE)
10268       IF((STATE.EQ.3))GOTO 10269
              GPST=2
              RETURN
10269       CALL ACTIO0(STATE)
            AAACV0=STATE
            GOTO 10270
10271         GPST=2
              RETURN
10272         CALL OENDO0
            GOTO 10273
10270       AAACW0=AAACV0-1
            GOTO(10271,10272),AAACW0
10273       IF((STATE.EQ.3))GOTO 10274
              GPST=2
              RETURN
10274     CONTINUE
10261     IF((STATE.NE.1))GOTO 10275
            IF((SYMBOL.NE.251))GOTO 10276
              STATE=3
              CALL OBEGK0
              CALL GETSYM
10276       IF((STATE.NE.3))GOTO 10277
              CALL RHS(STATE)
              AAACX0=STATE
              GOTO 10278
10279           GPST=2
                RETURN
10280           CALL ERRMSG(AAACY0,STATE)
              GOTO 10281
10278         GOTO(10280,10279),AAACX0
10281         IF((STATE.EQ.3))GOTO 10282
                GPST=2
                RETURN
10282         STATE=1
              IF((SYMBOL.NE.253))GOTO 10283
                STATE=3
                CALL GETSYM
                GOTO 10284
10283           CALL ERRMSG(AAACZ0,STATE)
10284         IF((STATE.EQ.3))GOTO 10285
                GPST=2
                RETURN
10285         CALL ACTIO0(STATE)
              AAADA0=STATE
              GOTO 10286
10287           GPST=2
                RETURN
10288           CALL OENDU0
              GOTO 10289
10286         AAADB0=AAADA0-1
              GOTO(10287,10288),AAADB0
10289         IF((STATE.EQ.3))GOTO 10290
                GPST=2
                RETURN
10290       CONTINUE
10277     CONTINUE
10275   CONTINUE
10259 CONTINUE
10243 GPST=STATE
      RETURN
      END
      SUBROUTINE ACTIO0(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      NUMAC0=0
      NUMER0=0
      NEXTA0=1
      NEXTE0=1
10291   IF((SYMBOL.NE.161))GOTO 10292
          CALL ADDTE0(INBUF(IBP),ACTTE0,NEXTA0,5000,NUMAC0,200,ACTINX)
          INBUF(IBP)=0
          LINEN0=LINEN0+(1)
          CALL GETSYM
          GOTO 10293
10292     IF((SYMBOL.NE.191))GOTO 10296
            CALL ADDTE0(INBUF(IBP),ERRAC0,NEXTE0,5000,NUMER0,200,ERRAD0)
            INBUF(IBP)=0
            LINEN0=LINEN0+(1)
            CALL GETSYM
            GOTO 10295
10295   CONTINUE
10293 CONTINUE
      GOTO 10291
10296 GPST=3
      RETURN
      END
      SUBROUTINE ADDTE0(TEXT,STORE,AVAIL,MAXAV0,ENTRI0,MAXENT,INX)
      INTEGER TEXT(1),STORE(1)
      INTEGER AVAIL,MAXAV0,ENTRI0,MAXENT,INX(1)
      INTEGER L,JUNK
      INTEGER LENGTH
      INTEGER AAADC0(34)
      INTEGER AAADD0(31)
      DATA AAADC0/244,239,239,160,237,225,238,249,160,225,227,244,233,23
     *9,238,175,229,242,242,239,242,225,227,244,233,239,238,160,236,233,
     *238,229,243,0/
      DATA AAADD0/244,239,239,160,237,245,227,232,160,225,227,244,233,23
     *9,238,175,229,242,242,225,227,244,233,239,238,160,244,229,248,244,
     *0/
      ENTRI0=ENTRI0+(1)
      IF((ENTRI0.LE.MAXENT))GOTO 10297
        CALL ERRMSG(AAADC0,JUNK)
        CALL ERROR('stacc processing terminated.')
10297 INX(ENTRI0)=AVAIL
      L=LENGTH(TEXT)
      IF((AVAIL+L+1.LE.MAXAV0))GOTO 10298
        CALL ERRMSG(AAADD0,JUNK)
        CALL ERROR('stacc processing terminated.')
10298 CALL SCOPY(TEXT,1,STORE,AVAIL)
      AVAIL=AVAIL+(L+1)
      RETURN
      END
      SUBROUTINE CLEAN0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      IF((LANGU0.NE.2))GOTO 10299
        CALL REWIND(PFD)
        CALL FCOPY(PFD,-11)
        CALL RMTEMP(PFD)
10299 RETURN
      END
      SUBROUTINE DECLC0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      CALL GETST0
      CALL SCOPY(SYMBO0,1,COMMO0,1)
      CALL GETSYM
      RETURN
      END
      SUBROUTINE DECLE0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      CALL GETST0
      CALL SCOPY(SYMBO0,1,EPSIL0,1)
      CALL GETSYM
      RETURN
      END
      SUBROUTINE DECLS0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      CALL GETST0
      CALL SCOPY(SYMBO0,1,SCANN0,1)
      CALL GETSYM
      RETURN
      END
      SUBROUTINE DECLU0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      CALL GETST0
      CALL SCOPY(SYMBO0,1,STATE0,1)
      CALL GETSYM
      RETURN
      END
      SUBROUTINE DECLV0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      CALL GETST0
      CALL SCOPY(SYMBO0,1,SYMBP0,1)
      CALL GETSYM
      RETURN
      END
      SUBROUTINE DECLT0(GPST)
      INTEGER GPST
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER I
      INTEGER STRLSR
      INTEGER DECPOS(8)
      INTEGER DECTAB(61)
      INTEGER AAADE0(19)
      INTEGER AAADF0
      DATA DECTAB/1,244,229,242,237,233,238,225,236,0,2,227,239,237,237,
     *239,238,0,3,243,244,225,244,229,0,4,243,227,225,238,238,229,242,0,
     *5,243,249,237,226,239,236,0,6,229,248,244,223,244,229,242,237,0,7,
     *229,240,243,233,236,239,238,0/
      DATA DECPOS/7,1,11,19,26,35,43,53/
      DATA AAADE0/233,236,236,229,231,225,236,160,228,229,227,236,225,24
     *2,225,244,239,242,0/
      I=STRLSR(DECPOS,DECTAB,1,SYMBO0)
      IF((I.NE.-1))GOTO 10300
        CALL ERRMSG(AAADE0,GPST)
        GOTO 10301
10300   AAADF0=DECTAB(DECPOS(I))
        GOTO 10302
10303     CALL GETSYM
          CALL TERML0(GPST)
        GOTO 10304
10305     CALL DECLC0
        GOTO 10304
10306     CALL DECLU0
        GOTO 10304
10307     CALL DECLS0
        GOTO 10304
10308     CALL DECLV0
        GOTO 10304
10309     CALL GETSYM
          CALL EXTLI0(GPST)
        GOTO 10304
10310     CALL DECLE0
        GOTO 10304
10302   GOTO(10303,10305,10306,10307,10308,10309,10310),AAADF0
10304 CONTINUE
10301 GPST=3
      RETURN
      END
      SUBROUTINE EMITS0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAADG0
      INTEGER AAADH0(8)
      INTEGER AAADI0(8)
      INTEGER AAADJ0(7)
      DATA AAADH0/206,207,205,193,212,195,200,0/
      DATA AAADI0/198,193,201,204,213,210,197,0/
      DATA AAADJ0/193,195,195,197,208,212,0/
      AAADG0=LANGU0
      GOTO 10311
10312   CALL ODEFN(AAADH0,1)
        CALL ODEFN(AAADI0,2)
        CALL ODEFN(AAADJ0,3)
      GOTO 10313
10311 GOTO(10312,10312,10312,10312,10312),AAADG0
10313 RETURN
      END
      SUBROUTINE ERRMSG(MSG,SVAR)
      INTEGER MSG(1)
      INTEGER SVAR
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAADK0(10)
      DATA AAADK0/170,233,186,160,160,170,243,170,238,0/
      CALL PRINT(-15,AAADK0,LINEN0,MSG)
10314   IF((SYMBOL.EQ.187))GOTO 10317
        IF((SYMBOL.EQ.169))GOTO 10317
        IF((SYMBOL.EQ.221))GOTO 10317
        IF((SYMBOL.EQ.253))GOTO 10317
        IF((SYMBOL.EQ.-1))GOTO 10317
        GOTO 10315
10315   IF((SYMBOL.EQ.161))GOTO 10319
        IF((SYMBOL.EQ.191))GOTO 10319
        GOTO 10318
10319     INBUF(IBP)=0
10318   CALL GETSYM
      GOTO 10314
10317 SVAR=3
      RETURN
      END
      SUBROUTINE GETST0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER C,QUOTE
      INTEGER NGETCH
      INTEGER I,JUNK
      INTEGER AAADL0(33)
      INTEGER AAADM0(30)
      DATA AAADL0/237,233,243,243,233,238,231,160,241,245,239,244,229,16
     *0,239,242,160,243,244,242,233,238,231,160,244,239,239,160,236,239,
     *238,231,0/
      DATA AAADM0/233,228,229,238,244,233,230,233,229,242,160,239,242,16
     *0,243,244,242,233,238,231,160,229,248,240,229,227,244,229,228,0/
10320   C=NGETCH(C)
        IF((C.NE.138))GOTO 10321
          LINEN0=LINEN0+(1)
10321 CONTINUE
      IF((C.EQ.160))GOTO 10320
      IF((C.EQ.137))GOTO 10320
      IF((C.EQ.138))GOTO 10320
      IF((193.GT.C))GOTO 10324
      IF((C.GT.218))GOTO 10324
      GOTO 10323
10324 IF((225.GT.C))GOTO 10325
      IF((C.GT.250))GOTO 10325
      GOTO 10323
10325 IF((C.EQ.223))GOTO 10323
      GOTO 10322
10323   CALL PUTBA0(C)
        CALL SCANID
        GOTO 10326
10322   IF((C.EQ.167))GOTO 10328
        IF((C.EQ.162))GOTO 10328
        GOTO 10327
10328     QUOTE=C
          I=0
10329       I=I+(1)
            SYMBO0(I)=NGETCH(C)
          IF((C.EQ.QUOTE))GOTO 10330
          IF((C.EQ.-1))GOTO 10330
          IF((I.GE.102))GOTO 10330
          GOTO 10329
10330     CONTINUE
          IF((C.NE.-1))GOTO 10331
            CALL ERRMSG(AAADL0,JUNK)
10331     SYMBO0(I)=0
          GOTO 10332
10327     CALL ERRMSG(AAADM0,JUNK)
10332 CONTINUE
10326 RETURN
      END
      SUBROUTINE GETSYM
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER C
      INTEGER NGETCH
      INTEGER JUNK
      INTEGER LOOKUP,EQUAL
      INTEGER AAADN0
      INTEGER AAADO0
      INTEGER AAADP0(18)
      DATA AAADP0/170,233,186,160,160,226,225,228,160,243,249,237,226,23
     *9,236,170,238,0/
10333   CONTINUE
10334     C=NGETCH(C)
          IF((C.NE.138))GOTO 10335
            LINEN0=LINEN0+(1)
10335   CONTINUE
        IF((C.EQ.160))GOTO 10334
        IF((C.EQ.137))GOTO 10334
        IF((C.EQ.138))GOTO 10334
        AAADN0=C
        GOTO 10336
10337     SYMBOL=C
        GOTO 10338
10339     CALL PUTBA0(C)
          CALL SCANID
          IF((EQUAL(SYMBO0,EPSIL0).NE.1))GOTO 10340
            SYMBOL=4
            GOTO 10338
10340       IF((LOOKUP(SYMBO0,JUNK,TERMT0).NE.1))GOTO 10342
              SYMBOL=0
              GOTO 10343
10342         SYMBOL=1
10343     CONTINUE
10341   GOTO 10338
10344     CALL PUTBA0(C)
          CALL SCANI0
        GOTO 10338
10345     CALL PUTBA0(C)
          CALL SCANC0
        GOTO 10338
10346     CALL SCANIS
        GOTO 10338
10347     INBUF(IBP)=0
          GOTO 10333
10336   IF(AAADN0.EQ.-1)GOTO 10337
        AAADO0=AAADN0-160
        GOTO(10337,10345,10347,10337,10349,10349,10345,10337,10337,10349
     *,10349,10349,10346,10337,10349,10344,10344,10344,10344,10344,10344
     *,10344,10344,10344,10344,10337,10337,10349,10337,10349,10337,10349
     *,10339,10339,10339,10339,10339,10339,10339,10339,10339,10339,10339
     *,10339,10339,10339,10339,10339,10339,10339,10339,10339,10339,10339
     *,10339,10339,10339,10339,10337,10349,10337,10349,10349,10349,10339
     *,10339,10339,10339,10339,10339,10339,10339,10339,10339,10339,10339
     *,10339,10339,10339,10339,10339,10339,10339,10339,10339,10339,10339
     *,10339,10339,10339,10337,10337,10337),AAADO0
10349     CALL PRINT(-15,AAADP0,LINEN0)
          GOTO 10333
10338   RETURN
      END
      SUBROUTINE GETLA0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER ARG(102)
      INTEGER I
      INTEGER GETARG,STRLSR
      INTEGER LANGP0(8)
      INTEGER LANGT0(41)
      INTEGER AAADQ0(28)
      DATA LANGT0/1,242,225,244,230,239,242,0,3,240,236,177,0,3,240,236,
     *175,177,0,3,240,236,175,233,0,2,240,225,243,227,225,236,0,4,227,0,
     *5,240,236,240,0/
      DATA LANGP0/7,1,9,14,20,26,34,37/
      DATA AAADQ0/170,243,186,160,160,245,238,243,245,240,240,239,242,24
     *4,229,228,160,236,225,238,231,245,225,231,229,170,238,0/
      IF((GETARG(1,ARG,102).NE.-1))GOTO 10350
        LANGU0=1
        GOTO 10351
10350   CALL MAPSTR(ARG,1)
        I=STRLSR(LANGP0,LANGT0,1,ARG)
        IF((I.NE.-1))GOTO 10352
          CALL PRINT(-15,AAADQ0,ARG)
          CALL SWT
10352     LANGU0=LANGT0(LANGP0(I))
10351 RETURN
      END
      SUBROUTINE INITI0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER MKTEMP
      INTEGER MKTABL
      INTEGER AAADR0(8)
      INTEGER AAADS0(7)
      INTEGER AAADT0(6)
      INTEGER AAADU0(7)
      INTEGER AAADV0(8)
      DATA AAADR0/242,228,240,174,227,239,237,0/
      DATA AAADS0/231,229,244,243,249,237,0/
      DATA AAADT0/243,244,225,244,229,0/
      DATA AAADU0/243,249,237,226,239,236,0/
      DATA AAADV0/229,240,243,233,236,239,238,0/
      CALL DSINIT(4000)
      TERMT0=MKTABL(0)
      NUMAC0=0
      NUMER0=0
      SVARV0=4
      IBP=95
      INBUF(IBP)=0
      NEXTT0=0
      LASTT0=0
      LINEN0=1
      INDEN0=0
      CALL GETLA0
      CALL CTOC(AAADR0,COMMO0,102)
      CALL CTOC(AAADS0,SCANN0,102)
      CALL CTOC(AAADT0,STATE0,102)
      CALL CTOC(AAADU0,SYMBP0,102)
      CALL CTOC(AAADV0,EPSIL0,102)
      IF((LANGU0.NE.2))GOTO 10353
        PFD=MKTEMP(3)
        IF((PFD.NE.-3))GOTO 10354
          CALL ERROR('can''t open Pascal temporary file.')
10354 CONTINUE
10353 CALL EMITS0
      CALL GETSYM
      RETURN
      END
      INTEGER FUNCTION NGETCH(C)
      INTEGER C
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER GETLIN
      IF((INBUF(IBP).NE.0))GOTO 10355
        IBP=95
        IF((GETLIN(INBUF(IBP),-10).NE.-1))GOTO 10356
          NGETCH=-1
          RETURN
10356 CONTINUE
10355 C=INBUF(IBP)
      IBP=IBP+(1)
      NGETCH=C
      RETURN
      END
      SUBROUTINE OACCE0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER L,I
      INTEGER FD
      FD=-11
      IF((LANGU0.NE.2))GOTO 10357
        FD=PFD
10357 L=1
      GOTO 10360
10358 L=L+(1)
10360 IF((L.GT.NUMAC0))GOTO 10359
        CALL TABOV0
        I=ACTINX(L)
        IF((ACTTE0(I).NE.160))GOTO 10361
          CALL PUTLIN(ACTTE0(I+1),FD)
          GOTO 10358
10361     CALL PUTLIN(ACTTE0(I),FD)
10362 GOTO 10358
10359 RETURN
      END
      SUBROUTINE OALT
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAADW0
      INTEGER AAADX0(23)
      INTEGER AAADY0(29)
      INTEGER AAADZ0(31)
      DATA AAADX0/233,230,160,168,170,243,160,189,189,160,206,207,205,19
     *3,212,195,200,169,160,251,170,238,0/
      DATA AAADY0/233,230,160,168,170,243,160,189,160,206,207,205,193,21
     *2,195,200,169,160,244,232,229,238,160,228,239,187,170,238,0/
      DATA AAADZ0/233,230,160,168,170,243,160,189,160,206,207,205,193,21
     *2,195,200,169,160,244,232,229,238,160,226,229,231,233,238,170,238,
     *0/
      AAADW0=LANGU0
      GOTO 10363
10364   CALL TABOV0
        CALL PRINT(-11,AAADX0,STATE0)
        SVARV0=1
        INDEN0=INDEN0+(1)
      GOTO 10365
10366   CALL TABOV0
        CALL PRINT(-11,AAADY0,STATE0)
        SVARV0=1
        INDEN0=INDEN0+(1)
      GOTO 10365
10367   CALL TABOV0
        CALL PRINT(PFD,AAADZ0,STATE0)
        SVARV0=1
        INDEN0=INDEN0+(1)
      GOTO 10365
10363 GOTO(10364,10367,10366,10364,10366),AAADW0
10365 RETURN
      END
      SUBROUTINE OBEGK0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAEA0
      INTEGER AAAEB0(11)
      INTEGER AAAEC0(26)
      INTEGER AAAED0(9)
      INTEGER AAAEE0(7)
      DATA AAAEB0/242,229,240,229,225,244,160,251,170,238,0/
      DATA AAAEC0/228,239,160,247,232,233,236,229,160,168,170,243,160,18
     *9,160,193,195,195,197,208,212,169,187,170,238,0/
      DATA AAAED0/242,229,240,229,225,244,170,238,0/
      DATA AAAEE0/228,239,160,251,170,238,0/
      AAAEA0=LANGU0
      GOTO 10368
10369   CALL TABOV0
        CALL PRINT(-11,AAAEB0)
        INDEN0=INDEN0+(1)
      GOTO 10370
10371   CALL TABOV0
        CALL PRINT(-11,AAAEC0,STATE0)
        INDEN0=INDEN0+(1)
      GOTO 10370
10372   CALL TABOV0
        CALL PRINT(PFD,AAAED0)
        INDEN0=INDEN0+(1)
      GOTO 10370
10373   CALL TABOV0
        CALL PRINT(-11,AAAEE0)
        INDEN0=INDEN0+(1)
      GOTO 10370
10368 GOTO(10369,10372,10371,10373,10371),AAAEA0
10370 RETURN
      END
      SUBROUTINE OBEGI0(NAME)
      INTEGER NAME(1)
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAEF0
      INTEGER AAAEG0(29)
      INTEGER AAAEH0(15)
      INTEGER AAAEI0(15)
      INTEGER AAAEJ0(13)
      INTEGER AAAEK0(41)
      INTEGER AAAEL0(31)
      INTEGER AAAEM0(27)
      INTEGER AAAEN0(46)
      INTEGER AAAEO0(22)
      INTEGER AAAEP0(14)
      INTEGER AAAEQ0(22)
      INTEGER AAAER0(10)
      INTEGER AAAES0(18)
      INTEGER AAAET0(14)
      INTEGER AAAEU0(4)
      INTEGER AAAEV0(17)
      INTEGER AAAEW0(12)
      INTEGER AAAEX0(10)
      INTEGER AAAEY0(31)
      INTEGER AAAEZ0(31)
      INTEGER AAAFA0(27)
      DATA AAAEG0/170,238,170,238,170,238,243,245,226,242,239,245,244,23
     *3,238,229,160,170,243,160,168,231,240,243,244,169,170,238,0/
      DATA AAAEH0/233,238,244,229,231,229,242,160,231,240,243,244,170,23
     *8,0/
      DATA AAAEI0/233,238,227,236,245,228,229,160,167,170,243,167,170,23
     *8,0/
      DATA AAAEJ0/233,238,244,229,231,229,242,160,170,243,170,238,0/
      DATA AAAEK0/170,238,170,238,170,238,170,243,160,186,160,240,242,23
     *9,227,229,228,245,242,229,160,168,231,240,243,244,169,160,242,229,
     *227,245,242,243,233,246,229,187,170,238,0/
      DATA AAAEL0/228,229,227,236,225,242,229,160,231,240,243,244,160,23
     *0,233,248,229,228,160,226,233,238,225,242,249,187,170,238,170,238,
     *0/
      DATA AAAEM0/228,229,227,236,225,242,229,160,170,243,160,230,233,24
     *8,229,228,160,226,233,238,225,242,249,187,170,238,0/
      DATA AAAEN0/240,242,239,227,229,228,245,242,229,160,170,243,160,16
     *8,246,225,242,160,231,240,243,244,160,186,160,233,238,244,229,231,
     *229,242,169,187,160,230,239,242,247,225,242,228,187,170,238,0/
      DATA AAAEO0/170,238,170,238,170,238,240,242,239,227,229,228,245,24
     *2,229,160,170,243,187,170,238,0/
      DATA AAAEP0/170,238,236,225,226,229,236,160,185,185,187,170,238,0/
      DATA AAAEQ0/170,238,246,225,242,160,170,243,160,186,160,233,238,24
     *4,229,231,229,242,187,170,238,0/
      DATA AAAER0/170,238,226,229,231,233,238,170,238,0/
      DATA AAAES0/170,238,170,238,170,238,170,243,160,168,231,240,243,24
     *4,169,170,238,0/
      DATA AAAET0/233,238,244,160,170,170,231,240,243,244,187,170,238,0/
      DATA AAAEU0/251,170,238,0/
      DATA AAAEV0/229,248,244,229,242,238,160,233,238,244,160,170,243,18
     *7,170,238,0/
      DATA AAAEW0/233,238,244,160,170,243,168,169,187,170,238,0/
      DATA AAAEX0/233,238,244,160,170,243,187,170,238,0/
      DATA AAAEY0/170,238,170,238,170,238,170,243,160,186,160,240,242,23
     *9,227,229,228,245,242,229,160,168,231,240,243,244,169,187,170,238,
     *0/
      DATA AAAEZ0/228,229,227,236,225,242,229,160,231,240,243,244,160,23
     *0,233,248,229,228,160,226,233,238,225,242,249,187,170,238,170,238,
     *0/
      DATA AAAFA0/228,229,227,236,225,242,229,160,170,243,160,230,233,24
     *8,229,228,160,226,233,238,225,242,249,187,170,238,0/
      AAAEF0=LANGU0
      GOTO 10374
10375   CALL PRINT(-11,AAAEG0,NAME)
        CALL PRINT(-11,AAAEH0)
        CALL PRINT(-11,AAAEI0,COMMO0)
        CALL PRINT(-11,AAAEJ0,STATE0)
        CALL OERRO0
        CALL OACCE0
        SVARV0=4
      GOTO 10376
10377   CALL PRINT(-11,AAAEK0,NAME)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAEL0)
        CALL TABOV0
        CALL PRINT(-11,AAAEM0,STATE0)
        CALL OERRO0
        CALL OACCE0
        SVARV0=4
      GOTO 10376
10378   CALL PRINT(-11,AAAEN0,NAME)
        CALL PRINT(PFD,AAAEO0,NAME)
        CALL PRINT(PFD,AAAEP0)
        CALL OERRO0
        CALL PRINT(PFD,AAAEQ0,STATE0)
        INDEN0=INDEN0+(1)
        CALL OACCE0
        INDEN0=INDEN0-(1)
        CALL PRINT(PFD,AAAER0)
        INDEN0=INDEN0+(1)
        SVARV0=4
      GOTO 10376
10379   CALL PRINT(-11,AAAES0,NAME)
        CALL PRINT(-11,AAAET0)
        CALL PRINT(-11,AAAEU0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAEV0,SYMBP0)
        CALL TABOV0
        CALL PRINT(-11,AAAEW0,SCANN0)
        CALL TABOV0
        CALL PRINT(-11,AAAEX0,STATE0)
        CALL OERRO0
        CALL OACCE0
        SVARV0=4
      GOTO 10376
10380   CALL PRINT(-11,AAAEY0,NAME)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAEZ0)
        CALL TABOV0
        CALL PRINT(-11,AAAFA0,STATE0)
        CALL OERRO0
        CALL OACCE0
        SVARV0=4
      GOTO 10376
10374 GOTO(10375,10378,10377,10379,10380),AAAEF0
10376 RETURN
      END
      SUBROUTINE OBEGJ0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAFB0
      INTEGER AAAFC0(22)
      INTEGER AAAFD0(28)
      INTEGER AAAFE0(30)
      DATA AAAFC0/233,230,160,168,170,243,160,189,189,160,193,195,195,19
     *7,208,212,169,160,251,170,238,0/
      DATA AAAFD0/233,230,160,168,170,243,160,189,160,193,195,195,197,20
     *8,212,169,160,244,232,229,238,160,228,239,187,170,238,0/
      DATA AAAFE0/233,230,160,168,170,243,160,189,160,193,195,195,197,20
     *8,212,169,160,244,232,229,238,160,226,229,231,233,238,170,238,0/
      AAAFB0=LANGU0
      GOTO 10381
10382   CALL TABOV0
        CALL PRINT(-11,AAAFC0,STATE0)
        SVARV0=3
        INDEN0=INDEN0+(1)
      GOTO 10383
10384   CALL TABOV0
        CALL PRINT(-11,AAAFD0,STATE0)
        SVARV0=3
        INDEN0=INDEN0+(1)
      GOTO 10383
10385   CALL TABOV0
        CALL PRINT(PFD,AAAFE0,STATE0)
        SVARV0=3
        INDEN0=INDEN0+(1)
      GOTO 10383
10381 GOTO(10382,10385,10384,10382,10384),AAAFB0
10383 RETURN
      END
      SUBROUTINE OCALL0(NAME)
      INTEGER NAME(1)
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAFF0
      INTEGER AAAFG0(15)
      INTEGER AAAFH0(16)
      INTEGER AAAFI0(11)
      INTEGER AAAFJ0(12)
      DATA AAAFG0/227,225,236,236,160,170,243,160,168,170,243,169,170,23
     *8,0/
      DATA AAAFH0/227,225,236,236,160,170,243,160,168,170,243,169,187,17
     *0,238,0/
      DATA AAAFI0/170,243,160,168,170,243,169,187,170,238,0/
      DATA AAAFJ0/170,243,160,168,166,170,243,169,187,170,238,0/
      AAAFF0=LANGU0
      GOTO 10386
10387   CALL TABOV0
        CALL PRINT(-11,AAAFG0,NAME,STATE0)
        SVARV0=4
      GOTO 10388
10389   CALL TABOV0
        CALL PRINT(-11,AAAFH0,NAME,STATE0)
        SVARV0=4
      GOTO 10388
10390   CALL TABOV0
        CALL PRINT(PFD,AAAFI0,NAME,STATE0)
        SVARV0=4
      GOTO 10388
10391   CALL TABOV0
        CALL PRINT(-11,AAAFJ0,NAME,STATE0)
        SVARV0=4
      GOTO 10388
10386 GOTO(10387,10390,10389,10391,10389),AAAFF0
10388 RETURN
      END
      SUBROUTINE OCHOJ0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAFK0
      INTEGER AAAFL0(10)
      INTEGER AAAFM0(11)
      INTEGER AAAFN0(5)
      INTEGER AAAFO0(9)
      INTEGER AAAFP0(34)
      DATA AAAFL0/227,225,236,236,160,170,243,170,238,0/
      DATA AAAFM0/227,225,236,236,160,170,243,187,170,238,0/
      DATA AAAFN0/170,243,170,238,0/
      DATA AAAFO0/170,243,160,168,169,187,170,238,0/
      DATA AAAFP0/170,233,186,160,160,229,242,242,239,242,160,225,227,24
     *4,233,239,238,243,160,233,236,236,229,231,225,236,160,232,229,242,
     *229,170,238,0/
      CALL OACCE0
      IF((ADVAN0.NE.1))GOTO 10392
        AAAFK0=LANGU0
        GOTO 10393
10394     CALL TABOV0
          CALL PRINT(-11,AAAFL0,SCANN0)
        GOTO 10395
10396     CALL TABOV0
          CALL PRINT(-11,AAAFM0,SCANN0)
        GOTO 10395
10397     CALL TABOV0
          CALL PRINT(PFD,AAAFN0,SCANN0)
        GOTO 10395
10398     CALL TABOV0
          CALL PRINT(-11,AAAFO0,SCANN0)
        GOTO 10395
10393   GOTO(10394,10397,10396,10398,10396),AAAFK0
10395 CONTINUE
10392 IF((NUMER0.LE.0))GOTO 10399
        CALL PRINT(-15,AAAFP0,LINEN0)
10399 RETURN
      END
      SUBROUTINE OCHOK0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAFQ0
      INTEGER AAAFR0(4)
      INTEGER AAAFS0(7)
      INTEGER AAAFT0(7)
      INTEGER AAAFU0(9)
      INTEGER AAAFV0(4)
      DATA AAAFR0/253,170,238,0/
      DATA AAAFS0/229,238,228,187,170,238,0/
      DATA AAAFT0/229,238,228,187,170,238,0/
      DATA AAAFU0/226,242,229,225,235,187,170,238,0/
      DATA AAAFV0/253,170,238,0/
      AAAFQ0=LANGU0
      GOTO 10400
10401   CALL TABOV0
        CALL PRINT(-11,AAAFR0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10402
10403   CALL TABOV0
        CALL PRINT(-11,AAAFS0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10402
10404   CALL TABOV0
        CALL PRINT(PFD,AAAFT0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10402
10405   CALL TABOV0
        CALL PRINT(-11,AAAFU0)
        CALL TABOV0
        CALL PRINT(-11,AAAFV0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10402
10400 GOTO(10401,10404,10403,10405,10403),AAAFQ0
10402 RETURN
      END
      SUBROUTINE OCHOI0(VAL)
      INTEGER VAL(1)
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAFW0
      INTEGER AAAFX0(14)
      INTEGER AAAFY0(14)
      INTEGER AAAFZ0(29)
      INTEGER AAAGA0(15)
      INTEGER AAAGB0(12)
      INTEGER AAAGC0(16)
      INTEGER AAAGD0(13)
      INTEGER AAAGE0(15)
      INTEGER AAAGF0(16)
      INTEGER AAAGG0(15)
      DATA AAAFX0/247,232,229,238,160,168,170,243,169,160,251,170,238,0/
      DATA AAAFY0/170,243,160,189,160,193,195,195,197,208,212,170,238,0/
      DATA AAAFZ0/229,236,243,229,160,233,230,160,168,170,243,160,189,16
     *0,170,243,169,160,244,232,229,238,160,228,239,187,170,238,0/
      DATA AAAGA0/170,243,160,189,160,193,195,195,197,208,212,187,170,23
     *8,0/
      DATA AAAGB0/170,243,186,160,226,229,231,233,238,170,238,0/
      DATA AAAGC0/170,243,160,186,189,160,193,195,195,197,208,212,187,17
     *0,238,0/
      DATA AAAGD0/227,225,243,229,160,170,243,186,160,251,170,238,0/
      DATA AAAGE0/170,243,160,189,160,193,195,195,197,208,212,187,170,23
     *8,0/
      DATA AAAGF0/247,232,229,238,160,168,170,243,169,160,228,239,187,17
     *0,238,0/
      DATA AAAGG0/170,243,160,189,160,193,195,195,197,208,212,187,170,23
     *8,0/
      AAAFW0=LANGU0
      GOTO 10406
10407   CALL TABOV0
        CALL PRINT(-11,AAAFX0,VAL)
        INDEN0=INDEN0+(1)
        IF((SVARV0.EQ.3))GOTO 10408
          CALL TABOV0
          CALL PRINT(-11,AAAFY0,STATE0)
10408   SVARV0=3
      GOTO 10409
10410   CALL TABOV0
        CALL PRINT(-11,AAAFZ0,SYMBP0,VAL)
        INDEN0=INDEN0+(1)
        IF((SVARV0.EQ.3))GOTO 10411
          CALL TABOV0
          CALL PRINT(-11,AAAGA0,STATE0)
10411   SVARV0=3
      GOTO 10409
10412   CALL TABOV0
        CALL PRINT(PFD,AAAGB0,VAL)
        INDEN0=INDEN0+(1)
        IF((SVARV0.EQ.3))GOTO 10413
          CALL TABOV0
          CALL PRINT(PFD,AAAGC0,STATE0)
10413   SVARV0=3
      GOTO 10409
10414   CALL TABOV0
        CALL PRINT(-11,AAAGD0,VAL)
        INDEN0=INDEN0+(1)
        IF((SVARV0.EQ.3))GOTO 10415
          CALL TABOV0
          CALL PRINT(-11,AAAGE0,STATE0)
10415   SVARV0=3
      GOTO 10409
10416   CALL TABOV0
        CALL PRINT(-11,AAAGF0,VAL)
        INDEN0=INDEN0+(1)
        IF((SVARV0.EQ.3))GOTO 10417
          CALL TABOV0
          CALL PRINT(-11,AAAGG0,STATE0)
10417   SVARV0=3
      GOTO 10409
10406 GOTO(10407,10412,10410,10414,10416),AAAFW0
10409 RETURN
      END
      SUBROUTINE ODEFN(SYM,VAL)
      INTEGER SYM(1)
      INTEGER VAL
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAGH0
      INTEGER AAAGI0(16)
      INTEGER AAAGJ0(21)
      INTEGER AAAGK0(11)
      INTEGER AAAGL0(16)
      DATA AAAGI0/228,229,230,233,238,229,168,170,243,172,170,233,169,17
     *0,238,0/
      DATA AAAGJ0/165,242,229,240,236,225,227,229,160,170,243,160,226,24
     *9,160,170,233,187,170,238,0/
      DATA AAAGK0/170,243,160,189,160,170,233,187,170,238,0/
      DATA AAAGL0/163,228,229,230,233,238,229,160,170,243,160,170,233,17
     *0,238,0/
      AAAGH0=LANGU0
      GOTO 10418
10419   CALL PRINT(-13,AAAGI0,SYM,VAL)
      GOTO 10420
10421   CALL PRINT(-13,AAAGJ0,SYM,VAL)
      GOTO 10420
10422   CALL PRINT(-13,AAAGK0,SYM,VAL)
      GOTO 10420
10423   CALL PRINT(-13,AAAGL0,SYM,VAL)
      GOTO 10420
10418 GOTO(10419,10422,10421,10423,10421),AAAGH0
10420 RETURN
      END
      SUBROUTINE OENDA0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAGM0
      INTEGER AAAGN0(4)
      INTEGER AAAGO0(7)
      INTEGER AAAGP0(7)
      DATA AAAGN0/253,170,238,0/
      DATA AAAGO0/229,238,228,187,170,238,0/
      DATA AAAGP0/229,238,228,187,170,238,0/
      AAAGM0=LANGU0
      GOTO 10424
10425   CALL TABOV0
        CALL PRINT(-11,AAAGN0)
        SVARV0=4
        INDEN0=INDEN0-(1)
      GOTO 10426
10427   CALL TABOV0
        CALL PRINT(-11,AAAGO0)
        SVARV0=4
        INDEN0=INDEN0-(1)
      GOTO 10426
10428   CALL TABOV0
        CALL PRINT(PFD,AAAGP0)
        SVARV0=4
        INDEN0=INDEN0-(1)
      GOTO 10426
10424 GOTO(10425,10428,10427,10425,10427),AAAGM0
10426 RETURN
      END
      SUBROUTINE OENDN0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAGQ0
      INTEGER AAAGR0(14)
      INTEGER AAAGS0(19)
      INTEGER AAAGT0(17)
      INTEGER AAAGU0(9)
      INTEGER AAAGV0(4)
      INTEGER AAAGW0(19)
      INTEGER AAAGX0(4)
      INTEGER AAAGY0(18)
      INTEGER AAAGZ0(4)
      INTEGER AAAHA0(29)
      INTEGER AAAHB0(18)
      INTEGER AAAHC0(10)
      INTEGER AAAHD0(7)
      INTEGER AAAHE0(34)
      INTEGER AAAHF0(7)
      INTEGER AAAHG0(33)
      INTEGER AAAHH0(7)
      INTEGER AAAHI0(13)
      INTEGER AAAHJ0(17)
      INTEGER AAAHK0(19)
      INTEGER AAAHL0(10)
      INTEGER AAAHM0(7)
      INTEGER AAAHN0(17)
      INTEGER AAAHO0(7)
      INTEGER AAAHP0(16)
      INTEGER AAAHQ0(7)
      INTEGER AAAHR0(17)
      INTEGER AAAHS0(16)
      INTEGER AAAHT0(18)
      INTEGER AAAHU0(20)
      INTEGER AAAHV0(10)
      INTEGER AAAHW0(4)
      INTEGER AAAHX0(18)
      INTEGER AAAHY0(9)
      INTEGER AAAHZ0(4)
      INTEGER AAAIA0(17)
      INTEGER AAAIB0(9)
      INTEGER AAAIC0(4)
      INTEGER AAAID0(4)
      INTEGER AAAIE0(15)
      INTEGER AAAIF0(21)
      INTEGER AAAIG0(18)
      INTEGER AAAIH0(10)
      INTEGER AAAII0(7)
      INTEGER AAAIJ0(21)
      INTEGER AAAIK0(7)
      INTEGER AAAIL0(20)
      INTEGER AAAIM0(7)
      INTEGER AAAIN0(7)
      DATA AAAGR0/243,229,236,229,227,244,160,168,170,243,169,170,238,0/
      DATA AAAGS0/247,232,229,238,160,168,198,193,201,204,213,210,197,16
     *9,160,251,170,238,0/
      DATA AAAGT0/231,240,243,244,160,189,160,198,193,201,204,213,210,19
     *7,170,238,0/
      DATA AAAGU0/242,229,244,245,242,238,170,238,0/
      DATA AAAGV0/253,170,238,0/
      DATA AAAGW0/247,232,229,238,160,168,206,207,205,193,212,195,200,16
     *9,160,251,170,238,0/
      DATA AAAGX0/253,170,238,0/
      DATA AAAGY0/247,232,229,238,160,168,193,195,195,197,208,212,169,16
     *0,251,170,238,0/
      DATA AAAGZ0/253,170,238,0/
      DATA AAAHA0/233,230,160,168,170,243,160,189,160,198,193,201,204,21
     *3,210,197,169,160,244,232,229,238,160,228,239,187,170,238,0/
      DATA AAAHB0/231,240,243,244,160,189,160,198,193,201,204,213,210,19
     *7,187,170,238,0/
      DATA AAAHC0/242,229,244,245,242,238,187,170,238,0/
      DATA AAAHD0/229,238,228,187,170,238,0/
      DATA AAAHE0/229,236,243,229,160,233,230,160,168,170,243,160,189,16
     *0,206,207,205,193,212,195,200,169,160,244,232,229,238,160,228,239,
     *187,170,238,0/
      DATA AAAHF0/229,238,228,187,170,238,0/
      DATA AAAHG0/229,236,243,229,160,233,230,160,168,170,243,160,189,16
     *0,193,195,195,197,208,212,169,160,244,232,229,238,160,228,239,187,
     *170,238,0/
      DATA AAAHH0/229,238,228,187,170,238,0/
      DATA AAAHI0/227,225,243,229,160,170,243,160,239,230,170,238,0/
      DATA AAAHJ0/198,193,201,204,213,210,197,186,160,226,229,231,233,23
     *8,170,238,0/
      DATA AAAHK0/231,240,243,244,160,186,189,160,198,193,201,204,213,21
     *0,197,187,170,238,0/
      DATA AAAHL0/231,239,244,239,160,185,185,170,238,0/
      DATA AAAHM0/229,238,228,187,170,238,0/
      DATA AAAHN0/206,207,205,193,212,195,200,186,160,226,229,231,233,23
     *8,170,238,0/
      DATA AAAHO0/229,238,228,187,170,238,0/
      DATA AAAHP0/193,195,195,197,208,212,186,160,226,229,231,233,238,17
     *0,238,0/
      DATA AAAHQ0/229,238,228,187,170,238,0/
      DATA AAAHR0/239,244,232,229,242,247,233,243,229,160,229,238,228,18
     *7,170,238,0/
      DATA AAAHS0/243,247,233,244,227,232,160,168,170,243,169,160,251,17
     *0,238,0/
      DATA AAAHT0/227,225,243,229,160,198,193,201,204,213,210,197,186,16
     *0,251,170,238,0/
      DATA AAAHU0/170,170,231,240,243,244,160,189,160,198,193,201,204,21
     *3,210,197,187,170,238,0/
      DATA AAAHV0/242,229,244,245,242,238,187,170,238,0/
      DATA AAAHW0/253,170,238,0/
      DATA AAAHX0/227,225,243,229,160,206,207,205,193,212,195,200,186,16
     *0,251,170,238,0/
      DATA AAAHY0/226,242,229,225,235,187,170,238,0/
      DATA AAAHZ0/253,170,238,0/
      DATA AAAIA0/227,225,243,229,160,193,195,195,197,208,212,186,160,25
     *1,170,238,0/
      DATA AAAIB0/226,242,229,225,235,187,170,238,0/
      DATA AAAIC0/253,170,238,0/
      DATA AAAID0/253,170,238,0/
      DATA AAAIE0/243,229,236,229,227,244,160,168,170,243,169,187,170,23
     *8,0/
      DATA AAAIF0/247,232,229,238,160,168,198,193,201,204,213,210,197,16
     *9,160,228,239,187,170,238,0/
      DATA AAAIG0/231,240,243,244,160,189,160,198,193,201,204,213,210,19
     *7,187,170,238,0/
      DATA AAAIH0/242,229,244,245,242,238,187,170,238,0/
      DATA AAAII0/229,238,228,187,170,238,0/
      DATA AAAIJ0/247,232,229,238,160,168,206,207,205,193,212,195,200,16
     *9,160,228,239,187,170,238,0/
      DATA AAAIK0/229,238,228,187,170,238,0/
      DATA AAAIL0/247,232,229,238,160,168,193,195,195,197,208,212,169,16
     *0,228,239,187,170,238,0/
      DATA AAAIM0/229,238,228,187,170,238,0/
      DATA AAAIN0/229,238,228,187,170,238,0/
      AAAGQ0=LANGU0
      GOTO 10429
10430   CALL TABOV0
        CALL PRINT(-11,AAAGR0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAGS0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAGT0)
        CALL TABOV0
        CALL PRINT(-11,AAAGU0)
        CALL TABOV0
        CALL PRINT(-11,AAAGV0)
        INDEN0=INDEN0-(1)
        IF((NUMER0.LE.0))GOTO 10431
          CALL TABOV0
          CALL PRINT(-11,AAAGW0)
          INDEN0=INDEN0+(1)
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(-11,AAAGX0)
          INDEN0=INDEN0-(1)
10431   IF((NUMAC0.LE.0))GOTO 10432
          CALL TABOV0
          CALL PRINT(-11,AAAGY0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAAGZ0)
          INDEN0=INDEN0-(1)
10432   INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10433
10434   CALL TABOV0
        CALL PRINT(-11,AAAHA0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAHB0)
        CALL TABOV0
        CALL PRINT(-11,AAAHC0)
        CALL TABOV0
        CALL PRINT(-11,AAAHD0)
        INDEN0=INDEN0-(1)
        IF((NUMER0.LE.0))GOTO 10435
          CALL TABOV0
          CALL PRINT(-11,AAAHE0,STATE0)
          INDEN0=INDEN0+(1)
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(-11,AAAHF0)
          INDEN0=INDEN0-(1)
10435   IF((NUMAC0.LE.0))GOTO 10436
          CALL TABOV0
          CALL PRINT(-11,AAAHG0,STATE0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAAHH0)
          INDEN0=INDEN0-(1)
10436   SVARV0=4
      GOTO 10433
10437   CALL TABOV0
        CALL PRINT(PFD,AAAHI0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(PFD,AAAHJ0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(PFD,AAAHK0)
        CALL TABOV0
        CALL PRINT(PFD,AAAHL0)
        CALL TABOV0
        CALL PRINT(PFD,AAAHM0)
        INDEN0=INDEN0-(1)
        IF((NUMER0.LE.0))GOTO 10438
          CALL TABOV0
          CALL PRINT(PFD,AAAHN0)
          INDEN0=INDEN0+(1)
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(PFD,AAAHO0)
          INDEN0=INDEN0-(1)
10438   IF((NUMAC0.LE.0))GOTO 10439
          CALL TABOV0
          CALL PRINT(PFD,AAAHP0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(PFD,AAAHQ0)
          INDEN0=INDEN0-(1)
10439   CALL TABOV0
        CALL PRINT(PFD,AAAHR0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10433
10440   CALL TABOV0
        CALL PRINT(-11,AAAHS0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAHT0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAHU0)
        CALL TABOV0
        CALL PRINT(-11,AAAHV0)
        CALL TABOV0
        CALL PRINT(-11,AAAHW0)
        INDEN0=INDEN0-(1)
        IF((NUMER0.LE.0))GOTO 10441
          CALL TABOV0
          CALL PRINT(-11,AAAHX0)
          INDEN0=INDEN0+(1)
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(-11,AAAHY0)
          CALL TABOV0
          CALL PRINT(-11,AAAHZ0)
          INDEN0=INDEN0-(1)
10441   IF((NUMAC0.LE.0))GOTO 10442
          CALL TABOV0
          CALL PRINT(-11,AAAIA0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAAIB0)
          CALL TABOV0
          CALL PRINT(-11,AAAIC0)
          INDEN0=INDEN0-(1)
10442   CALL TABOV0
        CALL PRINT(-11,AAAID0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10433
10443   CALL TABOV0
        CALL PRINT(-11,AAAIE0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAIF0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAIG0)
        CALL TABOV0
        CALL PRINT(-11,AAAIH0)
        CALL TABOV0
        CALL PRINT(-11,AAAII0)
        INDEN0=INDEN0-(1)
        IF((NUMER0.LE.0))GOTO 10444
          CALL TABOV0
          CALL PRINT(-11,AAAIJ0)
          INDEN0=INDEN0+(1)
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(-11,AAAIK0)
          INDEN0=INDEN0-(1)
10444   IF((NUMAC0.LE.0))GOTO 10445
          CALL TABOV0
          CALL PRINT(-11,AAAIL0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAAIM0)
          INDEN0=INDEN0-(1)
10445   CALL TABOV0
        CALL PRINT(-11,AAAIN0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10433
10429 GOTO(10430,10437,10434,10440,10443),AAAGQ0
10433 RETURN
      END
      SUBROUTINE OENDO0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAIO0
      INTEGER AAAIP0(14)
      INTEGER AAAIQ0(15)
      INTEGER AAAIR0(5)
      INTEGER AAAIS0(3)
      INTEGER AAAIT0(14)
      INTEGER AAAIU0(4)
      INTEGER AAAIV0(18)
      INTEGER AAAIW0(4)
      INTEGER AAAIX0(23)
      INTEGER AAAIY0(7)
      INTEGER AAAIZ0(3)
      INTEGER AAAJA0(15)
      INTEGER AAAJB0(7)
      INTEGER AAAJC0(33)
      INTEGER AAAJD0(7)
      INTEGER AAAJE0(13)
      INTEGER AAAJF0(9)
      INTEGER AAAJG0(9)
      INTEGER AAAJH0(3)
      INTEGER AAAJI0(16)
      INTEGER AAAJJ0(7)
      INTEGER AAAJK0(16)
      INTEGER AAAJL0(7)
      INTEGER AAAJM0(17)
      INTEGER AAAJN0(16)
      INTEGER AAAJO0(18)
      INTEGER AAAJP0(15)
      INTEGER AAAJQ0(9)
      INTEGER AAAJR0(4)
      INTEGER AAAJS0(17)
      INTEGER AAAJT0(9)
      INTEGER AAAJU0(4)
      INTEGER AAAJV0(4)
      INTEGER AAAJW0(15)
      INTEGER AAAJX0(15)
      INTEGER AAAJY0(7)
      INTEGER AAAJZ0(3)
      INTEGER AAAKA0(15)
      INTEGER AAAKB0(7)
      INTEGER AAAKC0(20)
      INTEGER AAAKD0(7)
      INTEGER AAAKE0(7)
      DATA AAAIP0/243,229,236,229,227,244,160,168,170,243,169,170,238,0/
      DATA AAAIQ0/247,232,229,238,160,168,206,207,205,193,212,195,200,16
     *9,0/
      DATA AAAIR0/160,251,170,238,0/
      DATA AAAIS0/170,238,0/
      DATA AAAIT0/170,243,160,189,160,193,195,195,197,208,212,170,238,0/
      DATA AAAIU0/253,170,238,0/
      DATA AAAIV0/247,232,229,238,160,168,193,195,195,197,208,212,169,16
     *0,251,170,238,0/
      DATA AAAIW0/253,170,238,0/
      DATA AAAIX0/233,230,160,168,170,243,160,189,160,206,207,205,193,21
     *2,195,200,169,160,244,232,229,238,0/
      DATA AAAIY0/160,228,239,187,170,238,0/
      DATA AAAIZ0/170,238,0/
      DATA AAAJA0/170,243,160,189,160,193,195,195,197,208,212,187,170,23
     *8,0/
      DATA AAAJB0/229,238,228,187,170,238,0/
      DATA AAAJC0/229,236,243,229,160,233,230,160,168,170,243,160,189,16
     *0,193,195,195,197,208,212,169,160,244,232,229,238,160,228,239,187,
     *170,238,0/
      DATA AAAJD0/229,238,228,187,170,238,0/
      DATA AAAJE0/227,225,243,229,160,170,243,160,239,230,170,238,0/
      DATA AAAJF0/206,207,205,193,212,195,200,186,0/
      DATA AAAJG0/160,226,229,231,233,238,170,238,0/
      DATA AAAJH0/170,238,0/
      DATA AAAJI0/170,243,160,186,189,160,193,195,195,197,208,212,187,17
     *0,238,0/
      DATA AAAJJ0/229,238,228,187,170,238,0/
      DATA AAAJK0/193,195,195,197,208,212,186,160,226,229,231,233,238,17
     *0,238,0/
      DATA AAAJL0/229,238,228,187,170,238,0/
      DATA AAAJM0/239,244,232,229,242,247,233,243,229,160,229,238,228,18
     *7,170,238,0/
      DATA AAAJN0/243,247,233,244,227,232,160,168,170,243,169,160,251,17
     *0,238,0/
      DATA AAAJO0/227,225,243,229,160,206,207,205,193,212,195,200,186,16
     *0,251,170,238,0/
      DATA AAAJP0/170,243,160,189,160,193,195,195,197,208,212,187,170,23
     *8,0/
      DATA AAAJQ0/226,242,229,225,235,187,170,238,0/
      DATA AAAJR0/253,170,238,0/
      DATA AAAJS0/227,225,243,229,160,193,195,195,197,208,212,186,160,25
     *1,170,238,0/
      DATA AAAJT0/226,242,229,225,235,187,170,238,0/
      DATA AAAJU0/253,170,238,0/
      DATA AAAJV0/253,170,238,0/
      DATA AAAJW0/243,229,236,229,227,244,160,168,170,243,169,187,170,23
     *8,0/
      DATA AAAJX0/247,232,229,238,160,168,206,207,205,193,212,195,200,16
     *9,0/
      DATA AAAJY0/160,228,239,187,170,238,0/
      DATA AAAJZ0/170,238,0/
      DATA AAAKA0/170,243,160,189,160,193,195,195,197,208,212,187,170,23
     *8,0/
      DATA AAAKB0/229,238,228,187,170,238,0/
      DATA AAAKC0/247,232,229,238,160,168,193,195,195,197,208,212,169,16
     *0,228,239,187,170,238,0/
      DATA AAAKD0/229,238,228,187,170,238,0/
      DATA AAAKE0/229,238,228,187,170,238,0/
      AAAIO0=LANGU0
      GOTO 10446
10447   CALL TABOV0
        CALL PRINT(-11,AAAIP0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAIQ0)
        IF((NUMER0.LE.0))GOTO 10448
          CALL PRINT(-11,AAAIR0)
          GOTO 10449
10448     CALL PRINT(-11,AAAIS0)
10449   INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAIT0,STATE0)
        IF((NUMER0.LE.0))GOTO 10450
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(-11,AAAIU0)
10450   INDEN0=INDEN0-(1)
        IF((NUMAC0.LE.0))GOTO 10451
          CALL TABOV0
          CALL PRINT(-11,AAAIV0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAAIW0)
          INDEN0=INDEN0-(1)
10451   INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10452
10453   CALL TABOV0
        CALL PRINT(-11,AAAIX0,STATE0)
        IF((NUMER0.LE.0))GOTO 10454
          CALL PRINT(-11,AAAIY0)
          GOTO 10455
10454     CALL PRINT(-11,AAAIZ0)
10455   INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAJA0,STATE0)
        IF((NUMER0.LE.0))GOTO 10456
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(-11,AAAJB0)
10456   INDEN0=INDEN0-(1)
        IF((NUMAC0.LE.0))GOTO 10457
          CALL TABOV0
          CALL PRINT(-11,AAAJC0,STATE0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAAJD0)
          INDEN0=INDEN0-(1)
10457   SVARV0=4
      GOTO 10452
10458   CALL TABOV0
        CALL PRINT(PFD,AAAJE0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(PFD,AAAJF0)
        IF((NUMER0.LE.0))GOTO 10459
          CALL PRINT(PFD,AAAJG0)
          GOTO 10460
10459     CALL PRINT(PFD,AAAJH0)
10460   INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(PFD,AAAJI0,STATE0)
        IF((NUMER0.LE.0))GOTO 10461
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(PFD,AAAJJ0)
10461   INDEN0=INDEN0-(1)
        IF((NUMAC0.LE.0))GOTO 10462
          CALL TABOV0
          CALL PRINT(PFD,AAAJK0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(PFD,AAAJL0)
          INDEN0=INDEN0-(1)
10462   CALL TABOV0
        CALL PRINT(PFD,AAAJM0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10452
10463   CALL TABOV0
        CALL PRINT(-11,AAAJN0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAJO0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAJP0,STATE0)
        IF((NUMER0.LE.0))GOTO 10464
          CALL OERRO0
10464   CALL TABOV0
        CALL PRINT(-11,AAAJQ0)
        CALL TABOV0
        CALL PRINT(-11,AAAJR0)
        INDEN0=INDEN0-(1)
        IF((NUMAC0.LE.0))GOTO 10465
          CALL TABOV0
          CALL PRINT(-11,AAAJS0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAAJT0)
          CALL TABOV0
          CALL PRINT(-11,AAAJU0)
          INDEN0=INDEN0-(1)
10465   CALL TABOV0
        CALL PRINT(-11,AAAJV0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10452
10466   CALL TABOV0
        CALL PRINT(-11,AAAJW0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAJX0)
        IF((NUMER0.LE.0))GOTO 10467
          CALL PRINT(-11,AAAJY0)
          GOTO 10468
10467     CALL PRINT(-11,AAAJZ0)
10468   INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAKA0,STATE0)
        IF((NUMER0.LE.0))GOTO 10469
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(-11,AAAKB0)
10469   INDEN0=INDEN0-(1)
        IF((NUMAC0.LE.0))GOTO 10470
          CALL TABOV0
          CALL PRINT(-11,AAAKC0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAAKD0)
          INDEN0=INDEN0-(1)
10470   CALL TABOV0
        CALL PRINT(-11,AAAKE0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10452
10446 GOTO(10447,10458,10453,10463,10466),AAAIO0
10452 RETURN
      END
      SUBROUTINE OENDP0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAKF0
      INTEGER AAAKG0(22)
      INTEGER AAAKH0(4)
      INTEGER AAAKI0(23)
      INTEGER AAAKJ0(4)
      INTEGER AAAKK0(14)
      INTEGER AAAKL0(19)
      INTEGER AAAKM0(4)
      INTEGER AAAKN0(18)
      INTEGER AAAKO0(4)
      INTEGER AAAKP0(28)
      INTEGER AAAKQ0(7)
      INTEGER AAAKR0(29)
      INTEGER AAAKS0(7)
      INTEGER AAAKT0(29)
      INTEGER AAAKU0(7)
      INTEGER AAAKV0(33)
      INTEGER AAAKW0(7)
      INTEGER AAAKX0(30)
      INTEGER AAAKY0(7)
      INTEGER AAAKZ0(31)
      INTEGER AAALA0(7)
      INTEGER AAALB0(13)
      INTEGER AAALC0(17)
      INTEGER AAALD0(7)
      INTEGER AAALE0(16)
      INTEGER AAALF0(7)
      INTEGER AAALG0(17)
      INTEGER AAALH0(22)
      INTEGER AAALI0(4)
      INTEGER AAALJ0(23)
      INTEGER AAALK0(4)
      INTEGER AAALL0(16)
      INTEGER AAALM0(18)
      INTEGER AAALN0(9)
      INTEGER AAALO0(4)
      INTEGER AAALP0(17)
      INTEGER AAALQ0(9)
      INTEGER AAALR0(4)
      INTEGER AAALS0(4)
      INTEGER AAALT0(28)
      INTEGER AAALU0(7)
      INTEGER AAALV0(29)
      INTEGER AAALW0(7)
      INTEGER AAALX0(15)
      INTEGER AAALY0(21)
      INTEGER AAALZ0(7)
      INTEGER AAAMA0(20)
      INTEGER AAAMB0(7)
      INTEGER AAAMC0(7)
      DATA AAAKG0/233,230,160,168,170,243,160,189,189,160,193,195,195,19
     *7,208,212,169,160,251,170,238,0/
      DATA AAAKH0/253,170,238,0/
      DATA AAAKI0/233,230,160,168,170,243,160,189,189,160,206,207,205,19
     *3,212,195,200,169,160,251,170,238,0/
      DATA AAAKJ0/253,170,238,0/
      DATA AAAKK0/243,229,236,229,227,244,160,168,170,243,169,170,238,0/
      DATA AAAKL0/247,232,229,238,160,168,206,207,205,193,212,195,200,16
     *9,160,251,170,238,0/
      DATA AAAKM0/253,170,238,0/
      DATA AAAKN0/247,232,229,238,160,168,193,195,195,197,208,212,169,16
     *0,251,170,238,0/
      DATA AAAKO0/253,170,238,0/
      DATA AAAKP0/233,230,160,168,170,243,160,189,160,193,195,195,197,20
     *8,212,169,160,244,232,229,238,160,228,239,187,170,238,0/
      DATA AAAKQ0/229,238,228,187,170,238,0/
      DATA AAAKR0/233,230,160,168,170,243,160,189,160,206,207,205,193,21
     *2,195,200,169,160,244,232,229,238,160,228,239,187,170,238,0/
      DATA AAAKS0/229,238,228,187,170,238,0/
      DATA AAAKT0/233,230,160,168,170,243,160,189,160,206,207,205,193,21
     *2,195,200,169,160,244,232,229,238,160,228,239,187,170,238,0/
      DATA AAAKU0/229,238,228,187,170,238,0/
      DATA AAAKV0/229,236,243,229,160,233,230,160,168,170,243,160,189,16
     *0,193,195,195,197,208,212,169,160,244,232,229,238,160,228,239,187,
     *170,238,0/
      DATA AAAKW0/229,238,228,187,170,238,0/
      DATA AAAKX0/233,230,160,168,170,243,160,189,160,193,195,195,197,20
     *8,212,169,160,244,232,229,238,160,226,229,231,233,238,170,238,0/
      DATA AAAKY0/229,238,228,187,170,238,0/
      DATA AAAKZ0/233,230,160,168,170,243,160,189,160,206,207,205,193,21
     *2,195,200,169,160,244,232,229,238,160,226,229,231,233,238,170,238,
     *0/
      DATA AAALA0/229,238,228,187,170,238,0/
      DATA AAALB0/227,225,243,229,160,170,243,160,239,230,170,238,0/
      DATA AAALC0/206,207,205,193,212,195,200,186,160,226,229,231,233,23
     *8,170,238,0/
      DATA AAALD0/229,238,228,187,170,238,0/
      DATA AAALE0/193,195,195,197,208,212,186,160,226,229,231,233,238,17
     *0,238,0/
      DATA AAALF0/229,238,228,187,170,238,0/
      DATA AAALG0/239,244,232,229,242,247,233,243,229,160,229,238,228,18
     *7,170,238,0/
      DATA AAALH0/233,230,160,168,170,243,160,189,189,160,193,195,195,19
     *7,208,212,169,160,251,170,238,0/
      DATA AAALI0/253,170,238,0/
      DATA AAALJ0/233,230,160,168,170,243,160,189,189,160,206,207,205,19
     *3,212,195,200,169,160,251,170,238,0/
      DATA AAALK0/253,170,238,0/
      DATA AAALL0/243,247,233,244,227,232,160,168,170,243,169,160,251,17
     *0,238,0/
      DATA AAALM0/227,225,243,229,160,206,207,205,193,212,195,200,186,16
     *0,251,170,238,0/
      DATA AAALN0/226,242,229,225,235,187,170,238,0/
      DATA AAALO0/253,170,238,0/
      DATA AAALP0/227,225,243,229,160,193,195,195,197,208,212,186,160,25
     *1,170,238,0/
      DATA AAALQ0/226,242,229,225,235,187,170,238,0/
      DATA AAALR0/253,170,238,0/
      DATA AAALS0/253,170,238,0/
      DATA AAALT0/233,230,160,168,170,243,160,189,160,193,195,195,197,20
     *8,212,169,160,244,232,229,238,160,228,239,187,170,238,0/
      DATA AAALU0/229,238,228,187,170,238,0/
      DATA AAALV0/233,230,160,168,170,243,160,189,160,206,207,205,193,21
     *2,195,200,169,160,244,232,229,238,160,228,239,187,170,238,0/
      DATA AAALW0/229,238,228,187,170,238,0/
      DATA AAALX0/243,229,236,229,227,244,160,168,170,243,169,187,170,23
     *8,0/
      DATA AAALY0/247,232,229,238,160,168,206,207,205,193,212,195,200,16
     *9,160,228,239,187,170,238,0/
      DATA AAALZ0/229,238,228,187,170,238,0/
      DATA AAAMA0/247,232,229,238,160,168,193,195,195,197,208,212,169,16
     *0,228,239,187,170,238,0/
      DATA AAAMB0/229,238,228,187,170,238,0/
      DATA AAAMC0/229,238,228,187,170,238,0/
      AAAKF0=LANGU0
      GOTO 10471
10472   IF((NUMAC0.LE.0))GOTO 10473
        IF((NUMER0.GT.0))GOTO 10473
          CALL TABOV0
          CALL PRINT(-11,AAAKG0,STATE0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAAKH0)
          INDEN0=INDEN0-(1)
          GOTO 10474
10473     IF((NUMAC0.GT.0))GOTO 10475
          IF((NUMER0.LE.0))GOTO 10475
            CALL TABOV0
            CALL PRINT(-11,AAAKI0,STATE0)
            INDEN0=INDEN0+(1)
            CALL OERRO0
            CALL TABOV0
            CALL PRINT(-11,AAAKJ0)
            INDEN0=INDEN0-(1)
            GOTO 10476
10475       IF((NUMAC0.GT.0))GOTO 10477
            IF((NUMER0.GT.0))GOTO 10477
              GOTO 10478
10477         CALL TABOV0
              CALL PRINT(-11,AAAKK0,STATE0)
              INDEN0=INDEN0+(1)
              CALL TABOV0
              CALL PRINT(-11,AAAKL0)
              INDEN0=INDEN0+(1)
              CALL OERRO0
              CALL TABOV0
              CALL PRINT(-11,AAAKM0)
              INDEN0=INDEN0-(1)
              CALL TABOV0
              CALL PRINT(-11,AAAKN0)
              INDEN0=INDEN0+(1)
              CALL OACCE0
              CALL TABOV0
              CALL PRINT(-11,AAAKO0)
              INDEN0=INDEN0-(1)
              INDEN0=INDEN0-(1)
10478     CONTINUE
10476   CONTINUE
10474   SVARV0=4
      GOTO 10479
10480   IF((NUMAC0.LE.0))GOTO 10481
        IF((NUMER0.GT.0))GOTO 10481
          CALL TABOV0
          CALL PRINT(-11,AAAKP0,STATE0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAAKQ0)
          INDEN0=INDEN0-(1)
          GOTO 10482
10481     IF((NUMAC0.GT.0))GOTO 10483
          IF((NUMER0.LE.0))GOTO 10483
            CALL TABOV0
            CALL PRINT(-11,AAAKR0,STATE0)
            INDEN0=INDEN0+(1)
            CALL OERRO0
            CALL TABOV0
            CALL PRINT(-11,AAAKS0)
            INDEN0=INDEN0-(1)
            GOTO 10484
10483       IF((NUMAC0.GT.0))GOTO 10485
            IF((NUMER0.GT.0))GOTO 10485
              GOTO 10486
10485         CALL TABOV0
              CALL PRINT(-11,AAAKT0,STATE0)
              INDEN0=INDEN0+(1)
              CALL OERRO0
              CALL TABOV0
              CALL PRINT(-11,AAAKU0)
              INDEN0=INDEN0-(1)
              CALL TABOV0
              CALL PRINT(-11,AAAKV0,STATE0)
              INDEN0=INDEN0+(1)
              CALL OACCE0
              CALL TABOV0
              CALL PRINT(-11,AAAKW0)
              INDEN0=INDEN0-(1)
10486     CONTINUE
10484   CONTINUE
10482   SVARV0=4
      GOTO 10479
10487   IF((NUMAC0.LE.0))GOTO 10488
        IF((NUMER0.GT.0))GOTO 10488
          CALL TABOV0
          CALL PRINT(PFD,AAAKX0,STATE0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(PFD,AAAKY0)
          INDEN0=INDEN0-(1)
          GOTO 10489
10488     IF((NUMAC0.GT.0))GOTO 10490
          IF((NUMER0.LE.0))GOTO 10490
            CALL TABOV0
            CALL PRINT(PFD,AAAKZ0,STATE0)
            INDEN0=INDEN0+(1)
            CALL OERRO0
            CALL TABOV0
            CALL PRINT(PFD,AAALA0)
            INDEN0=INDEN0-(1)
            GOTO 10491
10490       IF((NUMAC0.GT.0))GOTO 10492
            IF((NUMER0.GT.0))GOTO 10492
              GOTO 10493
10492         CALL TABOV0
              CALL PRINT(PFD,AAALB0,STATE0)
              INDEN0=INDEN0+(1)
              CALL TABOV0
              CALL PRINT(PFD,AAALC0)
              INDEN0=INDEN0+(1)
              CALL OERRO0
              CALL TABOV0
              CALL PRINT(PFD,AAALD0)
              INDEN0=INDEN0-(1)
              CALL TABOV0
              CALL PRINT(PFD,AAALE0)
              INDEN0=INDEN0+(1)
              CALL OACCE0
              CALL TABOV0
              CALL PRINT(PFD,AAALF0)
              INDEN0=INDEN0-(1)
              CALL TABOV0
              CALL PRINT(PFD,AAALG0)
              INDEN0=INDEN0-(1)
10493     CONTINUE
10491   CONTINUE
10489   SVARV0=4
      GOTO 10479
10494   IF((NUMAC0.LE.0))GOTO 10495
        IF((NUMER0.GT.0))GOTO 10495
          CALL TABOV0
          CALL PRINT(-11,AAALH0,STATE0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAALI0)
          INDEN0=INDEN0-(1)
          GOTO 10496
10495     IF((NUMAC0.GT.0))GOTO 10497
          IF((NUMER0.LE.0))GOTO 10497
            CALL TABOV0
            CALL PRINT(-11,AAALJ0,STATE0)
            INDEN0=INDEN0+(1)
            CALL OERRO0
            CALL TABOV0
            CALL PRINT(-11,AAALK0)
            INDEN0=INDEN0-(1)
            GOTO 10498
10497       IF((NUMAC0.GT.0))GOTO 10499
            IF((NUMER0.GT.0))GOTO 10499
              GOTO 10500
10499         CALL TABOV0
              CALL PRINT(-11,AAALL0,STATE0)
              INDEN0=INDEN0+(1)
              CALL TABOV0
              CALL PRINT(-11,AAALM0)
              INDEN0=INDEN0+(1)
              CALL OERRO0
              CALL TABOV0
              CALL PRINT(-11,AAALN0)
              CALL TABOV0
              CALL PRINT(-11,AAALO0)
              INDEN0=INDEN0-(1)
              CALL TABOV0
              CALL PRINT(-11,AAALP0)
              INDEN0=INDEN0+(1)
              CALL OACCE0
              CALL TABOV0
              CALL PRINT(-11,AAALQ0)
              CALL TABOV0
              CALL PRINT(-11,AAALR0)
              INDEN0=INDEN0-(1)
              CALL TABOV0
              CALL PRINT(-11,AAALS0)
              INDEN0=INDEN0-(1)
10500     CONTINUE
10498   CONTINUE
10496   SVARV0=4
      GOTO 10479
10501   IF((NUMAC0.LE.0))GOTO 10502
        IF((NUMER0.GT.0))GOTO 10502
          CALL TABOV0
          CALL PRINT(-11,AAALT0,STATE0)
          INDEN0=INDEN0+(1)
          CALL OACCE0
          CALL TABOV0
          CALL PRINT(-11,AAALU0)
          INDEN0=INDEN0-(1)
          GOTO 10503
10502     IF((NUMAC0.GT.0))GOTO 10504
          IF((NUMER0.LE.0))GOTO 10504
            CALL TABOV0
            CALL PRINT(-11,AAALV0,STATE0)
            INDEN0=INDEN0+(1)
            CALL OERRO0
            CALL TABOV0
            CALL PRINT(-11,AAALW0)
            INDEN0=INDEN0-(1)
            GOTO 10505
10504       IF((NUMAC0.GT.0))GOTO 10506
            IF((NUMER0.GT.0))GOTO 10506
              GOTO 10507
10506         CALL TABOV0
              CALL PRINT(-11,AAALX0,STATE0)
              INDEN0=INDEN0+(1)
              CALL TABOV0
              CALL PRINT(-11,AAALY0)
              INDEN0=INDEN0+(1)
              CALL OERRO0
              CALL TABOV0
              CALL PRINT(-11,AAALZ0)
              INDEN0=INDEN0-(1)
              CALL TABOV0
              CALL PRINT(-11,AAAMA0)
              INDEN0=INDEN0+(1)
              CALL OACCE0
              CALL TABOV0
              CALL PRINT(-11,AAAMB0)
              INDEN0=INDEN0-(1)
              CALL TABOV0
              CALL PRINT(-11,AAAMC0)
              INDEN0=INDEN0-(1)
10507     CONTINUE
10505   CONTINUE
10503   SVARV0=4
      GOTO 10479
10471 GOTO(10472,10487,10480,10494,10501),AAAKF0
10479 RETURN
      END
      SUBROUTINE OENDU0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAMD0
      INTEGER AAAME0(25)
      INTEGER AAAMF0(7)
      INTEGER AAAMG0(24)
      INTEGER AAAMH0(26)
      DATA AAAME0/253,160,245,238,244,233,236,160,168,170,243,160,254,18
     *9,160,193,195,195,197,208,212,169,170,238,0/
      DATA AAAMF0/229,238,228,187,170,238,0/
      DATA AAAMG0/245,238,244,233,236,160,168,170,243,160,188,190,160,19
     *3,195,195,197,208,212,169,187,170,238,0/
      DATA AAAMH0/253,160,247,232,233,236,229,160,168,170,243,160,189,18
     *9,160,193,195,195,197,208,212,169,187,170,238,0/
      AAAMD0=LANGU0
      GOTO 10508
10509   CALL TABOV0
        CALL PRINT(-11,AAAME0,STATE0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10510
10511   CALL TABOV0
        CALL PRINT(-11,AAAMF0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10510
10512   CALL TABOV0
        CALL PRINT(PFD,AAAMG0,STATE0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10510
10513   CALL TABOV0
        CALL PRINT(-11,AAAMH0,STATE0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10510
10508 GOTO(10509,10512,10511,10513,10511),AAAMD0
10510 CALL OENDO0
      RETURN
      END
      SUBROUTINE OENDR0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAMI0
      INTEGER AAAMJ0(12)
      INTEGER AAAMK0(9)
      INTEGER AAAML0(6)
      INTEGER AAAMM0(13)
      INTEGER AAAMN0(10)
      INTEGER AAAMO0(7)
      INTEGER AAAMP0(14)
      INTEGER AAAMQ0(6)
      INTEGER AAAMR0(7)
      INTEGER AAAMS0(15)
      INTEGER AAAMT0(4)
      DATA AAAMJ0/231,240,243,244,160,189,160,170,243,170,238,0/
      DATA AAAMK0/242,229,244,245,242,238,170,238,0/
      DATA AAAML0/229,238,228,170,238,0/
      DATA AAAMM0/231,240,243,244,160,189,160,170,243,187,170,238,0/
      DATA AAAMN0/242,229,244,245,242,238,187,170,238,0/
      DATA AAAMO0/229,238,228,187,170,238,0/
      DATA AAAMP0/231,240,243,244,160,186,189,160,170,243,187,170,238,0/
      DATA AAAMQ0/185,185,186,170,238,0/
      DATA AAAMR0/229,238,228,187,170,238,0/
      DATA AAAMS0/170,170,231,240,243,244,160,189,160,170,243,187,170,23
     *8,0/
      DATA AAAMT0/253,170,238,0/
      AAAMI0=LANGU0
      GOTO 10514
10515   CALL PRINT(-11,AAAMJ0,STATE0)
        CALL PRINT(-11,AAAMK0)
        CALL PRINT(-11,AAAML0)
      GOTO 10516
10517   CALL TABOV0
        CALL PRINT(-11,AAAMM0,STATE0)
        CALL TABOV0
        CALL PRINT(-11,AAAMN0)
        CALL TABOV0
        CALL PRINT(-11,AAAMO0)
        INDEN0=INDEN0-(1)
      GOTO 10516
10518   CALL TABOV0
        CALL PRINT(PFD,AAAMP0,STATE0)
        CALL TABOV0
        CALL PRINT(PFD,AAAMQ0)
        INDEN0=INDEN0-(1)
        CALL PRINT(PFD,AAAMR0)
      GOTO 10516
10519   CALL TABOV0
        CALL PRINT(-11,AAAMS0,STATE0)
        INDEN0=INDEN0-(1)
        CALL PRINT(-11,AAAMT0)
      GOTO 10516
10514 GOTO(10515,10518,10517,10519,10517),AAAMI0
10516 RETURN
      END
      SUBROUTINE OENDS0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAMU0
      INTEGER AAAMV0(4)
      INTEGER AAAMW0(7)
      INTEGER AAAMX0(7)
      DATA AAAMV0/253,170,238,0/
      DATA AAAMW0/229,238,228,187,170,238,0/
      DATA AAAMX0/229,238,228,187,170,238,0/
      AAAMU0=LANGU0
      GOTO 10520
10521   CALL TABOV0
        CALL PRINT(-11,AAAMV0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10522
10523   CALL TABOV0
        CALL PRINT(-11,AAAMW0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10522
10524   CALL TABOV0
        CALL PRINT(PFD,AAAMX0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10522
10520 GOTO(10521,10524,10523,10521,10523),AAAMU0
10522 RETURN
      END
      SUBROUTINE OENDT0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAMY0
      INTEGER AAAMZ0(10)
      INTEGER AAANA0(4)
      INTEGER AAANB0(9)
      INTEGER AAANC0(4)
      INTEGER AAAND0(11)
      INTEGER AAANE0(7)
      INTEGER AAANF0(11)
      INTEGER AAANG0(7)
      INTEGER AAANH0(5)
      INTEGER AAANI0(4)
      INTEGER AAANJ0(3)
      INTEGER AAANK0(13)
      INTEGER AAANL0(7)
      INTEGER AAANM0(4)
      INTEGER AAANN0(9)
      INTEGER AAANO0(4)
      INTEGER AAANP0(9)
      INTEGER AAANQ0(4)
      DATA AAAMZ0/227,225,236,236,160,170,243,170,238,0/
      DATA AAANA0/253,170,238,0/
      DATA AAANB0/229,236,243,229,160,251,170,238,0/
      DATA AAANC0/253,170,238,0/
      DATA AAAND0/227,225,236,236,160,170,243,187,170,238,0/
      DATA AAANE0/229,238,228,187,170,238,0/
      DATA AAANF0/229,236,243,229,160,228,239,187,170,238,0/
      DATA AAANG0/229,238,228,187,170,238,0/
      DATA AAANH0/170,243,170,238,0/
      DATA AAANI0/229,238,228,0/
      DATA AAANJ0/170,238,0/
      DATA AAANK0/229,236,243,229,160,226,229,231,233,238,170,238,0/
      DATA AAANL0/229,238,228,187,170,238,0/
      DATA AAANM0/187,170,238,0/
      DATA AAANN0/170,243,160,168,169,187,170,238,0/
      DATA AAANO0/253,170,238,0/
      DATA AAANP0/229,236,243,229,160,251,170,238,0/
      DATA AAANQ0/253,170,238,0/
      AAAMY0=LANGU0
      GOTO 10525
10526   CALL OACCE0
        IF((ADVAN0.NE.1))GOTO 10527
          CALL TABOV0
          CALL PRINT(-11,AAAMZ0,SCANN0)
10527   CALL TABOV0
        CALL PRINT(-11,AAANA0)
        IF((NUMER0.LE.0))GOTO 10528
          INDEN0=INDEN0-(1)
          CALL TABOV0
          CALL PRINT(-11,AAANB0)
          INDEN0=INDEN0+(1)
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(-11,AAANC0)
10528   INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10529
10530   CALL OACCE0
        IF((ADVAN0.NE.1))GOTO 10531
          CALL TABOV0
          CALL PRINT(-11,AAAND0,SCANN0)
10531   CALL TABOV0
        CALL PRINT(-11,AAANE0)
        IF((NUMER0.LE.0))GOTO 10532
          INDEN0=INDEN0-(1)
          CALL TABOV0
          CALL PRINT(-11,AAANF0)
          INDEN0=INDEN0+(1)
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(-11,AAANG0)
10532   INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10529
10533   CALL OACCE0
        IF((ADVAN0.NE.1))GOTO 10534
          CALL TABOV0
          CALL PRINT(PFD,AAANH0,SCANN0)
10534   CALL TABOV0
        CALL PRINT(PFD,AAANI0)
        IF((NUMER0.LE.0))GOTO 10535
          INDEN0=INDEN0-(1)
          CALL PRINT(PFD,AAANJ0)
          CALL TABOV0
          CALL PRINT(PFD,AAANK0)
          INDEN0=INDEN0+(1)
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(PFD,AAANL0)
          GOTO 10536
10535     CALL PRINT(PFD,AAANM0)
10536   INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10529
10537   CALL OACCE0
        IF((ADVAN0.NE.1))GOTO 10538
          CALL TABOV0
          CALL PRINT(-11,AAANN0,SCANN0)
10538   CALL TABOV0
        CALL PRINT(-11,AAANO0)
        IF((NUMER0.LE.0))GOTO 10539
          INDEN0=INDEN0-(1)
          CALL TABOV0
          CALL PRINT(-11,AAANP0)
          INDEN0=INDEN0+(1)
          CALL OERRO0
          CALL TABOV0
          CALL PRINT(-11,AAANQ0)
10539   INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10529
10525 GOTO(10526,10533,10530,10537,10530),AAAMY0
10529 RETURN
      END
      SUBROUTINE OEPSI0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAANR0
      INTEGER AAANS0(14)
      INTEGER AAANT0(15)
      INTEGER AAANU0(16)
      DATA AAANS0/170,243,160,189,160,193,195,195,197,208,212,170,238,0/
      DATA AAANT0/170,243,160,189,160,193,195,195,197,208,212,187,170,23
     *8,0/
      DATA AAANU0/170,243,160,186,189,160,193,195,195,197,208,212,187,17
     *0,238,0/
      AAANR0=LANGU0
      GOTO 10540
10541   IF((SVARV0.EQ.3))GOTO 10543
          CALL TABOV0
          CALL PRINT(-11,AAANS0,STATE0)
          SVARV0=3
10542 GOTO 10543
10544   IF((SVARV0.EQ.3))GOTO 10543
          CALL TABOV0
          CALL PRINT(-11,AAANT0,STATE0)
          SVARV0=3
10545 GOTO 10543
10546   IF((SVARV0.EQ.3))GOTO 10543
          CALL TABOV0
          CALL PRINT(PFD,AAANU0,STATE0)
          SVARV0=3
10547 GOTO 10543
10540 GOTO(10541,10546,10544,10544,10544),AAANR0
10543 RETURN
      END
      SUBROUTINE OERRO0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER I,L
      INTEGER FD
      FD=-11
      IF((LANGU0.NE.2))GOTO 10548
        FD=PFD
10548 L=1
      GOTO 10551
10549 L=L+(1)
10551 IF((L.GT.NUMER0))GOTO 10550
        CALL TABOV0
        I=ERRAD0(L)
        IF((ERRAC0(I).NE.160))GOTO 10552
          CALL PUTLIN(ERRAC0(I+1),FD)
          GOTO 10549
10552     CALL PUTLIN(ERRAC0(I),FD)
10553 GOTO 10549
10550 RETURN
      END
      SUBROUTINE OMATCH(SYM)
      INTEGER SYM(1)
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAANV0
      INTEGER AAANW0(15)
      INTEGER AAANX0(18)
      INTEGER AAANY0(14)
      INTEGER AAANZ0(16)
      INTEGER AAAOA0(24)
      INTEGER AAAOB0(15)
      INTEGER AAAOC0(17)
      INTEGER AAAOD0(26)
      INTEGER AAAOE0(16)
      INTEGER AAAOF0(16)
      INTEGER AAAOG0(18)
      INTEGER AAAOH0(15)
      DATA AAANW0/170,243,160,189,160,206,207,205,193,212,195,200,170,23
     *8,0/
      DATA AAANX0/233,230,160,168,170,243,160,189,189,160,170,243,169,16
     *0,251,170,238,0/
      DATA AAANY0/170,243,160,189,160,193,195,195,197,208,212,170,238,0/
      DATA AAANZ0/170,243,160,189,160,206,207,205,193,212,195,200,187,17
     *0,238,0/
      DATA AAAOA0/233,230,160,168,170,243,160,189,160,170,243,169,160,24
     *4,232,229,238,160,228,239,187,170,238,0/
      DATA AAAOB0/170,243,160,189,160,193,195,195,197,208,212,187,170,23
     *8,0/
      DATA AAAOC0/170,243,160,186,189,160,206,207,205,193,212,195,200,18
     *7,170,238,0/
      DATA AAAOD0/233,230,160,168,170,243,160,189,160,170,243,169,160,24
     *4,232,229,238,160,226,229,231,233,238,170,238,0/
      DATA AAAOE0/170,243,160,186,189,160,193,195,195,197,208,212,187,17
     *0,238,0/
      DATA AAAOF0/170,243,160,189,160,206,207,205,193,212,195,200,187,17
     *0,238,0/
      DATA AAAOG0/233,230,160,168,170,243,160,189,189,160,170,243,169,16
     *0,251,170,238,0/
      DATA AAAOH0/170,243,160,189,160,193,195,195,197,208,212,187,170,23
     *8,0/
      AAANV0=LANGU0
      GOTO 10554
10555   IF((SVARV0.EQ.1))GOTO 10556
          CALL TABOV0
          CALL PRINT(-11,AAANW0,STATE0)
10556   CALL TABOV0
        CALL PRINT(-11,AAANX0,SYMBP0,SYM)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAANY0,STATE0)
        SVARV0=3
      GOTO 10557
10558   IF((SVARV0.EQ.1))GOTO 10559
          CALL TABOV0
          CALL PRINT(-11,AAANZ0,STATE0)
10559   CALL TABOV0
        CALL PRINT(-11,AAAOA0,SYMBP0,SYM)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAOB0,STATE0)
        SVARV0=3
      GOTO 10557
10560   IF((SVARV0.EQ.1))GOTO 10561
          CALL TABOV0
          CALL PRINT(PFD,AAAOC0,STATE0)
10561   CALL TABOV0
        CALL PRINT(PFD,AAAOD0,SYMBP0,SYM)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(PFD,AAAOE0,STATE0)
        SVARV0=3
      GOTO 10557
10562   IF((SVARV0.EQ.1))GOTO 10563
          CALL TABOV0
          CALL PRINT(-11,AAAOF0,STATE0)
10563   CALL TABOV0
        CALL PRINT(-11,AAAOG0,SYMBP0,SYM)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAOH0,STATE0)
        SVARV0=3
      GOTO 10557
10554 GOTO(10555,10560,10558,10562,10558),AAANV0
10557 RETURN
      END
      SUBROUTINE OMATC0(FROM,TO)
      INTEGER FROM(1),TO(1)
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAOI0
      INTEGER AAAOJ0(15)
      INTEGER AAAOK0(30)
      INTEGER AAAOL0(14)
      INTEGER AAAOM0(16)
      INTEGER AAAON0(40)
      INTEGER AAAOO0(15)
      INTEGER AAAOP0(17)
      INTEGER AAAOQ0(44)
      INTEGER AAAOR0(16)
      INTEGER AAAOS0(16)
      INTEGER AAAOT0(30)
      INTEGER AAAOU0(15)
      DATA AAAOJ0/170,243,160,189,160,206,207,205,193,212,195,200,170,23
     *8,0/
      DATA AAAOK0/233,230,160,168,170,243,160,188,189,160,170,243,160,16
     *6,166,160,170,243,160,188,189,160,170,243,169,160,251,170,238,0/
      DATA AAAOL0/170,243,160,189,160,193,195,195,197,208,212,170,238,0/
      DATA AAAOM0/170,243,160,189,160,206,207,205,193,212,195,200,187,17
     *0,238,0/
      DATA AAAON0/233,230,160,168,168,170,243,160,188,189,160,170,243,16
     *9,160,166,160,168,170,243,160,188,189,160,170,243,169,169,160,244,
     *232,229,238,160,228,239,187,170,238,0/
      DATA AAAOO0/170,243,160,189,160,193,195,195,197,208,212,187,170,23
     *8,0/
      DATA AAAOP0/170,243,160,186,189,160,206,207,205,193,212,195,200,18
     *7,170,238,0/
      DATA AAAOQ0/233,230,160,168,168,170,243,160,188,189,160,170,243,16
     *9,160,193,206,196,160,168,170,243,160,188,189,160,170,243,169,169,
     *160,244,232,229,238,160,226,229,231,233,238,170,238,0/
      DATA AAAOR0/170,243,160,186,189,160,193,195,195,197,208,212,187,17
     *0,238,0/
      DATA AAAOS0/170,243,160,189,160,206,207,205,193,212,195,200,187,17
     *0,238,0/
      DATA AAAOT0/233,230,160,168,170,243,160,188,189,160,170,243,160,16
     *6,166,160,170,243,160,188,189,160,170,243,169,160,251,170,238,0/
      DATA AAAOU0/170,243,160,189,160,193,195,195,197,208,212,187,170,23
     *8,0/
      AAAOI0=LANGU0
      GOTO 10564
10565   IF((SVARV0.EQ.1))GOTO 10566
          CALL TABOV0
          CALL PRINT(-11,AAAOJ0,STATE0)
10566   CALL TABOV0
        CALL PRINT(-11,AAAOK0,FROM,SYMBP0,SYMBP0,TO)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAOL0,STATE0)
        SVARV0=3
      GOTO 10567
10568   IF((SVARV0.EQ.1))GOTO 10569
          CALL TABOV0
          CALL PRINT(-11,AAAOM0,STATE0)
10569   CALL TABOV0
        CALL PRINT(-11,AAAON0,FROM,SYMBP0,SYMBP0,TO)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAOO0,STATE0)
        SVARV0=3
      GOTO 10567
10570   IF((SVARV0.EQ.1))GOTO 10571
          CALL TABOV0
          CALL PRINT(PFD,AAAOP0,STATE0)
10571   CALL TABOV0
        CALL PRINT(PFD,AAAOQ0,FROM,SYMBP0,SYMBP0,TO)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(PFD,AAAOR0,STATE0)
        SVARV0=3
      GOTO 10567
10572   IF((SVARV0.EQ.1))GOTO 10573
          CALL TABOV0
          CALL PRINT(-11,AAAOS0,STATE0)
10573   CALL TABOV0
        CALL PRINT(-11,AAAOT0,FROM,SYMBP0,SYMBP0,TO)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAOU0,STATE0)
        SVARV0=3
      GOTO 10567
10564 GOTO(10565,10570,10568,10572,10568),AAAOI0
10567 RETURN
      END
      SUBROUTINE OSELE0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAOV0
      INTEGER AAAOW0(15)
      INTEGER AAAOX0(14)
      INTEGER AAAOY0(16)
      INTEGER AAAOZ0(17)
      INTEGER AAAPA0(4)
      INTEGER AAAPB0(17)
      INTEGER AAAPC0(13)
      INTEGER AAAPD0(16)
      INTEGER AAAPE0(16)
      INTEGER AAAPF0(16)
      INTEGER AAAPG0(15)
      DATA AAAOW0/170,243,160,189,160,206,207,205,193,212,195,200,170,23
     *8,0/
      DATA AAAOX0/243,229,236,229,227,244,160,168,170,243,169,170,238,0/
      DATA AAAOY0/170,243,160,189,160,206,207,205,193,212,195,200,187,17
     *0,238,0/
      DATA AAAOZ0/233,230,160,168,167,176,167,226,169,160,244,232,229,23
     *8,170,238,0/
      DATA AAAPA0/187,170,238,0/
      DATA AAAPB0/170,243,160,186,189,160,206,207,205,193,212,195,200,18
     *7,170,238,0/
      DATA AAAPC0/227,225,243,229,160,170,243,160,239,230,170,238,0/
      DATA AAAPD0/170,243,160,189,160,206,207,205,193,212,195,200,187,17
     *0,238,0/
      DATA AAAPE0/243,247,233,244,227,232,160,168,170,243,169,160,251,17
     *0,238,0/
      DATA AAAPF0/170,243,160,189,160,206,207,205,193,212,195,200,187,17
     *0,238,0/
      DATA AAAPG0/243,229,236,229,227,244,160,168,170,243,169,187,170,23
     *8,0/
      AAAOV0=LANGU0
      GOTO 10574
10575   IF((SVARV0.EQ.1))GOTO 10576
          CALL TABOV0
          CALL PRINT(-11,AAAOW0,STATE0)
          SVARV0=1
10576   CALL TABOV0
        CALL PRINT(-11,AAAOX0,SYMBP0)
        INDEN0=INDEN0+(1)
      GOTO 10577
10578   IF((SVARV0.EQ.1))GOTO 10579
          CALL TABOV0
          CALL PRINT(-11,AAAOY0,STATE0)
          SVARV0=1
10579   CALL TABOV0
        CALL PRINT(-11,AAAOZ0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAPA0)
        INDEN0=INDEN0-(1)
      GOTO 10577
10580   IF((SVARV0.EQ.1))GOTO 10581
          CALL TABOV0
          CALL PRINT(PFD,AAAPB0,STATE0)
          SVARV0=1
10581   CALL TABOV0
        CALL PRINT(PFD,AAAPC0,SYMBP0)
        INDEN0=INDEN0+(1)
      GOTO 10577
10582   IF((SVARV0.EQ.1))GOTO 10583
          CALL TABOV0
          CALL PRINT(-11,AAAPD0,STATE0)
          SVARV0=1
10583   CALL TABOV0
        CALL PRINT(-11,AAAPE0,SYMBP0)
        INDEN0=INDEN0+(1)
      GOTO 10577
10584   IF((SVARV0.EQ.1))GOTO 10585
          CALL TABOV0
          CALL PRINT(-11,AAAPF0,STATE0)
          SVARV0=1
10585   CALL TABOV0
        CALL PRINT(-11,AAAPG0,SYMBP0)
        INDEN0=INDEN0+(1)
      GOTO 10577
10574 GOTO(10575,10580,10578,10582,10584),AAAOV0
10577 RETURN
      END
      SUBROUTINE OSELF0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAPH0
      INTEGER AAAPI0(4)
      INTEGER AAAPJ0(17)
      INTEGER AAAPK0(7)
      DATA AAAPI0/253,170,238,0/
      DATA AAAPJ0/239,244,232,229,242,247,233,243,229,160,229,238,228,18
     *7,170,238,0/
      DATA AAAPK0/229,238,228,187,170,238,0/
      AAAPH0=LANGU0
      GOTO 10586
10587   INDEN0=INDEN0-(1)
      GOTO 10588
10589   CALL TABOV0
        CALL PRINT(-11,AAAPI0)
        INDEN0=INDEN0-(1)
      GOTO 10588
10590   CALL TABOV0
        CALL PRINT(PFD,AAAPJ0)
        INDEN0=INDEN0-(1)
      GOTO 10588
10591   CALL TABOV0
        CALL PRINT(-11,AAAPK0)
        INDEN0=INDEN0-(1)
      GOTO 10588
10586 GOTO(10587,10590,10592,10589,10591),AAAPH0
10592 CONTINUE
10588 RETURN
      END
      SUBROUTINE OTEST0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAPL0
      INTEGER AAAPM0(22)
      INTEGER AAAPN0(17)
      INTEGER AAAPO0(9)
      INTEGER AAAPP0(4)
      INTEGER AAAPQ0(29)
      INTEGER AAAPR0(18)
      INTEGER AAAPS0(10)
      INTEGER AAAPT0(7)
      INTEGER AAAPU0(31)
      INTEGER AAAPV0(19)
      INTEGER AAAPW0(10)
      INTEGER AAAPX0(7)
      INTEGER AAAPY0(22)
      INTEGER AAAPZ0(20)
      INTEGER AAAQA0(10)
      INTEGER AAAQB0(4)
      DATA AAAPM0/233,230,160,168,170,243,160,254,189,160,193,195,195,19
     *7,208,212,169,160,251,170,238,0/
      DATA AAAPN0/231,240,243,244,160,189,160,198,193,201,204,213,210,19
     *7,170,238,0/
      DATA AAAPO0/242,229,244,245,242,238,170,238,0/
      DATA AAAPP0/253,170,238,0/
      DATA AAAPQ0/233,230,160,168,170,243,160,222,189,160,193,195,195,19
     *7,208,212,169,160,244,232,229,238,160,228,239,187,170,238,0/
      DATA AAAPR0/231,240,243,244,160,189,160,198,193,201,204,213,210,19
     *7,187,170,238,0/
      DATA AAAPS0/242,229,244,245,242,238,187,170,238,0/
      DATA AAAPT0/229,238,228,187,170,238,0/
      DATA AAAPU0/233,230,160,168,170,243,160,188,190,160,193,195,195,19
     *7,208,212,169,160,244,232,229,238,160,226,229,231,233,238,170,238,
     *0/
      DATA AAAPV0/231,240,243,244,160,186,189,160,198,193,201,204,213,21
     *0,197,187,170,238,0/
      DATA AAAPW0/231,239,244,239,160,185,185,170,238,0/
      DATA AAAPX0/229,238,228,187,170,238,0/
      DATA AAAPY0/233,230,160,168,170,243,160,161,189,160,193,195,195,19
     *7,208,212,169,160,251,170,238,0/
      DATA AAAPZ0/170,170,231,240,243,244,160,189,160,198,193,201,204,21
     *3,210,197,187,170,238,0/
      DATA AAAQA0/242,229,244,245,242,238,187,170,238,0/
      DATA AAAQB0/253,170,238,0/
      AAAPL0=LANGU0
      GOTO 10593
10594   CALL TABOV0
        CALL PRINT(-11,AAAPM0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAPN0)
        CALL TABOV0
        CALL PRINT(-11,AAAPO0)
        CALL TABOV0
        CALL PRINT(-11,AAAPP0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10595
10596   CALL TABOV0
        CALL PRINT(-11,AAAPQ0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAPR0)
        CALL TABOV0
        CALL PRINT(-11,AAAPS0)
        CALL TABOV0
        CALL PRINT(-11,AAAPT0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10595
10597   CALL TABOV0
        CALL PRINT(PFD,AAAPU0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(PFD,AAAPV0)
        CALL TABOV0
        CALL PRINT(PFD,AAAPW0)
        CALL TABOV0
        CALL PRINT(PFD,AAAPX0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10595
10598   CALL TABOV0
        CALL PRINT(-11,AAAPY0,STATE0)
        INDEN0=INDEN0+(1)
        CALL TABOV0
        CALL PRINT(-11,AAAPZ0)
        CALL TABOV0
        CALL PRINT(-11,AAAQA0)
        CALL TABOV0
        CALL PRINT(-11,AAAQB0)
        INDEN0=INDEN0-(1)
        SVARV0=4
      GOTO 10595
10593 GOTO(10594,10597,10596,10598,10596),AAAPL0
10595 RETURN
      END
      SUBROUTINE PUTBA0(C)
      INTEGER C
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER AAAQC0(38)
      DATA AAAQC0/170,233,186,160,244,239,239,160,237,225,238,249,160,22
     *7,232,225,242,225,227,244,229,242,243,160,240,245,243,232,229,228,
     *160,226,225,227,235,170,238,0/
      IBP=IBP-(1)
      IF((IBP.GE.1))GOTO 10599
        CALL PRINT(-15,AAAQC0,LINEN0)
        GOTO 10600
10599   INBUF(IBP)=C
10600 RETURN
      END
      SUBROUTINE SCANC0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER C,QUOTE
      INTEGER NGETCH
      INTEGER AAAQD0
      INTEGER AAAQE0(21)
      DATA AAAQE0/170,233,186,160,160,237,233,243,243,233,238,231,160,24
     *1,245,239,244,229,170,238,0/
      QUOTE=NGETCH(QUOTE)
      C=NGETCH(C)
      AAAQD0=LANGU0
      GOTO 10601
10602   SYMBO0(1)=167
        SYMBO0(2)=C
        SYMBO0(3)=167
        SYMBO0(4)=227
        SYMBO0(5)=0
      GOTO 10603
10604   SYMBO0(1)=167
        SYMBO0(2)=C
        SYMBO0(3)=167
        SYMBO0(4)=0
      GOTO 10603
10605   CALL ITOC(C,SYMBO0,102)
      GOTO 10603
10601 GOTO(10602,10605,10605,10604,10605),AAAQD0
10603 IF((NGETCH(C).EQ.QUOTE))GOTO 10606
        CALL PRINT(-15,AAAQE0,LINEN0)
10606 SYMBOL=0
      RETURN
      END
      SUBROUTINE SCANID
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER C
      INTEGER NGETCH
      INTEGER I
      I=1
      C=NGETCH(C)
      GOTO 10609
10607 C=NGETCH(C)
10609 IF((193.GT.C))GOTO 10611
      IF((C.GT.218))GOTO 10611
      GOTO 10610
10611 IF((225.GT.C))GOTO 10612
      IF((C.GT.250))GOTO 10612
      GOTO 10610
10612 IF((176.GT.C))GOTO 10613
      IF((C.GT.185))GOTO 10613
      GOTO 10610
10613 IF((C.EQ.223))GOTO 10610
      GOTO 10608
10610   SYMBO0(I)=C
        I=I+(1)
      GOTO 10607
10608 CALL PUTBA0(C)
      SYMBO0(I)=0
      RETURN
      END
      SUBROUTINE SCANI0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER C
      INTEGER NGETCH
      INTEGER I
      I=1
      C=NGETCH(C)
      GOTO 10616
10614 C=NGETCH(C)
10616 IF((176.GT.C))GOTO 10615
      IF((C.GT.185))GOTO 10615
        SYMBO0(I)=C
        I=I+(1)
      GOTO 10614
10615 SYMBO0(I)=0
      CALL PUTBA0(C)
      SYMBOL=2
      RETURN
      END
      SUBROUTINE SCANIS
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER C
      INTEGER NGETCH
      INTEGER AAAQF0(31)
      DATA AAAQF0/170,233,186,160,160,173,190,160,243,249,237,226,239,23
     *6,160,233,243,160,233,236,236,173,230,239,242,237,229,228,170,238,
     *0/
      IF((NGETCH(C).EQ.190))GOTO 10617
        CALL PRINT(-15,AAAQF0,LINEN0)
10617 SYMBOL=3
      RETURN
      END
      SUBROUTINE TABOV0
      INTEGER MEM(4000)
      COMMON /DS$MEM/MEM
      INTEGER INBUF(200)
      INTEGER IBP
      INTEGER PFD
      COMMON /IOCOM/INBUF,IBP,PFD
      INTEGER ACTTE0(5000),ERRAC0(5000)
      INTEGER NUMAC0,NUMER0,ACTINX(200),ERRAD0(200),NEXTA0,NEXTE0
      COMMON /ACTCOM/NUMAC0,NUMER0,ACTINX,ERRAD0,NEXTA0,NEXTE0,ACTTE0,ER
     *RAC0
      INTEGER SYMBO0(102)
      INTEGER SYMBOL
      COMMON /PARCOM/SYMBOL,SYMBO0
      INTEGER NEXTT0,LASTT0
      COMMON /TERMC0/NEXTT0,LASTT0
      INTEGER LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      COMMON /MISCOM/LANGU0,LINEN0,INDEN0,ADVAN0,SVARV0
      INTEGER TERMT0
      COMMON /TABCOM/TERMT0
      INTEGER COMMO0(102),STATE0(102),SCANN0(102),SYMBP0(102),EPSIL0(102
     *)
      COMMON /NAMCOM/COMMO0,STATE0,SCANN0,SYMBP0,EPSIL0
      INTEGER I
      INTEGER FD
      INTEGER BLANKS(102)
      DATA BLANKS/101*160,0/
      FD=-11
      IF((LANGU0.NE.2))GOTO 10618
        FD=PFD
10618 I=MAX0(70,102-INDEN0*3)
      CALL PUTLIN(BLANKS(I),FD)
      RETURN
      END
C ---- Long Name Map ----
C extlist                        extli0
C obeginseq                      obegj0
C nexterract                     nexte0
C numactions                     numac0
C termtable                      termt0
C oendalt                        oenda0
C oepsilon                       oepsi0
C emitstatedefs                  emits0
C cleanup                        clean0
C statevar                       state0
C epsilonname                    epsil0
C ochoiceactions                 ochoj0
C oendpar                        oendp0
C scanner                        scann0
C putback                        putba0
C erracttext                     errac0
C indentation                    inden0
C decltail                       declt0
C eltpresent                     eltpr0
C production                     produ0
C scanchar                       scanc0
C language                       langu0
C alternative                    alter0
C oacceptactions                 oacce0
C morethanone                    moret0
C addtext                        addte0
C obeginroutine                  obegi0
C oendseq                        oends0
C scanint                        scani0
C actions                        actio0
C declcommon                     declc0
C termlist                       terml0
C tabover                        tabov0
C langpos                        langp0
C termbuf                        termb0
C erractinx                      errad0
C nextact                        nexta0
C termcom                        termc0
C oendnonterm                    oendn0
C oendopt                        oendo0
C declstatevar                   declu0
C commonname                     commo0
C oendroutine                    oendr0
C entries                        entri0
C declscanner                    decls0
C otestseqfailure                otest0
C maxavail                       maxav0
C acttext                        actte0
C lasttermval                    lastt0
C advance                        advan0
C getlanguage                    getla0
C getstring                      getst0
C numerractions                  numer0
C svarval                        svarv0
C declaration                    decla0
C oselectionstart                osele0
C ochoicestart                   ochoi0
C obeginrept                     obegk0
C oerroractions                  oerro0
C symboltext                     symbo0
C linenumber                     linen0
C initialize                     initi0
C omatchrange                    omatc0
C nonterm                        nonte0
C numalts                        numal0
C langtab                        langt0
C ocallnonterm                   ocall0
C symbolvar                      symbp0
C oendterm                       oendt0
C nexttermval                    nextt0
C oendrept                       oendu0
C declsymvar                     declv0
C declepsilon                    decle0
C oselectionend                  oself0
C ochoiceend                     ochok0
