c *****************************************************************
c *** DUMMY SCREEN OUTPUT (MAY BE REPLACED WITH SCREEN DRIVER CODE)
c *****************************************************************

      subroutine initsc
      return
      end

      subroutine penwsc(penw)
      return
      end

      subroutine colrsc(icolor)
      return
      end

      subroutine pensc(x,y,ipen)
      return
      end

      subroutine endsc
      return
      end

c *** end of dummy screen output
c ****************************************************************