C
C >>> DUMMY SUBROUTINES FOR USE IF X-WINDOWS ROUTINES
C     NOT AVAILABLE
C
      SUBROUTINE GISTART(IXO,IYO,IWIDTH,IHEIGHT)
      RETURN
      ENTRY DRAWLINE(IX,IY,IPLOT)
      RETURN
      ENTRY QUITX
      RETURN
      entry lxcol(icol)
      return
      END