PROGRAM TESTPRDUMP
      OPEN(10,FORM='PRINTER',FILE='RAWVDU:')
      CALL MODE0
      CALL MODE1
      CALL MODE2
      CALL MODE4
      CALL MODE5
C                    empty printer buffer ?
      END
      SUBROUTINE MODE0
C            SET MODE
      WRITE(10,101)22,0
  101 FORMAT('*',2A1,'  Mode 0',/) 
      CALL PRDUMP(1)
C            PLOT ALL COLOURS
      DO 10 I=1,7
      CALL SETUP(I,1,70)
   10 CALL PRDUMP(2)
      RETURN
      END
      SUBROUTINE MODE1
C            SET MODE
      WRITE(10,101)22,1
  101 FORMAT('*',2A1,'  Mode 1',/)
      CALL PRDUMP(1)
C            1ST 3 COLOURS
      DO 10 I=1,3
   10 CALL SETUP(I,I,30)
      CALL PRDUMP(6)
C            NEXT 3
      WRITE(10,101)12
      DO 20 I=1,3
   20 CALL SETUP(I+3,I,30)
      CALL PRDUMP(6)
C            LAST 1
      WRITE(10,101)12
      DO 30 I=1,1
   30 CALL SETUP(I+6,I,30)
      CALL PRDUMP(2)
      RETURN
      END
      SUBROUTINE MODE2
C            SET MODE
      WRITE(10,101)22,2
  101 FORMAT('*',2A1,'  Mode 2',/)
      CALL PRDUMP(1)
C            PLOT ALL COLOURS
      DO 10 I=1,7
   10 CALL SETUP(I,I,10)
      CALL PRDUMP(14)
      RETURN
      END
      SUBROUTINE MODE4
C            SET MODE
      WRITE(10,101)22,4
  101 FORMAT('*',2A1,'  Mode 4',/) 
      CALL PRDUMP(1)
C            PLOT ALL COLOURS
      DO 10 I=1,7
      CALL SETUP(I,1,30)
   10 CALL PRDUMP(2)
      RETURN
      END
      SUBROUTINE MODE5
C            SET MODE
      WRITE(10,101)22,5
  101 FORMAT('*',2A1,'  Mode 5',/)
      CALL PRDUMP(1)
C            1ST 3 COLOURS
      DO 10 I=1,3
   10 CALL SETUP(I,I,10)
      CALL PRDUMP(6)
C            NEXT 3
      WRITE(10,101)12
      DO 20 I=1,3
   20 CALL SETUP(I+3,I,10)
      CALL PRDUMP(6)
C            LAST 1
      WRITE(10,101)12
      DO 30 I=1,1
   30 CALL SETUP(I+6,I,10)
      CALL PRDUMP(2)
      RETURN
      END
      SUBROUTINE SETUP(ICOL,IROW,NX)
      CHARACTER *7 NAMES(7)
      DATA NAMES/'Red','Green','Yellow','Blue','Magenta','Cyan','White'/
      DO 10 J=0,1
   10 WRITE(10,101)31,0,2*(IROW-1)+J,19,IROW,ICOL,0,0,0,17,IROW,
     1NAMES(ICOL),ICOL,(255,I=1,NX)
  101 FORMAT('*',11A1,A7,I1,1X,70A1)
      RETURN
      END