      SUBROUTINE DISPP0(FMT,SYM)
      INTEGER FMT(1)
      INTEGER SYM
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      INTEGER STR(200)
      INTEGER AAAAA0
      INTEGER AAAAB0(3)
      INTEGER AAAAC0(3)
      INTEGER AAAAD0(3)
      INTEGER AAAAE0(3)
      INTEGER AAAAF0(3)
      INTEGER AAAAG0(3)
      INTEGER AAAAH0(3)
      INTEGER AAAAI0(3)
      INTEGER AAAAJ0(3)
      INTEGER AAAAK0(3)
      INTEGER AAAAL0(3)
      INTEGER AAAAM0(3)
      INTEGER AAAAN0(3)
      INTEGER AAAAO0(3)
      INTEGER AAAAP0(3)
      INTEGER AAAAQ0(4)
      INTEGER AAAAR0(3)
      INTEGER AAAAS0(4)
      INTEGER AAAAT0(3)
      INTEGER AAAAU0(3)
      INTEGER AAAAV0(3)
      INTEGER AAAAW0(6)
      INTEGER AAAAX0(10)
      INTEGER AAAAY0(8)
      INTEGER AAAAZ0(10)
      INTEGER AAABA0(3)
      INTEGER AAABB0(8)
      INTEGER AAABC0(9)
      INTEGER AAABD0(7)
      INTEGER AAABE0(4)
      INTEGER AAABF0(5)
      INTEGER AAABG0(6)
      INTEGER AAABH0(5)
      INTEGER AAABI0(5)
      INTEGER AAABJ0(9)
      INTEGER AAABK0(8)
      INTEGER AAABL0(7)
      INTEGER AAABM0(3)
      INTEGER AAABN0(7)
      INTEGER AAABO0(5)
      INTEGER AAABP0(6)
      INTEGER AAABQ0(6)
      INTEGER AAABR0(5)
      INTEGER AAABS0(7)
      INTEGER AAABT0(6)
      INTEGER AAABU0(4)
      INTEGER AAABV0(8)
      INTEGER AAABW0(5)
      INTEGER AAABX0(6)
      INTEGER AAABY0(7)
      INTEGER AAABZ0(3)
      INTEGER AAACA0(8)
      INTEGER AAACB0(4)
      INTEGER AAACC0(5)
      INTEGER AAACD0(5)
      INTEGER AAACE0(9)
      INTEGER AAACF0(7)
      INTEGER AAACG0(6)
      INTEGER AAACH0(7)
      INTEGER AAACI0(7)
      INTEGER AAACJ0(7)
      INTEGER AAACK0(7)
      INTEGER AAACL0(8)
      INTEGER AAACM0(6)
      INTEGER AAACN0(6)
      INTEGER AAACO0(9)
      INTEGER AAACP0(6)
      INTEGER AAACQ0
      INTEGER AAACR0(5)
      DATA AAAAB0/166,189,0/
      DATA AAAAC0/166,166,0/
      DATA AAAAD0/173,173,0/
      DATA AAAAE0/175,189,0/
      DATA AAAAF0/189,189,0/
      DATA AAAAG0/190,189,0/
      DATA AAAAH0/171,171,0/
      DATA AAAAI0/188,189,0/
      DATA AAAAJ0/173,189,0/
      DATA AAAAK0/165,189,0/
      DATA AAAAL0/161,189,0/
      DATA AAAAM0/252,189,0/
      DATA AAAAN0/252,252,0/
      DATA AAAAO0/171,189,0/
      DATA AAAAP0/173,190,0/
      DATA AAAAQ0/188,188,189,0/
      DATA AAAAR0/188,188,0/
      DATA AAAAS0/190,190,189,0/
      DATA AAAAT0/190,190,0/
      DATA AAAAU0/170,189,0/
      DATA AAAAV0/222,189,0/
      DATA AAAAW0/188,197,207,198,190,0/
      DATA AAAAX0/188,206,197,215,204,201,206,197,190,0/
      DATA AAAAY0/227,232,225,242,236,233,244,0/
      DATA AAAAZ0/228,239,245,226,236,229,236,233,244,0/
      DATA AAABA0/233,228,0/
      DATA AAABB0/236,239,238,231,236,233,244,0/
      DATA AAABC0/243,232,239,242,244,236,233,244,0/
      DATA AAABD0/243,244,242,236,233,244,0/
      DATA AAABE0/225,243,237,0/
      DATA AAABF0/225,245,244,239,0/
      DATA AAABG0/226,242,229,225,235,0/
      DATA AAABH0/227,225,243,229,0/
      DATA AAABI0/227,232,225,242,0/
      DATA AAABJ0/227,239,238,244,233,238,245,229,0/
      DATA AAABK0/228,229,230,225,245,236,244,0/
      DATA AAABL0/228,229,230,233,238,229,0/
      DATA AAABM0/228,239,0/
      DATA AAABN0/228,239,245,226,236,229,0/
      DATA AAABO0/229,236,243,229,0/
      DATA AAABP0/229,238,228,233,230,0/
      DATA AAABQ0/229,238,244,242,249,0/
      DATA AAABR0/229,238,245,237,0/
      DATA AAABS0/229,248,244,229,242,238,0/
      DATA AAABT0/230,236,239,225,244,0/
      DATA AAABU0/230,239,242,0/
      DATA AAABV0/230,239,242,244,242,225,238,0/
      DATA AAABW0/231,239,244,239,0/
      DATA AAABX0/233,230,228,229,230,0/
      DATA AAABY0/233,230,238,228,229,230,0/
      DATA AAABZ0/233,230,0/
      DATA AAACA0/233,238,227,236,245,228,229,0/
      DATA AAACB0/233,238,244,0/
      DATA AAACC0/236,233,238,229,0/
      DATA AAACD0/236,239,238,231,0/
      DATA AAACE0/242,229,231,233,243,244,229,242,0/
      DATA AAACF0/242,229,244,245,242,238,0/
      DATA AAACG0/243,232,239,242,244,0/
      DATA AAACH0/243,233,250,229,239,230,0/
      DATA AAACI0/243,244,225,244,233,227,0/
      DATA AAACJ0/243,244,242,245,227,244,0/
      DATA AAACK0/243,247,233,244,227,232,0/
      DATA AAACL0/244,249,240,229,228,229,230,0/
      DATA AAACM0/245,238,228,229,230,0/
      DATA AAACN0/245,238,233,239,238,0/
      DATA AAACO0/245,238,243,233,231,238,229,228,0/
      DATA AAACP0/247,232,233,236,229,0/
      DATA AAACR0/168,170,233,169,0/
      AAAAA0=SYM
      GOTO 10000
10001   CALL CTOC(AAAAB0,STR,200)
      GOTO 10002
10003   CALL CTOC(AAAAC0,STR,200)
      GOTO 10002
10004   CALL CTOC(AAAAD0,STR,200)
      GOTO 10002
10005   CALL CTOC(AAAAE0,STR,200)
      GOTO 10002
10006   CALL CTOC(AAAAF0,STR,200)
      GOTO 10002
10007   CALL CTOC(AAAAG0,STR,200)
      GOTO 10002
10008   CALL CTOC(AAAAH0,STR,200)
      GOTO 10002
10009   CALL CTOC(AAAAI0,STR,200)
      GOTO 10002
10010   CALL CTOC(AAAAJ0,STR,200)
      GOTO 10002
10011   CALL CTOC(AAAAK0,STR,200)
      GOTO 10002
10012   CALL CTOC(AAAAL0,STR,200)
      GOTO 10002
10013   CALL CTOC(AAAAM0,STR,200)
      GOTO 10002
10014   CALL CTOC(AAAAN0,STR,200)
      GOTO 10002
10015   CALL CTOC(AAAAO0,STR,200)
      GOTO 10002
10016   CALL CTOC(AAAAP0,STR,200)
      GOTO 10002
10017   CALL CTOC(AAAAQ0,STR,200)
      GOTO 10002
10018   CALL CTOC(AAAAR0,STR,200)
      GOTO 10002
10019   CALL CTOC(AAAAS0,STR,200)
      GOTO 10002
10020   CALL CTOC(AAAAT0,STR,200)
      GOTO 10002
10021   CALL CTOC(AAAAU0,STR,200)
      GOTO 10002
10022   CALL CTOC(AAAAV0,STR,200)
      GOTO 10002
10023   CALL CTOC(AAAAW0,STR,200)
      GOTO 10002
10024   CALL CTOC(AAAAX0,STR,200)
      GOTO 10002
10025   CALL CTOC(AAAAY0,STR,200)
      GOTO 10002
10026   CALL CTOC(AAAAZ0,STR,200)
      GOTO 10002
10027   CALL CTOC(AAABA0,STR,200)
      GOTO 10002
10028   CALL CTOC(AAABB0,STR,200)
      GOTO 10002
10029   CALL CTOC(AAABC0,STR,200)
      GOTO 10002
10030   CALL CTOC(AAABD0,STR,200)
      GOTO 10002
10031   CALL CTOC(AAABE0,STR,200)
      GOTO 10002
10032   CALL CTOC(AAABF0,STR,200)
      GOTO 10002
10033   CALL CTOC(AAABG0,STR,200)
      GOTO 10002
10034   CALL CTOC(AAABH0,STR,200)
      GOTO 10002
10035   CALL CTOC(AAABI0,STR,200)
      GOTO 10002
10036   CALL CTOC(AAABJ0,STR,200)
      GOTO 10002
10037   CALL CTOC(AAABK0,STR,200)
      GOTO 10002
10038   CALL CTOC(AAABL0,STR,200)
      GOTO 10002
10039   CALL CTOC(AAABM0,STR,200)
      GOTO 10002
10040   CALL CTOC(AAABN0,STR,200)
      GOTO 10002
10041   CALL CTOC(AAABO0,STR,200)
      GOTO 10002
10042   CALL CTOC(AAABP0,STR,200)
      GOTO 10002
10043   CALL CTOC(AAABQ0,STR,200)
      GOTO 10002
10044   CALL CTOC(AAABR0,STR,200)
      GOTO 10002
10045   CALL CTOC(AAABS0,STR,200)
      GOTO 10002
10046   CALL CTOC(AAABT0,STR,200)
      GOTO 10002
10047   CALL CTOC(AAABU0,STR,200)
      GOTO 10002
10048   CALL CTOC(AAABV0,STR,200)
      GOTO 10002
10049   CALL CTOC(AAABW0,STR,200)
      GOTO 10002
10050   CALL CTOC(AAABX0,STR,200)
      GOTO 10002
10051   CALL CTOC(AAABY0,STR,200)
      GOTO 10002
10052   CALL CTOC(AAABZ0,STR,200)
      GOTO 10002
10053   CALL CTOC(AAACA0,STR,200)
      GOTO 10002
10054   CALL CTOC(AAACB0,STR,200)
      GOTO 10002
10055   CALL CTOC(AAACC0,STR,200)
      GOTO 10002
10056   CALL CTOC(AAACD0,STR,200)
      GOTO 10002
10057   CALL CTOC(AAACE0,STR,200)
      GOTO 10002
10058   CALL CTOC(AAACF0,STR,200)
      GOTO 10002
10059   CALL CTOC(AAACG0,STR,200)
      GOTO 10002
10060   CALL CTOC(AAACH0,STR,200)
      GOTO 10002
10061   CALL CTOC(AAACI0,STR,200)
      GOTO 10002
10062   CALL CTOC(AAACJ0,STR,200)
      GOTO 10002
10063   CALL CTOC(AAACK0,STR,200)
      GOTO 10002
10064   CALL CTOC(AAACL0,STR,200)
      GOTO 10002
10065   CALL CTOC(AAACM0,STR,200)
      GOTO 10002
10066   CALL CTOC(AAACN0,STR,200)
      GOTO 10002
10067   CALL CTOC(AAACO0,STR,200)
      GOTO 10002
10068   CALL CTOC(AAACP0,STR,200)
      GOTO 10002
10000 IF(AAAAA0.EQ.-1)GOTO 10023
      IF(AAAAA0.EQ.138)GOTO 10024
      AAACQ0=AAAAA0-999
      GOTO(10001,10003,10004,10005,10006,10007,10008,10009,10010,10011,
     *    10012,10013,10014,10015,10016,10017,10018,10019,10020,10021,
     *   10022,10025,10026,10027,10028,10029,10030,10031,10032,10033,
     *  10034,10035,10036,10069,10037,10038,10039,10040,10041,10042,
     * 10043,10044,10045,10046,10047,10048,10049,10050,10051,10052,10053
     *,10054,10055,10056,10057,10058,10059,10060,10061,10062,10063,10064
     *,10065,10066,10067,10068),AAACQ0
10069   IF((160.GT.SYM))GOTO 10070
        IF((SYM.GE.255))GOTO 10070
          STR(1)=SYM
          STR(2)=0
          GOTO 10071
10070     CALL ENCODE(STR,102,AAACR0,SYM)
10071 CONTINUE
10002 CALL PRINT(-15,FMT,STR)
      RETURN
      END
      SUBROUTINE DISPL0(MODE)
      INTEGER MODE
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      INTEGER AAACS0
      INTEGER AAACT0(5)
      INTEGER AAACU0(4)
      INTEGER AAACV0(5)
      INTEGER AAACW0(6)
      INTEGER AAACX0(5)
      INTEGER AAACY0(9)
      INTEGER AAACZ0(6)
      INTEGER AAADA0(7)
      INTEGER AAADB0(11)
      INTEGER AAADC0(10)
      INTEGER AAADD0(7)
      INTEGER AAADE0(7)
      INTEGER AAADF0(13)
      INTEGER AAADG0(13)
      INTEGER AAADH0(6)
      INTEGER AAADI0(8)
      INTEGER AAADJ0(8)
      INTEGER AAADK0(9)
      INTEGER AAADL0(8)
      INTEGER AAADM0(5)
      INTEGER AAADN0(14)
      DATA AAACT0/228,230,236,244,0/
      DATA AAACU0/233,238,244,0/
      DATA AAACV0/227,232,225,242,0/
      DATA AAACW0/243,232,239,242,244,0/
      DATA AAACX0/236,239,238,231,0/
      DATA AAACY0/245,238,243,233,231,238,229,228,0/
      DATA AAACZ0/230,236,239,225,244,0/
      DATA AAADA0/228,239,245,226,236,229,0/
      DATA AAADB0/243,244,242,245,227,244,168,170,236,169,0/
      DATA AAADC0/245,238,233,239,238,168,170,236,169,0/
      DATA AAADD0/240,244,242,160,244,239,0/
      DATA AAADE0/230,238,160,242,229,244,0/
      DATA AAADF0/225,242,242,225,249,219,170,236,221,160,239,230,0/
      DATA AAADG0/230,233,229,236,228,219,170,236,221,160,239,230,0/
      DATA AAADH0/236,225,226,229,236,0/
      DATA AAADI0/244,249,240,229,228,229,230,0/
      DATA AAADJ0/227,232,225,242,245,238,243,0/
      DATA AAADK0/243,232,239,242,244,245,238,243,0/
      DATA AAADL0/236,239,238,231,245,238,243,0/
      DATA AAADM0/229,238,245,237,0/
      DATA AAADN0/245,238,228,229,230,168,170,233,169,219,170,236,221,0/
      AAACS0=MEMAA0(MODE+3)
      GOTO 10072
10073   CALL PRINT(-15,AAACT0)
      GOTO 10074
10075   CALL PRINT(-15,AAACU0)
      GOTO 10074
10076   CALL PRINT(-15,AAACV0)
      GOTO 10074
10077   CALL PRINT(-15,AAACW0)
      GOTO 10074
10078   CALL PRINT(-15,AAACX0)
      GOTO 10074
10079   CALL PRINT(-15,AAACY0)
      GOTO 10074
10080   CALL PRINT(-15,AAACZ0)
      GOTO 10074
10081   CALL PRINT(-15,AAADA0)
      GOTO 10074
10082   CALL PRINT(-15,AAADB0,MEMAA0(MODE+6))
      GOTO 10074
10083   CALL PRINT(-15,AAADC0,MEMAA0(MODE+6))
      GOTO 10074
10084   CALL PRINT(-15,AAADD0)
      GOTO 10074
10085   CALL PRINT(-15,AAADE0)
      GOTO 10074
10086   CALL PRINT(-15,AAADF0,MEMAA0(MODE+6))
      GOTO 10074
10087   CALL PRINT(-15,AAADG0,MEMAA0(MODE+6))
      GOTO 10074
10088   CALL PRINT(-15,AAADH0)
      GOTO 10074
10089   CALL PRINT(-15,AAADI0)
      GOTO 10074
10090   CALL PRINT(-15,AAADJ0)
      GOTO 10074
10091   CALL PRINT(-15,AAADK0)
      GOTO 10074
10092   CALL PRINT(-15,AAADL0)
      GOTO 10074
10093   CALL PRINT(-15,AAADM0)
      GOTO 10074
10072 GOTO(10076,10090,10075,10077,10078,10079,10091,10092,10080,10081,
     *    10087,10084,10086,10093,10085,10082,10083,10088,10089,10073),A
     *AACS0
        CALL PRINT(-15,AAADN0,MEMAA0(MODE+3),MEMAA0(MODE+6))
10074 RETURN
      END
      SUBROUTINE PMODE(MP)
      INTEGER MP
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      INTEGER AAADO0(2)
      DATA AAADO0/160,0/
      IF((MP.EQ.0))GOTO 10094
        CALL DISPL0(MP)
        CALL PRINT(-15,AAADO0)
        CALL PMODE(MEMAA0(MP))
10094 RETURN
      END
      SUBROUTINE DISPO0(SC)
      INTEGER SC
      INTEGER AAADP0
      INTEGER AAADQ0(8)
      INTEGER AAADR0(5)
      INTEGER AAADS0(7)
      INTEGER AAADT0(9)
      INTEGER AAADU0(7)
      INTEGER AAADV0(8)
      INTEGER AAADW0(6)
      DATA AAADQ0/228,229,230,225,245,236,244,0/
      DATA AAADR0/225,245,244,239,0/
      DATA AAADS0/229,248,244,229,242,238,0/
      DATA AAADT0/242,229,231,233,243,244,229,242,0/
      DATA AAADU0/243,244,225,244,233,227,0/
      DATA AAADV0/244,249,240,229,228,229,230,0/
      DATA AAADW0/245,238,228,229,230,0/
      AAADP0=SC
      GOTO 10095
10096   CALL PRINT(-15,AAADQ0)
      GOTO 10097
10098   CALL PRINT(-15,AAADR0)
      GOTO 10097
10099   CALL PRINT(-15,AAADS0)
      GOTO 10097
10100   CALL PRINT(-15,AAADT0)
      GOTO 10097
10101   CALL PRINT(-15,AAADU0)
      GOTO 10097
10102   CALL PRINT(-15,AAADV0)
      GOTO 10097
10095 GOTO(10096,10098,10099,10100,10101,10102),AAADP0
        CALL PRINT(-15,AAADW0)
10097 RETURN
      END
      SUBROUTINE DUMPM0
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      CALL DMPR(MODET0,0)
      RETURN
      END
      SUBROUTINE DMPR(MP,IN)
      INTEGER MP
      INTEGER IN
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      INTEGER Q
      Q=MP
      GOTO 10105
10103 Q=MEMAA0(Q+1)
10105 IF((Q.EQ.0))GOTO 10104
        CALL DMPM(Q,IN)
        IF((MEMAA0(Q+3).EQ.16))GOTO 10107
        IF((MEMAA0(Q+3).EQ.17))GOTO 10107
        GOTO 10106
10107     CALL DMPS(MEMAA0(Q+5),IN+8)
10106   CALL DMPR(MEMAA0(Q+2),IN+3)
      GOTO 10103
10104 RETURN
      END
      SUBROUTINE DMPM(MP,IN)
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      INTEGER AAADX0(10)
      INTEGER AAADY0(3)
      DATA AAADX0/170,163,248,168,170,181,233,169,160,0/
      DATA AAADY0/170,238,0/
      CALL PRINT(-15,AAADX0,IN,MP)
      CALL PMODE(MP)
      CALL PRINT(-15,AAADY0)
      RETURN
      END
      SUBROUTINE DMPS(MP,IN)
      INTEGER MP
      INTEGER IN
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      INTEGER Q
      INTEGER AAADZ0(16)
      DATA AAADZ0/170,163,248,237,229,237,226,229,242,160,168,170,181,23
     *3,169,0/
      Q=MP
      GOTO 10110
10108 Q=MEMAA0(Q)
10110 IF((Q.EQ.0))GOTO 10109
        CALL PRINT(-15,AAADZ0,IN,Q)
        CALL DMPM(MEMAA0(MEMAA0(Q+1)+1),1)
      GOTO 10108
10109 RETURN
      END
      SUBROUTINE DUMPT0(P)
      INTEGER P
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      INTEGER R(200),L
      INTEGER GETLI0
      INTEGER I
      INTEGER AAAEB0
      INTEGER AAAEC0(7)
      INTEGER AAAED0
      INTEGER AAAEE0(4)
      INTEGER AAAEF0(2)
      INTEGER AAAEG0(22)
      INTEGER AAAEH0(4)
      INTEGER AAAEI0(3)
      INTEGER AAAEJ0(2)
      INTEGER AAAEK0(2)
      INTEGER AAAEL0(2)
      INTEGER AAAEM0(4)
      INTEGER AAAEN0(14)
      INTEGER AAAEO0(4)
      INTEGER AAAEP0(10)
      INTEGER AAAEQ0(4)
      INTEGER AAAER0(2)
      INTEGER AAAES0(14)
      INTEGER AAAET0(4)
      INTEGER AAAEU0(14)
      INTEGER AAAEV0(4)
      INTEGER AAAEW0(2)
      INTEGER AAAEX0(23)
      INTEGER AAAEY0(4)
      INTEGER AAAEZ0
      INTEGER AAAFA0(4)
      INTEGER AAAFB0(4)
      INTEGER AAAFC0(4)
      INTEGER AAAFD0(4)
      INTEGER AAAFE0(2)
      INTEGER AAAFF0(2)
      INTEGER AAAFG0(2)
      INTEGER AAAFH0(2)
      INTEGER AAAFI0(7)
      INTEGER AAAFJ0(11)
      INTEGER AAAEA0
      INTEGER AAAFK0(3)
      INTEGER AAAFL0(8)
      DATA AAAEC0/168,170,181,233,169,160,0/
      DATA AAAEE0/233,228,160,0/
      DATA AAAEF0/160,0/
      DATA AAAEG0/168,237,170,233,160,236,170,233,160,240,170,233,160,23
     *8,170,233,160,228,170,233,169,0/
      DATA AAAEH0/160,160,219,0/
      DATA AAAEI0/170,243,0/
      DATA AAAEJ0/189,0/
      DATA AAAEK0/172,0/
      DATA AAAEL0/221,0/
      DATA AAAEM0/243,237,160,0/
      DATA AAAEN0/168,237,170,233,160,236,170,233,160,239,170,236,169,0/
      DATA AAAEO0/243,244,160,0/
      DATA AAAEP0/168,237,170,233,160,236,170,233,169,0/
      DATA AAAEQ0/229,248,160,0/
      DATA AAAER0/160,0/
      DATA AAAES0/168,236,170,233,160,242,170,233,160,237,170,233,169,0/
      DATA AAAET0/229,238,160,0/
      DATA AAAEU0/168,237,170,233,160,236,170,233,160,238,170,233,169,0/
      DATA AAAEV0/227,239,160,0/
      DATA AAAEW0/160,0/
      DATA AAAEX0/160,163,170,233,160,168,237,170,233,160,236,170,233,16
     *0,240,170,233,160,228,170,233,169,0/
      DATA AAAEY0/236,244,160,0/
      DATA AAAFA0/163,170,233,0/
      DATA AAAFB0/163,170,236,0/
      DATA AAAFC0/163,170,242,0/
      DATA AAAFD0/163,170,228,0/
      DATA AAAFE0/167,0/
      DATA AAAFF0/167,0/
      DATA AAAFG0/162,0/
      DATA AAAFH0/162,0/
      DATA AAAFI0/170,172,173,184,233,160,0/
      DATA AAAFJ0/211,249,237,244,249,240,229,189,170,233,0/
      DATA AAAFK0/170,227,0/
      DATA AAAFL0/188,170,172,173,184,233,190,0/
      CALL PRINT(-15,AAAEC0,P)
      AAAED0=MEMAA0(P)
      GOTO 10112
10113   CALL PRINT(-15,AAAEE0)
        CALL DISPO0(MEMAA0(P+2))
        CALL PRINT(-15,AAAEF0)
        CALL PMODE(MEMAA0(P+1))
        CALL PRINT(-15,AAAEG0,MEMAA0(P+1),MEMAA0(P+3),MEMAA0(P+4),MEMAA0
     *(P+5),MEMAA0(P+7))
        IF((MEMAA0(P+8).EQ.0))GOTO 10121
          CALL PRINT(-15,AAAEH0)
          I=MEMAA0(P+8)
          GOTO 10117
10115     I=MEMAA0(I)
10117     IF((I.EQ.0))GOTO 10116
            IF((MEMAA0(I+1).EQ.0))GOTO 10118
              CALL PRINT(-15,AAAEI0,MEMAA0(MEMAA0(I+1)))
10118       IF((MEMAA0(I+2).EQ.0))GOTO 10119
              CALL PRINT(-15,AAAEJ0)
10119       CALL PMODE(MEMAA0(I+2))
            IF((MEMAA0(I).EQ.0))GOTO 10115
              CALL PRINT(-15,AAAEK0)
10120     GOTO 10115
10116     CALL PRINT(-15,AAAEL0)
10114 GOTO 10121
10122   CALL PRINT(-15,AAAEM0)
        CALL PMODE(MEMAA0(P+1))
        CALL PRINT(-15,AAAEN0,MEMAA0(P+1),MEMAA0(P+3),MEMAA0(P+8))
      GOTO 10121
10123   CALL PRINT(-15,AAAEO0)
        CALL PMODE(MEMAA0(P+1))
        CALL PRINT(-15,AAAEP0,MEMAA0(P+1),MEMAA0(P+3))
      GOTO 10121
10124   CALL PRINT(-15,AAAEQ0)
        CALL DISPM0(MEMAA0(P+2))
        CALL PRINT(-15,AAAER0)
        CALL PMODE(MEMAA0(P+1))
        CALL PRINT(-15,AAAES0,MEMAA0(P+4),MEMAA0(P+3),MEMAA0(P+1))
      GOTO 10121
10125   CALL PRINT(-15,AAAET0)
        CALL PMODE(MEMAA0(P+1))
        CALL PRINT(-15,AAAEU0,MEMAA0(P+1),MEMAA0(P+3),MEMAA0(P+5))
      GOTO 10121
10126   CALL PRINT(-15,AAAEV0)
        CALL DISPO0(MEMAA0(P+2))
        CALL PRINT(-15,AAAEW0)
        CALL PMODE(MEMAA0(P+1))
        CALL PRINT(-15,AAAEX0,MEMAA0(P+5),MEMAA0(P+1),MEMAA0(P+3),MEMAA0
     *(P+4),MEMAA0(P+7))
      GOTO 10121
10127   CALL PRINT(-15,AAAEY0)
        CALL PMODE(MEMAA0(P+1))
        L=GETLI0(P,R,200)
        AAAEZ0=MEMAA0(MEMAA0(P+1)+3)
        GOTO 10128
10129     CALL PRINT(-15,AAAFA0,R)
        GOTO 10121
10131     CALL PRINT(-15,AAAFB0,R)
        GOTO 10121
10132     CALL PRINT(-15,AAAFC0,R)
        GOTO 10121
10133     CALL PRINT(-15,AAAFD0,R)
        GOTO 10121
10134     CALL PRINT(-15,AAAFE0)
          AAAEA0=R(1)
          AAAEB0=1
          GOTO 10111
10135     CALL PRINT(-15,AAAFF0)
        GOTO 10121
10136     IF((MEMAA0(MEMAA0(MEMAA0(P+1))+3).NE.1))GOTO 10137
            CALL PRINT(-15,AAAFG0)
            I=1
            GOTO 10140
10138       I=I+(1)
10140       IF((I.GT.L))GOTO 10139
              AAAEA0=R(I)
              AAAEB0=2
              GOTO 10111
10139       CALL PRINT(-15,AAAFH0)
            GOTO 10121
10137       I=1
            GOTO 10145
10143       I=I+(1)
10145       IF((I.GT.L))GOTO 10144
              CALL PRINT(-15,AAAFI0,R(I))
            GOTO 10143
10144     CONTINUE
10142   GOTO 10121
10128   GOTO(10134,10146,10129,10129,10131,10129,10129,10131,10132,10133
     *,10146,10131,10136,10129),AAAEZ0
10146   CONTINUE
10130 GOTO 10121
10112 GOTO(10113,10122,10127,10123,10125,10126,10147,10124),AAAED0
10147   CALL PRINT(-15,AAAFJ0,MEMAA0(P))
10121 RETURN
10111 IF((AAAEA0.LT.160))GOTO 10148
      IF((AAAEA0.GE.255))GOTO 10148
        CALL PRINT(-15,AAAFK0,AAAEA0)
        GOTO 10150
10148   CALL PRINT(-15,AAAFL0,AAAEA0)
10149 GOTO 10150
10150 GOTO(10135,10138),AAAEB0
      GOTO 10150
      END
      SUBROUTINE DUMPS0(LL)
      INTEGER LL
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      INTEGER P,Q
      INTEGER ACCES0
      INTEGER STR(200)
      INTEGER AAAFM0(42)
      INTEGER AAAFN0(11)
      INTEGER AAAFO0(3)
      INTEGER AAAFP0(41)
      INTEGER AAAFQ0(11)
      INTEGER AAAFR0(3)
      INTEGER AAAFS0(3)
      DATA AAAFM0/170,238,201,228,229,238,244,233,230,233,229,242,160,24
     *4,225,226,236,229,160,230,239,242,160,236,229,248,233,227,160,236,
     *229,246,229,236,160,170,233,170,238,170,238,0/
      DATA AAAFN0/160,160,160,167,170,177,176,243,167,160,0/
      DATA AAAFO0/170,238,0/
      DATA AAAFP0/170,238,211,244,242,245,227,244,245,242,229,160,244,22
     *5,226,236,229,160,230,239,242,160,236,229,248,233,227,160,236,229,
     *246,229,236,160,170,233,170,238,170,238,0/
      DATA AAAFQ0/160,160,160,167,170,177,176,243,167,160,0/
      DATA AAAFR0/170,238,0/
      DATA AAAFS0/170,238,0/
      CALL PRINT(-15,AAAFM0,LL)
      P=0
      Q=ACCES0(LL,STR,P,1)
      GOTO 10153
10151 Q=ACCES0(LL,STR,P,1)
10153 IF((Q.EQ.0))GOTO 10152
        CALL PRINT(-15,AAAFN0,STR)
        CALL DUMPT0(Q)
        CALL PRINT(-15,AAAFO0)
      GOTO 10151
10152 CALL PRINT(-15,AAAFP0,LL)
      P=0
      Q=ACCES0(LL,STR,P,2)
      GOTO 10156
10154 Q=ACCES0(LL,STR,P,2)
10156 IF((Q.EQ.0))GOTO 10155
        CALL PRINT(-15,AAAFQ0,STR)
        CALL DUMPT0(Q)
        CALL PRINT(-15,AAAFR0)
      GOTO 10154
10155 CALL PRINT(-15,AAAFS0)
      RETURN
      END
      SUBROUTINE T$TRAC(MODE,NAME)
      INTEGER MODE
      INTEGER NAME
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      INTEGER LEVEL,I
      INTEGER AAAFT0
      DATA LEVEL/0/
      AAAFT0=MODE
      GOTO 10157
10158   LEVEL=LEVEL+1
      GOTO 10159
10160   LEVEL=LEVEL-1
      GOTO 10159
10161   LEVEL=0
      GOTO 10159
10157 GOTO(10158,10160,10161),AAAFT0
10159 RETURN
      END
      SUBROUTINE DISPM0(OP)
      INTEGER OP
      CALL DISPN0(OP,-15)
      RETURN
      END
      SUBROUTINE DISPN0(OP,FD)
      INTEGER OP
      INTEGER FD
      INTEGER AAAFU0
      INTEGER AAAFV0(3)
      INTEGER AAAFW0(2)
      INTEGER AAAFX0(3)
      INTEGER AAAFY0(2)
      INTEGER AAAFZ0(2)
      INTEGER AAAGA0(6)
      INTEGER AAAGB0(5)
      INTEGER AAAGC0(6)
      INTEGER AAAGD0(6)
      INTEGER AAAGE0(6)
      INTEGER AAAGF0(6)
      INTEGER AAAGG0(8)
      INTEGER AAAGH0(13)
      INTEGER AAAGI0(8)
      INTEGER AAAGJ0(12)
      INTEGER AAAGK0(12)
      INTEGER AAAGL0(6)
      INTEGER AAAGM0(3)
      INTEGER AAAGN0(2)
      INTEGER AAAGO0(3)
      INTEGER AAAGP0(3)
      INTEGER AAAGQ0(6)
      INTEGER AAAGR0(4)
      INTEGER AAAGS0(3)
      INTEGER AAAGT0(5)
      INTEGER AAAGU0(2)
      INTEGER AAAGV0(3)
      INTEGER AAAGW0(6)
      INTEGER AAAGX0(5)
      INTEGER AAAGY0(6)
      INTEGER AAAGZ0(3)
      INTEGER AAAHA0(4)
      INTEGER AAAHB0(3)
      INTEGER AAAHC0(2)
      INTEGER AAAHD0(7)
      INTEGER AAAHE0(4)
      INTEGER AAAHF0(3)
      INTEGER AAAHG0(2)
      INTEGER AAAHH0(5)
      INTEGER AAAHI0(3)
      INTEGER AAAHJ0(2)
      INTEGER AAAHK0(5)
      INTEGER AAAHL0(7)
      INTEGER AAAHM0(3)
      INTEGER AAAHN0(2)
      INTEGER AAAHO0(8)
      INTEGER AAAHP0(8)
      INTEGER AAAHQ0(7)
      INTEGER AAAHR0(7)
      INTEGER AAAHS0(14)
      INTEGER AAAHT0(10)
      INTEGER AAAHU0(14)
      INTEGER AAAHV0(10)
      INTEGER AAAHW0(6)
      INTEGER AAAHX0(3)
      INTEGER AAAHY0(2)
      INTEGER AAAHZ0(7)
      INTEGER AAAIA0(4)
      INTEGER AAAIB0(3)
      INTEGER AAAIC0(3)
      INTEGER AAAID0(7)
      INTEGER AAAIE0(4)
      INTEGER AAAIF0(3)
      INTEGER AAAIG0(3)
      INTEGER AAAIH0(2)
      INTEGER AAAII0(7)
      INTEGER AAAIJ0(9)
      INTEGER AAAIK0(6)
      INTEGER AAAIL0(3)
      INTEGER AAAIM0(2)
      INTEGER AAAIN0(10)
      DATA AAAFV0/171,189,0/
      DATA AAAFW0/171,0/
      DATA AAAFX0/166,189,0/
      DATA AAAFY0/166,0/
      DATA AAAFZ0/189,0/
      DATA AAAGA0/226,242,229,225,235,0/
      DATA AAAGB0/227,225,243,229,0/
      DATA AAAGC0/227,239,237,240,236,0/
      DATA AAAGD0/227,239,238,228,177,0/
      DATA AAAGE0/227,239,238,228,178,0/
      DATA AAAGF0/227,239,238,243,244,0/
      DATA AAAGG0/227,239,238,246,229,242,244,0/
      DATA AAAGH0/228,229,227,236,225,242,229,223,243,244,225,244,0/
      DATA AAAGI0/228,229,230,225,245,236,244,0/
      DATA AAAGJ0/228,229,230,233,238,229,223,228,249,238,237,0/
      DATA AAAGK0/228,229,230,233,238,229,223,243,244,225,244,0/
      DATA AAAGL0/228,229,242,229,230,0/
      DATA AAAGM0/175,189,0/
      DATA AAAGN0/175,0/
      DATA AAAGO0/228,239,0/
      DATA AAAGP0/189,189,0/
      DATA AAAGQ0/230,233,229,236,228,0/
      DATA AAAGR0/230,239,242,0/
      DATA AAAGS0/190,189,0/
      DATA AAAGT0/231,239,244,239,0/
      DATA AAAGU0/190,0/
      DATA AAAGV0/233,230,0/
      DATA AAAGW0/233,238,228,229,248,0/
      DATA AAAGX0/233,238,233,244,0/
      DATA AAAGY0/236,225,226,229,236,0/
      DATA AAAGZ0/188,189,0/
      DATA AAAHA0/188,188,189,0/
      DATA AAAHB0/188,188,0/
      DATA AAAHC0/188,0/
      DATA AAAHD0/237,239,228,245,236,229,0/
      DATA AAAHE0/170,170,189,0/
      DATA AAAHF0/170,170,0/
      DATA AAAHG0/173,0/
      DATA AAAHH0/238,229,248,244,0/
      DATA AAAHI0/161,189,0/
      DATA AAAHJ0/161,0/
      DATA AAAHK0/238,245,236,236,0/
      DATA AAAHL0/239,226,234,229,227,244,0/
      DATA AAAHM0/252,189,0/
      DATA AAAHN0/252,0/
      DATA AAAHO0/240,239,243,244,228,229,227,0/
      DATA AAAHP0/240,239,243,244,233,238,227,0/
      DATA AAAHQ0/240,242,229,228,229,227,0/
      DATA AAAHR0/240,242,229,233,238,227,0/
      DATA AAAHS0/240,242,239,227,223,227,225,236,236,223,225,242,231,0/
      DATA AAAHT0/240,242,239,227,223,227,225,236,236,0/
      DATA AAAHU0/240,242,239,227,223,228,229,230,238,223,225,242,231,0/
      DATA AAAHV0/240,242,239,227,223,228,229,230,238,0/
      DATA AAAHW0/242,229,230,244,239,0/
      DATA AAAHX0/165,189,0/
      DATA AAAHY0/165,0/
      DATA AAAHZ0/242,229,244,245,242,238,0/
      DATA AAAIA0/190,190,189,0/
      DATA AAAIB0/190,190,0/
      DATA AAAIC0/166,166,0/
      DATA AAAID0/243,229,236,229,227,244,0/
      DATA AAAIE0/243,229,241,0/
      DATA AAAIF0/252,252,0/
      DATA AAAIG0/173,189,0/
      DATA AAAIH0/173,0/
      DATA AAAII0/243,247,233,244,227,232,0/
      DATA AAAIJ0/245,238,228,229,230,233,238,229,0/
      DATA AAAIK0/247,232,233,236,229,0/
      DATA AAAIL0/222,189,0/
      DATA AAAIM0/222,0/
      DATA AAAIN0/245,238,228,229,230,168,170,233,169,0/
      AAAFU0=OP
      GOTO 10162
10163   CALL PRINT(FD,AAAFV0)
      GOTO 10164
10165   CALL PRINT(FD,AAAFW0)
      GOTO 10164
10166   CALL PRINT(FD,AAAFX0)
      GOTO 10164
10167   CALL PRINT(FD,AAAFY0)
      GOTO 10164
10168   CALL PRINT(FD,AAAFZ0)
      GOTO 10164
10169   CALL PRINT(FD,AAAGA0)
      GOTO 10164
10170   CALL PRINT(FD,AAAGB0)
      GOTO 10164
10171   CALL PRINT(FD,AAAGC0)
      GOTO 10164
10172   CALL PRINT(FD,AAAGD0)
      GOTO 10164
10173   CALL PRINT(FD,AAAGE0)
      GOTO 10164
10174   CALL PRINT(FD,AAAGF0)
      GOTO 10164
10175   CALL PRINT(FD,AAAGG0)
      GOTO 10164
10176   CALL PRINT(FD,AAAGH0)
      GOTO 10164
10177   CALL PRINT(FD,AAAGI0)
      GOTO 10164
10178   CALL PRINT(FD,AAAGJ0)
      GOTO 10164
10179   CALL PRINT(FD,AAAGK0)
      GOTO 10164
10180   CALL PRINT(FD,AAAGL0)
      GOTO 10164
10181   CALL PRINT(FD,AAAGM0)
      GOTO 10164
10182   CALL PRINT(FD,AAAGN0)
      GOTO 10164
10183   CALL PRINT(FD,AAAGO0)
      GOTO 10164
10184   CALL PRINT(FD,AAAGP0)
      GOTO 10164
10185   CALL PRINT(FD,AAAGQ0)
      GOTO 10164
10186   CALL PRINT(FD,AAAGR0)
      GOTO 10164
10187   CALL PRINT(FD,AAAGS0)
      GOTO 10164
10188   CALL PRINT(FD,AAAGT0)
      GOTO 10164
10189   CALL PRINT(FD,AAAGU0)
      GOTO 10164
10190   CALL PRINT(FD,AAAGV0)
      GOTO 10164
10191   CALL PRINT(FD,AAAGW0)
      GOTO 10164
10192   CALL PRINT(FD,AAAGX0)
      GOTO 10164
10193   CALL PRINT(FD,AAAGY0)
      GOTO 10164
10194   CALL PRINT(FD,AAAGZ0)
      GOTO 10164
10195   CALL PRINT(FD,AAAHA0)
      GOTO 10164
10196   CALL PRINT(FD,AAAHB0)
      GOTO 10164
10197   CALL PRINT(FD,AAAHC0)
      GOTO 10164
10198   CALL PRINT(FD,AAAHD0)
      GOTO 10164
10199   CALL PRINT(FD,AAAHE0)
      GOTO 10164
10200   CALL PRINT(FD,AAAHF0)
      GOTO 10164
10201   CALL PRINT(FD,AAAHG0)
      GOTO 10164
10202   CALL PRINT(FD,AAAHH0)
      GOTO 10164
10203   CALL PRINT(FD,AAAHI0)
      GOTO 10164
10204   CALL PRINT(FD,AAAHJ0)
      GOTO 10164
10205   CALL PRINT(FD,AAAHK0)
      GOTO 10164
10206   CALL PRINT(FD,AAAHL0)
      GOTO 10164
10207   CALL PRINT(FD,AAAHM0)
      GOTO 10164
10208   CALL PRINT(FD,AAAHN0)
      GOTO 10164
10209   CALL PRINT(FD,AAAHO0)
      GOTO 10164
10210   CALL PRINT(FD,AAAHP0)
      GOTO 10164
10211   CALL PRINT(FD,AAAHQ0)
      GOTO 10164
10212   CALL PRINT(FD,AAAHR0)
      GOTO 10164
10213   CALL PRINT(FD,AAAHS0)
      GOTO 10164
10214   CALL PRINT(FD,AAAHT0)
      GOTO 10164
10215   CALL PRINT(FD,AAAHU0)
      GOTO 10164
10216   CALL PRINT(FD,AAAHV0)
      GOTO 10164
10217   CALL PRINT(FD,AAAHW0)
      GOTO 10164
10218   CALL PRINT(FD,AAAHX0)
      GOTO 10164
10219   CALL PRINT(FD,AAAHY0)
      GOTO 10164
10220   CALL PRINT(FD,AAAHZ0)
      GOTO 10164
10221   CALL PRINT(FD,AAAIA0)
      GOTO 10164
10222   CALL PRINT(FD,AAAIB0)
      GOTO 10164
10223   CALL PRINT(FD,AAAIC0)
      GOTO 10164
10224   CALL PRINT(FD,AAAID0)
      GOTO 10164
10225   CALL PRINT(FD,AAAIE0)
      GOTO 10164
10226   CALL PRINT(FD,AAAIF0)
      GOTO 10164
10227   CALL PRINT(FD,AAAIG0)
      GOTO 10164
10228   CALL PRINT(FD,AAAIH0)
      GOTO 10164
10229   CALL PRINT(FD,AAAII0)
      GOTO 10164
10230   CALL PRINT(FD,AAAIJ0)
      GOTO 10164
10231   CALL PRINT(FD,AAAIK0)
      GOTO 10164
10232   CALL PRINT(FD,AAAIL0)
      GOTO 10164
10233   CALL PRINT(FD,AAAIM0)
      GOTO 10164
10162 GOTO(10163,10165,10166,10167,10168,10169,10170,10171,10174,10175,
     *    10176,10177,10178,10179,10180,10181,10182,10183,10184,10186,
     *   10187,10188,10189,10190,10191,10192,10193,10194,10195,10196,
     *  10197,10198,10199,10200,10201,10202,10203,10204,10205,10206,
     * 10207,10208,10209,10210,10211,10212,10213,10214,10215,10216,10217
     *,10218,10219,10220,10221,10222,10223,10224,10225,10226,10227,10228
     *,10229,10230,10231,10232,10233,10234,10185,10172,10173),AAAFU0
10234   CALL PRINT(-15,AAAIN0,OP)
10164 RETURN
      END
      SUBROUTINE DUMPE0(P)
      INTEGER P
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      INTEGER MARG(71)
      INTEGER AAAIO0(21)
      DATA AAAIO0/170,238,197,248,240,242,229,243,243,233,239,238,160,24
     *4,242,229,229,186,170,238,0/
      CALL PRINT(-15,AAAIO0)
      CALL DMPE(P,0,MARG,0)
      RETURN
      END
      SUBROUTINE DMPE(P,IN,MARG,SON)
      INTEGER P
      INTEGER IN,SON
      INTEGER MARG(1)
      INTEGER SYMTE0(200),NSYMT0(200)
      INTEGER SYMLE0,SYMBO0,SYMLI0,NSYML0,NSYMB0,NSYMM0
      INTEGER SYMPT0,NSYMP0
      COMMON /LEXCOM/SYMBO0,NSYMB0,SYMLE0,NSYML0,SYMPT0,NSYMP0,SYMTE0,NS
     *YMT0,SYMLI0,NSYMM0
      INTEGER INBUF0(1105)
      INTEGER IBPAA0,LINEN0(5),LEVEL0
      INTEGER INFIL0(5)
      COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
      INTEGER DIRTO0,DFOTO0
      INTEGER PPTBL0
      INTEGER DIRNA0(300),DFONA0(300)
      COMMON /PPCOM/PPTBL0,DIRTO0,DIRNA0,DFOTO0,DFONA0
      INTEGER KEYWD0,IDTBL0(50),SMTBL0(50)
      INTEGER LLAAA0
      COMMON /IDCOM/LLAAA0,KEYWD0,IDTBL0,SMTBL0
      INTEGER MEMAA0(30000)
      COMMON /DS$MEM/MEMAA0
      INTEGER SEMSK0(300),CTLSK0(50)
      INTEGER SEMSP0,CTLSP0
      COMMON /PARCOM/SEMSK0,SEMSP0,CTLSK0,CTLSP0
      INTEGER INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LABEL0,PO
     *INT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0(20),MODEU0(20),MODE
     *V0
      COMMON /MODCOM/INTMO0,CHARM0,SHORT0,LONGM0,UNSIG0,FLOAT0,DOUBL0,LA
     *BEL0,POINT0,SHORU0,LONGU0,CHARU0,MODET0,MODEL0,MODES0,MODEU0,MODEV
     *0
      INTEGER EXPSK0(100),PROCM0,PROCR0
      INTEGER EXPSP0,OBJNO0
      INTEGER * 4 ZINIT0
      COMMON /EXPCOM/EXPSK0,EXPSP0,OBJNO0,PROCM0,PROCR0,ZINIT0
      INTEGER OUTFP0,NERRS0
      INTEGER MODUL0(200),ERROR0(200)
      INTEGER A$BUF(200)
      INTEGER OUTFI0(3),CKFIL0
      INTEGER FNAME0(5)
      COMMON /MISCOM/MODUL0,ERROR0,A$BUF,OUTFI0,OUTFP0,CKFIL0,NERRS0,FNA
     *ME0
      INTEGER I
      INTEGER AAAIP0(3)
      INTEGER AAAIQ0(3)
      INTEGER AAAIR0(3)
      INTEGER AAAIS0(3)
      INTEGER AAAIT0(3)
      INTEGER AAAIU0(3)
      INTEGER AAAIV0(3)
      INTEGER AAAIW0(3)
      INTEGER AAAIX0(3)
      INTEGER AAAIY0(3)
      INTEGER AAAIZ0(3)
      INTEGER AAAJA0(3)
      DATA AAAIP0/175,173,0/
      DATA AAAIQ0/220,173,0/
      DATA AAAIR0/170,243,0/
      DATA AAAIS0/170,238,0/
      DATA AAAIT0/160,160,0/
      DATA AAAIU0/252,160,0/
      DATA AAAIV0/175,173,0/
      DATA AAAIW0/220,173,0/
      DATA AAAIX0/170,243,0/
      DATA AAAIY0/170,238,0/
      DATA AAAIZ0/252,160,0/
      DATA AAAJA0/160,160,0/
      IF((P.NE.0))GOTO 10235
        RETURN
10235 IF((MEMAA0(P).EQ.8))GOTO 10236
        IF((SON.NE.0))GOTO 10237
          CALL CTOC(AAAIP0,MARG(IN+1),71-IN)
          GOTO 10238
10237     CALL CTOC(AAAIQ0,MARG(IN+1),71-IN)
10238   CALL PRINT(-15,AAAIR0,MARG)
        CALL DUMPT0(P)
        CALL PRINT(-15,AAAIS0)
        GOTO 10239
10236   IF((SON.NE.0))GOTO 10240
          CALL CTOC(AAAIT0,MARG(IN+1),71-IN)
          GOTO 10241
10240     CALL CTOC(AAAIU0,MARG(IN+1),71-IN)
10241   CALL DMPE(MEMAA0(P+4),IN+2,MARG,0)
        IF((SON.NE.0))GOTO 10242
          CALL CTOC(AAAIV0,MARG(IN+1),71-IN)
          GOTO 10243
10242     CALL CTOC(AAAIW0,MARG(IN+1),71-IN)
10243   CALL PRINT(-15,AAAIX0,MARG)
        CALL DUMPT0(P)
        CALL PRINT(-15,AAAIY0)
        IF((SON.NE.0))GOTO 10244
          CALL CTOC(AAAIZ0,MARG(IN+1),71-IN)
          GOTO 10245
10244     CALL CTOC(AAAJA0,MARG(IN+1),71-IN)
10245   CALL DMPE(MEMAA0(P+3),IN+2,MARG,1)
10239 RETURN
      END
C ---- Long Name Map ----
C dumpsymentry                   dumpt0
C Procmode                       procm0
C displaychar                    dispq0
C declspecifiers                 decls0
C enterdefinition                entes0
C islvalue                       islva0
C outoper                        outop0
C installdefinition              insta0
C Nerrs                          nerrs0
C dumpsym                        dumps0
C entersmdecl                    entex0
C enumspecifier                  enums0
C openinclude                    openi0
C Nsymbol                        nsymb0
C Expsk                          expsk0
C enterchildmode                 enter0
C gencast                        genca0
C Dfoname                        dfona0
C checkarith                     check0
C droplitval                     dropl0
C outgoto                        outgo0
C returnstatement                retur0
C Nsymlen                        nsyml0
C Symptr                         sympt0
C ckfncall                       ckfnc0
C cleanupll                      clean0
C genmakearith                   genma0
C Outfp                          outfp0
C alloctemp                      alloe0
C forstatement                   forst0
C outinitend                     outio0
C outsize                        outsi0
C putbackstr                     putbc0
C Floatmodeptr                   float0
C createmode                     creat0
C displaymode                    displ0
C Expsp                          expsp0
C convoper                       convo0
C outexprtree                    outey0
C putback                        putba0
C structdeclaratorlist           strue0
C Nsymtext                       nsymt0
C Modelist                       model0
C Fnametable                     fname0
C genopnd                        genoq0
C isconstant                     iscon0
C isstored                       issto0
C Dirname                        dirna0
C invokemacro                    invok0
C makemode                       makem0
C notstatementstart              notsu0
C outexpr                        outex0
C structdecllist                 struf0
C Ll                             llaaa0
C Modesavelen                    modeu0
C functionheader                 funct0
C outdeclarations                outde0
C Charunsmodeptr                 charu0
C Modesavetype                   modes0
C structdeclaration              struc0
C Dfotop                         dfoto0
C ckputname                      ckpuu0
C findmode                       findm0
C refillbuffer                   refil0
C Keywdtbl                       keywd0
C declarations                   decla0
C entersiblingmode               entew0
C genoper                        genop0
C getlong                        getlo0
C typeorscspec                   typeo0
C declarator                     declb0
C ssalloc                        ssall0
C accesssym                      acces0
C declarelabel                   declc0
C ifstatement                    ifsta0
C initializer                    initj0
C isnullconv                     isnul0
C resetline                      reset0
C Charmodeptr                    charm0
C ckputmode                      ckput0
C createsavedmode                creau0
C displaysc                      dispo0
C dumpexpr                       dumpe0
C foldconst                      foldc0
C getlitval                      getli0
C initdeclarator                 initd0
C statementlabel                 statf0
C Idtbl                          idtbl0
C checkdeclaration               checl0
C enumdeclarator                 enumd0
C gentoboolean                   gento0
C isarith                        isari0
C processifdef                   procg0
C Dirtop                         dirto0
C constantexpr                   const0
C expression                     expre0
C outstmt                        outst0
C checkfunctiondeclaration       checm0
C convtype                       convt0
C dostatement                    dosta0
C enterll                        entev0
C Intmodeptr                     intmo0
C Doublemodeptr                  doubl0
C Zinitlen                       zinit0
C makesym                        makes0
C breakstatement                 break0
C expr10                         expr10
C externaldefinition             exter0
C structorunionspecifier         struh0
C Symbol                         symbo0
C Nsymline                       nsymm0
C Inbuf                          inbuf0
C Ibp                            ibpaa0
C collectquotedstring            collf0
C notstatementend                notst0
C outname                        outna0
C arrayinit                      array0
C displayoper                    dispn0
C fatalerr                       fatal0
C findsym                        finds0
C scalarinit                     scala0
C Symlen                         symle0
C Pointermodeptr                 point0
C genindex                       genin0
C Ckfile                         ckfil0
C ckfndef                        ckfnd0
C displayop                      dispm0
C enteriddecl                    entet0
C isaggregate                    isagg0
C removedefinition               remov0
C statement                      state0
C Level                          level0
C Mem                            memaa0
C Objno                          objno0
C arithexcep                     arith0
C compoundstatement              compo0
C continuestatement              conti0
C dgetsym                        dgets0
C initdeclaratorlist             inite0
C outmode                        outmo0
C processdebug                   procf0
C savemode                       savem0
C Nsymptr                        nsymp0
C Labelmodeptr                   label0
C Shortunsmodeptr                shoru0
C allocstruct                    allod0
C structinit                     strug0
C Symtext                        symte0
C cpreprocessor                  cprep0
C process                        proce0
C recordsym                      recor0
C Unsignedmodeptr                unsig0
C Longunsmodeptr                 longu0
C enterkw                        enteu0
C outproccallarg                 outps0
C allocatestorage                alloc0
C displaysymbol                  dispp0
C alignmode                      align0
C initialize                     initi0
C nextistype                     nexti0
C skipwhitespace                 skipw0
C Shortmodeptr                   short0
C Modulename                     modul0
C getactualparameters            getac0
C gotostatement                  gotos0
C switchstatement                switc0
C Outfile                        outfi0
C ckfnend                        ckfne0
C convconst                      convc0
C dumpmode                       dumpm0
C ispointer                      ispoi0
C primary                        prima0
C Infile                         infil0
C Longmodeptr                    longm0
C comparemode                    compa0
C modifyparammode                modif0
C sizeofmode                     sizeo0
C Ctlsk                          ctlsk0
C collectactualparameter         colle0
C outinitstart                   outip0
C Pptbl                          pptbl0
C Smtbl                          smtbl0
C Modesavect                     modev0
C ckfnarg                        ckfna0
C Semsk                          semsk0
C Procrtnv                       procr0
C getdefinition                  getde0
C putlong                        putlo0
C getformalparameters            getfo0
C putbacknum                     putbb0
C Ctlsp                          ctlsp0
C Modetable                      modet0
C genconvert                     genco0
C processifndef                  proch0
C structdeclarator               strud0
C abstractdeclarator             abstr0
C deallocexpr                    deall0
C gobbleuntilelseorendif         gobbl0
C outinit                        outin0
C outproc                        outpr0
C putlitval                      putli0
C ssdealloc                      ssdea0
C typename                       typen0
C whilestatement                 while0
C Symline                        symli0
C Linenumber                     linen0
C Semsp                          semsp0
C Errorsym                       error0