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