      SUBROUTINE PXZ01
C
$INCLUDE:'pxz99.cmn'
C
      IF (NCCNT.LE.0) GO TO 80
          IFLT=0
          IF (IFLT.EQ.0) GO TO 15
      WRITE(0,5) NCCNT
    5 FORMAT('NO OF CHARS=',I4)
      WRITE(0,10) (IOBUF(K),K=1,NWOUT)
      GO TO 80
   15 GO TO (60,60,60,60,60,45,60,55,55,55,55,55,56),IPLTR
   10 FORMAT(10(1X,A7))
C  15 GO TO (20,30,35,40,30,45,50),IPLTR
   20 NC01=NCCNT
C     FOR CALCOMP PLOTTER
C     CHANGED STATEMENT SO IOBUF WOULD BE PASSED BY
C     DESCRIPTOR RATHER THAN BY REFERENCE.  C. COOPER
C  C  CALL PXZ18(%DESCR(IOBUF),NC01)
C
CC    FOR TEKTRONIX 4010,4012
C  30 CALL PXZ17(IOBUF,NCCNT)
C  C  GO TO 80
C
CC    FOR TEXPLOT
C  35 CALL PXZ22(IOBUF,NCCNT)
C  C  GO TO 80
C
CC    FOR HP7203
C  40 CALL PXZ19(IOBUF,NCCNT)
C  C  GO TO 80
C
CC    FOR HP7580A
CC    ALL OUTPUT IS GENERATED FROM SUBROUTINE HPFORM
CC    SO WE WILL JUST RETURN.
   45 RETURN
C
CC    FOR GENERAL VECTOR OUTPUT
C  50 CALL PXZ23(IOBUF,NCCNT)
C  C  GO TO 80
C
C     FOR PC'S
C     ALL OUTPUT IS GENERATED FROM PXZ42F 
C     SO JUST RETURN
   55 GO TO 80
C
C     FOR TANDY DMP-105 PRINTER
C     ALL OUTPUT IS GENERATED FROM PXZ44F
C     SO JUST RETURN
   56 GO TO 80
C
   60 WRITE (LUERR,70)
   70 FORMAT(' %PLOTTER DRIVER SELECTED NOT IMPLEMENTED.')
      STOP 677
   80 NCCNT=0
      NCOUT=0
      IOBUF(1)=0
      NWOUT=1
      NBLKO=NBLKO+1
C
   90 RETURN
C
      END


