        subroutine PRTMSG(IS)
      include 'UNITS.INC'
        integer IS
      go to (110,120,100,230,230,140,150,160,170,180,190,200,210,220),
     &    IS
      if (IS.eq.1) go to 130
100   continue
      write (TTYOUT(MACHNO),5000)
5000  format (/1X,'End-of-File encountered.  Command terminated.')
      go to 230
110   continue
      write (TTYOUT(MACHNO),5010)
5010  format (/1X,'COMMON group not found.  See the MAINTAINER.')
      go to 230
120   continue
      write (TTYOUT(MACHNO),5020)
5020  format (/1X,'Option not identified.')
      go to 230
130   continue
      write (TTYOUT(MACHNO),5030)
5030  format (/' Error in definition of subscript.  Try again later.')
      go to 230
140   continue
      write (TTYOUT(MACHNO),5040)
5040  format (/1X,'Insufficient information to decode input.')
      go to 230
150   continue
      write (TTYOUT(MACHNO),5050)
5050  format (/1X,'Subscript out-of-range.')
      go to 230
160   continue
      write (TTYOUT(MACHNO),5060)
5060  format (/1X,'Invalid number of subscripts.')
      go to 230
170   continue
      write (TTYOUT(MACHNO),5070)
5070  format (/1X,'Invalid numeric expression.')
      go to 230
180   continue
      write (TTYOUT(MACHNO),5080)
5080  format (/1X,'COMMON name specified.')
      go to 230
190   continue
      write (TTYOUT(MACHNO),5090)
5090  format (/1X,'SCALAR followed by a (.')
      go to 230
200   continue
      write (TTYOUT(MACHNO),5100)
5100  format (/1X,'Null argument.')
      go to 230
210   continue
      write (TTYOUT(MACHNO),5110)
5110  format (/1X,'"TO" or "=" not specified.')
      go to 230
220   continue
      write (TTYOUT(MACHNO),5120)
5120  format (/1X,'Invalid numeric quantity after TO or =.')
230   continue
      return
      end
